1 /*-*-mode:
2
3 !
4 ! Dalton, a molecular electronic structure program
5 ! Copyright (C) by the authors of Dalton.
6 !
7 ! This program is free software; you can redistribute it and/or
8 ! modify it under the terms of the GNU Lesser General Public
9 ! License version 2.1 as published by the Free Software Foundation.
10 !
11 ! This program is distributed in the hope that it will be useful,
12 ! but WITHOUT ANY WARRANTY; without even the implied warranty of
13 ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 ! Lesser General Public License for more details.
15 !
16 ! If a copy of the GNU LGPL v2.1 was not distributed with this
17 ! code, you can obtain one at https://www.gnu.org/licenses/old-licenses/lgpl-2.1.en.html.
18 !
19
20 !
21
22 */
23 /* fun-hcth120.c:
24
25 Automatically generated code implementing hcth120 functional and its
26 derivatives. Generated by func-codegen.pl being a part of a
27 "Automatic code generation framework for analytical functional
28 derivative evaluation", Pawel Salek, 2004
29
30 This functional is connected by making following changes:
31 1. add "extern Functional hcth120Functional;" to 'functionals.h'
32 2. add "&hcth120Functional," to 'functionals.c'
33 3. add "fun-hcth120}.c" to 'Makefile.am', 'Makefile.in' or 'Makefile'.
34
35 This functional has been generated from following input:
36 ------ cut here -------
37 HCTH120: A. D. Boese, N. L. Doltsinis, N. C. Handy and M. Sprik,
38 J. Chem. Phys. 112, 1670 (2000)
39
40 xa: (grada/rhoa^(4/3));
41 xb: (gradb/rhob^(4/3));
42
43 pa: 1;
44 Aa: 0.016887;
45 a1a: 0.11125;
46 b1a: 10.357;
47 b2a: 3.6231;
48 b3a: 0.88026;
49 b4a: 0.49671;
50
51 pe: 1;
52 c0p: 0.031091;
53 a1p: 0.21370;
54 b1p: 7.5957;
55 b2p: 3.5876;
56 b3p: 1.6382;
57 b4p: 0.49294;
58
59 c0f: 0.01554500000;
60 a1f: 0.20548;
61 b1f: 14.1189;
62 b2f: 6.1977;
63 b3f: 3.3662;
64 b4f: 0.62517;
65
66 ccab: [0.51473, 6.9298, -24.707, 23.110, -11.323];
67 ccaa: [0.48951, -0.2607, 0.4329, -1.9925, 2.4853];
68 cx: [1.09163, -0.7472, 5.0783, -4.1075, 1.1717];
69
70
71 rs(r):= (3/(4*%PI*r))^(1/3);
72 z(ra,rb):= (ra-rb)/(ra+rb);
73 fz(v):= ((1+v)^(4/3) + (1-v)^(4/3) - 2)/(2*2^(1/3) - 2);
74
75 d2fz0: 1.709921;
76
77 Gc(r,A,a1,b1,b2,b3,b4,p):= -2*A*(1 + a1*r)
78 *log(1 + 0.5/(A*(b1*sqrt(r) + b2*r + b3*r^(3/2) + b4*r^(p+1))));
79
80 Ac(x):= -Gc(x,Aa,a1a,b1a,b2a,b3a,b4a,pa);
81 EcP(x):= Gc(x,c0p,a1p,b1p,b2p,b3p,b4p,pe);
82 EcF(x):= Gc(x,c0f,a1f,b1f,b2f,b3f,b4f,pe);
83
84
85 EcLSDA(ra,rb):=(ra+rb)*(EcP(rs(ra+rb)) +
86 Ac(rs(ra+rb))*fz(z(ra,rb))*(1-(z(ra,rb))^4)/d2fz0 +
87 (EcF(rs(ra+rb))-EcP(rs(ra+rb)))*fz(z(ra,rb))*
88 (z(ra,rb))^4);
89
90 EcabLSDA(ra,rb):= EcLSDA(ra,rb)-EcLSDA(ra,0)-EcLSDA(rb,0);
91
92 gcab: 0.006;
93 gcaa: 0.2;
94
95 cx0: -3/8*((16*3/%PI)^(1/3));
96 gx: 0.004;
97
98 Ucab(t):= gcab*t/(1+gcab*t);
99 Ucaa(t):= gcaa*t/(1+gcaa*t);
100
101 Gcab(t):= ccab[1] + ccab[2]*Ucab(t) + ccab[3]*Ucab(t)^2
102 + ccab[4]*Ucab(t)^3 + ccab[5]*Ucab(t)^4;
103
104 Gcaa(t):= ccaa[1] + ccaa[2]*Ucaa(t) + ccaa[3]*Ucaa(t)^2
105 + ccaa[4]*Ucaa(t)^3 + ccaa[5]*Ucaa(t)^4;
106
107 Ux(r):= gx*r/(1+gx*r);
108
109 ExLSDAa: (cx0*rhoa^(4/3));
110 ExLSDAb: (cx0*rhob^(4/3));
111
112 Gx(t):= cx[1] + cx[2]*Ux(t) + cx[3]*Ux(t)^2 + cx[4]*Ux(t)^3 + cx[5]*Ux(t)^4;
113
114 K(rhoa,grada,rhob,gradb,gradab):=
115 EcabLSDA(rhoa,rhob)*Gcab(0.5*xa^2 + 0.5*xb^2)
116 + ExLSDAa*Gx(xa^2) + EcLSDA(rhoa,0) * Gcaa(xa^2) +
117 + ExLSDAb*Gx(xb^2) + EcLSDA(rhob,0) * Gcaa(xb^2);
118
119
120 ------ cut here -------
121 */
122
123
124 /* strictly conform to XOPEN ANSI C standard */
125 #if !defined(SYS_DEC)
126 /* XOPEN compliance is missing on old Tru64 4.0E Alphas and pow() prototype
127 * is not specified. */
128 #define _XOPEN_SOURCE 500
129 #define _XOPEN_SOURCE_EXTENDED 1
130 #endif
131 #include <math.h>
132 #include <stddef.h>
133 #include "general.h"
134
135 #define __CVERSION__
136
137 #include "functionals.h"
138
139 /* INTERFACE PART */
hcth120_isgga(void)140 static integer hcth120_isgga(void) { return 1; } /* FIXME: detect! */
141 static integer hcth120_read(const char *conf_line);
142 static real hcth120_energy(const FunDensProp* dp);
143 static void hcth120_first(FunFirstFuncDrv *ds, real factor,
144 const FunDensProp* dp);
145 static void hcth120_second(FunSecondFuncDrv *ds, real factor,
146 const FunDensProp* dp);
147 static void hcth120_third(FunThirdFuncDrv *ds, real factor,
148 const FunDensProp* dp);
149 static void hcth120_fourth(FunFourthFuncDrv *ds, real factor,
150 const FunDensProp* dp);
151
152 Functional HCTH120Functional = {
153 "HCTH120", /* name */
154 hcth120_isgga, /* gga-corrected */
155 1,
156 hcth120_read,
157 NULL,
158 hcth120_energy,
159 hcth120_first,
160 hcth120_second,
161 hcth120_third,
162 hcth120_fourth
163 };
164
165 /* IMPLEMENTATION PART */
166 static integer
hcth120_read(const char * conf_line)167 hcth120_read(const char *conf_line)
168 {
169 fun_set_hf_weight(0);
170 return 1;
171 }
172
173 static real
hcth120_energy(const FunDensProp * dp)174 hcth120_energy(const FunDensProp *dp)
175 {
176 real res;
177 real rhoa = dp->rhoa, rhob = dp->rhob;
178 real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;
179
180 real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
181 real t11, t12, t13, t14, t15, t16, t17, t18;
182 real t19, t20, t21, t22, t23, t24, t25, t26;
183 real t27, t28, t29, t30, t31, t32, t33, t34;
184 real t35, t36, t37, t38, t39, t40, t41, t42;
185 real t43, t44, t45, t46, t47, t48, t49, t50;
186 real t51, t52, t53, t54;
187
188 t1 = pow(3.0,.6666666666666666);
189 t2 = 1/pow(4.0,.6666666666666666);
190 t3 = 1/pow(3.141592653589793,.6666666666666666);
191 t4 = 1.732050807568877;
192 t5 = .5641895835477563;
193 t6 = pow(3.0,.3333333333333333);
194 t7 = 1/pow(4.0,.3333333333333333);
195 t8 = 1/pow(3.141592653589793,.3333333333333333);
196 t9 = 1/pow(rhoa,.3333333333333333);
197 t10 = pow(2.0,.3333333333333333);
198 t11 = 1/t10;
199 t12 = pow(3.0,.1666666666666667);
200 t13 = 1/pow(3.141592653589793,.1666666666666667);
201 t14 = log(32.1646831778707/(0.62517*t1*t2*t3/pow(rhoa,
202 .6666666666666666)+14.1189*t11*t12*t13/pow(rhoa,.1666666666666667)+
203 1.6831*t4*t5/sqrt(rhoa)+6.1977*t6*t7*t8*t9)+1.0);
204 t15 = pow(grada,8.0);
205 t16 = pow(grada,2.0);
206 t17 = 1/pow(rhoa,2.666666666666667);
207 t18 = 0.2*t16*t17+1.0;
208 t19 = 1/pow(rhoa,10.66666666666667);
209 t20 = pow(grada,6.0);
210 t21 = 1/pow(rhoa,8.0);
211 t22 = pow(grada,4.0);
212 t23 = 1/pow(rhoa,5.333333333333333);
213 t24 = 0.20548*t6*t7*t8*t9+1.0;
214 t25 = pow(6.0,.3333333333333333);
215 t26 = 0.004*t16*t17+1.0;
216 t27 = 1/pow(rhob,.3333333333333333);
217 t28 = log(32.1646831778707/(0.62517*t1*t2*t3/pow(rhob,
218 .6666666666666666)+14.1189*t11*t12*t13/pow(rhob,.1666666666666667)+
219 1.6831*t4*t5/sqrt(rhob)+6.1977*t6*t7*t8*t27)+1.0);
220 t29 = pow(gradb,8.0);
221 t30 = pow(gradb,2.0);
222 t31 = 1/pow(rhob,2.666666666666667);
223 t32 = 0.2*t30*t31+1.0;
224 t33 = 1/pow(rhob,10.66666666666667);
225 t34 = pow(gradb,6.0);
226 t35 = 1/pow(rhob,8.0);
227 t36 = pow(gradb,4.0);
228 t37 = 1/pow(rhob,5.333333333333333);
229 t38 = 0.20548*t6*t7*t8*t27+1.0;
230 t39 = 0.004*t30*t31+1.0;
231 t40 = 0.5*t30*t31+0.5*t16*t17;
232 t41 = 0.006*t40+1.0;
233 t42 = rhob+rhoa;
234 t43 = 1/pow(t42,.3333333333333333);
235 t44 = 0.2137*t6*t7*t8*t43+1.0;
236 t45 = 1/pow(t42,.6666666666666666);
237 t46 = 1/sqrt(t42);
238 t47 = 1/pow(t42,.1666666666666667);
239 t48 = log(16.0818243221511/(7.5957*t11*t12*t13*t47+3.5876*
240 t6*t7*t8*t43+0.8191*t4*t5*t46+0.49294*t1*t2*t3*t45)+1.0);
241 t49 = 1/
242 (2.0*t10-2.0);
243 t50 = rhoa-1.0*rhob;
244 t51 = pow(t50,4.0);
245 t52 = 1/pow(t42,4.0);
246 t53 = 1/t42;
247 t54 = pow(t50*t53+1.0,1.333333333333333)+pow(1.0-1.0*
248 t50*t53,1.333333333333333)-2.0;
249
250 /* code */
251 res = -0.75*t25*(2.999552e-10*t29*t33/pow(t39,4.0)-2.6288e-7*
252 t34*t35/pow(t39,3.0)+8.125279999999999e-5*t36*t37/pow(t39,
253 2.0)-0.0029888*t30*t31/t39+1.09163)*t8*pow(rhob,1.333333333333333)+
254 (-1.4674608e-8*pow(t40,4.0)/pow(t41,4.0)+4.99176e-6*pow(t40,
255 3.0)/pow(t41,3.0)-8.894520000000001e-4*pow(t40,2.0)/pow(t41,
256 2.0)+0.0415788*t40/t41+0.51473)*(0.03109*t28*t38*rhob+0.03109*
257 t14*t24*rhoa+t42*(.0197517897025652*(0.11125*t6*t7*t8*t43+
258 1.0)*log(29.60857464321668/(10.357*t11*t12*t13*t47+3.6231*
259 t6*t7*t8*t43+0.44013*t4*t5*t46+0.49671*t1*t2*t3*t45)+1.0)*
260 t49*(1.0-1.0*t51*t52)*t54+(0.062182*t44*t48-0.03109*(0.20548*
261 t6*t7*t8*t43+1.0)*log(32.1646831778707/(14.1189*t11*t12*t13*
262 t47+6.1977*t6*t7*t8*t43+1.6831*t4*t5*t46+0.62517*t1*t2*t3*
263 t45)+1.0))*t49*t51*t52*t54-0.062182*t44*t48))-0.03109*t28*
264 (0.017316*t36*t37/pow(t32,2.0)-0.01594*t34*t35/pow(t32,3.0)+
265 0.00397648*t29*t33/pow(t32,4.0)-0.05214*t30*t31/t32+0.48951)*
266 t38*rhob-0.75*t25*(2.999552e-10*t15*t19/pow(t26,4.0)-2.6288e-7*
267 t20*t21/pow(t26,3.0)+8.125279999999999e-5*t22*t23/pow(t26,
268 2.0)-0.0029888*t16*t17/t26+1.09163)*t8*pow(rhoa,1.333333333333333)-
269 0.03109*t14*(0.017316*t22*t23/pow(t18,2.0)-0.01594*t20*t21/
270 pow(t18,3.0)+0.00397648*t15*t19/pow(t18,4.0)-0.05214*t16*t17/
271 t18+0.48951)*t24*rhoa;
272
273 return res;
274 }
275
276 static void
hcth120_first(FunFirstFuncDrv * ds,real factor,const FunDensProp * dp)277 hcth120_first(FunFirstFuncDrv *ds, real factor, const FunDensProp *dp)
278 {
279 real dfdra, dfdrb, dfdga, dfdgb, dfdgab;
280 real rhoa = dp->rhoa, rhob = dp->rhob;
281 real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;
282
283 real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
284 real t11, t12, t13, t14, t15, t16, t17, t18;
285 real t19, t20, t21, t22, t23, t24, t25, t26;
286 real t27, t28, t29, t30, t31, t32, t33, t34;
287 real t35, t36, t37, t38, t39, t40, t41, t42;
288 real t43, t44, t45, t46, t47, t48, t49, t50;
289 real t51, t52, t53, t54, t55, t56, t57, t58;
290 real t59, t60, t61, t62, t63, t64, t65, t66;
291 real t67, t68, t69, t70, t71, t72, t73, t74;
292 real t75, t76, t77, t78, t79, t80, t81, t82;
293 real t83, t84, t85, t86, t87, t88, t89, t90;
294 real t91, t92, t93, t94, t95, t96, t97, t98;
295 real t99, t100, t101, t102, t103, t104, t105;
296 real t106, t107, t108, t109, t110, t111, t112;
297 real t113, t114, t115, t116, t117, t118, t119;
298 real t120, t121, t122, t123, t124, t125, t126;
299 real t127, t128, t129, t130, t131, t132, t133;
300 real t134, t135, t136, t137, t138, t139, t140;
301 real t141, t142, t143, t144, t145, t146, t147;
302 real t148, t149, t150, t151, t152, t153, t154;
303 real t155, t156, t157, t158, t159, t160, t161;
304 real t162, t163, t164, t165, t166;
305
306 t1 = pow(3.0,.3333333333333333);
307 t2 = 1/pow(4.0,.3333333333333333);
308 t3 = 1/pow(3.141592653589793,.3333333333333333);
309 t4 = pow(3.0,.6666666666666666);
310 t5 = 1/pow(4.0,.6666666666666666);
311 t6 = 1/pow(3.141592653589793,.6666666666666666);
312 t7 = 1.732050807568877;
313 t8 = .5641895835477563;
314 t9 = sqrt(rhoa);
315 t10 = pow(rhoa,.3333333333333333);
316 t11 = 1/t10;
317 t12 = pow(2.0,.3333333333333333);
318 t13 = 1/t12;
319 t14 = pow(3.0,.1666666666666667);
320 t15 = 1/pow(3.141592653589793,.1666666666666667);
321 t16 = 0.62517*t4*t5*t6/pow(rhoa,.6666666666666666)+14.1189*
322 t13*t14*t15/pow(rhoa,.1666666666666667)+1.6831*t7*t8/t9+6.1977*
323 t1*t2*t3*t11;
324 t17 = 32.1646831778707/t16+1.0;
325 t18 = log(t17);
326 t19 = pow(grada,8.0);
327 t20 = pow(grada,2.0);
328 t21 = 1/pow(rhoa,2.666666666666667);
329 t22 = 0.2*t20*t21+1.0;
330 t23 = 1/pow(t22,4.0);
331 t24 = 1/pow(rhoa,10.66666666666667);
332 t25 = pow(grada,6.0);
333 t26 = 1/pow(t22,3.0);
334 t27 = 1/pow(rhoa,8.0);
335 t28 = pow(grada,4.0);
336 t29 = 1/pow(t22,2.0);
337 t30 = 1/pow(rhoa,5.333333333333333);
338 t31 = 1/t22;
339 t32 = -0.05214*t20*t31*t21+0.017316*t28*t29*t30-0.01594*
340 t25*t26*t27+0.00397648*t19*t23*t24+0.48951;
341 t33 = 0.20548*t1*t2*t3*t11+1.0;
342 t34 = pow(6.0,.3333333333333333);
343 t35 = 0.004*t20*t21+1.0;
344 t36 = 1/pow(t35,4.0);
345 t37 = 1/pow(t35,3.0);
346 t38 = 1/pow(t35,2.0);
347 t39 = 1/t35;
348 t40 = pow(grada,10.0);
349 t41 = 1/pow(t22,5.0);
350 t42 = 1/pow(rhoa,14.33333333333333);
351 t43 = 1/pow(rhoa,11.66666666666667);
352 t44 = 1/pow(rhoa,9.0);
353 t45 = 1/pow(rhoa,6.333333333333333);
354 t46 = 1/pow(rhoa,3.666666666666667);
355 t47 = 1/t17;
356 t48 = pow(rhoa,1.333333333333333);
357 t49 = -0.41678*t4*t5*t6/pow(rhoa,1.666666666666667)-2.35315*
358 t13*t14*t15/pow(rhoa,1.166666666666667)-0.84155*t7*t8/pow(t9,
359 3.0)-2.0659*t1*t2*t3/t48;
360 t50 = 1/pow(t16,2.0);
361 t51 = 1/pow(t35,5.0);
362 t52 = pow(gradb,2.0);
363 t53 = 1/pow(rhob,2.666666666666667);
364 t54 = 0.5*t52*t53+0.5*t20*t21;
365 t55 = pow(t54,4.0);
366 t56 = 0.006*t54+1.0;
367 t57 = 1/pow(t56,4.0);
368 t58 = pow(t54,3.0);
369 t59 = 1/pow(t56,3.0);
370 t60 = pow(t54,2.0);
371 t61 = 1/pow(t56,2.0);
372 t62 = 1/t56;
373 t63 = 0.0415788*t54*t62-8.894520000000001e-4*t60*t61+
374 4.99176e-6*t58*t59-1.4674608e-8*t55*t57+0.51473;
375 t64 = rhob+rhoa;
376 t65 = 1/pow(t64,.3333333333333333);
377 t66 = 0.2137*t1*t2*t3*t65+1.0;
378 t67 = 1/pow(t64,.6666666666666666);
379 t68 = sqrt(t64);
380 t69 = 1/t68;
381 t70 = 1/pow(t64,.1666666666666667);
382 t71 = 7.5957*t13*t14*t15*t70+3.5876*t1*t2*t3*t65+0.8191*
383 t7*t8*t69+0.49294*t4*t5*t6*t67;
384 t72 = 16.0818243221511/t71+1.0;
385 t73 = log(t72);
386 t74 = -0.062182*t66*t73;
387 t75 = 1/(2.0*t12-2.0);
388 t76 = rhoa-1.0*rhob;
389 t77 = pow(t76,4.0);
390 t78 = 1/pow(t64,4.0);
391 t79 = 1.0-1.0*t77*t78;
392 t80 = 0.11125*t1*t2*t3*t65+1.0;
393 t81 = 1/t64;
394 t82 = 1.0-1.0*t76*t81;
395 t83 = t76*t81+1.0;
396 t84 = pow(t83,1.333333333333333)+pow(t82,1.333333333333333)-
397 2.0;
398 t85 = 10.357*t13*t14*t15*t70+3.6231*t1*t2*t3*t65+0.44013*
399 t7*t8*t69+0.49671*t4*t5*t6*t67;
400 t86 = 29.60857464321668/t85+1.0;
401 t87 = log(t86);
402 t88 = .0197517897025652*t75*t79*t80*t84*t87;
403 t89 = 0.20548*t1*t2*t3*t65+1.0;
404 t90 = 14.1189*t13*t14*t15*t70+6.1977*t1*t2*t3*t65+1.6831*
405 t7*t8*t69+0.62517*t4*t5*t6*t67;
406 t91 = 32.1646831778707/t90+1.0;
407 t92 = log(t91);
408 t93 = 0.062182*t66*t73-0.03109*t89*t92;
409 t94 = t75*t77*t78*t84*t93;
410 t95 = 1/pow(t64,1.666666666666667);
411 t96 = 1/pow(t68,3.0);
412 t97 = 1/pow(t64,1.333333333333333);
413 t98 = 1/pow(t64,1.166666666666667);
414 t99 = -1.26595*t13*t14*t15*t98-1.195866666666667*t1*t2*
415 t3*t97-0.40955*t7*t8*t96-.3286266666666666*t4*t5*t6*t95;
416 t100 = 1/
417 pow(t71,2.0);
418 t101 = 1/t72;
419 t102 = .9999999999999999*t99*t66*t100*t101;
420 t103 = -.5848223397455204*t75*t79*t80*t84*(-1.726166666666666*
421 t13*t14*t15*t98-1.2077*t1*t2*t3*t97-0.220065*t7*t8*t96-0.33114*
422 t4*t5*t6*t95)/(pow(t85,2.0)*t86);
423 t104 = .0044294311333333*t1*t2*t3*t97*t73;
424 t105 = 1/pow(t64,2.0);
425 t106 = t76*t105;
426 t107 = -1.0*t81;
427 t108 = pow(t82,.3333333333333333);
428 t109 = -1.0*t105*t76;
429 t110 = pow(t83,.3333333333333333);
430 t111 = 1.333333333333333*t110*(t81+t109)+1.333333333333333*
431 (t107+t106)*t108;
432 t112 = -7.324622014701263e-4*t75*t1*t2*t3*t97*t79*t84*
433 t87;
434 t113 = 1/pow(t64,5.0);
435 t114 = 4.0*t113*t77;
436 t115 = pow(t76,3.0);
437 t116 = t75*t77*t78*t84*(t89*(-2.35315*t13*t14*t15*t98-
438 2.0659*t1*t2*t3*t97-0.84155*t7*t8*t96-0.41678*t4*t5*t6*t95)/
439 (pow(t90,2.0)*t91)+.0021294577333333*t1*t2*t3*t97*t92-.0044294311333333*
440 t1*t2*t3*t97*t73-.9999999999999999*t99*t66*t100*t101);
441 t117 = -4.0*t113*t75*t77*t84*t93;
442 t118 = 1/pow(t56,5.0);
443 t119 = sqrt(rhob);
444 t120 = pow(rhob,.3333333333333333);
445 t121 = 1/t120;
446 t122 = 0.62517*t4*t5*t6/pow(rhob,.6666666666666666)+14.1189*
447 t13*t14*t15/pow(rhob,.1666666666666667)+1.6831*t7*t8/t119+
448 6.1977*t1*t2*t3*t121;
449 t123 = 32.1646831778707/t122+1.0;
450 t124 = log(t123);
451 t125 = 0.20548*t1*t2*t3*t121+1.0;
452 t126 = t64*(t94+t88+t74)+0.03109*t124*t125*rhob+0.03109*
453 t18*t33*rhoa;
454 t127 = pow(gradb,8.0);
455 t128 = 0.2*t52*t53+1.0;
456 t129 = 1/pow(t128,4.0);
457 t130 = 1/pow(rhob,10.66666666666667);
458 t131 = pow(gradb,6.0);
459 t132 = 1/pow(t128,3.0);
460 t133 = 1/pow(rhob,8.0);
461 t134 = pow(gradb,4.0);
462 t135 = 1/pow(t128,2.0);
463 t136 = 1/pow(rhob,5.333333333333333);
464 t137 = 1/t128;
465 t138 = -0.05214*t52*t137*t53+0.017316*t134*t135*t136-
466 0.01594*t131*t132*t133+0.00397648*t127*t129*t130+0.48951;
467 t139 = 0.004*
468 t52*t53+1.0;
469 t140 = 1/pow(t139,4.0);
470 t141 = 1/pow(t139,3.0);
471 t142 = 1/pow(t139,2.0);
472 t143 = 1/t139;
473 t144 = pow(gradb,10.0);
474 t145 = 1/pow(t128,5.0);
475 t146 = 1/pow(rhob,14.33333333333333);
476 t147 = 1/pow(rhob,11.66666666666667);
477 t148 = 1/pow(rhob,9.0);
478 t149 = 1/pow(rhob,6.333333333333333);
479 t150 = 1/pow(rhob,3.666666666666667);
480 t151 = 1/t123;
481 t152 = pow(rhob,1.333333333333333);
482 t153 = -0.41678*t4*t5*t6/pow(rhob,1.666666666666667)-
483 2.35315*t13*t14*t15/pow(rhob,1.166666666666667)-0.84155*t7*
484 t8/pow(t119,3.0)-2.0659*t1*t2*t3/t152;
485 t154 = 1/pow(t122,2.0);
486 t155 = 1/pow(t139,5.0);
487 t156 = 1.333333333333333*t108*(t81+t106)+1.333333333333333*
488 (t107+t109)*t110;
489 t157 = pow(grada,9.0);
490 t158 = 1/pow(rhoa,13.33333333333333);
491 t159 = pow(grada,7.0);
492 t160 = pow(grada,5.0);
493 t161 = pow(grada,3.0);
494 t162 = pow(gradb,9.0);
495 t163 = 1/pow(rhob,13.33333333333333);
496 t164 = pow(gradb,7.0);
497 t165 = pow(gradb,5.0);
498 t166 = pow(gradb,3.0);
499
500 /* code */
501 dfdra = t63*(-1.0*t47*t49*t33*t50*rhoa+t94+t64*(4.0*t115*
502 t75*t78*t84*t93+t75*t77*t78*t111*t93+.0197517897025652*t75*
503 (t114-4.0*t115*t78)*t80*t84*t87+.0197517897025652*t75*t79*
504 t80*t111*t87+t117+t116+t112+t104+t103+t102)+t88+t74+0.03109*
505 t18*t33-.0021294577333333*t1*t2*t3*t18*t11)+t47*t32*t49*t33*
506 t50*rhoa-0.03109*t18*(0.13904*t20*t31*t46-0.12016*t28*t29*
507 t45+0.1459904*t25*t26*t44-.0679197866666667*t19*t23*t43+.0084831573333333*
508 t40*t41*t42)*t33*rhoa-0.75*t3*t34*(.0079701333333333*t20*t39*
509 t46-4.652287999999999e-4*t28*t38*t45+3.836433066666666e-6*
510 t25*t37*t44-1.161168213333333e-8*t19*t36*t43+1.27980885333333e-11*
511 t40*t51*t42)*t48-1.0*t10*(-0.0029888*t20*t39*t21+8.125279999999999e-5*
512 t28*t38*t30-2.6288e-7*t25*t37*t27+2.999552e-10*t19*t36*t24+
513 1.09163)*t3*t34-0.03109*t18*t32*t33+(-0.0554384*t20*t46*t62+
514 0.0027045024*t20*t46*t54*t61-3.4198272e-5*t20*t46*t60*t59+
515 1.98066816e-7*t20*t46*t58*t57-4.69587456e-10*t20*t46*t55*t118)*
516 t126+.0021294577333333*t1*t2*t3*t18*t32*t11;
517 dfdrb = t63*(-1.0*t151*t153*t125*t154*rhob+t94+t64*(-
518 4.0*t115*t75*t78*t84*t93+t75*t77*t78*t156*t93+.0197517897025652*
519 t75*(4.0*t115*t78+t114)*t80*t84*t87+.0197517897025652*t75*
520 t79*t80*t156*t87+t117+t116+t112+t104+t103+t102)+t88+t74+0.03109*
521 t124*t125-.0021294577333333*t1*t2*t3*t124*t121)+t151*t138*
522 t153*t125*t154*rhob-0.03109*t124*(0.13904*t52*t137*t150-0.12016*
523 t134*t135*t149+0.1459904*t131*t132*t148-.0679197866666667*
524 t127*t129*t147+.0084831573333333*t144*t145*t146)*t125*rhob-
525 1.0*t120*t3*t34*(-0.0029888*t52*t143*t53+8.125279999999999e-5*
526 t134*t142*t136-2.6288e-7*t131*t141*t133+2.999552e-10*t127*
527 t140*t130+1.09163)-0.75*(.0079701333333333*t52*t143*t150-4.652287999999999e-4*
528 t134*t142*t149+3.836433066666666e-6*t131*t141*t148-1.161168213333333e-8*
529 t127*t140*t147+1.27980885333333e-11*t144*t155*t146)*t152*t3*
530 t34+(-0.0554384*t52*t62*t150+0.0027045024*t52*t54*t61*t150-
531 3.4198272e-5*t52*t60*t59*t150+1.98066816e-7*t52*t58*t57*t150-
532 4.69587456e-10*t52*t55*t118*t150)*t126-0.03109*t124*t138*t125+
533 .0021294577333333*t1*t2*t3*t124*t138*t121;
534 dfdga = -0.03109*t18*(-0.10428*grada*t31*t21+0.09012*
535 t161*t29*t30-0.1094928*t160*t26*t27+0.05093984*t159*t23*t24-
536 0.006362368*t157*t41*t158)*t33*rhoa-0.75*(-0.0059776*grada*
537 t39*t21+3.489216e-4*t161*t38*t30-2.8773248e-6*t160*t37*t27+
538 8.7087616e-9*t159*t36*t24-9.5985664e-12*t157*t51*t158)*t3*
539 t34*t48+(0.0415788*grada*t21*t62-0.0020283768*grada*t21*t54*
540 t61+2.5648704e-5*grada*t21*t60*t59-1.48550112e-7*grada*t21*
541 t58*t57+3.52190592e-10*grada*t21*t55*t118)*t126;
542 dfdgb = -0.03109*t124*(-0.10428*gradb*t137*t53+0.09012*
543 t166*t135*t136-0.1094928*t165*t132*t133+0.05093984*t164*t129*
544 t130-0.006362368*t162*t145*t163)*t125*rhob-0.75*t152*t3*t34*
545 (-0.0059776*gradb*t143*t53+3.489216e-4*t166*t142*t136-2.8773248e-6*
546 t165*t141*t133+8.7087616e-9*t164*t140*t130-9.5985664e-12*t162*
547 t155*t163)+(0.0415788*gradb*t62*t53-0.0020283768*gradb*t54*
548 t61*t53+2.5648704e-5*gradb*t60*t59*t53-1.48550112e-7*gradb*
549 t58*t57*t53+3.52190592e-10*gradb*t55*t118*t53)*t126;
550 dfdgab = 0.0;
551
552
553 ds->df1000 += factor*dfdra;
554 ds->df0100 += factor*dfdrb;
555 ds->df0010 += factor*dfdga;
556 ds->df0001 += factor*dfdgb;
557 ds->df00001+= factor*dfdgab;
558
559 }
560
561 static void
hcth120_second(FunSecondFuncDrv * ds,real factor,const FunDensProp * dp)562 hcth120_second(FunSecondFuncDrv *ds, real factor, const FunDensProp* dp)
563 {
564 real dfdra, dfdrb, dfdga, dfdgb, dfdgab;
565 real d2fdrara, d2fdrarb, d2fdraga, d2fdragb, d2fdraab, d2fdrbrb,
566 d2fdrbga, d2fdrbgb, d2fdrbgab, d2fdgaga, d2fdgagb, d2fdgagab,
567 d2fdgbgb, d2fdgbgab, d2fdgabgab;
568 real rhoa = dp->rhoa, rhob = dp->rhob;
569 real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;
570
571 real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
572 real t11, t12, t13, t14, t15, t16, t17, t18;
573 real t19, t20, t21, t22, t23, t24, t25, t26;
574 real t27, t28, t29, t30, t31, t32, t33, t34;
575 real t35, t36, t37, t38, t39, t40, t41, t42;
576 real t43, t44, t45, t46, t47, t48, t49, t50;
577 real t51, t52, t53, t54, t55, t56, t57, t58;
578 real t59, t60, t61, t62, t63, t64, t65, t66;
579 real t67, t68, t69, t70, t71, t72, t73, t74;
580 real t75, t76, t77, t78, t79, t80, t81, t82;
581 real t83, t84, t85, t86, t87, t88, t89, t90;
582 real t91, t92, t93, t94, t95, t96, t97, t98;
583 real t99, t100, t101, t102, t103, t104, t105;
584 real t106, t107, t108, t109, t110, t111, t112;
585 real t113, t114, t115, t116, t117, t118, t119;
586 real t120, t121, t122, t123, t124, t125, t126;
587 real t127, t128, t129, t130, t131, t132, t133;
588 real t134, t135, t136, t137, t138, t139, t140;
589 real t141, t142, t143, t144, t145, t146, t147;
590 real t148, t149, t150, t151, t152, t153, t154;
591 real t155, t156, t157, t158, t159, t160, t161;
592 real t162, t163, t164, t165, t166, t167, t168;
593 real t169, t170, t171, t172, t173, t174, t175;
594 real t176, t177, t178, t179, t180, t181, t182;
595 real t183, t184, t185, t186, t187, t188, t189;
596 real t190, t191, t192, t193, t194, t195, t196;
597 real t197, t198, t199, t200, t201, t202, t203;
598 real t204, t205, t206, t207, t208, t209, t210;
599 real t211, t212, t213, t214, t215, t216, t217;
600 real t218, t219, t220, t221, t222, t223, t224;
601 real t225, t226, t227, t228, t229, t230, t231;
602 real t232, t233, t234, t235, t236, t237, t238;
603 real t239, t240, t241, t242, t243, t244, t245;
604 real t246, t247, t248, t249, t250, t251, t252;
605 real t253, t254, t255, t256, t257, t258, t259;
606 real t260, t261, t262, t263, t264, t265, t266;
607 real t267, t268, t269, t270, t271, t272, t273;
608 real t274, t275, t276, t277, t278, t279, t280;
609 real t281, t282, t283, t284, t285;
610
611 t1 = pow(3.0,.3333333333333333);
612 t2 = 1/pow(4.0,.3333333333333333);
613 t3 = 1/pow(3.141592653589793,.3333333333333333);
614 t4 = pow(3.0,.6666666666666666);
615 t5 = 1/pow(4.0,.6666666666666666);
616 t6 = 1/pow(3.141592653589793,.6666666666666666);
617 t7 = 1/pow(rhoa,.6666666666666666);
618 t8 = 1.732050807568877;
619 t9 = .5641895835477563;
620 t10 = sqrt(rhoa);
621 t11 = pow(rhoa,.3333333333333333);
622 t12 = 1/t11;
623 t13 = pow(2.0,.3333333333333333);
624 t14 = 1/t13;
625 t15 = pow(3.0,.1666666666666667);
626 t16 = 1/pow(3.141592653589793,.1666666666666667);
627 t17 = 14.1189*t14*t15*t16/pow(rhoa,.1666666666666667)+
628 1.6831*t8*t9/t10+0.62517*t4*t5*t6*t7+6.1977*t1*t2*t3*t12;
629 t18 = 32.1646831778707/
630 t17+1.0;
631 t19 = log(t18);
632 t20 = pow(grada,8.0);
633 t21 = pow(grada,2.0);
634 t22 = 1/pow(rhoa,2.666666666666667);
635 t23 = 0.2*t21*t22+1.0;
636 t24 = 1/pow(t23,4.0);
637 t25 = 1/pow(rhoa,10.66666666666667);
638 t26 = pow(grada,6.0);
639 t27 = 1/pow(t23,3.0);
640 t28 = 1/pow(rhoa,8.0);
641 t29 = pow(grada,4.0);
642 t30 = 1/pow(t23,2.0);
643 t31 = 1/pow(rhoa,5.333333333333333);
644 t32 = 1/t23;
645 t33 = -0.05214*t21*t32*t22+0.017316*t29*t30*t31-0.01594*
646 t26*t27*t28+0.00397648*t20*t24*t25+0.48951;
647 t34 = 0.20548*t1*t2*t3*t12+1.0;
648 t35 = pow(6.0,.3333333333333333);
649 t36 = 0.004*t21*t22+1.0;
650 t37 = 1/pow(t36,4.0);
651 t38 = 1/pow(t36,3.0);
652 t39 = 1/pow(t36,2.0);
653 t40 = 1/t36;
654 t41 = -0.0029888*t21*t40*t22+8.125279999999999e-5*t29*
655 t39*t31-2.6288e-7*t26*t38*t28+2.999552e-10*t20*t37*t25+1.09163;
656 t42 = pow(grada,
657 10.0);
658 t43 = 1/pow(t23,5.0);
659 t44 = 1/pow(rhoa,14.33333333333333);
660 t45 = 1/pow(rhoa,11.66666666666667);
661 t46 = 1/pow(rhoa,9.0);
662 t47 = 1/pow(rhoa,6.333333333333333);
663 t48 = 1/pow(rhoa,3.666666666666667);
664 t49 = 0.13904*t21*t32*t48-0.12016*t29*t30*t47+0.1459904*
665 t26*t27*t46-.0679197866666667*t20*t24*t45+.0084831573333333*
666 t42*t43*t44;
667 t50 = 1/t18;
668 t51 = pow(rhoa,1.333333333333333);
669 t52 = 1/t51;
670 t53 = -0.41678*t4*t5*t6/pow(rhoa,1.666666666666667)-2.35315*
671 t14*t15*t16/pow(rhoa,1.166666666666667)-0.84155*t8*t9/pow(t10,
672 3.0)-2.0659*t1*t2*t3*t52;
673 t54 = 1/pow(t17,2.0);
674 t55 = 1/pow(t36,5.0);
675 t56 = .0079701333333333*t21*t40*t48-4.652287999999999e-4*
676 t29*t39*t47+3.836433066666666e-6*t26*t38*t46-1.161168213333333e-8*
677 t20*t37*t45+1.27980885333333e-11*t42*t55*t44;
678 t57 = pow(gradb,2.0);
679 t58 = 1/pow(rhob,2.666666666666667);
680 t59 = 0.5*t57*t58+0.5*t21*t22;
681 t60 = pow(t59,4.0);
682 t61 = 0.006*t59+1.0;
683 t62 = 1/pow(t61,4.0);
684 t63 = pow(t59,3.0);
685 t64 = 1/pow(t61,3.0);
686 t65 = pow(t59,2.0);
687 t66 = 1/pow(t61,2.0);
688 t67 = 1/t61;
689 t68 = 0.0415788*t59*t67-8.894520000000001e-4*t65*t66+
690 4.99176e-6*t63*t64-1.4674608e-8*t60*t62+0.51473;
691 t69 = rhob+rhoa;
692 t70 = 1/pow(t69,.3333333333333333);
693 t71 = 0.2137*t1*t2*t3*t70+1.0;
694 t72 = 1/pow(t69,.6666666666666666);
695 t73 = sqrt(t69);
696 t74 = 1/t73;
697 t75 = 1/pow(t69,.1666666666666667);
698 t76 = 7.5957*t14*t15*t16*t75+3.5876*t1*t2*t3*t70+0.8191*
699 t8*t9*t74+0.49294*t4*t5*t6*t72;
700 t77 = 16.0818243221511/t76+1.0;
701 t78 = log(t77);
702 t79 = -0.062182*t71*t78;
703 t80 = 1/(2.0*t13-2.0);
704 t81 = rhoa-1.0*rhob;
705 t82 = pow(t81,4.0);
706 t83 = 1/pow(t69,4.0);
707 t84 = 1.0-1.0*t82*t83;
708 t85 = 0.11125*t1*t2*t3*t70+1.0;
709 t86 = 1/t69;
710 t87 = 1.0-1.0*t81*t86;
711 t88 = t81*t86+1.0;
712 t89 = pow(t88,1.333333333333333)+pow(t87,1.333333333333333)-
713 2.0;
714 t90 = 10.357*t14*t15*t16*t75+3.6231*t1*t2*t3*t70+0.44013*
715 t8*t9*t74+0.49671*t4*t5*t6*t72;
716 t91 = 29.60857464321668/t90+1.0;
717 t92 = log(t91);
718 t93 = .0197517897025652*t80*t84*t85*t89*t92;
719 t94 = 0.20548*t1*t2*t3*t70+1.0;
720 t95 = 14.1189*t14*t15*t16*t75+6.1977*t1*t2*t3*t70+1.6831*
721 t8*t9*t74+0.62517*t4*t5*t6*t72;
722 t96 = 32.1646831778707/t95+1.0;
723 t97 = log(t96);
724 t98 = 0.062182*t71*t78-0.03109*t94*t97;
725 t99 = t80*t82*t83*t89*t98;
726 t100 = 1/pow(t69,1.666666666666667);
727 t101 = 1/pow(t73,3.0);
728 t102 = 1/pow(t69,1.333333333333333);
729 t103 = 1/pow(t69,1.166666666666667);
730 t104 = -1.26595*t14*t15*t16*t103-1.195866666666667*t1*
731 t2*t3*t102-0.40955*t8*t9*t101-.3286266666666666*t4*t5*t6*t100;
732 t105 = 1/
733 pow(t76,2.0);
734 t106 = 1/t77;
735 t107 = .9999999999999999*t104*t71*t105*t106;
736 t108 = -1.726166666666666*t14*t15*t16*t103-1.2077*t1*
737 t2*t3*t102-0.220065*t8*t9*t101-0.33114*t4*t5*t6*t100;
738 t109 = 1/pow(t90,2.0);
739 t110 = 1/t91;
740 t111 = -.5848223397455204*t80*t84*t108*t85*t109*t89*t110;
741 t112 = .0044294311333333*
742 t1*t2*t3*t102*t78;
743 t113 = 1/pow(t69,2.0);
744 t114 = t81*t113;
745 t115 = -1.0*t86;
746 t116 = t115+t114;
747 t117 = pow(t87,.3333333333333333);
748 t118 = -1.0*t113*t81;
749 t119 = t86+t118;
750 t120 = pow(t88,.3333333333333333);
751 t121 = 1.333333333333333*t119*t120+1.333333333333333*
752 t116*t117;
753 t122 = .0197517897025652*t80*t84*t85*t121*t92;
754 t123 = -7.324622014701263e-4*t80*t1*t2*t3*t102*t84*t89*
755 t92;
756 t124 = 1/pow(t69,5.0);
757 t125 = 4.0*t124*t82;
758 t126 = pow(t81,3.0);
759 t127 = t125-4.0*t126*t83;
760 t128 = .0197517897025652*t80*t127*t85*t89*t92;
761 t129 = -2.35315*t14*t15*t16*t103-2.0659*t1*t2*t3*t102-
762 0.84155*t8*t9*t101-0.41678*t4*t5*t6*t100;
763 t130 = 1/pow(t95,2.0);
764 t131 = 1/t96;
765 t132 = .0021294577333333*t1*t2*t3*t102*t97-.0044294311333333*
766 t1*t2*t3*t102*t78+t129*t94*t130*t131-.9999999999999999*t104*
767 t71*t105*t106;
768 t133 = t80*t82*t83*t89*t132;
769 t134 = t80*t82*t83*t121*t98;
770 t135 = -4.0*t124*t80*t82*t89*t98;
771 t136 = -1.0*t50*t53*t34*t54*rhoa+t99+t69*(4.0*t126*t80*
772 t83*t89*t98+t135+t134+t133+t128+t123+t122+t112+t111+t107)+
773 t93+t79+0.03109*t19*t34-.0021294577333333*t1*t2*t3*t19*t12;
774 t137 = 1/
775 pow(t61,5.0);
776 t138 = -0.0554384*t21*t48*t67+0.0027045024*t21*t48*t59*
777 t66-3.4198272e-5*t21*t48*t65*t64+1.98066816e-7*t21*t48*t63*
778 t62-4.69587456e-10*t21*t48*t60*t137;
779 t139 = 1/pow(rhob,.6666666666666666);
780 t140 = sqrt(rhob);
781 t141 = pow(rhob,.3333333333333333);
782 t142 = 1/t141;
783 t143 = 14.1189*t14*t15*t16/pow(rhob,.1666666666666667)+
784 1.6831*t8*t9/t140+6.1977*t1*t2*t3*t142+0.62517*t4*t5*t6*t139;
785 t144 = 32.1646831778707/
786 t143+1.0;
787 t145 = log(t144);
788 t146 = 0.20548*t1*t2*t3*t142+1.0;
789 t147 = t69*(t99+t93+t79)+0.03109*t145*t146*rhob+0.03109*
790 t19*t34*rhoa;
791 t148 = pow(gradb,8.0);
792 t149 = 0.2*t57*t58+1.0;
793 t150 = 1/pow(t149,4.0);
794 t151 = 1/pow(rhob,10.66666666666667);
795 t152 = pow(gradb,6.0);
796 t153 = 1/pow(t149,3.0);
797 t154 = 1/pow(rhob,8.0);
798 t155 = pow(gradb,4.0);
799 t156 = 1/pow(t149,2.0);
800 t157 = 1/pow(rhob,5.333333333333333);
801 t158 = 1/t149;
802 t159 = -0.05214*t57*t158*t58+0.017316*t155*t156*t157-
803 0.01594*t152*t153*t154+0.00397648*t148*t150*t151+0.48951;
804 t160 = 0.004*
805 t57*t58+1.0;
806 t161 = 1/pow(t160,4.0);
807 t162 = 1/pow(t160,3.0);
808 t163 = 1/pow(t160,2.0);
809 t164 = 1/t160;
810 t165 = -0.0029888*t57*t164*t58+8.125279999999999e-5*t155*
811 t163*t157-2.6288e-7*t152*t162*t154+2.999552e-10*t148*t161*
812 t151+1.09163;
813 t166 = pow(gradb,10.0);
814 t167 = 1/pow(t149,5.0);
815 t168 = 1/pow(rhob,14.33333333333333);
816 t169 = 1/pow(rhob,11.66666666666667);
817 t170 = 1/pow(rhob,9.0);
818 t171 = 1/pow(rhob,6.333333333333333);
819 t172 = 1/pow(rhob,3.666666666666667);
820 t173 = 0.13904*t57*t158*t172-0.12016*t155*t156*t171+0.1459904*
821 t152*t153*t170-.0679197866666667*t148*t150*t169+.0084831573333333*
822 t166*t167*t168;
823 t174 = 1/t144;
824 t175 = pow(rhob,1.333333333333333);
825 t176 = 1/t175;
826 t177 = -0.41678*t4*t5*t6/pow(rhob,1.666666666666667)-
827 2.35315*t14*t15*t16/pow(rhob,1.166666666666667)-0.84155*t8*
828 t9/pow(t140,3.0)-2.0659*t1*t2*t3*t176;
829 t178 = 1/pow(t143,2.0);
830 t179 = 1/pow(t160,5.0);
831 t180 = .0079701333333333*t57*t164*t172-4.652287999999999e-4*
832 t155*t163*t171+3.836433066666666e-6*t152*t162*t170-1.161168213333333e-8*
833 t148*t161*t169+1.27980885333333e-11*t166*t179*t168;
834 t181 = t86+t114;
835 t182 = t115+t118;
836 t183 = 1.333333333333333*t120*t182+1.333333333333333*
837 t117*t181;
838 t184 = .0197517897025652*t80*t84*t85*t183*t92;
839 t185 = 4.0*t126*t83+t125;
840 t186 = .0197517897025652*t80*t185*t85*t89*t92;
841 t187 = t80*t82*t83*t183*t98;
842 t188 = -1.0*t174*t177*t146*t178*rhob+t99+t69*(-4.0*t126*
843 t80*t83*t89*t98+t187+t186+t184+t135+t133+t123+t112+t111+t107)+
844 t93+t79+0.03109*t145*t146-.0021294577333333*t1*t2*t3*t145*
845 t142;
846 t189 = -0.0554384*t57*t67*t172+0.0027045024*t57*t59*t66*
847 t172-3.4198272e-5*t57*t65*t64*t172+1.98066816e-7*t57*t63*t62*
848 t172-4.69587456e-10*t57*t60*t137*t172;
849 t190 = pow(grada,9.0);
850 t191 = 1/pow(rhoa,13.33333333333333);
851 t192 = pow(grada,7.0);
852 t193 = pow(grada,5.0);
853 t194 = pow(grada,3.0);
854 t195 = -0.10428*grada*t32*t22+0.09012*t194*t30*t31-0.1094928*
855 t193*t27*t28+0.05093984*t192*t24*t25-0.006362368*t190*t43*
856 t191;
857 t196 = -0.0059776*grada*t40*t22+3.489216e-4*t194*t39*
858 t31-2.8773248e-6*t193*t38*t28+8.7087616e-9*t192*t37*t25-9.5985664e-12*
859 t190*t55*t191;
860 t197 = 0.0415788*grada*t22*t67-0.0020283768*grada*t22*
861 t59*t66+2.5648704e-5*grada*t22*t65*t64-1.48550112e-7*grada*
862 t22*t63*t62+3.52190592e-10*grada*t22*t60*t137;
863 t198 = pow(gradb,9.0);
864 t199 = 1/pow(rhob,13.33333333333333);
865 t200 = pow(gradb,7.0);
866 t201 = pow(gradb,5.0);
867 t202 = pow(gradb,3.0);
868 t203 = -0.10428*gradb*t158*t58+0.09012*t202*t156*t157-
869 0.1094928*t201*t153*t154+0.05093984*t200*t150*t151-0.006362368*
870 t198*t167*t199;
871 t204 = -0.0059776*gradb*t164*t58+3.489216e-4*t202*t163*
872 t157-2.8773248e-6*t201*t162*t154+8.7087616e-9*t200*t161*t151-
873 9.5985664e-12*t198*t179*t199;
874 t205 = 0.0415788*gradb*t67*t58-0.0020283768*gradb*t59*
875 t66*t58+2.5648704e-5*gradb*t65*t64*t58-1.48550112e-7*gradb*
876 t63*t62*t58+3.52190592e-10*gradb*t60*t137*t58;
877 t206 = pow(grada,12.0);
878 t207 = 1/pow(t23,6.0);
879 t208 = 1/pow(rhoa,18.0);
880 t209 = 1/pow(rhoa,15.33333333333333);
881 t210 = 1/pow(rhoa,12.66666666666667);
882 t211 = 1/pow(rhoa,10.0);
883 t212 = 1/pow(rhoa,7.333333333333333);
884 t213 = 1/pow(rhoa,4.666666666666667);
885 t214 = 1/pow(t18,2.0);
886 t215 = pow(t53,2.0);
887 t216 = 1/pow(t17,4.0);
888 t217 = 1/pow(t17,3.0);
889 t218 = 2.754533333333333*t1*t2*t3/pow(rhoa,2.333333333333333)+
890 2.745341666666667*t14*t15*t16/pow(rhoa,2.166666666666667)+
891 1.262325*t8*t9/pow(t10,5.0)+.6946333333333333*t4*t5*t6*t22;
892 t219 = 1/
893 pow(t36,6.0);
894 t220 = 2.0*t104*t71*t105*t106;
895 t221 = -1.169644679491041*t80*t84*t108*t85*t109*t89*t110;
896 t222 = .0088588622666667*
897 t1*t2*t3*t102*t78;
898 t223 = -.0014649244029403*t80*t1*t2*t3*t102*t84*t89*t92;
899 t224 = 2.0*
900 t132*t80*t82*t83*t89;
901 t225 = -8.0*t124*t80*t82*t89*t98;
902 t226 = pow(t104,2.0);
903 t227 = 1/pow(t76,4.0);
904 t228 = 1/pow(t77,2.0);
905 t229 = 16.0818243221511*t226*t71*t227*t228;
906 t230 = 1/pow(t76,3.0);
907 t231 = -2.0*t226*t71*t230*t106;
908 t232 = -.1424666666666666*t1*t2*t3*t102*t104*t105*t106;
909 t233 = 1/
910 pow(t69,2.666666666666667);
911 t234 = 1/pow(t73,5.0);
912 t235 = 1/pow(t69,2.333333333333333);
913 t236 = 1/pow(t69,2.166666666666667);
914 t237 = 1.476941666666667*t14*t15*t16*t236+1.594488888888889*
915 t1*t2*t3*t235+0.614325*t8*t9*t234+0.547711111111111*t4*t5*
916 t6*t233;
917 t238 = .9999999999999999*t237*t71*t105*t106;
918 t239 = pow(t108,2.0);
919 t240 = -17.31575589937587*t239*t80*t84*t85*t89/(pow(t90,
920 4.0)*pow(t91,2.0));
921 t241 = 1.169644679491041*t110*t239*t80*t84*t85*t89/pow(t90,
922 3.0);
923 t242 = .0433743235311261*t80*t1*t2*t3*t102*t84*t108*t109*
924 t89*t110;
925 t243 = -.5848223397455204*t80*t84*(2.013861111111111*
926 t14*t15*t16*t236+1.610266666666667*t1*t2*t3*t235+0.3300975*
927 t8*t9*t234+.5519000000000001*t4*t5*t6*t233)*t85*t109*t89*t110;
928 t244 = -
929 .0059059081777778*t1*t2*t3*t235*t78;
930 t245 = 1/pow(t87,.6666666666666666);
931 t246 = 1/pow(t69,3.0);
932 t247 = -2.0*t246*t81;
933 t248 = 2.0*t113;
934 t249 = 1/pow(t88,.6666666666666666);
935 t250 = 2.0*t246*t81;
936 t251 = -2.0*t113;
937 t252 = 1.333333333333333*t120*(t251+t250)+.4444444444444444*
938 pow(t119,2.0)*t249+1.333333333333333*t117*(t248+t247)+.4444444444444444*
939 pow(t116,2.0)*t245;
940 t253 = 9.766162686268349e-4*t80*t1*t2*t3*t235*t84*t89*
941 t92;
942 t254 = 1/pow(t69,6.0);
943 t255 = -20.0*t254*t82;
944 t256 = pow(t81,2.0);
945 t257 = -12.0*t256*t83;
946 t258 = pow(t129,2.0);
947 t259 = t80*t82*t83*t89*(-.0028392769777778*t1*t2*t3*t235*
948 t97+32.1646831778707*t258*t94/(pow(t95,4.0)*pow(t96,2.0))-
949 2.0*t131*t258*t94/pow(t95,3.0)+.0059059081777778*t1*t2*t3*
950 t235*t78-16.0818243221511*t226*t71*t227*t228+(2.745341666666667*
951 t14*t15*t16*t236+2.754533333333333*t1*t2*t3*t235+1.262325*
952 t8*t9*t234+.6946333333333333*t4*t5*t6*t233)*t94*t130*t131-
953 .1369866666666666*t1*t2*t3*t102*t129*t130*t131+2.0*t226*t71*
954 t230*t106-.9999999999999999*t237*t71*t105*t106+.1424666666666666*
955 t1*t2*t3*t102*t104*t105*t106);
956 t260 = -8.0*t124*t132*t80*t82*t89;
957 t261 = 20.0*t254*t80*t82*t89*t98;
958 t262 = 12.0*t256*t80*t83*t89*t98;
959 t263 = 1/pow(t61,6.0);
960 t264 = 2.666666666666667*t120*t246*t81-2.666666666666667*
961 t117*t246*t81+.4444444444444444*t119*t182*t249+.4444444444444444*
962 t116*t181*t245;
963 t265 = pow(grada,11.0);
964 t266 = 1/pow(rhoa,17.0);
965 t267 = pow(gradb,12.0);
966 t268 = 1/pow(t149,6.0);
967 t269 = 1/pow(rhob,18.0);
968 t270 = 1/pow(rhob,15.33333333333333);
969 t271 = 1/pow(rhob,12.66666666666667);
970 t272 = 1/pow(rhob,10.0);
971 t273 = 1/pow(rhob,7.333333333333333);
972 t274 = 1/pow(rhob,4.666666666666667);
973 t275 = 1/pow(t144,2.0);
974 t276 = pow(t177,2.0);
975 t277 = 1/pow(t143,4.0);
976 t278 = 1/pow(t143,3.0);
977 t279 = 2.754533333333333*t1*t2*t3/pow(rhob,2.333333333333333)+
978 2.745341666666667*t14*t15*t16/pow(rhob,2.166666666666667)+
979 1.262325*t8*t9/pow(t140,5.0)+.6946333333333333*t4*t5*t6*t58;
980 t280 = 1/
981 pow(t160,6.0);
982 t281 = 1.333333333333333*t117*(t251+t247)+.4444444444444444*
983 pow(t182,2.0)*t249+1.333333333333333*t120*(t248+t250)+.4444444444444444*
984 pow(t181,2.0)*t245;
985 t282 = pow(gradb,11.0);
986 t283 = 1/pow(rhob,17.0);
987 t284 = 1/pow(rhoa,16.0);
988 t285 = 1/pow(rhob,16.0);
989
990 /* code */
991 dfdra = t50*t33*t53*t34*t54*rhoa-0.03109*t19*t49*t34*
992 rhoa-0.75*t3*t35*t51*t56-1.0*t11*t3*t35*t41-0.03109*t19*t33*
993 t34+t138*t147+t68*t136+.0021294577333333*t1*t2*t3*t19*t33*
994 t12;
995 dfdrb = t174*t159*t177*t146*t178*rhob-0.03109*t145*t173*
996 t146*rhob-0.75*t175*t180*t3*t35-1.0*t141*t165*t3*t35+t68*t188+
997 t189*t147-0.03109*t145*t159*t146+.0021294577333333*t1*t2*t3*
998 t145*t159*t142;
999 dfdga = -0.03109*t19*t195*t34*rhoa-0.75*t196*t3*t35*t51+
1000 t197*t147;
1001 dfdgb = -0.03109*t145*t203*t146*rhob-0.75*t175*t204*t3*
1002 t35+t205*t147;
1003 dfdgab = 0.0;
1004 d2fdrara = t68*(-1.0*t50*t218*t34*t54*rhoa+2.0*t50*t215*
1005 t34*t217*rhoa-32.1646831778707*t214*t215*t34*t216*rhoa+t69*
1006 (-32.0*t124*t126*t80*t89*t98+8.0*t121*t126*t80*t83*t98-8.0*
1007 t121*t124*t80*t82*t98+t80*t82*t83*t252*t98+.0197517897025652*
1008 (t257+t255+32.0*t124*t126)*t80*t85*t89*t92-.0014649244029403*
1009 t80*t1*t2*t3*t102*t127*t89*t92+.0197517897025652*t80*t84*t85*
1010 t252*t92+.0395035794051304*t80*t127*t85*t121*t92-.0014649244029403*
1011 t80*t1*t2*t3*t102*t84*t121*t92+8.0*t126*t132*t80*t83*t89+2.0*
1012 t121*t132*t80*t82*t83+t262+t261+t260+t259+t253+t244+t243+t242+
1013 t241+t240+t238+t232+t231+t229-1.169644679491041*t80*t127*t108*
1014 t85*t109*t89*t110-1.169644679491041*t80*t84*t108*t85*t109*
1015 t121*t110)+8.0*t126*t80*t83*t89*t98+2.0*t121*t80*t82*t83*t98+
1016 .0395035794051304*t80*t127*t85*t89*t92+.0395035794051304*t80*
1017 t84*t85*t121*t92-2.0*t50*t53*t34*t54-.0014196384888889*t1*
1018 t2*t3*t19*t52+t225+t224+t223+t222+t221+t220+.1369866666666666*
1019 t1*t2*t3*t50*t53*t54*t12)+2.0*t34*t49*t50*t53*t54*rhoa+t50*
1020 t33*t218*t34*t54*rhoa-2.0*t215*t217*t33*t34*t50*rhoa-0.03109*
1021 t19*(-.5098133333333333*t21*t32*t213+.8351680000000001*t29*
1022 t30*t212-1.442084266666667*t26*t27*t211+1.025982151111111*
1023 t20*t24*t210-.2664874666666667*t42*t43*t209+.0226217528888889*
1024 t206*t207*t208)*t34*rhoa+32.1646831778707*t214*t33*t215*t34*
1025 t216*rhoa-.3333333333333333*t3*t35*t41*t7-2.0*t11*t3*t35*t56+
1026 2.0*t33*t34*t50*t53*t54+.0014196384888889*t1*t2*t3*t19*t33*
1027 t52-0.75*(-.0292238222222222*t21*t40*t213+.0030314638222222*
1028 t29*t39*t212-4.445277866666666e-5*t26*t38*t211+2.582354830222222e-7*
1029 t20*t37*t210-6.7887104e-10*t42*t55*t209+6.82564721777778e-13*
1030 t206*t219*t208)*t3*t35*t51-0.06218*t19*t49*t34+(.2032741333333333*
1031 t21*t213*t67-0.0099165088*t21*t213*t59*t66-0.0040495104*t29*
1032 t212*t66+1.25393664e-4*t21*t213*t65*t64+1.344674304e-4*t29*
1033 t212*t59*t64-7.26244992e-7*t21*t213*t63*t62-1.613025792e-6*
1034 t29*t212*t65*t62+1.721820672e-9*t21*t213*t60*t137+8.842604544e-9*
1035 t29*t212*t63*t137-1.878349824e-11*t29*t212*t60*t263)*t147+
1036 2.0*t136*t138-.1369866666666666*t1*t2*t3*t50*t33*t53*t54*t12+
1037 .0042589154666667*t1*t2*t3*t19*t49*t12;
1038 d2fdrarb = t68*(t69*(-12.0*t256*t80*t83*t89*t98+4.0*t126*
1039 t183*t80*t83*t98-4.0*t121*t126*t80*t83*t98-4.0*t124*t183*t80*
1040 t82*t98-4.0*t121*t124*t80*t82*t98+t80*t82*t83*t264*t98+.0197517897025652*
1041 t80*(12.0*t256*t83+t255)*t85*t89*t92-7.324622014701263e-4*
1042 t80*t1*t2*t3*t102*t185*t89*t92-7.324622014701263e-4*t80*t1*
1043 t2*t3*t102*t127*t89*t92+.0197517897025652*t80*t84*t85*t264*
1044 t92+.0197517897025652*t80*t127*t85*t183*t92-7.324622014701263e-4*
1045 t80*t1*t2*t3*t102*t84*t183*t92+.0197517897025652*t80*t185*
1046 t85*t121*t92-7.324622014701263e-4*t80*t1*t2*t3*t102*t84*t121*
1047 t92+t261+t260+t259+t253+t244+t243+t242+t241+t240+t238+t232+
1048 t231+t229+t80*t82*t83*t183*t132+t80*t82*t83*t121*t132-.5848223397455204*
1049 t80*t185*t108*t85*t109*t89*t110-.5848223397455204*t80*t127*
1050 t108*t85*t109*t89*t110-.5848223397455204*t80*t84*t108*t85*
1051 t109*t183*t110-.5848223397455204*t80*t84*t108*t85*t109*t121*
1052 t110)+t225+t224+t223+t222+t221+t220+t187+t186+t184+t134+t128+
1053 t122)+t138*t188+(-0.0040495104*t21*t57*t48*t66*t172+1.344674304e-4*
1054 t21*t57*t48*t59*t64*t172-1.613025792e-6*t21*t57*t48*t65*t62*
1055 t172+8.842604544e-9*t21*t57*t48*t63*t137*t172-1.878349824e-11*
1056 t21*t57*t48*t60*t263*t172)*t147+t189*t136;
1057 d2fdraga = t50*t195*t53*t34*t54*rhoa-0.03109*t19*(0.27808*
1058 grada*t32*t48-.5362560000000001*t194*t30*t47+.9720704000000001*
1059 t193*t27*t46-.7185467733333335*t192*t24*t45+0.193503232*t190*
1060 t43*t44-.0169663146666667*t265*t207*t266)*t34*rhoa-0.75*t3*
1061 t35*(.0159402666666667*grada*t40*t48-.0019246762666667*t194*
1062 t39*t47+3.04622592e-5*t193*t38*t46-1.849678506666667e-7*t192*
1063 t37*t45+4.995547136e-10*t190*t55*t44-5.11923541333333e-13*
1064 t265*t219*t266)*t51-1.0*t11*t196*t3*t35-0.03109*t19*t195*t34+
1065 (-0.1108768*grada*t48*t67+0.0054090048*grada*t48*t59*t66+0.0030371328*
1066 t194*t47*t66-6.839654399999999e-5*grada*t48*t65*t64-1.008505728e-4*
1067 t194*t47*t59*t64+3.96133632e-7*grada*t48*t63*t62+1.209769344e-6*
1068 t194*t47*t65*t62-9.39174912e-10*grada*t48*t60*t137-6.631953408000001e-9*
1069 t194*t47*t63*t137+1.408762368e-11*t194*t47*t60*t263)*t147+
1070 t197*t136+.0021294577333333*t1*t2*t3*t19*t195*t12;
1071 d2fdragb = (0.0030371328*t21*gradb*t48*t66*t58-1.008505728e-4*
1072 t21*gradb*t48*t59*t64*t58+1.209769344e-6*t21*gradb*t48*t65*
1073 t62*t58-6.631953408000001e-9*t21*gradb*t48*t63*t137*t58+1.408762368e-11*
1074 t21*gradb*t48*t60*t263*t58)*t147+t205*t136;
1075 d2fdraab = 0.0;
1076 d2fdrbrb = t68*(2.0*t174*t276*t146*t278*rhob-32.1646831778707*
1077 t275*t276*t146*t277*rhob-1.0*t174*t279*t146*t178*rhob+t69*
1078 (32.0*t124*t126*t80*t89*t98-8.0*t126*t183*t80*t83*t98-8.0*
1079 t124*t183*t80*t82*t98+t80*t82*t83*t281*t98+.0197517897025652*
1080 (t257+t255-32.0*t124*t126)*t80*t85*t89*t92-.0014649244029403*
1081 t80*t1*t2*t3*t102*t185*t89*t92+.0197517897025652*t80*t84*t85*
1082 t281*t92+.0395035794051304*t80*t185*t85*t183*t92-.0014649244029403*
1083 t80*t1*t2*t3*t102*t84*t183*t92-8.0*t126*t132*t80*t83*t89+2.0*
1084 t132*t183*t80*t82*t83+t262+t261+t260+t259+t253+t244+t243+t242+
1085 t241+t240+t238+t232+t231+t229-1.169644679491041*t80*t185*t108*
1086 t85*t109*t89*t110-1.169644679491041*t80*t84*t108*t85*t109*
1087 t183*t110)-8.0*t126*t80*t83*t89*t98+2.0*t183*t80*t82*t83*t98+
1088 .0395035794051304*t80*t185*t85*t89*t92+.0395035794051304*t80*
1089 t84*t85*t183*t92+t225+t224+t223+t222+t221+t220-2.0*t174*t177*
1090 t146*t178-.0014196384888889*t1*t2*t3*t145*t176+.1369866666666666*
1091 t1*t2*t3*t174*t177*t178*t142)-2.0*t146*t159*t174*t276*t278*
1092 rhob+32.1646831778707*t275*t159*t276*t146*t277*rhob+2.0*t146*
1093 t173*t174*t177*t178*rhob+t174*t159*t279*t146*t178*rhob-0.03109*
1094 t145*(-.5098133333333333*t57*t158*t274+.8351680000000001*t155*
1095 t156*t273-1.442084266666667*t152*t153*t272+1.025982151111111*
1096 t148*t150*t271-.2664874666666667*t166*t167*t270+.0226217528888889*
1097 t267*t268*t269)*t146*rhob-0.75*t175*(-.0292238222222222*t57*
1098 t164*t274+.0030314638222222*t155*t163*t273-4.445277866666666e-5*
1099 t152*t162*t272+2.582354830222222e-7*t148*t161*t271-6.7887104e-10*
1100 t166*t179*t270+6.82564721777778e-13*t267*t280*t269)*t3*t35-
1101 2.0*t141*t180*t3*t35-.3333333333333333*t139*t165*t3*t35+2.0*
1102 t188*t189+2.0*t146*t159*t174*t177*t178+.0014196384888889*t1*
1103 t2*t3*t145*t159*t176+(.2032741333333333*t57*t67*t274-0.0099165088*
1104 t57*t59*t66*t274+1.25393664e-4*t57*t65*t64*t274-7.26244992e-7*
1105 t57*t63*t62*t274+1.721820672e-9*t57*t60*t137*t274-0.0040495104*
1106 t155*t66*t273+1.344674304e-4*t155*t59*t64*t273-1.613025792e-6*
1107 t155*t65*t62*t273+8.842604544e-9*t155*t63*t137*t273-1.878349824e-11*
1108 t155*t60*t263*t273)*t147-0.06218*t145*t173*t146-.1369866666666666*
1109 t1*t2*t3*t174*t159*t177*t178*t142+.0042589154666667*t1*t2*
1110 t3*t145*t173*t142;
1111 d2fdrbga = (0.0030371328*grada*t57*t22*t66*t172-1.008505728e-4*
1112 grada*t57*t22*t59*t64*t172+1.209769344e-6*grada*t57*t22*t65*
1113 t62*t172-6.631953408000001e-9*grada*t57*t22*t63*t137*t172+
1114 1.408762368e-11*grada*t57*t22*t60*t263*t172)*t147+t197*t188;
1115 d2fdrbgb = t174*
1116 t203*t177*t146*t178*rhob-0.03109*t145*(0.27808*gradb*t158*
1117 t172-.5362560000000001*t202*t156*t171+.9720704000000001*t201*
1118 t153*t170-.7185467733333335*t200*t150*t169+0.193503232*t198*
1119 t167*t168-.0169663146666667*t282*t268*t283)*t146*rhob-1.0*
1120 t141*t204*t3*t35-0.75*(.0159402666666667*gradb*t164*t172-.0019246762666667*
1121 t202*t163*t171+3.04622592e-5*t201*t162*t170-1.849678506666667e-7*
1122 t200*t161*t169+4.995547136e-10*t198*t179*t168-5.11923541333333e-13*
1123 t282*t280*t283)*t175*t3*t35+t205*t188+(-0.1108768*gradb*t67*
1124 t172+0.0054090048*gradb*t59*t66*t172-6.839654399999999e-5*
1125 gradb*t65*t64*t172+3.96133632e-7*gradb*t63*t62*t172-9.39174912e-10*
1126 gradb*t60*t137*t172+0.0030371328*t202*t66*t171-1.008505728e-4*
1127 t202*t59*t64*t171+1.209769344e-6*t202*t65*t62*t171-6.631953408000001e-9*
1128 t202*t63*t137*t171+1.408762368e-11*t202*t60*t263*t171)*t147-
1129 0.03109*t145*t203*t146+.0021294577333333*t1*t2*t3*t145*t203*
1130 t142;
1131 d2fdrbgab = 0.0;
1132 d2fdgaga = -0.03109*t19*(-0.10428*t32*t22+0.312072*t21*
1133 t30*t31-.6195600000000002*t29*t27*t28+.4879702400000002*t26*
1134 t24*t25-0.138765056*t20*t43*t191+0.012724736*t42*t207*t284)*
1135 t34*rhoa-0.75*(-0.0059776*t40*t22+0.0010945856*t21*t39*t31-
1136 1.99693696e-5*t29*t38*t28+1.300171264e-7*t26*t37*t25-3.650674688e-10*
1137 t20*t55*t191+3.83942656e-13*t42*t219*t284)*t3*t35*t51+(0.0415788*
1138 t22*t67-0.0020283768*t22*t59*t66-0.0022778496*t21*t31*t66+
1139 2.5648704e-5*t22*t65*t64+7.563792960000001e-5*t21*t31*t59*
1140 t64-1.48550112e-7*t22*t63*t62-9.073270080000002e-7*t21*t31*
1141 t65*t62+3.52190592e-10*t22*t60*t137+4.973965056000001e-9*t21*
1142 t31*t63*t137-1.056571776e-11*t21*t31*t60*t263)*t147;
1143 d2fdgagb = (-0.0022778496*grada*gradb*t22*t66*t58+7.563792960000001e-5*
1144 grada*gradb*t22*t59*t64*t58-9.073270080000002e-7*grada*gradb*
1145 t22*t65*t62*t58+4.973965056000001e-9*grada*gradb*t22*t63*t137*
1146 t58-1.056571776e-11*grada*gradb*t22*t60*t263*t58)*t147;
1147 d2fdgagab = 0.0;
1148 d2fdgbgb = -0.03109*t145*(-0.10428*t158*t58+0.312072*
1149 t57*t156*t157-.6195600000000002*t155*t153*t154+.4879702400000002*
1150 t152*t150*t151-0.138765056*t148*t167*t199+0.012724736*t166*
1151 t268*t285)*t146*rhob-0.75*t175*t3*t35*(-0.0059776*t164*t58+
1152 0.0010945856*t57*t163*t157-1.99693696e-5*t155*t162*t154+1.300171264e-7*
1153 t152*t161*t151-3.650674688e-10*t148*t179*t199+3.83942656e-13*
1154 t166*t280*t285)+(0.0415788*t67*t58-0.0020283768*t59*t66*t58+
1155 2.5648704e-5*t65*t64*t58-1.48550112e-7*t63*t62*t58+3.52190592e-10*
1156 t60*t137*t58-0.0022778496*t57*t66*t157+7.563792960000001e-5*
1157 t57*t59*t64*t157-9.073270080000002e-7*t57*t65*t62*t157+4.973965056000001e-9*
1158 t57*t63*t137*t157-1.056571776e-11*t57*t60*t263*t157)*t147;
1159 d2fdgbgab = 0.0;
1160 d2fdgabgab = 0.0;
1161
1162
1163 ds->df1000 += factor*dfdra;
1164 ds->df0100 += factor*dfdrb;
1165 ds->df0010 += factor*dfdga;
1166 ds->df0001 += factor*dfdgb;
1167 ds->df00001+= factor*dfdgab;
1168
1169 ds->df2000 += factor*d2fdrara;
1170 ds->df1100 += factor*d2fdrarb;
1171 ds->df1010 += factor*d2fdraga;
1172 ds->df1001 += factor*d2fdragb;
1173 ds->df10001+= factor*d2fdraab;
1174 ds->df0200 += factor*d2fdrbrb;
1175 ds->df0110 += factor*d2fdrbga;
1176 ds->df0101 += factor*d2fdrbgb;
1177 ds->df01001+= factor*d2fdrbgab;
1178 ds->df0020 += factor*d2fdgaga;
1179 ds->df0011 += factor*d2fdgagb;
1180 ds->df00101+= factor*d2fdgagab;
1181 ds->df0002 += factor*d2fdgbgb;
1182 ds->df00011+= factor*d2fdgbgab;
1183 ds->df00002+= factor*d2fdgabgab;
1184
1185 }
1186
1187 static void
hcth120_third(FunThirdFuncDrv * ds,real factor,const FunDensProp * dp)1188 hcth120_third(FunThirdFuncDrv *ds, real factor, const FunDensProp* dp)
1189 {
1190 real dfdra, dfdrb, dfdga, dfdgb, dfdgab;
1191 real d2fdrara, d2fdrarb, d2fdraga, d2fdragb, d2fdraab, d2fdrbrb,
1192 d2fdrbga, d2fdrbgb, d2fdrbgab, d2fdgaga, d2fdgagb, d2fdgagab,
1193 d2fdgbgb, d2fdgbgab, d2fdgabgab;
1194 real d3fdrarara, d3fdrararb, d3fdraraga, d3fdraragb, d3fdraraab,
1195 d3fdrarbrb, d3fdrarbga, d3fdrarbgb, d3fdrarbab, d3fdragaga,
1196 d3fdragagb, d3fdragaab, d3fdragbgb, d3fdragbab, d3fdraabab,
1197 d3fdrbrbrb, d3fdrbrbga, d3fdrbrbgb, d3fdrbrbab, d3fdrbgaga,
1198 d3fdrbgagb, d3fdrbgaab, d3fdrbgbgb, d3fdrbgbab, d3fdrbabab,
1199 d3fdgagaga, d3fdgagagb, d3fdgagaab, d3fdgagbgb, d3fdgagbab,
1200 d3fdgaabab, d3fdgbgbgb, d3fdgbgbab, d3fdgbabab, d3fdababab;
1201 real rhoa = dp->rhoa, rhob = dp->rhob;
1202 real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;
1203
1204 real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
1205 real t11, t12, t13, t14, t15, t16, t17, t18;
1206 real t19, t20, t21, t22, t23, t24, t25, t26;
1207 real t27, t28, t29, t30, t31, t32, t33, t34;
1208 real t35, t36, t37, t38, t39, t40, t41, t42;
1209 real t43, t44, t45, t46, t47, t48, t49, t50;
1210 real t51, t52, t53, t54, t55, t56, t57, t58;
1211 real t59, t60, t61, t62, t63, t64, t65, t66;
1212 real t67, t68, t69, t70, t71, t72, t73, t74;
1213 real t75, t76, t77, t78, t79, t80, t81, t82;
1214 real t83, t84, t85, t86, t87, t88, t89, t90;
1215 real t91, t92, t93, t94, t95, t96, t97, t98;
1216 real t99, t100, t101, t102, t103, t104, t105;
1217 real t106, t107, t108, t109, t110, t111, t112;
1218 real t113, t114, t115, t116, t117, t118, t119;
1219 real t120, t121, t122, t123, t124, t125, t126;
1220 real t127, t128, t129, t130, t131, t132, t133;
1221 real t134, t135, t136, t137, t138, t139, t140;
1222 real t141, t142, t143, t144, t145, t146, t147;
1223 real t148, t149, t150, t151, t152, t153, t154;
1224 real t155, t156, t157, t158, t159, t160, t161;
1225 real t162, t163, t164, t165, t166, t167, t168;
1226 real t169, t170, t171, t172, t173, t174, t175;
1227 real t176, t177, t178, t179, t180, t181, t182;
1228 real t183, t184, t185, t186, t187, t188, t189;
1229 real t190, t191, t192, t193, t194, t195, t196;
1230 real t197, t198, t199, t200, t201, t202, t203;
1231 real t204, t205, t206, t207, t208, t209, t210;
1232 real t211, t212, t213, t214, t215, t216, t217;
1233 real t218, t219, t220, t221, t222, t223, t224;
1234 real t225, t226, t227, t228, t229, t230, t231;
1235 real t232, t233, t234, t235, t236, t237, t238;
1236 real t239, t240, t241, t242, t243, t244, t245;
1237 real t246, t247, t248, t249, t250, t251, t252;
1238 real t253, t254, t255, t256, t257, t258, t259;
1239 real t260, t261, t262, t263, t264, t265, t266;
1240 real t267, t268, t269, t270, t271, t272, t273;
1241 real t274, t275, t276, t277, t278, t279, t280;
1242 real t281, t282, t283, t284, t285, t286, t287;
1243 real t288, t289, t290, t291, t292, t293, t294;
1244 real t295, t296, t297, t298, t299, t300, t301;
1245 real t302, t303, t304, t305, t306, t307, t308;
1246 real t309, t310, t311, t312, t313, t314, t315;
1247 real t316, t317, t318, t319, t320, t321, t322;
1248 real t323, t324, t325, t326, t327, t328, t329;
1249 real t330, t331, t332, t333, t334, t335, t336;
1250 real t337, t338, t339, t340, t341, t342, t343;
1251 real t344, t345, t346, t347, t348, t349, t350;
1252 real t351, t352, t353, t354, t355, t356, t357;
1253 real t358, t359, t360, t361, t362, t363, t364;
1254 real t365, t366, t367, t368, t369, t370, t371;
1255 real t372, t373, t374, t375, t376, t377, t378;
1256 real t379, t380, t381, t382, t383, t384, t385;
1257 real t386, t387, t388, t389, t390, t391, t392;
1258 real t393, t394, t395, t396, t397, t398, t399;
1259 real t400, t401, t402, t403, t404, t405, t406;
1260 real t407, t408, t409, t410, t411, t412, t413;
1261 real t414, t415, t416, t417, t418, t419, t420;
1262 real t421, t422, t423, t424, t425, t426, t427;
1263 real t428, t429, t430, t431, t432, t433, t434;
1264 real t435, t436, t437, t438, t439, t440, t441;
1265 real t442, t443, t444, t445, t446, t447, t448;
1266 real t449, t450, t451, t452, t453, t454, t455;
1267 real t456, t457, t458, t459, t460, t461, t462;
1268 real t463, t464, t465, t466, t467, t468, t469;
1269 real t470, t471, t472, t473, t474, t475, t476;
1270 real t477, t478, t479, t480, t481, t482, t483;
1271 real t484, t485, t486;
1272
1273 t1 = pow(3.0,.3333333333333333);
1274 t2 = 1/pow(4.0,.3333333333333333);
1275 t3 = 1/pow(3.141592653589793,.3333333333333333);
1276 t4 = pow(3.0,.6666666666666666);
1277 t5 = 1/pow(4.0,.6666666666666666);
1278 t6 = 1/pow(3.141592653589793,.6666666666666666);
1279 t7 = 1/pow(rhoa,.6666666666666666);
1280 t8 = 1.732050807568877;
1281 t9 = .5641895835477563;
1282 t10 = sqrt(rhoa);
1283 t11 = pow(rhoa,.3333333333333333);
1284 t12 = 1/t11;
1285 t13 = pow(2.0,.3333333333333333);
1286 t14 = 1/t13;
1287 t15 = pow(3.0,.1666666666666667);
1288 t16 = 1/pow(3.141592653589793,.1666666666666667);
1289 t17 = 14.1189*t14*t15*t16/pow(rhoa,.1666666666666667)+
1290 1.6831*t8*t9/t10+0.62517*t4*t5*t6*t7+6.1977*t1*t2*t3*t12;
1291 t18 = 32.1646831778707/
1292 t17+1.0;
1293 t19 = log(t18);
1294 t20 = pow(grada,8.0);
1295 t21 = pow(grada,2.0);
1296 t22 = 1/pow(rhoa,2.666666666666667);
1297 t23 = 0.2*t21*t22+1.0;
1298 t24 = 1/pow(t23,4.0);
1299 t25 = 1/pow(rhoa,10.66666666666667);
1300 t26 = pow(grada,6.0);
1301 t27 = 1/pow(t23,3.0);
1302 t28 = 1/pow(rhoa,8.0);
1303 t29 = pow(grada,4.0);
1304 t30 = 1/pow(t23,2.0);
1305 t31 = 1/pow(rhoa,5.333333333333333);
1306 t32 = 1/t23;
1307 t33 = -0.05214*t21*t32*t22+0.017316*t29*t30*t31-0.01594*
1308 t26*t27*t28+0.00397648*t20*t24*t25+0.48951;
1309 t34 = 0.20548*t1*t2*t3*t12+1.0;
1310 t35 = pow(6.0,.3333333333333333);
1311 t36 = 0.004*t21*t22+1.0;
1312 t37 = 1/pow(t36,4.0);
1313 t38 = 1/pow(t36,3.0);
1314 t39 = 1/pow(t36,2.0);
1315 t40 = 1/t36;
1316 t41 = -0.0029888*t21*t40*t22+8.125279999999999e-5*t29*
1317 t39*t31-2.6288e-7*t26*t38*t28+2.999552e-10*t20*t37*t25+1.09163;
1318 t42 = pow(grada,
1319 10.0);
1320 t43 = 1/pow(t23,5.0);
1321 t44 = 1/pow(rhoa,14.33333333333333);
1322 t45 = 1/pow(rhoa,11.66666666666667);
1323 t46 = 1/pow(rhoa,9.0);
1324 t47 = 1/pow(rhoa,6.333333333333333);
1325 t48 = 1/pow(rhoa,3.666666666666667);
1326 t49 = 0.13904*t21*t32*t48-0.12016*t29*t30*t47+0.1459904*
1327 t26*t27*t46-.0679197866666667*t20*t24*t45+.0084831573333333*
1328 t42*t43*t44;
1329 t50 = 1/t18;
1330 t51 = 1/pow(rhoa,1.666666666666667);
1331 t52 = pow(rhoa,1.333333333333333);
1332 t53 = 1/t52;
1333 t54 = -2.35315*t14*t15*t16/pow(rhoa,1.166666666666667)-
1334 0.84155*t8*t9/pow(t10,3.0)-2.0659*t1*t2*t3*t53-0.41678*t4*
1335 t5*t6*t51;
1336 t55 = 1/pow(t17,2.0);
1337 t56 = 1/pow(t36,5.0);
1338 t57 = .0079701333333333*t21*t40*t48-4.652287999999999e-4*
1339 t29*t39*t47+3.836433066666666e-6*t26*t38*t46-1.161168213333333e-8*
1340 t20*t37*t45+1.27980885333333e-11*t42*t56*t44;
1341 t58 = pow(gradb,2.0);
1342 t59 = 1/pow(rhob,2.666666666666667);
1343 t60 = 0.5*t58*t59+0.5*t21*t22;
1344 t61 = pow(t60,4.0);
1345 t62 = 0.006*t60+1.0;
1346 t63 = 1/pow(t62,4.0);
1347 t64 = pow(t60,3.0);
1348 t65 = 1/pow(t62,3.0);
1349 t66 = pow(t60,2.0);
1350 t67 = 1/pow(t62,2.0);
1351 t68 = 1/t62;
1352 t69 = 0.0415788*t60*t68-8.894520000000001e-4*t66*t67+
1353 4.99176e-6*t64*t65-1.4674608e-8*t61*t63+0.51473;
1354 t70 = rhob+rhoa;
1355 t71 = 1/pow(t70,.3333333333333333);
1356 t72 = 0.2137*t1*t2*t3*t71+1.0;
1357 t73 = 1/pow(t70,.6666666666666666);
1358 t74 = sqrt(t70);
1359 t75 = 1/t74;
1360 t76 = 1/pow(t70,.1666666666666667);
1361 t77 = 7.5957*t14*t15*t16*t76+3.5876*t1*t2*t3*t71+0.8191*
1362 t8*t9*t75+0.49294*t4*t5*t6*t73;
1363 t78 = 16.0818243221511/t77+1.0;
1364 t79 = log(t78);
1365 t80 = -0.062182*t72*t79;
1366 t81 = 1/(2.0*t13-2.0);
1367 t82 = rhoa-1.0*rhob;
1368 t83 = pow(t82,4.0);
1369 t84 = 1/pow(t70,4.0);
1370 t85 = 1.0-1.0*t83*t84;
1371 t86 = 0.11125*t1*t2*t3*t71+1.0;
1372 t87 = 1/t70;
1373 t88 = 1.0-1.0*t82*t87;
1374 t89 = t82*t87+1.0;
1375 t90 = pow(t89,1.333333333333333)+pow(t88,1.333333333333333)-
1376 2.0;
1377 t91 = 10.357*t14*t15*t16*t76+3.6231*t1*t2*t3*t71+0.44013*
1378 t8*t9*t75+0.49671*t4*t5*t6*t73;
1379 t92 = 29.60857464321668/t91+1.0;
1380 t93 = log(t92);
1381 t94 = .0197517897025652*t81*t85*t86*t90*t93;
1382 t95 = 0.20548*t1*t2*t3*t71+1.0;
1383 t96 = 14.1189*t14*t15*t16*t76+6.1977*t1*t2*t3*t71+1.6831*
1384 t8*t9*t75+0.62517*t4*t5*t6*t73;
1385 t97 = 32.1646831778707/t96+1.0;
1386 t98 = log(t97);
1387 t99 = 0.062182*t72*t79-0.03109*t95*t98;
1388 t100 = t81*t83*t84*t90*t99;
1389 t101 = 1/pow(t70,1.666666666666667);
1390 t102 = 1/pow(t74,3.0);
1391 t103 = 1/pow(t70,1.333333333333333);
1392 t104 = 1/pow(t70,1.166666666666667);
1393 t105 = -1.26595*t14*t15*t16*t104-1.195866666666667*t1*
1394 t2*t3*t103-0.40955*t8*t9*t102-.3286266666666666*t4*t5*t6*t101;
1395 t106 = 1/
1396 pow(t77,2.0);
1397 t107 = 1/t78;
1398 t108 = .9999999999999999*t105*t72*t106*t107;
1399 t109 = -1.726166666666666*t14*t15*t16*t104-1.2077*t1*
1400 t2*t3*t103-0.220065*t8*t9*t102-0.33114*t4*t5*t6*t101;
1401 t110 = 1/pow(t91,2.0);
1402 t111 = 1/t92;
1403 t112 = -.5848223397455204*t81*t85*t109*t86*t110*t90*t111;
1404 t113 = .0044294311333333*
1405 t1*t2*t3*t103*t79;
1406 t114 = 1/pow(t70,2.0);
1407 t115 = t82*t114;
1408 t116 = -1.0*t87;
1409 t117 = t116+t115;
1410 t118 = pow(t88,.3333333333333333);
1411 t119 = -1.0*t114*t82;
1412 t120 = t87+t119;
1413 t121 = pow(t89,.3333333333333333);
1414 t122 = 1.333333333333333*t120*t121+1.333333333333333*
1415 t117*t118;
1416 t123 = .0197517897025652*t81*t85*t86*t122*t93;
1417 t124 = -7.324622014701263e-4*t81*t1*t2*t3*t103*t85*t90*
1418 t93;
1419 t125 = 1/pow(t70,5.0);
1420 t126 = 4.0*t125*t83;
1421 t127 = pow(t82,3.0);
1422 t128 = t126-4.0*t127*t84;
1423 t129 = .0197517897025652*t81*t128*t86*t90*t93;
1424 t130 = -2.35315*t14*t15*t16*t104-2.0659*t1*t2*t3*t103-
1425 0.84155*t8*t9*t102-0.41678*t4*t5*t6*t101;
1426 t131 = 1/pow(t96,2.0);
1427 t132 = 1/t97;
1428 t133 = .0021294577333333*t1*t2*t3*t103*t98-.0044294311333333*
1429 t1*t2*t3*t103*t79+t130*t95*t131*t132-.9999999999999999*t105*
1430 t72*t106*t107;
1431 t134 = t81*t83*t84*t90*t133;
1432 t135 = t81*t83*t84*t122*t99;
1433 t136 = -4.0*t125*t81*t83*t90*t99;
1434 t137 = -1.0*t50*t54*t34*t55*rhoa+t70*(4.0*t127*t81*t84*
1435 t90*t99+t136+t135+t134+t129+t124+t123+t113+t112+t108)+t94+
1436 t80+0.03109*t19*t34-.0021294577333333*t1*t2*t3*t19*t12+t100;
1437 t138 = 1/
1438 pow(t62,5.0);
1439 t139 = -0.0554384*t21*t48*t68+0.0027045024*t21*t48*t60*
1440 t67-3.4198272e-5*t21*t48*t66*t65+1.98066816e-7*t21*t48*t64*
1441 t63-4.69587456e-10*t21*t48*t61*t138;
1442 t140 = 1/pow(rhob,.6666666666666666);
1443 t141 = sqrt(rhob);
1444 t142 = pow(rhob,.3333333333333333);
1445 t143 = 1/t142;
1446 t144 = 14.1189*t14*t15*t16/pow(rhob,.1666666666666667)+
1447 1.6831*t8*t9/t141+6.1977*t1*t2*t3*t143+0.62517*t4*t5*t6*t140;
1448 t145 = 32.1646831778707/
1449 t144+1.0;
1450 t146 = log(t145);
1451 t147 = 0.20548*t1*t2*t3*t143+1.0;
1452 t148 = t70*(t100+t94+t80)+0.03109*t146*t147*rhob+0.03109*
1453 t19*t34*rhoa;
1454 t149 = pow(gradb,8.0);
1455 t150 = 0.2*t58*t59+1.0;
1456 t151 = 1/pow(t150,4.0);
1457 t152 = 1/pow(rhob,10.66666666666667);
1458 t153 = pow(gradb,6.0);
1459 t154 = 1/pow(t150,3.0);
1460 t155 = 1/pow(rhob,8.0);
1461 t156 = pow(gradb,4.0);
1462 t157 = 1/pow(t150,2.0);
1463 t158 = 1/pow(rhob,5.333333333333333);
1464 t159 = 1/t150;
1465 t160 = -0.05214*t58*t159*t59+0.017316*t156*t157*t158-
1466 0.01594*t153*t154*t155+0.00397648*t149*t151*t152+0.48951;
1467 t161 = 0.004*
1468 t58*t59+1.0;
1469 t162 = 1/pow(t161,4.0);
1470 t163 = 1/pow(t161,3.0);
1471 t164 = 1/pow(t161,2.0);
1472 t165 = 1/t161;
1473 t166 = -0.0029888*t58*t165*t59+8.125279999999999e-5*t156*
1474 t164*t158-2.6288e-7*t153*t163*t155+2.999552e-10*t149*t162*
1475 t152+1.09163;
1476 t167 = pow(gradb,10.0);
1477 t168 = 1/pow(t150,5.0);
1478 t169 = 1/pow(rhob,14.33333333333333);
1479 t170 = 1/pow(rhob,11.66666666666667);
1480 t171 = 1/pow(rhob,9.0);
1481 t172 = 1/pow(rhob,6.333333333333333);
1482 t173 = 1/pow(rhob,3.666666666666667);
1483 t174 = 0.13904*t58*t159*t173-0.12016*t156*t157*t172+0.1459904*
1484 t153*t154*t171-.0679197866666667*t149*t151*t170+.0084831573333333*
1485 t167*t168*t169;
1486 t175 = 1/t145;
1487 t176 = 1/pow(rhob,1.666666666666667);
1488 t177 = pow(rhob,1.333333333333333);
1489 t178 = 1/t177;
1490 t179 = -2.35315*t14*t15*t16/pow(rhob,1.166666666666667)-
1491 0.84155*t8*t9/pow(t141,3.0)-2.0659*t1*t2*t3*t178-0.41678*t4*
1492 t5*t6*t176;
1493 t180 = 1/pow(t144,2.0);
1494 t181 = 1/pow(t161,5.0);
1495 t182 = .0079701333333333*t58*t165*t173-4.652287999999999e-4*
1496 t156*t164*t172+3.836433066666666e-6*t153*t163*t171-1.161168213333333e-8*
1497 t149*t162*t170+1.27980885333333e-11*t167*t181*t169;
1498 t183 = t87+t115;
1499 t184 = t116+t119;
1500 t185 = 1.333333333333333*t121*t184+1.333333333333333*
1501 t118*t183;
1502 t186 = .0197517897025652*t81*t85*t86*t185*t93;
1503 t187 = 4.0*t127*t84+t126;
1504 t188 = .0197517897025652*t81*t187*t86*t90*t93;
1505 t189 = t81*t83*t84*t185*t99;
1506 t190 = -1.0*t175*t179*t147*t180*rhob+t70*(-4.0*t127*t81*
1507 t84*t90*t99+t189+t188+t186+t136+t134+t124+t113+t112+t108)+
1508 t94+t80+0.03109*t146*t147-.0021294577333333*t1*t2*t3*t146*
1509 t143+t100;
1510 t191 = -0.0554384*t58*t68*t173+0.0027045024*t58*t60*t67*
1511 t173-3.4198272e-5*t58*t66*t65*t173+1.98066816e-7*t58*t64*t63*
1512 t173-4.69587456e-10*t58*t61*t138*t173;
1513 t192 = pow(grada,9.0);
1514 t193 = 1/pow(rhoa,13.33333333333333);
1515 t194 = pow(grada,7.0);
1516 t195 = pow(grada,5.0);
1517 t196 = pow(grada,3.0);
1518 t197 = -0.10428*grada*t32*t22+0.09012*t196*t30*t31-0.1094928*
1519 t195*t27*t28+0.05093984*t194*t24*t25-0.006362368*t192*t43*
1520 t193;
1521 t198 = -0.0059776*grada*t40*t22+3.489216e-4*t196*t39*
1522 t31-2.8773248e-6*t195*t38*t28+8.7087616e-9*t194*t37*t25-9.5985664e-12*
1523 t192*t56*t193;
1524 t199 = 0.0415788*grada*t22*t68-0.0020283768*grada*t22*
1525 t60*t67+2.5648704e-5*grada*t22*t66*t65-1.48550112e-7*grada*
1526 t22*t64*t63+3.52190592e-10*grada*t22*t61*t138;
1527 t200 = pow(gradb,9.0);
1528 t201 = 1/pow(rhob,13.33333333333333);
1529 t202 = pow(gradb,7.0);
1530 t203 = pow(gradb,5.0);
1531 t204 = pow(gradb,3.0);
1532 t205 = -0.10428*gradb*t159*t59+0.09012*t204*t157*t158-
1533 0.1094928*t203*t154*t155+0.05093984*t202*t151*t152-0.006362368*
1534 t200*t168*t201;
1535 t206 = -0.0059776*gradb*t165*t59+3.489216e-4*t204*t164*
1536 t158-2.8773248e-6*t203*t163*t155+8.7087616e-9*t202*t162*t152-
1537 9.5985664e-12*t200*t181*t201;
1538 t207 = 0.0415788*gradb*t68*t59-0.0020283768*gradb*t60*
1539 t67*t59+2.5648704e-5*gradb*t66*t65*t59-1.48550112e-7*gradb*
1540 t64*t63*t59+3.52190592e-10*gradb*t61*t138*t59;
1541 t208 = pow(grada,12.0);
1542 t209 = 1/pow(t23,6.0);
1543 t210 = 1/pow(rhoa,18.0);
1544 t211 = 1/pow(rhoa,15.33333333333333);
1545 t212 = 1/pow(rhoa,12.66666666666667);
1546 t213 = 1/pow(rhoa,10.0);
1547 t214 = 1/pow(rhoa,7.333333333333333);
1548 t215 = 1/pow(rhoa,4.666666666666667);
1549 t216 = -.5098133333333333*t21*t32*t215+.8351680000000001*
1550 t29*t30*t214-1.442084266666667*t26*t27*t213+1.025982151111111*
1551 t20*t24*t212-.2664874666666667*t42*t43*t211+.0226217528888889*
1552 t208*t209*t210;
1553 t217 = 1/pow(t18,2.0);
1554 t218 = pow(t54,2.0);
1555 t219 = 1/pow(t17,4.0);
1556 t220 = 1/pow(t17,3.0);
1557 t221 = 1/pow(rhoa,2.333333333333333);
1558 t222 = 2.745341666666667*t14*t15*t16/pow(rhoa,2.166666666666667)+
1559 1.262325*t8*t9/pow(t10,5.0)+2.754533333333333*t1*t2*t3*t221+
1560 .6946333333333333*t4*t5*t6*t22;
1561 t223 = 1/pow(t36,6.0);
1562 t224 = -.0292238222222222*t21*t40*t215+.0030314638222222*
1563 t29*t39*t214-4.445277866666666e-5*t26*t38*t213+2.582354830222222e-7*
1564 t20*t37*t212-6.7887104e-10*t42*t56*t211+6.82564721777778e-13*
1565 t208*t223*t210;
1566 t225 = 2.0*t105*t72*t106*t107;
1567 t226 = -1.169644679491041*t81*t85*t109*t86*t110*t90*t111;
1568 t227 = .0088588622666667*
1569 t1*t2*t3*t103*t79;
1570 t228 = -.0014649244029403*t81*t1*t2*t3*t103*t85*t90*t93;
1571 t229 = 2.0*
1572 t133*t81*t83*t84*t90;
1573 t230 = -8.0*t125*t81*t83*t90*t99;
1574 t231 = pow(t105,2.0);
1575 t232 = 1/pow(t77,4.0);
1576 t233 = 1/pow(t78,2.0);
1577 t234 = 16.0818243221511*t231*t72*t232*t233;
1578 t235 = 1/pow(t77,3.0);
1579 t236 = -2.0*t231*t72*t235*t107;
1580 t237 = -.1424666666666666*t1*t2*t3*t103*t105*t106*t107;
1581 t238 = 1/
1582 pow(t70,2.666666666666667);
1583 t239 = 1/pow(t74,5.0);
1584 t240 = 1/pow(t70,2.333333333333333);
1585 t241 = 1/pow(t70,2.166666666666667);
1586 t242 = 1.476941666666667*t14*t15*t16*t241+1.594488888888889*
1587 t1*t2*t3*t240+0.614325*t8*t9*t239+0.547711111111111*t4*t5*
1588 t6*t238;
1589 t243 = .9999999999999999*t242*t72*t106*t107;
1590 t244 = pow(t109,2.0);
1591 t245 = 1/pow(t91,4.0);
1592 t246 = 1/pow(t92,2.0);
1593 t247 = -17.31575589937587*t81*t85*t244*t86*t245*t90*t246;
1594 t248 = -
1595 1.169644679491041*t81*t85*t109*t86*t110*t122*t111;
1596 t249 = 1/pow(t91,3.0);
1597 t250 = 1.169644679491041*t81*t85*t244*t86*t249*t90*t111;
1598 t251 = .0433743235311261*
1599 t81*t1*t2*t3*t103*t85*t109*t110*t90*t111;
1600 t252 = 2.013861111111111*t14*t15*t16*t241+1.610266666666667*
1601 t1*t2*t3*t240+0.3300975*t8*t9*t239+.5519000000000001*t4*t5*
1602 t6*t238;
1603 t253 = -.5848223397455204*t81*t85*t252*t86*t110*t90*t111;
1604 t254 = -
1605 1.169644679491041*t81*t128*t109*t86*t110*t90*t111;
1606 t255 = -.0059059081777778*t1*t2*t3*t240*t79;
1607 t256 = pow(t117,2.0);
1608 t257 = 1/pow(t88,.6666666666666666);
1609 t258 = 1/pow(t70,3.0);
1610 t259 = -2.0*t258*t82;
1611 t260 = 2.0*t114;
1612 t261 = t260+t259;
1613 t262 = pow(t120,2.0);
1614 t263 = 1/pow(t89,.6666666666666666);
1615 t264 = 2.0*t258*t82;
1616 t265 = -2.0*t114;
1617 t266 = t265+t264;
1618 t267 = 1.333333333333333*t121*t266+.4444444444444444*
1619 t262*t263+1.333333333333333*t118*t261+.4444444444444444*t256*
1620 t257;
1621 t268 = .0197517897025652*t81*t85*t86*t267*t93;
1622 t269 = -.0014649244029403*t81*t1*t2*t3*t103*t85*t122*
1623 t93;
1624 t270 = .0395035794051304*t81*t128*t86*t122*t93;
1625 t271 = -.0014649244029403*t81*t1*t2*t3*t103*t128*t90*
1626 t93;
1627 t272 = 9.766162686268349e-4*t81*t1*t2*t3*t240*t85*t90*
1628 t93;
1629 t273 = 1/pow(t70,6.0);
1630 t274 = -20.0*t273*t83;
1631 t275 = pow(t82,2.0);
1632 t276 = -12.0*t275*t84;
1633 t277 = t276+t274+32.0*t125*t127;
1634 t278 = .0197517897025652*t81*t277*t86*t90*t93;
1635 t279 = pow(t130,2.0);
1636 t280 = 1/pow(t96,4.0);
1637 t281 = 1/pow(t97,2.0);
1638 t282 = 1/pow(t96,3.0);
1639 t283 = 2.745341666666667*t14*t15*t16*t241+2.754533333333333*
1640 t1*t2*t3*t240+1.262325*t8*t9*t239+.6946333333333333*t4*t5*
1641 t6*t238;
1642 t284 = -.0028392769777778*t1*t2*t3*t240*t98-2.0*t132*
1643 t279*t282*t95+.0059059081777778*t1*t2*t3*t240*t79+32.1646831778707*
1644 t279*t95*t280*t281-16.0818243221511*t231*t72*t232*t233+t283*
1645 t95*t131*t132-.1369866666666666*t1*t2*t3*t103*t130*t131*t132+
1646 2.0*t231*t72*t235*t107-.9999999999999999*t242*t72*t106*t107+
1647 .1424666666666666*t1*t2*t3*t103*t105*t106*t107;
1648 t285 = t81*t83*t84*t90*t284;
1649 t286 = 2.0*t122*t133*t81*t83*t84;
1650 t287 = -8.0*t125*t133*t81*t83*t90;
1651 t288 = 8.0*t127*t133*t81*t84*t90;
1652 t289 = t81*t83*t84*t267*t99;
1653 t290 = -8.0*t122*t125*t81*t83*t99;
1654 t291 = 20.0*t273*t81*t83*t90*t99;
1655 t292 = -32.0*t125*t127*t81*t90*t99;
1656 t293 = 12.0*t275*t81*t84*t90*t99;
1657 t294 = -1.0*t50*t222*t34*t55*rhoa+2.0*t50*t218*t34*t220*
1658 rhoa-32.1646831778707*t217*t218*t34*t219*rhoa+t70*(8.0*t122*
1659 t127*t81*t84*t99+t293+t292+t291+t290+t289+t288+t287+t286+t285+
1660 t278+t272+t271+t270+t269+t268+t255+t254+t253+t251+t250+t248+
1661 t247+t243+t237+t236+t234)+8.0*t127*t81*t84*t90*t99+2.0*t122*
1662 t81*t83*t84*t99+.0395035794051304*t81*t128*t86*t90*t93+.0395035794051304*
1663 t81*t85*t86*t122*t93-2.0*t50*t54*t34*t55-.0014196384888889*
1664 t1*t2*t3*t19*t53+t230+t229+t228+t227+t226+t225+.1369866666666666*
1665 t1*t2*t3*t50*t54*t55*t12;
1666 t295 = 1/pow(t62,6.0);
1667 t296 = .2032741333333333*t21*t215*t68-0.0099165088*t21*
1668 t215*t60*t67-0.0040495104*t29*t214*t67+1.25393664e-4*t21*t215*
1669 t66*t65+1.344674304e-4*t29*t214*t60*t65-7.26244992e-7*t21*
1670 t215*t64*t63-1.613025792e-6*t29*t214*t66*t63+1.721820672e-9*
1671 t21*t215*t61*t138+8.842604544e-9*t29*t214*t64*t138-1.878349824e-11*
1672 t29*t214*t61*t295;
1673 t297 = 2.666666666666667*t121*t258*t82-2.666666666666667*
1674 t118*t258*t82+.4444444444444444*t120*t184*t263+.4444444444444444*
1675 t117*t183*t257;
1676 t298 = 12.0*t275*t84+t274;
1677 t299 = -12.0*t275*t81*t84*t90*t99;
1678 t300 = t70*(4.0*t127*t185*t81*t84*t99-4.0*t122*t127*t81*
1679 t84*t99-4.0*t125*t185*t81*t83*t99-4.0*t122*t125*t81*t83*t99+
1680 t81*t83*t84*t297*t99+.0197517897025652*t81*t298*t86*t90*t93-
1681 7.324622014701263e-4*t81*t1*t2*t3*t103*t187*t90*t93-7.324622014701263e-4*
1682 t81*t1*t2*t3*t103*t128*t90*t93+.0197517897025652*t81*t85*t86*
1683 t297*t93+.0197517897025652*t81*t128*t86*t185*t93-7.324622014701263e-4*
1684 t81*t1*t2*t3*t103*t85*t185*t93+.0197517897025652*t81*t187*
1685 t86*t122*t93-7.324622014701263e-4*t81*t1*t2*t3*t103*t85*t122*
1686 t93+t299+t291+t287+t285+t272+t255+t253+t251+t250+t247+t243+
1687 t237+t236+t234+t81*t83*t84*t185*t133+t81*t83*t84*t122*t133-
1688 .5848223397455204*t81*t187*t109*t86*t110*t90*t111-.5848223397455204*
1689 t81*t128*t109*t86*t110*t90*t111-.5848223397455204*t81*t85*
1690 t109*t86*t110*t185*t111-.5848223397455204*t81*t85*t109*t86*
1691 t110*t122*t111)+t230+t229+t228+t227+t226+t225+t189+t188+t186+
1692 t135+t129+t123;
1693 t301 = -0.0040495104*t21*t58*t48*t67*t173+1.344674304e-4*
1694 t21*t58*t48*t60*t65*t173-1.613025792e-6*t21*t58*t48*t66*t63*
1695 t173+8.842604544e-9*t21*t58*t48*t64*t138*t173-1.878349824e-11*
1696 t21*t58*t48*t61*t295*t173;
1697 t302 = pow(grada,11.0);
1698 t303 = 1/pow(rhoa,17.0);
1699 t304 = 0.27808*grada*t32*t48-.5362560000000001*t196*t30*
1700 t47+.9720704000000001*t195*t27*t46-.7185467733333335*t194*
1701 t24*t45+0.193503232*t192*t43*t44-.0169663146666667*t302*t209*
1702 t303;
1703 t305 = .0159402666666667*grada*t40*t48-.0019246762666667*
1704 t196*t39*t47+3.04622592e-5*t195*t38*t46-1.849678506666667e-7*
1705 t194*t37*t45+4.995547136e-10*t192*t56*t44-5.11923541333333e-13*
1706 t302*t223*t303;
1707 t306 = -0.1108768*grada*t48*t68+0.0054090048*grada*t48*
1708 t60*t67+0.0030371328*t196*t47*t67-6.839654399999999e-5*grada*
1709 t48*t66*t65-1.008505728e-4*t196*t47*t60*t65+3.96133632e-7*
1710 grada*t48*t64*t63+1.209769344e-6*t196*t47*t66*t63-9.39174912e-10*
1711 grada*t48*t61*t138-6.631953408000001e-9*t196*t47*t64*t138+
1712 1.408762368e-11*t196*t47*t61*t295;
1713 t307 = 0.0030371328*t21*gradb*t48*t67*t59-1.008505728e-4*
1714 t21*gradb*t48*t60*t65*t59+1.209769344e-6*t21*gradb*t48*t66*
1715 t63*t59-6.631953408000001e-9*t21*gradb*t48*t64*t138*t59+1.408762368e-11*
1716 t21*gradb*t48*t61*t295*t59;
1717 t308 = pow(gradb,12.0);
1718 t309 = 1/pow(t150,6.0);
1719 t310 = 1/pow(rhob,18.0);
1720 t311 = 1/pow(rhob,15.33333333333333);
1721 t312 = 1/pow(rhob,12.66666666666667);
1722 t313 = 1/pow(rhob,10.0);
1723 t314 = 1/pow(rhob,7.333333333333333);
1724 t315 = 1/pow(rhob,4.666666666666667);
1725 t316 = -.5098133333333333*t58*t159*t315+.8351680000000001*
1726 t156*t157*t314-1.442084266666667*t153*t154*t313+1.025982151111111*
1727 t149*t151*t312-.2664874666666667*t167*t168*t311+.0226217528888889*
1728 t308*t309*t310;
1729 t317 = 1/pow(t145,2.0);
1730 t318 = pow(t179,2.0);
1731 t319 = 1/pow(t144,4.0);
1732 t320 = 1/pow(t144,3.0);
1733 t321 = 1/pow(rhob,2.333333333333333);
1734 t322 = 2.745341666666667*t14*t15*t16/pow(rhob,2.166666666666667)+
1735 1.262325*t8*t9/pow(t141,5.0)+.6946333333333333*t4*t5*t6*t59+
1736 2.754533333333333*t1*t2*t3*t321;
1737 t323 = 1/pow(t161,6.0);
1738 t324 = -.0292238222222222*t58*t165*t315+.0030314638222222*
1739 t156*t164*t314-4.445277866666666e-5*t153*t163*t313+2.582354830222222e-7*
1740 t149*t162*t312-6.7887104e-10*t167*t181*t311+6.82564721777778e-13*
1741 t308*t323*t310;
1742 t325 = -1.169644679491041*t81*t85*t109*t86*t110*t185*
1743 t111;
1744 t326 = -1.169644679491041*t81*t187*t109*t86*t110*t90*
1745 t111;
1746 t327 = pow(t183,2.0);
1747 t328 = t265+t259;
1748 t329 = pow(t184,2.0);
1749 t330 = t260+t264;
1750 t331 = 1.333333333333333*t121*t330+.4444444444444444*
1751 t263*t329+1.333333333333333*t118*t328+.4444444444444444*t257*
1752 t327;
1753 t332 = .0197517897025652*t81*t85*t86*t331*t93;
1754 t333 = -.0014649244029403*t81*t1*t2*t3*t103*t85*t185*
1755 t93;
1756 t334 = .0395035794051304*t81*t187*t86*t185*t93;
1757 t335 = -.0014649244029403*t81*t1*t2*t3*t103*t187*t90*
1758 t93;
1759 t336 = t276+t274-32.0*t125*t127;
1760 t337 = .0197517897025652*t81*t336*t86*t90*t93;
1761 t338 = 2.0*t133*t185*t81*t83*t84;
1762 t339 = -8.0*t127*t133*t81*t84*t90;
1763 t340 = t81*t83*t84*t331*t99;
1764 t341 = -8.0*t125*t185*t81*t83*t99;
1765 t342 = 32.0*t125*t127*t81*t90*t99;
1766 t343 = 2.0*t175*t318*t147*t320*rhob-32.1646831778707*
1767 t317*t318*t147*t319*rhob-1.0*t175*t322*t147*t180*rhob+t70*
1768 (-8.0*t127*t185*t81*t84*t99+t342+t341+t340+t339+t338+t337+
1769 t335+t334+t333+t332+t326+t325+t293+t291+t287+t285+t272+t255+
1770 t253+t251+t250+t247+t243+t237+t236+t234)-8.0*t127*t81*t84*
1771 t90*t99+2.0*t185*t81*t83*t84*t99+.0395035794051304*t81*t187*
1772 t86*t90*t93+.0395035794051304*t81*t85*t86*t185*t93+t230+t229+
1773 t228+t227+t226+t225-2.0*t175*t179*t147*t180-.0014196384888889*
1774 t1*t2*t3*t146*t178+.1369866666666666*t1*t2*t3*t175*t179*t180*
1775 t143;
1776 t344 = .2032741333333333*t58*t68*t315-0.0099165088*t58*
1777 t60*t67*t315+1.25393664e-4*t58*t66*t65*t315-7.26244992e-7*
1778 t58*t64*t63*t315+1.721820672e-9*t58*t61*t138*t315-0.0040495104*
1779 t156*t67*t314+1.344674304e-4*t156*t60*t65*t314-1.613025792e-6*
1780 t156*t66*t63*t314+8.842604544e-9*t156*t64*t138*t314-1.878349824e-11*
1781 t156*t61*t295*t314;
1782 t345 = 0.0030371328*grada*t58*t22*t67*t173-1.008505728e-4*
1783 grada*t58*t22*t60*t65*t173+1.209769344e-6*grada*t58*t22*t66*
1784 t63*t173-6.631953408000001e-9*grada*t58*t22*t64*t138*t173+
1785 1.408762368e-11*grada*t58*t22*t61*t295*t173;
1786 t346 = pow(gradb,11.0);
1787 t347 = 1/pow(rhob,17.0);
1788 t348 = 0.27808*gradb*t159*t173-.5362560000000001*t204*
1789 t157*t172+.9720704000000001*t203*t154*t171-.7185467733333335*
1790 t202*t151*t170+0.193503232*t200*t168*t169-.0169663146666667*
1791 t346*t309*t347;
1792 t349 = .0159402666666667*gradb*t165*t173-.0019246762666667*
1793 t204*t164*t172+3.04622592e-5*t203*t163*t171-1.849678506666667e-7*
1794 t202*t162*t170+4.995547136e-10*t200*t181*t169-5.11923541333333e-13*
1795 t346*t323*t347;
1796 t350 = -0.1108768*gradb*t68*t173+0.0054090048*gradb*t60*
1797 t67*t173-6.839654399999999e-5*gradb*t66*t65*t173+3.96133632e-7*
1798 gradb*t64*t63*t173-9.39174912e-10*gradb*t61*t138*t173+0.0030371328*
1799 t204*t67*t172-1.008505728e-4*t204*t60*t65*t172+1.209769344e-6*
1800 t204*t66*t63*t172-6.631953408000001e-9*t204*t64*t138*t172+
1801 1.408762368e-11*t204*t61*t295*t172;
1802 t351 = 1/pow(rhoa,16.0);
1803 t352 = -0.10428*t32*t22+0.312072*t21*t30*t31-.6195600000000002*
1804 t29*t27*t28+.4879702400000002*t26*t24*t25-0.138765056*t20*
1805 t43*t193+0.012724736*t42*t209*t351;
1806 t353 = -0.0059776*t40*t22+0.0010945856*t21*t39*t31-1.99693696e-5*
1807 t29*t38*t28+1.300171264e-7*t26*t37*t25-3.650674688e-10*t20*
1808 t56*t193+3.83942656e-13*t42*t223*t351;
1809 t354 = 0.0415788*t22*t68-0.0020283768*t22*t60*t67-0.0022778496*
1810 t21*t31*t67+2.5648704e-5*t22*t66*t65+7.563792960000001e-5*
1811 t21*t31*t60*t65-1.48550112e-7*t22*t64*t63-9.073270080000002e-7*
1812 t21*t31*t66*t63+3.52190592e-10*t22*t61*t138+4.973965056000001e-9*
1813 t21*t31*t64*t138-1.056571776e-11*t21*t31*t61*t295;
1814 t355 = -0.0022778496*grada*gradb*t22*t67*t59+7.563792960000001e-5*
1815 grada*gradb*t22*t60*t65*t59-9.073270080000002e-7*grada*gradb*
1816 t22*t66*t63*t59+4.973965056000001e-9*grada*gradb*t22*t64*t138*
1817 t59-1.056571776e-11*grada*gradb*t22*t61*t295*t59;
1818 t356 = 1/pow(rhob,16.0);
1819 t357 = -0.10428*t159*t59+0.312072*t58*t157*t158-.6195600000000002*
1820 t156*t154*t155+.4879702400000002*t153*t151*t152-0.138765056*
1821 t149*t168*t201+0.012724736*t167*t309*t356;
1822 t358 = -0.0059776*t165*t59+0.0010945856*t58*t164*t158-
1823 1.99693696e-5*t156*t163*t155+1.300171264e-7*t153*t162*t152-
1824 3.650674688e-10*t149*t181*t201+3.83942656e-13*t167*t323*t356;
1825 t359 = 0.0415788*
1826 t68*t59-0.0020283768*t60*t67*t59+2.5648704e-5*t66*t65*t59-
1827 1.48550112e-7*t64*t63*t59+3.52190592e-10*t61*t138*t59-0.0022778496*
1828 t58*t67*t158+7.563792960000001e-5*t58*t60*t65*t158-9.073270080000002e-7*
1829 t58*t66*t63*t158+4.973965056000001e-9*t58*t64*t138*t158-1.056571776e-11*
1830 t58*t61*t295*t158;
1831 t360 = pow(grada,14.0);
1832 t361 = 1/pow(t23,7.0);
1833 t362 = 1/pow(rhoa,21.66666666666667);
1834 t363 = 1/pow(rhoa,19.0);
1835 t364 = 1/pow(rhoa,16.33333333333333);
1836 t365 = 1/pow(rhoa,13.66666666666667);
1837 t366 = 1/pow(rhoa,11.0);
1838 t367 = 1/pow(rhoa,8.333333333333334);
1839 t368 = 1/pow(rhoa,5.666666666666667);
1840 t369 = 1/pow(t18,3.0);
1841 t370 = pow(t54,3.0);
1842 t371 = 1/pow(t17,6.0);
1843 t372 = 1/pow(t17,5.0);
1844 t373 = -6.427244444444445*t1*t2*t3/pow(rhoa,3.333333333333333)-
1845 5.948240277777777*t14*t15*t16/pow(rhoa,3.166666666666667)-
1846 3.1558125*t8*t9/pow(t10,7.0)-1.852355555555556*t4*t5*t6*t48;
1847 t374 = 1/
1848 pow(t36,7.0);
1849 t375 = 48.2454729664533*t231*t72*t232*t233;
1850 t376 = -6.0*t231*t72*t235*t107;
1851 t377 = -.4273999999999999*t1*t2*t3*t103*t105*t106*t107;
1852 t378 = 3.0*
1853 t242*t72*t106*t107;
1854 t379 = -51.9472676981276*t81*t85*t244*t86*t245*t90*t246;
1855 t380 = 3.508934038473122*
1856 t81*t85*t244*t86*t249*t90*t111;
1857 t381 = .1301229705933783*t81*t1*t2*t3*t103*t85*t109*t110*
1858 t90*t111;
1859 t382 = -1.754467019236561*t81*t85*t252*t86*t110*t90*t111;
1860 t383 = -
1861 .0177177245333333*t1*t2*t3*t240*t79;
1862 t384 = .0029298488058805*t81*t1*t2*t3*t240*t85*t90*t93;
1863 t385 = 3.0*
1864 t284*t81*t83*t84*t90;
1865 t386 = -24.0*t125*t133*t81*t83*t90;
1866 t387 = 60.0*t273*t81*t83*t90*t99;
1867 t388 = 36.0*t275*t81*t84*t90*t99;
1868 t389 = pow(t105,3.0);
1869 t390 = 1/pow(t77,6.0);
1870 t391 = 1/pow(t78,3.0);
1871 t392 = 517.2501470570614*t389*t72*t390*t391;
1872 t393 = 1/pow(t77,5.0);
1873 t394 = -96.4909459329066*t389*t72*t393*t233;
1874 t395 = -3.43668585764369*t1*t2*t3*t103*t231*t232*t233;
1875 t396 = 48.2454729664533*
1876 t242*t105*t72*t232*t233;
1877 t397 = 6.0*t389*t72*t232*t107;
1878 t398 = .4273999999999999*t1*t2*t3*t103*t231*t235*t107;
1879 t399 = -
1880 6.0*t242*t105*t72*t235*t107;
1881 t400 = -0.2137*t1*t2*t3*t103*t242*t106*t107;
1882 t401 = .2849333333333333*t1*t2*t3*t240*t105*t106*t107;
1883 t402 = 1/
1884 pow(t70,3.666666666666667);
1885 t403 = 1/pow(t74,7.0);
1886 t404 = 1/pow(t70,3.333333333333333);
1887 t405 = 1/pow(t70,3.166666666666667);
1888 t406 = -3.200040277777777*t14*t15*t16*t405-3.720474074074074*
1889 t1*t2*t3*t404-1.5358125*t8*t9*t403-1.460562962962963*t4*t5*
1890 t6*t402;
1891 t407 = .9999999999999999*t406*t72*t106*t107;
1892 t408 = pow(t109,3.0);
1893 t409 = -1025.38970210078*t408*t81*t85*t86*t90/(pow(t91,
1894 6.0)*pow(t92,3.0));
1895 t410 = 103.8945353962552*t246*t408*t81*t85*t86*t90/pow(t91,
1896 5.0);
1897 t411 = 1.926377843805565*t81*t1*t2*t3*t103*t85*t244*t245*
1898 t90*t246;
1899 t412 = -51.9472676981276*t81*t85*t252*t109*t86*t245*t90*
1900 t246;
1901 t413 = -3.508934038473122*t81*t85*t408*t86*t245*t90*t111;
1902 t414 = -
1903 .1301229705933783*t81*t1*t2*t3*t103*t85*t244*t249*t90*t111;
1904 t415 = 3.508934038473122*
1905 t81*t85*t252*t109*t86*t249*t90*t111;
1906 t416 = .0650614852966891*t81*t1*t2*t3*t103*t85*t252*t110*
1907 t90*t111;
1908 t417 = -.0867486470622522*t81*t1*t2*t3*t240*t85*t109*
1909 t110*t90*t111;
1910 t418 = -.5848223397455204*t81*t85*(-4.36336574074074*
1911 t14*t15*t16*t405-3.757288888888889*t1*t2*t3*t404-0.82524375*
1912 t8*t9*t403-1.471733333333333*t4*t5*t6*t402)*t86*t110*t90*t111;
1913 t419 = .0137804524148148*
1914 t1*t2*t3*t404*t79;
1915 t420 = 1/pow(t88,1.666666666666667);
1916 t421 = 6.0*t82*t84;
1917 t422 = -6.0*t258;
1918 t423 = 1/pow(t89,1.666666666666667);
1919 t424 = -6.0*t82*t84;
1920 t425 = 6.0*t258;
1921 t426 = 1.333333333333333*t121*(t425+t424)-.2962962962962963*
1922 pow(t120,3.0)*t423+1.333333333333333*t118*(t422+t421)-.2962962962962963*
1923 pow(t117,3.0)*t420+1.333333333333333*t120*t263*t266+1.333333333333333*
1924 t117*t257*t261;
1925 t427 = -.0022787712934626*t81*t1*t2*t3*t404*t85*t90*t93;
1926 t428 = 1/
1927 pow(t70,7.0);
1928 t429 = 120.0*t428*t83;
1929 t430 = 144.0*t125*t275;
1930 t431 = -24.0*t82*t84;
1931 t432 = pow(t130,3.0);
1932 t433 = t81*t83*t84*t90*(.0066249796148148*t1*t2*t3*t404*
1933 t98+2069.133687865597*t432*t95/(pow(t96,6.0)*pow(t97,3.0))-
1934 192.9880990672242*t281*t432*t95/pow(t96,5.0)+6.0*t132*t280*
1935 t432*t95-6.0*t130*t132*t282*t283*t95-.0137804524148148*t1*
1936 t2*t3*t404*t79-517.2501470570614*t389*t72*t390*t391+96.4940495336121*
1937 t283*t130*t95*t280*t281-6.60919909938887*t1*t2*t3*t103*t279*
1938 t280*t281+96.4909459329066*t389*t72*t393*t233-48.2454729664533*
1939 t242*t105*t72*t232*t233+3.43668585764369*t1*t2*t3*t103*t231*
1940 t232*t233+.4109599999999999*t1*t2*t3*t103*t279*t282*t132+(-
1941 5.948240277777777*t14*t15*t16*t405-6.427244444444445*t1*t2*
1942 t3*t404-3.1558125*t8*t9*t403-1.852355555555556*t4*t5*t6*t402)*
1943 t95*t131*t132-0.20548*t1*t2*t3*t103*t283*t131*t132+.2739733333333333*
1944 t1*t2*t3*t240*t130*t131*t132+6.0*t242*t105*t72*t235*t107-.4273999999999999*
1945 t1*t2*t3*t103*t231*t235*t107-6.0*t389*t72*t232*t107-.9999999999999999*
1946 t406*t72*t106*t107+0.2137*t1*t2*t3*t103*t242*t106*t107-.2849333333333333*
1947 t1*t2*t3*t240*t105*t106*t107);
1948 t434 = -12.0*t125*t284*t81*t83*t90;
1949 t435 = 60.0*t133*t273*t81*t83*t90;
1950 t436 = 36.0*t133*t275*t81*t84*t90;
1951 t437 = -120.0*t428*t81*t83*t90*t99;
1952 t438 = -144.0*t125*t275*t81*t90*t99;
1953 t439 = 24.0*t81*t82*t84*t90*t99;
1954 t440 = 1/pow(t62,7.0);
1955 t441 = .0395035794051304*t81*t85*t86*t297*t93;
1956 t442 = .0395035794051304*t81*t128*t86*t185*t93;
1957 t443 = .0395035794051304*t81*t187*t86*t122*t93;
1958 t444 = .0395035794051304*t81*t298*t86*t90*t93;
1959 t445 = 2.0*t297*t81*t83*t84*t99;
1960 t446 = -1.169644679491041*t81*t85*t109*t86*t110*t297*
1961 t111;
1962 t447 = -1.169644679491041*t81*t128*t109*t86*t110*t185*
1963 t111;
1964 t448 = -1.169644679491041*t81*t187*t109*t86*t110*t122*
1965 t111;
1966 t449 = -1.169644679491041*t81*t298*t109*t86*t110*t90*
1967 t111;
1968 t450 = -.0014649244029403*t81*t1*t2*t3*t103*t85*t297*
1969 t93;
1970 t451 = 1.777777777777778*t120*t258*t263*t82-1.777777777777778*
1971 t117*t257*t258*t82+1.333333333333333*t121*(t424+2.0*t258)-
1972 .2962962962962963*t184*t262*t423+1.333333333333333*t118*(t421-
1973 2.0*t258)-.2962962962962963*t183*t256*t420+.4444444444444444*
1974 t184*t263*t266+.4444444444444444*t183*t257*t261;
1975 t452 = -.0014649244029403*t81*t1*t2*t3*t103*t128*t185*
1976 t93;
1977 t453 = -.0014649244029403*t81*t1*t2*t3*t103*t187*t122*
1978 t93;
1979 t454 = -.0014649244029403*t81*t1*t2*t3*t103*t298*t90*
1980 t93;
1981 t455 = -48.0*t125*t275;
1982 t456 = 24.0*t82*t84;
1983 t457 = 2.0*t133*t297*t81*t83*t84;
1984 t458 = -12.0*t133*t275*t81*t84*t90;
1985 t459 = -8.0*t125*t297*t81*t83*t99;
1986 t460 = 48.0*t125*t275*t81*t90*t99;
1987 t461 = -24.0*t81*t82*t84*t90*t99;
1988 t462 = pow(grada,13.0);
1989 t463 = 1/pow(rhoa,20.66666666666667);
1990 t464 = -8.0*t121*t82*t84+8.0*t118*t82*t84+1.777777777777778*
1991 t184*t258*t263*t82-1.777777777777778*t183*t257*t258*t82-.2962962962962963*
1992 t120*t329*t423-.2962962962962963*t117*t327*t420+.4444444444444444*
1993 t120*t263*t330+.4444444444444444*t117*t257*t328-2.666666666666667*
1994 t121*t258+2.666666666666667*t118*t258;
1995 t465 = 1/pow(rhoa,19.66666666666667);
1996 t466 = pow(gradb,14.0);
1997 t467 = 1/pow(t150,7.0);
1998 t468 = 1/pow(rhob,21.66666666666667);
1999 t469 = 1/pow(rhob,19.0);
2000 t470 = 1/pow(rhob,16.33333333333333);
2001 t471 = 1/pow(rhob,13.66666666666667);
2002 t472 = 1/pow(rhob,11.0);
2003 t473 = 1/pow(rhob,8.333333333333334);
2004 t474 = 1/pow(rhob,5.666666666666667);
2005 t475 = 1/pow(t145,3.0);
2006 t476 = pow(t179,3.0);
2007 t477 = 1/pow(t144,6.0);
2008 t478 = 1/pow(t144,5.0);
2009 t479 = -6.427244444444445*t1*t2*t3/pow(rhob,3.333333333333333)-
2010 5.948240277777777*t14*t15*t16/pow(rhob,3.166666666666667)-
2011 3.1558125*t8*t9/pow(t141,7.0)-1.852355555555556*t4*t5*t6*t173;
2012 t480 = 1/
2013 pow(t161,7.0);
2014 t481 = 1.333333333333333*t118*(t425+t421)-.2962962962962963*
2015 pow(t184,3.0)*t423+1.333333333333333*t121*(t422+t424)-.2962962962962963*
2016 pow(t183,3.0)*t420+1.333333333333333*t184*t263*t330+1.333333333333333*
2017 t183*t257*t328;
2018 t482 = pow(gradb,13.0);
2019 t483 = 1/pow(rhob,20.66666666666667);
2020 t484 = 1/pow(rhob,19.66666666666667);
2021 t485 = 1/pow(rhoa,18.66666666666667);
2022 t486 = 1/pow(rhob,18.66666666666667);
2023
2024 /* code */
2025 dfdra = t50*t33*t54*t34*t55*rhoa-0.03109*t19*t49*t34*
2026 rhoa-0.75*t3*t35*t52*t57-1.0*t11*t3*t35*t41-0.03109*t19*t33*
2027 t34+t139*t148+t69*t137+.0021294577333333*t1*t2*t3*t19*t33*
2028 t12;
2029 dfdrb = t175*t160*t179*t147*t180*rhob-0.03109*t146*t174*
2030 t147*rhob-0.75*t177*t182*t3*t35-1.0*t142*t166*t3*t35+t69*t190+
2031 t191*t148-0.03109*t146*t160*t147+.0021294577333333*t1*t2*t3*
2032 t146*t160*t143;
2033 dfdga = -0.03109*t19*t197*t34*rhoa-0.75*t198*t3*t35*t52+
2034 t199*t148;
2035 dfdgb = -0.03109*t146*t205*t147*rhob-0.75*t177*t206*t3*
2036 t35+t207*t148;
2037 dfdgab = 0.0;
2038 d2fdrara = 2.0*t34*t49*t50*t54*t55*rhoa+t50*t33*t222*
2039 t34*t55*rhoa-2.0*t218*t220*t33*t34*t50*rhoa-0.03109*t19*t216*
2040 t34*rhoa+32.1646831778707*t217*t33*t218*t34*t219*rhoa-.3333333333333333*
2041 t3*t35*t41*t7-2.0*t11*t3*t35*t57+2.0*t33*t34*t50*t54*t55+.0014196384888889*
2042 t1*t2*t3*t19*t33*t53-0.75*t224*t3*t35*t52-0.06218*t19*t49*
2043 t34+t69*t294+t296*t148+2.0*t137*t139-.1369866666666666*t1*
2044 t2*t3*t50*t33*t54*t55*t12+.0042589154666667*t1*t2*t3*t19*t49*
2045 t12;
2046 d2fdrarb = t301*t148+t191*t137+t139*t190+t69*t300;
2047 d2fdraga = t50*t197*t54*t34*t55*rhoa-0.03109*t19*t304*
2048 t34*rhoa-0.75*t3*t305*t35*t52-1.0*t11*t198*t3*t35-0.03109*
2049 t19*t197*t34+t306*t148+t199*t137+.0021294577333333*t1*t2*t3*
2050 t19*t197*t12;
2051 d2fdragb = t307*t148+t207*t137;
2052 d2fdraab = 0.0;
2053 d2fdrbrb = -2.0*t147*t160*t175*t318*t320*rhob+32.1646831778707*
2054 t317*t160*t318*t147*t319*rhob+2.0*t147*t174*t175*t179*t180*
2055 rhob+t175*t160*t322*t147*t180*rhob-0.03109*t146*t316*t147*
2056 rhob-0.75*t177*t3*t324*t35-2.0*t142*t182*t3*t35-.3333333333333333*
2057 t140*t166*t3*t35+t69*t343+2.0*t190*t191+2.0*t147*t160*t175*
2058 t179*t180+.0014196384888889*t1*t2*t3*t146*t160*t178+t344*t148-
2059 0.06218*t146*t174*t147-.1369866666666666*t1*t2*t3*t175*t160*
2060 t179*t180*t143+.0042589154666667*t1*t2*t3*t146*t174*t143;
2061 d2fdrbga = t345*
2062 t148+t199*t190;
2063 d2fdrbgb = t175*t205*t179*t147*t180*rhob-0.03109*t146*
2064 t348*t147*rhob-0.75*t177*t3*t349*t35-1.0*t142*t206*t3*t35+
2065 t207*t190+t350*t148-0.03109*t146*t205*t147+.0021294577333333*
2066 t1*t2*t3*t146*t205*t143;
2067 d2fdrbgab = 0.0;
2068 d2fdgaga = -0.03109*t19*t352*t34*rhoa-0.75*t3*t35*t353*
2069 t52+t354*t148;
2070 d2fdgagb = t355*t148;
2071 d2fdgagab = 0.0;
2072 d2fdgbgb = -0.03109*t146*t357*t147*rhob-0.75*t177*t3*
2073 t35*t358+t359*t148;
2074 d2fdgbgab = 0.0;
2075 d2fdgabgab = 0.0;
2076 d3fdrarara = t69*(-1.0*t50*t373*t34*t55*rhoa+192.9880990672242*
2077 t217*t370*t34*t372*rhoa-2069.133687865597*t369*t370*t34*t371*
2078 rhoa+6.0*t50*t222*t54*t34*t220*rhoa-96.4940495336121*t217*
2079 t222*t54*t34*t219*rhoa-6.0*t50*t370*t34*t219*rhoa+t70*(240.0*
2080 t127*t273*t81*t90*t99+36.0*t122*t275*t81*t84*t99+12.0*t127*
2081 t267*t81*t84*t99+60.0*t122*t273*t81*t83*t99-12.0*t125*t267*
2082 t81*t83*t99-96.0*t122*t125*t127*t81*t99+t81*t83*t84*t426*t99+
2083 .0197517897025652*(t431+t430+t429-240.0*t127*t273)*t81*t86*
2084 t90*t93-.0021973866044104*t81*t1*t2*t3*t103*t277*t90*t93+.0029298488058805*
2085 t81*t1*t2*t3*t240*t128*t90*t93+.0197517897025652*t81*t85*t86*
2086 t426*t93+.0592553691076956*t81*t128*t86*t267*t93-.0021973866044104*
2087 t81*t1*t2*t3*t103*t85*t267*t93+.0592553691076956*t81*t277*
2088 t86*t122*t93+.0029298488058805*t81*t1*t2*t3*t240*t85*t122*
2089 t93-.0043947732088208*t81*t1*t2*t3*t103*t128*t122*t93+12.0*
2090 t127*t284*t81*t84*t90-96.0*t125*t127*t133*t81*t90+3.0*t122*
2091 t284*t81*t83*t84+3.0*t133*t267*t81*t83*t84+24.0*t122*t127*
2092 t133*t81*t84-24.0*t122*t125*t133*t81*t83+t439+t438+t437+t436+
2093 t435+t434+t433+t427+t419+t418+t417+t416+t415+t414+t413+t412+
2094 t411+t410+t409+t407+t401+t400+t399+t398+t397+t396+t395+t394+
2095 t392-51.9472676981276*t81*t128*t244*t86*t245*t90*t246-51.9472676981276*
2096 t81*t85*t244*t86*t245*t122*t246+3.508934038473122*t81*t128*
2097 t244*t86*t249*t90*t111-1.754467019236561*t81*t128*t252*t86*
2098 t110*t90*t111-1.754467019236561*t81*t277*t109*t86*t110*t90*
2099 t111+.1301229705933783*t81*t1*t2*t3*t103*t128*t109*t110*t90*
2100 t111-1.754467019236561*t81*t85*t109*t86*t110*t267*t111+3.508934038473122*
2101 t81*t85*t244*t86*t249*t122*t111-1.754467019236561*t81*t85*
2102 t252*t86*t110*t122*t111-3.508934038473122*t81*t128*t109*t86*
2103 t110*t122*t111+.1301229705933783*t81*t1*t2*t3*t103*t85*t109*
2104 t110*t122*t111)-96.0*t125*t127*t81*t90*t99+3.0*t267*t81*t83*
2105 t84*t99+24.0*t122*t127*t81*t84*t99-24.0*t122*t125*t81*t83*
2106 t99+.0592553691076956*t81*t277*t86*t90*t93-.0043947732088208*
2107 t81*t1*t2*t3*t103*t128*t90*t93+.0592553691076956*t81*t85*t86*
2108 t267*t93+.1185107382153912*t81*t128*t86*t122*t93-.0043947732088208*
2109 t81*t1*t2*t3*t103*t85*t122*t93+24.0*t127*t133*t81*t84*t90+
2110 6.0*t122*t133*t81*t83*t84-3.0*t50*t222*t34*t55+.1369866666666666*
2111 t1*t2*t3*t50*t54*t55*t53+t388+t387+t386+t385+t384+t383+t382+
2112 t381+t380+t379+t378+t377+t376+t375+.0018928513185185*t1*t2*
2113 t3*t19*t221+6.0*t50*t218*t34*t220-96.4940495336121*t217*t218*
2114 t34*t219+0.20548*t1*t2*t3*t50*t222*t55*t12-.4109599999999999*
2115 t1*t2*t3*t50*t218*t220*t12+6.60919909938887*t1*t2*t3*t217*
2116 t218*t219*t12-3.508934038473122*t81*t128*t109*t86*t110*t90*
2117 t111-3.508934038473122*t81*t85*t109*t86*t110*t122*t111)+3.0*
2118 t216*t34*t50*t54*t55*rhoa+3.0*t222*t34*t49*t50*t55*rhoa+t50*
2119 t373*t33*t34*t55*rhoa-6.0*t220*t222*t33*t34*t50*t54*rhoa-6.0*
2120 t218*t220*t34*t49*t50*rhoa+6.0*t219*t33*t34*t370*t50*rhoa-
2121 192.9880990672242*t217*t33*t370*t34*t372*rhoa+2069.133687865597*
2122 t369*t33*t370*t34*t371*rhoa-0.03109*t19*(2.379128888888889*
2123 t21*t32*t368-6.396465777777778*t29*t30*t367+15.31168853333334*
2124 t26*t27*t366-15.30310874074074*t20*t24*t365+6.274903077925926*
2125 t42*t43*t364-1.117824796444445*t208*t209*t363+.0723896092444445*
2126 t360*t361*t362)*t34*rhoa+96.4940495336121*t217*t33*t222*t54*
2127 t34*t219*rhoa+96.4940495336121*t217*t49*t218*t34*t219*rhoa-
2128 1.0*t3*t35*t57*t7+3.0*t222*t33*t34*t50*t55+6.0*t50*t49*t54*
2129 t34*t55-.1369866666666666*t1*t2*t3*t50*t33*t54*t55*t53+.0042589154666667*
2130 t1*t2*t3*t19*t49*t53-0.75*t3*t35*(0.136377837037037*t21*t40*
2131 t368-.0225424554666667*t29*t39*t367+5.091990148740739e-4*t26*
2132 t38*t366-4.693471702281481e-6*t20*t37*t365+2.142740322228149e-8*
2133 t42*t56*t364-4.84926204586667e-11*t208*t223*t363+4.36841421937778e-14*
2134 t360*t374*t362)*t52+.2222222222222222*t3*t35*t41*t51-6.0*t218*
2135 t220*t33*t34*t50-3.0*t11*t224*t3*t35-0.09327*t19*t216*t34+
2136 3.0*t137*t296+3.0*t139*t294-.0018928513185185*t1*t2*t3*t19*
2137 t33*t221+96.4940495336121*t217*t33*t218*t34*t219+(-.9486126222222223*
2138 t21*t368*t68+.0462770410666667*t21*t368*t60*t67+0.0445446144*
2139 t29*t367*t67-5.85170432e-4*t21*t368*t66*t65-0.0014791417344*
2140 t29*t367*t60*t65-2.440820736e-4*t26*t366*t65+3.389143296000001e-6*
2141 t21*t368*t64*t63+1.7743283712e-5*t29*t367*t66*t63+7.5286204416e-6*
2142 t26*t366*t60*t63-8.035163136e-9*t21*t368*t61*t138-9.726864998400001e-8*
2143 t29*t367*t64*t138-8.698724352e-8*t26*t366*t66*t138+2.0661848064e-10*
2144 t29*t367*t61*t295+4.5388283904e-10*t26*t366*t64*t295-9.0160791552e-13*
2145 t26*t366*t61*t440)*t148-.4109599999999999*t1*t2*t3*t50*t49*
2146 t54*t55*t12-0.20548*t1*t2*t3*t50*t33*t222*t55*t12+.4109599999999999*
2147 t1*t2*t3*t50*t33*t218*t220*t12-6.60919909938887*t1*t2*t3*t217*
2148 t33*t218*t219*t12+0.0063883732*t1*t2*t3*t19*t216*t12;
2149 d3fdrararb = t69*(t70*(80.0*t127*t273*t81*t90*t99+8.0*
2150 t127*t297*t81*t84*t99+12.0*t185*t275*t81*t84*t99-24.0*t122*
2151 t275*t81*t84*t99-4.0*t127*t267*t81*t84*t99+20.0*t185*t273*
2152 t81*t83*t99+40.0*t122*t273*t81*t83*t99-4.0*t125*t267*t81*t83*
2153 t99-32.0*t125*t127*t185*t81*t99+t81*t83*t84*t451*t99+.0197517897025652*
2154 (t456+t455+t429-80.0*t127*t273)*t81*t86*t90*t93-7.324622014701263e-4*
2155 t81*t1*t2*t3*t103*t277*t90*t93+9.766162686268349e-4*t81*t1*
2156 t2*t3*t240*t187*t90*t93+.0019532325372537*t81*t1*t2*t3*t240*
2157 t128*t90*t93+.0197517897025652*t81*t85*t86*t451*t93+.0395035794051304*
2158 t81*t128*t86*t297*t93+.0197517897025652*t81*t187*t86*t267*
2159 t93-7.324622014701263e-4*t81*t1*t2*t3*t103*t85*t267*t93+.0197517897025652*
2160 t81*t277*t86*t185*t93+9.766162686268349e-4*t81*t1*t2*t3*t240*
2161 t85*t185*t93+.0395035794051304*t81*t298*t86*t122*t93+.0019532325372537*
2162 t81*t1*t2*t3*t240*t85*t122*t93-.0014649244029403*t81*t1*t2*
2163 t3*t103*t128*t122*t93+4.0*t127*t284*t81*t84*t90-32.0*t125*
2164 t127*t133*t81*t90+2.0*t122*t284*t81*t83*t84+8.0*t127*t133*
2165 t185*t81*t84-8.0*t125*t133*t185*t81*t83-16.0*t122*t125*t133*
2166 t81*t83+t461+t460+t459+t458+t457+t454+t453+t452+t450+t449+
2167 t448+t447+t446+t437+t435+t434+t433+t427+t419+t418+t417+t416+
2168 t415+t414+t413+t412+t411+t410+t409+t407+t401+t400+t399+t398+
2169 t397+t396+t395+t394+t392+t81*t83*t84*t185*t284-17.31575589937587*
2170 t81*t187*t244*t86*t245*t90*t246-34.63151179875173*t81*t128*
2171 t244*t86*t245*t90*t246-17.31575589937587*t81*t85*t244*t86*
2172 t245*t185*t246-34.63151179875173*t81*t85*t244*t86*t245*t122*
2173 t246+t81*t83*t84*t267*t133+1.169644679491041*t81*t187*t244*
2174 t86*t249*t90*t111+2.339289358982082*t81*t128*t244*t86*t249*
2175 t90*t111-.5848223397455204*t81*t187*t252*t86*t110*t90*t111-
2176 1.169644679491041*t81*t128*t252*t86*t110*t90*t111-.5848223397455204*
2177 t81*t277*t109*t86*t110*t90*t111+.0433743235311261*t81*t1*t2*
2178 t3*t103*t187*t109*t110*t90*t111+.0867486470622522*t81*t1*t2*
2179 t3*t103*t128*t109*t110*t90*t111-.5848223397455204*t81*t85*
2180 t109*t86*t110*t267*t111+1.169644679491041*t81*t85*t244*t86*
2181 t249*t185*t111-.5848223397455204*t81*t85*t252*t86*t110*t185*
2182 t111+.0433743235311261*t81*t1*t2*t3*t103*t85*t109*t110*t185*
2183 t111+2.339289358982082*t81*t85*t244*t86*t249*t122*t111-1.169644679491041*
2184 t81*t85*t252*t86*t110*t122*t111-1.169644679491041*t81*t128*
2185 t109*t86*t110*t122*t111+.0867486470622522*t81*t1*t2*t3*t103*
2186 t85*t109*t110*t122*t111)+8.0*t127*t185*t81*t84*t99-16.0*t122*
2187 t125*t81*t83*t99-.0029298488058805*t81*t1*t2*t3*t103*t128*
2188 t90*t93-.0029298488058805*t81*t1*t2*t3*t103*t85*t122*t93+4.0*
2189 t122*t133*t81*t83*t84+t445+t444+t443+t442+t441+t387+t386+t385+
2190 t384+t383+t382+t381+t380+t379+t378+t377+t376+t375+t341+t338+
2191 t335+t333+t326+t325+t299+t292+t289+t288+t278+t270+t268-2.339289358982082*
2192 t81*t128*t109*t86*t110*t90*t111-2.339289358982082*t81*t85*
2193 t109*t86*t110*t122*t111)+2.0*t137*t301+2.0*t139*t300+t191*
2194 t294+t296*t190+(0.0148482048*t21*t58*t215*t67*t173-4.930472448e-4*
2195 t21*t58*t215*t60*t65*t173-2.440820736e-4*t29*t58*t214*t65*
2196 t173+5.914427903999999e-6*t21*t58*t215*t66*t63*t173+7.5286204416e-6*
2197 t29*t58*t214*t60*t63*t173-3.2422883328e-8*t21*t58*t215*t64*
2198 t138*t173-8.698724352e-8*t29*t58*t214*t66*t138*t173+6.887282688e-11*
2199 t21*t58*t215*t61*t295*t173+4.5388283904e-10*t29*t58*t214*t64*
2200 t295*t173-9.0160791552e-13*t29*t58*t214*t61*t440*t173)*t148;
2201 d3fdraraga = 2.0*
2202 t304*t34*t50*t54*t55*rhoa+t50*t197*t222*t34*t55*rhoa-2.0*t197*
2203 t218*t220*t34*t50*rhoa-0.03109*t19*(-1.019626666666667*grada*
2204 t32*t215+3.544597333333334*t196*t30*t214-9.320640000000001*
2205 t195*t27*t213+9.938358328888892*t194*t24*t212-4.306446108444446*
2206 t192*t43*t211+.8044359680000001*t302*t209*t210-.0542922069333334*
2207 t462*t361*t463)*t34*rhoa+32.1646831778707*t217*t197*t218*t34*
2208 t219*rhoa-.3333333333333333*t198*t3*t35*t7+2.0*t197*t34*t50*
2209 t54*t55+.0014196384888889*t1*t2*t3*t19*t197*t53-0.75*(-.0584476444444444*
2210 grada*t40*t215+.0123596458666667*t196*t39*t214-3.152200931555555e-4*
2211 t195*t38*t213+3.132750552177778e-6*t194*t37*t212-1.505224585671111e-8*
2212 t192*t56*t211+3.53456182613333e-11*t302*t223*t210-3.27631066453333e-14*
2213 t462*t374*t463)*t3*t35*t52-2.0*t11*t3*t305*t35-0.06218*t19*
2214 t304*t34+2.0*t137*t306+t199*t294+(.4065482666666667*grada*
2215 t215*t68-0.0198330176*grada*t215*t60*t67-0.0273341952*t196*
2216 t214*t67+2.50787328e-4*grada*t215*t66*t65+9.076551552e-4*t196*
2217 t214*t60*t65+1.830615552e-4*t195*t213*t65-1.452489984e-6*grada*
2218 t215*t64*t63-1.0887924096e-5*t196*t214*t66*t63-5.6464653312e-6*
2219 t195*t213*t60*t63+3.443641344e-9*grada*t215*t61*t138+5.968758067200001e-8*
2220 t196*t214*t64*t138+6.524043264e-8*t195*t213*t66*t138-1.2678861312e-10*
2221 t196*t214*t61*t295-3.4041212928e-10*t195*t213*t64*t295+6.7620593664e-13*
2222 t195*t213*t61*t440)*t148-.1369866666666666*t1*t2*t3*t50*t197*
2223 t54*t55*t12+.0042589154666667*t1*t2*t3*t19*t304*t12;
2224 d3fdraragb = 2.0*t137*t307+t207*t294+(-0.0111361536*t21*
2225 gradb*t215*t67*t59+3.697854336e-4*t21*gradb*t215*t60*t65*t59+
2226 1.830615552e-4*t29*gradb*t214*t65*t59-4.435820928e-6*t21*gradb*
2227 t215*t66*t63*t59-5.6464653312e-6*t29*gradb*t214*t60*t63*t59+
2228 2.431716249600001e-8*t21*gradb*t215*t64*t138*t59+6.524043264e-8*
2229 t29*gradb*t214*t66*t138*t59-5.165462016e-11*t21*gradb*t215*
2230 t61*t295*t59-3.4041212928e-10*t29*gradb*t214*t64*t295*t59+
2231 6.7620593664e-13*t29*gradb*t214*t61*t440*t59)*t148;
2232 d3fdraraab = 0.0;
2233 d3fdrarbrb = t69*(t70*(-80.0*t127*t273*t81*t90*t99+4.0*
2234 t127*t331*t81*t84*t99-8.0*t127*t297*t81*t84*t99-24.0*t185*
2235 t275*t81*t84*t99+12.0*t122*t275*t81*t84*t99-4.0*t125*t331*
2236 t81*t83*t99+40.0*t185*t273*t81*t83*t99+20.0*t122*t273*t81*
2237 t83*t99+32.0*t122*t125*t127*t81*t99+t81*t83*t84*t464*t99+.0197517897025652*
2238 (t455+t431+t429+80.0*t127*t273)*t81*t86*t90*t93-7.324622014701263e-4*
2239 t81*t1*t2*t3*t103*t336*t90*t93+.0019532325372537*t81*t1*t2*
2240 t3*t240*t187*t90*t93+9.766162686268349e-4*t81*t1*t2*t3*t240*
2241 t128*t90*t93+.0197517897025652*t81*t85*t86*t464*t93+.0197517897025652*
2242 t81*t128*t86*t331*t93-7.324622014701263e-4*t81*t1*t2*t3*t103*
2243 t85*t331*t93+.0395035794051304*t81*t187*t86*t297*t93+.0395035794051304*
2244 t81*t298*t86*t185*t93+.0019532325372537*t81*t1*t2*t3*t240*
2245 t85*t185*t93-.0014649244029403*t81*t1*t2*t3*t103*t187*t185*
2246 t93+.0197517897025652*t81*t336*t86*t122*t93+9.766162686268349e-4*
2247 t81*t1*t2*t3*t240*t85*t122*t93-4.0*t127*t284*t81*t84*t90+32.0*
2248 t125*t127*t133*t81*t90+2.0*t185*t284*t81*t83*t84-8.0*t122*
2249 t127*t133*t81*t84-16.0*t125*t133*t185*t81*t83-8.0*t122*t125*
2250 t133*t81*t83+t460+t459+t458+t457+t454+t453+t452+t450+t449+
2251 t448+t447+t446+t439+t437+t435+t434+t433+t427+t419+t418+t417+
2252 t416+t415+t414+t413+t412+t411+t410+t409+t407+t401+t400+t399+
2253 t398+t397+t396+t395+t394+t392+t81*t83*t84*t122*t284-34.63151179875173*
2254 t81*t187*t244*t86*t245*t90*t246-17.31575589937587*t81*t128*
2255 t244*t86*t245*t90*t246-34.63151179875173*t81*t85*t244*t86*
2256 t245*t185*t246-17.31575589937587*t81*t85*t244*t86*t245*t122*
2257 t246+t81*t83*t84*t331*t133+2.339289358982082*t81*t187*t244*
2258 t86*t249*t90*t111+1.169644679491041*t81*t128*t244*t86*t249*
2259 t90*t111-1.169644679491041*t81*t187*t252*t86*t110*t90*t111-
2260 .5848223397455204*t81*t128*t252*t86*t110*t90*t111-.5848223397455204*
2261 t81*t336*t109*t86*t110*t90*t111+.0867486470622522*t81*t1*t2*
2262 t3*t103*t187*t109*t110*t90*t111+.0433743235311261*t81*t1*t2*
2263 t3*t103*t128*t109*t110*t90*t111-.5848223397455204*t81*t85*
2264 t109*t86*t110*t331*t111+2.339289358982082*t81*t85*t244*t86*
2265 t249*t185*t111-1.169644679491041*t81*t85*t252*t86*t110*t185*
2266 t111-1.169644679491041*t81*t187*t109*t86*t110*t185*t111+.0867486470622522*
2267 t81*t1*t2*t3*t103*t85*t109*t110*t185*t111+1.169644679491041*
2268 t81*t85*t244*t86*t249*t122*t111-.5848223397455204*t81*t85*
2269 t252*t86*t110*t122*t111+.0433743235311261*t81*t1*t2*t3*t103*
2270 t85*t109*t110*t122*t111)-8.0*t122*t127*t81*t84*t99-16.0*t125*
2271 t185*t81*t83*t99-.0029298488058805*t81*t1*t2*t3*t103*t187*
2272 t90*t93-.0029298488058805*t81*t1*t2*t3*t103*t85*t185*t93+4.0*
2273 t133*t185*t81*t83*t84+t445+t444+t443+t442+t441+t387+t386+t385+
2274 t384+t383+t382+t381+t380+t379+t378+t377+t376+t375+t342+t340+
2275 t339+t337+t334+t332+t299+t290+t286+t271+t269+t254+t248-2.339289358982082*
2276 t81*t187*t109*t86*t110*t90*t111-2.339289358982082*t81*t85*
2277 t109*t86*t110*t185*t111)+t139*t343+2.0*t190*t301+2.0*t191*
2278 t300+(0.0148482048*t21*t58*t48*t67*t315-4.930472448e-4*t21*
2279 t58*t48*t60*t65*t315+5.914427903999999e-6*t21*t58*t48*t66*
2280 t63*t315-3.2422883328e-8*t21*t58*t48*t64*t138*t315+6.887282688e-11*
2281 t21*t58*t48*t61*t295*t315-2.440820736e-4*t21*t156*t48*t65*
2282 t314+7.5286204416e-6*t21*t156*t48*t60*t63*t314-8.698724352e-8*
2283 t21*t156*t48*t66*t138*t314+4.5388283904e-10*t21*t156*t48*t64*
2284 t295*t314-9.0160791552e-13*t21*t156*t48*t61*t440*t314)*t148+
2285 t344*t137;
2286 d3fdrarbga = (-0.0080990208*grada*t58*t48*t67*t173+2.689348608e-4*
2287 grada*t58*t48*t60*t65*t173+1.830615552e-4*t196*t58*t47*t65*
2288 t173-3.226051584e-6*grada*t58*t48*t66*t63*t173-5.6464653312e-6*
2289 t196*t58*t47*t60*t63*t173+1.7685209088e-8*grada*t58*t48*t64*
2290 t138*t173+6.524043264e-8*t196*t58*t47*t66*t138*t173-3.756699648e-11*
2291 grada*t58*t48*t61*t295*t173-3.4041212928e-10*t196*t58*t47*
2292 t64*t295*t173+6.7620593664e-13*t196*t58*t47*t61*t440*t173)*
2293 t148+t345*t137+t306*t190+t199*t300;
2294 d3fdrarbgb = (-0.0080990208*t21*gradb*t48*t67*t173+2.689348608e-4*
2295 t21*gradb*t48*t60*t65*t173-3.226051584e-6*t21*gradb*t48*t66*
2296 t63*t173+1.7685209088e-8*t21*gradb*t48*t64*t138*t173-3.756699648e-11*
2297 t21*gradb*t48*t61*t295*t173+1.830615552e-4*t21*t204*t48*t65*
2298 t172-5.6464653312e-6*t21*t204*t48*t60*t63*t172+6.524043264e-8*
2299 t21*t204*t48*t66*t138*t172-3.4041212928e-10*t21*t204*t48*t64*
2300 t295*t172+6.7620593664e-13*t21*t204*t48*t61*t440*t172)*t148+
2301 t350*t137+t307*t190+t207*t300;
2302 d3fdrarbab = 0.0;
2303 d3fdragaga = t50*t352*t54*t34*t55*rhoa-0.03109*t19*(0.27808*
2304 t32*t48-1.72*t21*t30*t47+5.289356800000001*t29*t27*t46-6.196311893333335*
2305 t26*t24*t45+2.891203925333334*t20*t43*t44-.5736359253333334*
2306 t42*t209*t303+0.0407191552*t208*t361*t465)*t34*rhoa-0.75*t3*
2307 t35*(.0159402666666667*t40*t48-.0059015509333333*t21*t39*t47+
2308 1.831061162666666e-4*t29*t38*t46-2.025869175466667e-6*t26*
2309 t37*t45+1.041496364373334e-8*t20*t56*t44-2.56133474986667e-11*
2310 t42*t223*t303+2.4572329984e-14*t208*t374*t465)*t52-1.0*t11*
2311 t3*t35*t353-0.03109*t19*t352*t34+(-0.1108768*t48*t68+0.0054090048*
2312 t48*t60*t67+0.015185664*t21*t47*t67-6.839654399999999e-5*t48*
2313 t66*t65-5.04252864e-4*t21*t47*t60*t65-1.372961664e-4*t29*t46*
2314 t65+3.96133632e-7*t48*t64*t63+6.04884672e-6*t21*t47*t66*t63+
2315 4.2348489984e-6*t29*t46*t60*t63-9.39174912e-10*t48*t61*t138-
2316 3.315976704e-8*t21*t47*t64*t138-4.893032448e-8*t29*t46*t66*
2317 t138+7.04381184e-11*t21*t47*t61*t295+2.5530909696e-10*t29*
2318 t46*t64*t295-5.0715445248e-13*t29*t46*t61*t440)*t148+t354*
2319 t137+.0021294577333333*t1*t2*t3*t19*t352*t12;
2320 d3fdragagb = (0.0060742656*grada*gradb*t48*t67*t59-2.017011456e-4*
2321 grada*gradb*t48*t60*t65*t59-1.372961664e-4*t196*gradb*t47*
2322 t65*t59+2.419538688e-6*grada*gradb*t48*t66*t63*t59+4.2348489984e-6*
2323 t196*gradb*t47*t60*t63*t59-1.3263906816e-8*grada*gradb*t48*
2324 t64*t138*t59-4.893032448e-8*t196*gradb*t47*t66*t138*t59+2.817524736e-11*
2325 grada*gradb*t48*t61*t295*t59+2.5530909696e-10*t196*gradb*t47*
2326 t64*t295*t59-5.0715445248e-13*t196*gradb*t47*t61*t440*t59)*
2327 t148+t355*t137;
2328 d3fdragaab = 0.0;
2329 d3fdragbgb = (0.0030371328*t21*t48*t67*t59-1.008505728e-4*
2330 t21*t48*t60*t65*t59+1.209769344e-6*t21*t48*t66*t63*t59-6.631953408000001e-9*
2331 t21*t48*t64*t138*t59+1.408762368e-11*t21*t48*t61*t295*t59-
2332 1.372961664e-4*t21*t58*t48*t65*t158+4.2348489984e-6*t21*t58*
2333 t48*t60*t63*t158-4.893032448e-8*t21*t58*t48*t66*t138*t158+
2334 2.5530909696e-10*t21*t58*t48*t64*t295*t158-5.0715445248e-13*
2335 t21*t58*t48*t61*t440*t158)*t148+t359*t137;
2336 d3fdragbab = 0.0;
2337 d3fdraabab = 0.0;
2338 d3fdrbrbrb = t69*(192.9880990672242*t317*t476*t147*t478*
2339 rhob-2069.133687865597*t475*t476*t147*t477*rhob+6.0*t175*t322*
2340 t179*t147*t320*rhob-6.0*t175*t476*t147*t319*rhob-96.4940495336121*
2341 t317*t322*t179*t147*t319*rhob-1.0*t175*t479*t147*t180*rhob+
2342 t70*(-240.0*t127*t273*t81*t90*t99-12.0*t127*t331*t81*t84*t99+
2343 36.0*t185*t275*t81*t84*t99-12.0*t125*t331*t81*t83*t99+60.0*
2344 t185*t273*t81*t83*t99+96.0*t125*t127*t185*t81*t99+t81*t83*
2345 t84*t481*t99+.0197517897025652*(t456+t430+t429+240.0*t127*
2346 t273)*t81*t86*t90*t93-.0021973866044104*t81*t1*t2*t3*t103*
2347 t336*t90*t93+.0029298488058805*t81*t1*t2*t3*t240*t187*t90*
2348 t93+.0197517897025652*t81*t85*t86*t481*t93+.0592553691076956*
2349 t81*t187*t86*t331*t93-.0021973866044104*t81*t1*t2*t3*t103*
2350 t85*t331*t93+.0592553691076956*t81*t336*t86*t185*t93+.0029298488058805*
2351 t81*t1*t2*t3*t240*t85*t185*t93-.0043947732088208*t81*t1*t2*
2352 t3*t103*t187*t185*t93-12.0*t127*t284*t81*t84*t90+96.0*t125*
2353 t127*t133*t81*t90+3.0*t133*t331*t81*t83*t84+3.0*t185*t284*
2354 t81*t83*t84-24.0*t127*t133*t185*t81*t84-24.0*t125*t133*t185*
2355 t81*t83+t461+t438+t437+t436+t435+t434+t433+t427+t419+t418+
2356 t417+t416+t415+t414+t413+t412+t411+t410+t409+t407+t401+t400+
2357 t399+t398+t397+t396+t395+t394+t392-51.9472676981276*t81*t187*
2358 t244*t86*t245*t90*t246-51.9472676981276*t81*t85*t244*t86*t245*
2359 t185*t246+3.508934038473122*t81*t187*t244*t86*t249*t90*t111-
2360 1.754467019236561*t81*t187*t252*t86*t110*t90*t111-1.754467019236561*
2361 t81*t336*t109*t86*t110*t90*t111+.1301229705933783*t81*t1*t2*
2362 t3*t103*t187*t109*t110*t90*t111-1.754467019236561*t81*t85*
2363 t109*t86*t110*t331*t111+3.508934038473122*t81*t85*t244*t86*
2364 t249*t185*t111-1.754467019236561*t81*t85*t252*t86*t110*t185*
2365 t111-3.508934038473122*t81*t187*t109*t86*t110*t185*t111+.1301229705933783*
2366 t81*t1*t2*t3*t103*t85*t109*t110*t185*t111)+96.0*t125*t127*
2367 t81*t90*t99+3.0*t331*t81*t83*t84*t99-24.0*t127*t185*t81*t84*
2368 t99-24.0*t125*t185*t81*t83*t99+.0592553691076956*t81*t336*
2369 t86*t90*t93-.0043947732088208*t81*t1*t2*t3*t103*t187*t90*t93+
2370 .0592553691076956*t81*t85*t86*t331*t93+.1185107382153912*t81*
2371 t187*t86*t185*t93-.0043947732088208*t81*t1*t2*t3*t103*t85*
2372 t185*t93-24.0*t127*t133*t81*t84*t90+6.0*t133*t185*t81*t83*
2373 t84+t388+t387+t386+t385+t384+t383+t382+t381+t380+t379+t378+
2374 t377+t376+t375+.0018928513185185*t1*t2*t3*t146*t321+6.0*t175*
2375 t318*t147*t320-96.4940495336121*t317*t318*t147*t319-3.0*t175*
2376 t322*t147*t180+.1369866666666666*t1*t2*t3*t175*t179*t180*t178-
2377 .4109599999999999*t1*t2*t3*t175*t318*t320*t143+6.60919909938887*
2378 t1*t2*t3*t317*t318*t319*t143+0.20548*t1*t2*t3*t175*t322*t180*
2379 t143-3.508934038473122*t81*t187*t109*t86*t110*t90*t111-3.508934038473122*
2380 t81*t85*t109*t86*t110*t185*t111)-192.9880990672242*t317*t160*
2381 t476*t147*t478*rhob+2069.133687865597*t475*t160*t476*t147*
2382 t477*rhob+6.0*t147*t160*t175*t319*t476*rhob-6.0*t147*t160*
2383 t175*t179*t320*t322*rhob+3.0*t147*t174*t175*t180*t322*rhob-
2384 6.0*t147*t174*t175*t318*t320*rhob+96.4940495336121*t317*t174*
2385 t318*t147*t319*rhob+96.4940495336121*t317*t160*t322*t179*t147*
2386 t319*rhob+3.0*t147*t175*t179*t180*t316*rhob+t175*t479*t160*
2387 t147*t180*rhob-0.03109*t146*(2.379128888888889*t58*t159*t474-
2388 6.396465777777778*t156*t157*t473+15.31168853333334*t153*t154*
2389 t472-15.30310874074074*t149*t151*t471+6.274903077925926*t167*
2390 t168*t470-1.117824796444445*t308*t309*t469+.0723896092444445*
2391 t466*t467*t468)*t147*rhob-0.75*t177*t3*t35*(0.136377837037037*
2392 t58*t165*t474-.0225424554666667*t156*t164*t473+5.091990148740739e-4*
2393 t153*t163*t472-4.693471702281481e-6*t149*t162*t471+2.142740322228149e-8*
2394 t167*t181*t470-4.84926204586667e-11*t308*t323*t469+4.36841421937778e-14*
2395 t466*t480*t468)-3.0*t142*t3*t324*t35-1.0*t140*t182*t3*t35+
2396 .2222222222222222*t166*t176*t3*t35+3.0*t190*t344+3.0*t191*
2397 t343+3.0*t147*t160*t175*t180*t322-.0018928513185185*t1*t2*
2398 t3*t146*t160*t321-6.0*t147*t160*t175*t318*t320+96.4940495336121*
2399 t317*t160*t318*t147*t319+6.0*t175*t174*t179*t147*t180-.1369866666666666*
2400 t1*t2*t3*t175*t160*t179*t180*t178+.0042589154666667*t1*t2*
2401 t3*t146*t174*t178+(-.9486126222222223*t58*t68*t474+.0462770410666667*
2402 t58*t60*t67*t474-5.85170432e-4*t58*t66*t65*t474+3.389143296000001e-6*
2403 t58*t64*t63*t474-8.035163136e-9*t58*t61*t138*t474+0.0445446144*
2404 t156*t67*t473-0.0014791417344*t156*t60*t65*t473+1.7743283712e-5*
2405 t156*t66*t63*t473-9.726864998400001e-8*t156*t64*t138*t473+
2406 2.0661848064e-10*t156*t61*t295*t473-2.440820736e-4*t153*t65*
2407 t472+7.5286204416e-6*t153*t60*t63*t472-8.698724352e-8*t153*
2408 t66*t138*t472+4.5388283904e-10*t153*t64*t295*t472-9.0160791552e-13*
2409 t153*t61*t440*t472)*t148-0.09327*t146*t316*t147+.4109599999999999*
2410 t1*t2*t3*t175*t160*t318*t320*t143-6.60919909938887*t1*t2*t3*
2411 t317*t160*t318*t319*t143+0.0063883732*t1*t2*t3*t146*t316*t143-
2412 0.20548*t1*t2*t3*t175*t160*t322*t180*t143-.4109599999999999*
2413 t1*t2*t3*t175*t174*t179*t180*t143;
2414 d3fdrbrbga = 2.0*t190*t345+t199*t343+(-0.0111361536*grada*
2415 t58*t22*t67*t315+3.697854336e-4*grada*t58*t22*t60*t65*t315-
2416 4.435820928e-6*grada*t58*t22*t66*t63*t315+2.431716249600001e-8*
2417 grada*t58*t22*t64*t138*t315-5.165462016e-11*grada*t58*t22*
2418 t61*t295*t315+1.830615552e-4*grada*t156*t22*t65*t314-5.6464653312e-6*
2419 grada*t156*t22*t60*t63*t314+6.524043264e-8*grada*t156*t22*
2420 t66*t138*t314-3.4041212928e-10*grada*t156*t22*t64*t295*t314+
2421 6.7620593664e-13*grada*t156*t22*t61*t440*t314)*t148;
2422 d3fdrbrbgb = 2.0*t147*t175*t179*t180*t348*rhob-2.0*t147*
2423 t175*t205*t318*t320*rhob+32.1646831778707*t317*t205*t318*t147*
2424 t319*rhob+t175*t205*t322*t147*t180*rhob-0.03109*t146*(-1.019626666666667*
2425 gradb*t159*t315+3.544597333333334*t204*t157*t314-9.320640000000001*
2426 t203*t154*t313+9.938358328888892*t202*t151*t312-4.306446108444446*
2427 t200*t168*t311+.8044359680000001*t346*t309*t310-.0542922069333334*
2428 t482*t467*t483)*t147*rhob+2.0*t190*t350-2.0*t142*t3*t349*t35-
2429 0.75*t177*t3*(-.0584476444444444*gradb*t165*t315+.0123596458666667*
2430 t204*t164*t314-3.152200931555555e-4*t203*t163*t313+3.132750552177778e-6*
2431 t202*t162*t312-1.505224585671111e-8*t200*t181*t311+3.53456182613333e-11*
2432 t346*t323*t310-3.27631066453333e-14*t482*t480*t483)*t35-.3333333333333333*
2433 t140*t206*t3*t35+t207*t343+2.0*t147*t175*t179*t180*t205+.0014196384888889*
2434 t1*t2*t3*t146*t205*t178+(.4065482666666667*gradb*t68*t315-
2435 0.0198330176*gradb*t60*t67*t315+2.50787328e-4*gradb*t66*t65*
2436 t315-1.452489984e-6*gradb*t64*t63*t315+3.443641344e-9*gradb*
2437 t61*t138*t315-0.0273341952*t204*t67*t314+9.076551552e-4*t204*
2438 t60*t65*t314-1.0887924096e-5*t204*t66*t63*t314+5.968758067200001e-8*
2439 t204*t64*t138*t314-1.2678861312e-10*t204*t61*t295*t314+1.830615552e-4*
2440 t203*t65*t313-5.6464653312e-6*t203*t60*t63*t313+6.524043264e-8*
2441 t203*t66*t138*t313-3.4041212928e-10*t203*t64*t295*t313+6.7620593664e-13*
2442 t203*t61*t440*t313)*t148-0.06218*t146*t348*t147+.0042589154666667*
2443 t1*t2*t3*t146*t348*t143-.1369866666666666*t1*t2*t3*t175*t205*
2444 t179*t180*t143;
2445 d3fdrbrbab = 0.0;
2446 d3fdrbgaga = (0.0030371328*t58*t22*t67*t173-1.008505728e-4*
2447 t58*t22*t60*t65*t173-1.372961664e-4*t21*t58*t31*t65*t173+1.209769344e-6*
2448 t58*t22*t66*t63*t173+4.2348489984e-6*t21*t58*t31*t60*t63*t173-
2449 6.631953408000001e-9*t58*t22*t64*t138*t173-4.893032448e-8*
2450 t21*t58*t31*t66*t138*t173+1.408762368e-11*t58*t22*t61*t295*
2451 t173+2.5530909696e-10*t21*t58*t31*t64*t295*t173-5.0715445248e-13*
2452 t21*t58*t31*t61*t440*t173)*t148+t354*t190;
2453 d3fdrbgagb = (0.0060742656*grada*gradb*t22*t67*t173-2.017011456e-4*
2454 grada*gradb*t22*t60*t65*t173+2.419538688e-6*grada*gradb*t22*
2455 t66*t63*t173-1.3263906816e-8*grada*gradb*t22*t64*t138*t173+
2456 2.817524736e-11*grada*gradb*t22*t61*t295*t173-1.372961664e-4*
2457 grada*t204*t22*t65*t172+4.2348489984e-6*grada*t204*t22*t60*
2458 t63*t172-4.893032448e-8*grada*t204*t22*t66*t138*t172+2.5530909696e-10*
2459 grada*t204*t22*t64*t295*t172-5.0715445248e-13*grada*t204*t22*
2460 t61*t440*t172)*t148+t355*t190;
2461 d3fdrbgaab = 0.0;
2462 d3fdrbgbgb = t175*t357*t179*t147*t180*rhob-0.03109*t146*
2463 (0.27808*t159*t173-1.72*t58*t157*t172+5.289356800000001*t156*
2464 t154*t171-6.196311893333335*t153*t151*t170+2.891203925333334*
2465 t149*t168*t169-.5736359253333334*t167*t309*t347+0.0407191552*
2466 t308*t467*t484)*t147*rhob-1.0*t142*t3*t35*t358-0.75*(.0159402666666667*
2467 t165*t173-.0059015509333333*t58*t164*t172+1.831061162666666e-4*
2468 t156*t163*t171-2.025869175466667e-6*t153*t162*t170+1.041496364373334e-8*
2469 t149*t181*t169-2.56133474986667e-11*t167*t323*t347+2.4572329984e-14*
2470 t308*t480*t484)*t177*t3*t35+t359*t190+(-0.1108768*t68*t173+
2471 0.0054090048*t60*t67*t173-6.839654399999999e-5*t66*t65*t173+
2472 3.96133632e-7*t64*t63*t173-9.39174912e-10*t61*t138*t173+0.015185664*
2473 t58*t67*t172-5.04252864e-4*t58*t60*t65*t172+6.04884672e-6*
2474 t58*t66*t63*t172-3.315976704e-8*t58*t64*t138*t172+7.04381184e-11*
2475 t58*t61*t295*t172-1.372961664e-4*t156*t65*t171+4.2348489984e-6*
2476 t156*t60*t63*t171-4.893032448e-8*t156*t66*t138*t171+2.5530909696e-10*
2477 t156*t64*t295*t171-5.0715445248e-13*t156*t61*t440*t171)*t148-
2478 0.03109*t146*t357*t147+.0021294577333333*t1*t2*t3*t146*t357*
2479 t143;
2480 d3fdrbgbab = 0.0;
2481 d3fdrbabab = 0.0;
2482 d3fdgagaga = -0.03109*t19*(0.665856*grada*t30*t31-2.727897600000001*
2483 t196*t27*t28+3.671293440000001*t195*t24*t25-1.890872832000001*
2484 t194*t43*t193+.4047774720000001*t192*t209*t351-0.0305393664*
2485 t302*t361*t485)*t34*rhoa-0.75*t3*(0.002236992*grada*t39*t31-
2486 9.739084800000001e-5*t196*t38*t28+1.259367628800001e-6*t195*
2487 t37*t25-7.081087795200001e-9*t194*t56*t193+1.8442125312e-11*
2488 t192*t223*t351-1.8429247488e-14*t302*t374*t485)*t35*t52+(-
2489 0.0068335488*grada*t31*t67+2.269137888e-4*grada*t31*t60*t65+
2490 1.029721248e-4*t196*t28*t65-2.721981024000001e-6*grada*t31*
2491 t66*t63-3.1761367488e-6*t196*t28*t60*t63+1.4921895168e-8*grada*
2492 t31*t64*t138+3.669774336000001e-8*t196*t28*t66*t138-3.169715328e-11*
2493 grada*t31*t61*t295-1.9148182272e-10*t196*t28*t64*t295+3.8036583936e-13*
2494 t196*t28*t61*t440)*t148;
2495 d3fdgagagb = (-0.0022778496*gradb*t22*t67*t59+7.563792960000001e-5*
2496 gradb*t22*t60*t65*t59+1.029721248e-4*t21*gradb*t31*t65*t59-
2497 9.073270080000002e-7*gradb*t22*t66*t63*t59-3.1761367488e-6*
2498 t21*gradb*t31*t60*t63*t59+4.973965056000001e-9*gradb*t22*t64*
2499 t138*t59+3.669774336000001e-8*t21*gradb*t31*t66*t138*t59-1.056571776e-11*
2500 gradb*t22*t61*t295*t59-1.9148182272e-10*t21*gradb*t31*t64*
2501 t295*t59+3.8036583936e-13*t21*gradb*t31*t61*t440*t59)*t148;
2502 d3fdgagaab = 0.0;
2503 d3fdgagbgb = (-
2504 0.0022778496*grada*t22*t67*t59+7.563792960000001e-5*grada*
2505 t22*t60*t65*t59-9.073270080000002e-7*grada*t22*t66*t63*t59+
2506 4.973965056000001e-9*grada*t22*t64*t138*t59-1.056571776e-11*
2507 grada*t22*t61*t295*t59+1.029721248e-4*grada*t58*t22*t65*t158-
2508 3.1761367488e-6*grada*t58*t22*t60*t63*t158+3.669774336000001e-8*
2509 grada*t58*t22*t66*t138*t158-1.9148182272e-10*grada*t58*t22*
2510 t64*t295*t158+3.8036583936e-13*grada*t58*t22*t61*t440*t158)*
2511 t148;
2512 d3fdgagbab = 0.0;
2513 d3fdgaabab = 0.0;
2514 d3fdgbgbgb = -0.03109*t146*(0.665856*gradb*t157*t158-
2515 2.727897600000001*t204*t154*t155+3.671293440000001*t203*t151*
2516 t152-1.890872832000001*t202*t168*t201+.4047774720000001*t200*
2517 t309*t356-0.0305393664*t346*t467*t486)*t147*rhob-0.75*(0.002236992*
2518 gradb*t164*t158-9.739084800000001e-5*t204*t163*t155+1.259367628800001e-6*
2519 t203*t162*t152-7.081087795200001e-9*t202*t181*t201+1.8442125312e-11*
2520 t200*t323*t356-1.8429247488e-14*t346*t480*t486)*t177*t3*t35+
2521 (-0.0068335488*gradb*t67*t158+2.269137888e-4*gradb*t60*t65*
2522 t158-2.721981024000001e-6*gradb*t66*t63*t158+1.4921895168e-8*
2523 gradb*t64*t138*t158-3.169715328e-11*gradb*t61*t295*t158+1.029721248e-4*
2524 t204*t65*t155-3.1761367488e-6*t204*t60*t63*t155+3.669774336000001e-8*
2525 t204*t66*t138*t155-1.9148182272e-10*t204*t64*t295*t155+3.8036583936e-13*
2526 t204*t61*t440*t155)*t148;
2527 d3fdgbgbab = 0.0;
2528 d3fdgbabab = 0.0;
2529 d3fdababab = 0.0;
2530
2531
2532 ds->df1000 += factor*dfdra;
2533 ds->df0100 += factor*dfdrb;
2534 ds->df0010 += factor*dfdga;
2535 ds->df0001 += factor*dfdgb;
2536 ds->df00001+= factor*dfdgab;
2537
2538 ds->df2000 += factor*d2fdrara;
2539 ds->df1100 += factor*d2fdrarb;
2540 ds->df1010 += factor*d2fdraga;
2541 ds->df1001 += factor*d2fdragb;
2542 ds->df10001+= factor*d2fdraab;
2543 ds->df0200 += factor*d2fdrbrb;
2544 ds->df0110 += factor*d2fdrbga;
2545 ds->df0101 += factor*d2fdrbgb;
2546 ds->df01001+= factor*d2fdrbgab;
2547 ds->df0020 += factor*d2fdgaga;
2548 ds->df0011 += factor*d2fdgagb;
2549 ds->df00101+= factor*d2fdgagab;
2550 ds->df0002 += factor*d2fdgbgb;
2551 ds->df00011+= factor*d2fdgbgab;
2552 ds->df00002+= factor*d2fdgabgab;
2553
2554 ds->df3000 += factor*d3fdrarara;
2555 ds->df2100 += factor*d3fdrararb;
2556 ds->df2010 += factor*d3fdraraga;
2557 ds->df2001 += factor*d3fdraragb;
2558 ds->df20001 += factor*d3fdraraab;
2559 ds->df1200 += factor*d3fdrarbrb;
2560 ds->df1110 += factor*d3fdrarbga;
2561 ds->df1101 += factor*d3fdrarbgb;
2562 ds->df11001 += factor*d3fdrarbab;
2563 ds->df1020 += factor*d3fdragaga;
2564 ds->df1011 += factor*d3fdragagb;
2565 ds->df10101 += factor*d3fdragaab;
2566 ds->df1002 += factor*d3fdragbgb;
2567 ds->df10011 += factor*d3fdragbab;
2568 ds->df10002 += factor*d3fdraabab;
2569 ds->df0300 += factor*d3fdrbrbrb;
2570 ds->df0210 += factor*d3fdrbrbga;
2571 ds->df0201 += factor*d3fdrbrbgb;
2572 ds->df02001 += factor*d3fdrbrbab;
2573 ds->df0120 += factor*d3fdrbgaga;
2574 ds->df0111 += factor*d3fdrbgagb;
2575 ds->df01101 += factor*d3fdrbgaab;
2576 ds->df0102 += factor*d3fdrbgbgb;
2577 ds->df01011 += factor*d3fdrbgbab;
2578 ds->df01002 += factor*d3fdrbabab;
2579 ds->df0030 += factor*d3fdgagaga;
2580 ds->df0021 += factor*d3fdgagagb;
2581 ds->df00201 += factor*d3fdgagaab;
2582 ds->df0012 += factor*d3fdgagbgb;
2583 ds->df00111 += factor*d3fdgagbab;
2584 ds->df00102 += factor*d3fdgaabab;
2585 ds->df0003 += factor*d3fdgbgbgb;
2586 ds->df00021 += factor*d3fdgbgbab;
2587 ds->df00012 += factor*d3fdgbabab;
2588 ds->df00003 += factor*d3fdababab;
2589
2590 }
2591
2592 static void
hcth120_fourth(FunFourthFuncDrv * ds,real factor,const FunDensProp * dp)2593 hcth120_fourth(FunFourthFuncDrv *ds, real factor, const FunDensProp* dp)
2594 {
2595 real dfdra, dfdrb, dfdga, dfdgb, dfdgab;
2596 real d2fdrara, d2fdrarb, d2fdraga, d2fdragb, d2fdraab, d2fdrbrb,
2597 d2fdrbga, d2fdrbgb, d2fdrbgab, d2fdgaga, d2fdgagb, d2fdgagab,
2598 d2fdgbgb, d2fdgbgab, d2fdgabgab;
2599 real d3fdrarara, d3fdrararb, d3fdraraga, d3fdraragb, d3fdraraab,
2600 d3fdrarbrb, d3fdrarbga, d3fdrarbgb, d3fdrarbab, d3fdragaga,
2601 d3fdragagb, d3fdragaab, d3fdragbgb, d3fdragbab, d3fdraabab,
2602 d3fdrbrbrb, d3fdrbrbga, d3fdrbrbgb, d3fdrbrbab, d3fdrbgaga,
2603 d3fdrbgagb, d3fdrbgaab, d3fdrbgbgb, d3fdrbgbab, d3fdrbabab,
2604 d3fdgagaga, d3fdgagagb, d3fdgagaab, d3fdgagbgb, d3fdgagbab,
2605 d3fdgaabab, d3fdgbgbgb, d3fdgbgbab, d3fdgbabab, d3fdababab;
2606 real d4fdrararara, d4fdrarararb, d4fdrararaga, d4fdrararagb,
2607 d4fdrararaab, d4fdrararbrb, d4fdrararbga, d4fdrararbgb, d4fdrararbab,
2608 d4fdraragaga, d4fdraragagb, d4fdraragaab, d4fdraragbgb, d4fdraragbab,
2609 d4fdraraabab, d4fdrarbrbrb, d4fdrarbrbga, d4fdrarbrbgb, d4fdrarbrbab,
2610 d4fdrarbgaga, d4fdrarbgagb, d4fdrarbgaab, d4fdrarbgbgb, d4fdrarbgbab,
2611 d4fdrarbabab, d4fdragagaga, d4fdragagagb, d4fdragagaab, d4fdragagbgb,
2612 d4fdragagbab, d4fdragaabab, d4fdragbgbgb, d4fdragbgbab, d4fdragbabab,
2613 d4fdraababab, d4fdrbrbrbrb, d4fdrbrbrbga, d4fdrbrbrbgb, d4fdrbrbrbab,
2614 d4fdrbrbgaga, d4fdrbrbgagb, d4fdrbrbgaab, d4fdrbrbgbgb, d4fdrbrbgbab,
2615 d4fdrbrbabab, d4fdrbgagaga, d4fdrbgagagb, d4fdrbgagaab, d4fdrbgagbgb,
2616 d4fdrbgagbab, d4fdrbgaabab, d4fdrbgbgbgb, d4fdrbgbgbab, d4fdrbgbabab,
2617 d4fdrbababab, d4fdgagagaga, d4fdgagagagb, d4fdgagagaab, d4fdgagagbgb,
2618 d4fdgagagbab, d4fdgagaabab, d4fdgagbgbgb, d4fdgagbgbab, d4fdgagbabab,
2619 d4fdgaababab, d4fdgbgbgbgb, d4fdgbgbgbab, d4fdgbgbabab, d4fdgbababab,
2620 d4fdabababab;
2621 real rhoa = dp->rhoa, rhob = dp->rhob;
2622 real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;
2623
2624 real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
2625 real t11, t12, t13, t14, t15, t16, t17, t18;
2626 real t19, t20, t21, t22, t23, t24, t25, t26;
2627 real t27, t28, t29, t30, t31, t32, t33, t34;
2628 real t35, t36, t37, t38, t39, t40, t41, t42;
2629 real t43, t44, t45, t46, t47, t48, t49, t50;
2630 real t51, t52, t53, t54, t55, t56, t57, t58;
2631 real t59, t60, t61, t62, t63, t64, t65, t66;
2632 real t67, t68, t69, t70, t71, t72, t73, t74;
2633 real t75, t76, t77, t78, t79, t80, t81, t82;
2634 real t83, t84, t85, t86, t87, t88, t89, t90;
2635 real t91, t92, t93, t94, t95, t96, t97, t98;
2636 real t99, t100, t101, t102, t103, t104, t105;
2637 real t106, t107, t108, t109, t110, t111, t112;
2638 real t113, t114, t115, t116, t117, t118, t119;
2639 real t120, t121, t122, t123, t124, t125, t126;
2640 real t127, t128, t129, t130, t131, t132, t133;
2641 real t134, t135, t136, t137, t138, t139, t140;
2642 real t141, t142, t143, t144, t145, t146, t147;
2643 real t148, t149, t150, t151, t152, t153, t154;
2644 real t155, t156, t157, t158, t159, t160, t161;
2645 real t162, t163, t164, t165, t166, t167, t168;
2646 real t169, t170, t171, t172, t173, t174, t175;
2647 real t176, t177, t178, t179, t180, t181, t182;
2648 real t183, t184, t185, t186, t187, t188, t189;
2649 real t190, t191, t192, t193, t194, t195, t196;
2650 real t197, t198, t199, t200, t201, t202, t203;
2651 real t204, t205, t206, t207, t208, t209, t210;
2652 real t211, t212, t213, t214, t215, t216, t217;
2653 real t218, t219, t220, t221, t222, t223, t224;
2654 real t225, t226, t227, t228, t229, t230, t231;
2655 real t232, t233, t234, t235, t236, t237, t238;
2656 real t239, t240, t241, t242, t243, t244, t245;
2657 real t246, t247, t248, t249, t250, t251, t252;
2658 real t253, t254, t255, t256, t257, t258, t259;
2659 real t260, t261, t262, t263, t264, t265, t266;
2660 real t267, t268, t269, t270, t271, t272, t273;
2661 real t274, t275, t276, t277, t278, t279, t280;
2662 real t281, t282, t283, t284, t285, t286, t287;
2663 real t288, t289, t290, t291, t292, t293, t294;
2664 real t295, t296, t297, t298, t299, t300, t301;
2665 real t302, t303, t304, t305, t306, t307, t308;
2666 real t309, t310, t311, t312, t313, t314, t315;
2667 real t316, t317, t318, t319, t320, t321, t322;
2668 real t323, t324, t325, t326, t327, t328, t329;
2669 real t330, t331, t332, t333, t334, t335, t336;
2670 real t337, t338, t339, t340, t341, t342, t343;
2671 real t344, t345, t346, t347, t348, t349, t350;
2672 real t351, t352, t353, t354, t355, t356, t357;
2673 real t358, t359, t360, t361, t362, t363, t364;
2674 real t365, t366, t367, t368, t369, t370, t371;
2675 real t372, t373, t374, t375, t376, t377, t378;
2676 real t379, t380, t381, t382, t383, t384, t385;
2677 real t386, t387, t388, t389, t390, t391, t392;
2678 real t393, t394, t395, t396, t397, t398, t399;
2679 real t400, t401, t402, t403, t404, t405, t406;
2680 real t407, t408, t409, t410, t411, t412, t413;
2681 real t414, t415, t416, t417, t418, t419, t420;
2682 real t421, t422, t423, t424, t425, t426, t427;
2683 real t428, t429, t430, t431, t432, t433, t434;
2684 real t435, t436, t437, t438, t439, t440, t441;
2685 real t442, t443, t444, t445, t446, t447, t448;
2686 real t449, t450, t451, t452, t453, t454, t455;
2687 real t456, t457, t458, t459, t460, t461, t462;
2688 real t463, t464, t465, t466, t467, t468, t469;
2689 real t470, t471, t472, t473, t474, t475, t476;
2690 real t477, t478, t479, t480, t481, t482, t483;
2691 real t484, t485, t486, t487, t488, t489, t490;
2692 real t491, t492, t493, t494, t495, t496, t497;
2693 real t498, t499, t500, t501, t502, t503, t504;
2694 real t505, t506, t507, t508, t509, t510, t511;
2695 real t512, t513, t514, t515, t516, t517, t518;
2696 real t519, t520, t521, t522, t523, t524, t525;
2697 real t526, t527, t528, t529, t530, t531, t532;
2698 real t533, t534, t535, t536, t537, t538, t539;
2699 real t540, t541, t542, t543, t544, t545, t546;
2700 real t547, t548, t549, t550, t551, t552, t553;
2701 real t554, t555, t556, t557, t558, t559, t560;
2702 real t561, t562, t563, t564, t565, t566, t567;
2703 real t568, t569, t570, t571, t572, t573, t574;
2704 real t575, t576, t577, t578, t579, t580, t581;
2705 real t582, t583, t584, t585, t586, t587, t588;
2706 real t589, t590, t591, t592, t593, t594, t595;
2707 real t596, t597, t598, t599, t600, t601, t602;
2708 real t603, t604, t605, t606, t607, t608, t609;
2709 real t610, t611, t612, t613, t614, t615, t616;
2710 real t617, t618, t619, t620, t621, t622, t623;
2711 real t624, t625, t626, t627, t628, t629, t630;
2712 real t631, t632, t633, t634, t635, t636, t637;
2713 real t638, t639, t640, t641, t642, t643, t644;
2714 real t645, t646, t647, t648, t649, t650, t651;
2715 real t652, t653, t654, t655, t656, t657, t658;
2716 real t659, t660, t661, t662, t663, t664, t665;
2717 real t666, t667, t668, t669, t670, t671, t672;
2718 real t673, t674, t675, t676, t677, t678, t679;
2719 real t680, t681, t682, t683, t684, t685, t686;
2720 real t687, t688, t689, t690, t691, t692, t693;
2721 real t694, t695, t696, t697, t698, t699, t700;
2722 real t701, t702, t703, t704, t705, t706, t707;
2723 real t708, t709, t710, t711, t712, t713, t714;
2724 real t715, t716, t717, t718, t719, t720, t721;
2725 real t722, t723, t724, t725, t726, t727, t728;
2726 real t729, t730, t731, t732, t733, t734, t735;
2727 real t736, t737, t738, t739, t740, t741, t742;
2728 real t743, t744, t745, t746, t747, t748, t749;
2729 real t750, t751, t752, t753, t754, t755, t756;
2730 real t757, t758, t759, t760, t761, t762, t763;
2731 real t764, t765, t766, t767, t768, t769, t770;
2732 real t771, t772, t773, t774, t775, t776, t777;
2733 real t778, t779, t780, t781, t782, t783, t784;
2734 real t785, t786, t787, t788;
2735
2736 t1 = pow(3.0,.3333333333333333);
2737 t2 = 1/pow(4.0,.3333333333333333);
2738 t3 = 1/pow(3.141592653589793,.3333333333333333);
2739 t4 = pow(3.0,.6666666666666666);
2740 t5 = 1/pow(4.0,.6666666666666666);
2741 t6 = 1/pow(3.141592653589793,.6666666666666666);
2742 t7 = 1/pow(rhoa,.6666666666666666);
2743 t8 = 1.732050807568877;
2744 t9 = .5641895835477563;
2745 t10 = sqrt(rhoa);
2746 t11 = pow(rhoa,.3333333333333333);
2747 t12 = 1/t11;
2748 t13 = pow(2.0,.3333333333333333);
2749 t14 = 1/t13;
2750 t15 = pow(3.0,.1666666666666667);
2751 t16 = 1/pow(3.141592653589793,.1666666666666667);
2752 t17 = 14.1189*t14*t15*t16/pow(rhoa,.1666666666666667)+
2753 1.6831*t8*t9/t10+0.62517*t4*t5*t6*t7+6.1977*t1*t2*t3*t12;
2754 t18 = 32.1646831778707/
2755 t17+1.0;
2756 t19 = log(t18);
2757 t20 = pow(grada,8.0);
2758 t21 = pow(grada,2.0);
2759 t22 = 1/pow(rhoa,2.666666666666667);
2760 t23 = 0.2*t21*t22+1.0;
2761 t24 = 1/pow(t23,4.0);
2762 t25 = 1/pow(rhoa,10.66666666666667);
2763 t26 = pow(grada,6.0);
2764 t27 = 1/pow(t23,3.0);
2765 t28 = 1/pow(rhoa,8.0);
2766 t29 = pow(grada,4.0);
2767 t30 = 1/pow(t23,2.0);
2768 t31 = 1/pow(rhoa,5.333333333333333);
2769 t32 = 1/t23;
2770 t33 = -0.05214*t21*t32*t22+0.017316*t29*t30*t31-0.01594*
2771 t26*t27*t28+0.00397648*t20*t24*t25+0.48951;
2772 t34 = 0.20548*t1*t2*t3*t12+1.0;
2773 t35 = pow(6.0,.3333333333333333);
2774 t36 = 0.004*t21*t22+1.0;
2775 t37 = 1/pow(t36,4.0);
2776 t38 = 1/pow(t36,3.0);
2777 t39 = 1/pow(t36,2.0);
2778 t40 = 1/t36;
2779 t41 = -0.0029888*t21*t40*t22+8.125279999999999e-5*t29*
2780 t39*t31-2.6288e-7*t26*t38*t28+2.999552e-10*t20*t37*t25+1.09163;
2781 t42 = pow(grada,
2782 10.0);
2783 t43 = 1/pow(t23,5.0);
2784 t44 = 1/pow(rhoa,14.33333333333333);
2785 t45 = 1/pow(rhoa,11.66666666666667);
2786 t46 = 1/pow(rhoa,9.0);
2787 t47 = 1/pow(rhoa,6.333333333333333);
2788 t48 = 1/pow(rhoa,3.666666666666667);
2789 t49 = 0.13904*t21*t32*t48-0.12016*t29*t30*t47+0.1459904*
2790 t26*t27*t46-.0679197866666667*t20*t24*t45+.0084831573333333*
2791 t42*t43*t44;
2792 t50 = 1/t18;
2793 t51 = 1/pow(rhoa,1.666666666666667);
2794 t52 = pow(rhoa,1.333333333333333);
2795 t53 = 1/t52;
2796 t54 = -2.35315*t14*t15*t16/pow(rhoa,1.166666666666667)-
2797 0.84155*t8*t9/pow(t10,3.0)-2.0659*t1*t2*t3*t53-0.41678*t4*
2798 t5*t6*t51;
2799 t55 = 1/pow(t17,2.0);
2800 t56 = 1/pow(t36,5.0);
2801 t57 = .0079701333333333*t21*t40*t48-4.652287999999999e-4*
2802 t29*t39*t47+3.836433066666666e-6*t26*t38*t46-1.161168213333333e-8*
2803 t20*t37*t45+1.27980885333333e-11*t42*t56*t44;
2804 t58 = pow(gradb,2.0);
2805 t59 = 1/pow(rhob,2.666666666666667);
2806 t60 = 0.5*t58*t59+0.5*t21*t22;
2807 t61 = pow(t60,4.0);
2808 t62 = 0.006*t60+1.0;
2809 t63 = 1/pow(t62,4.0);
2810 t64 = pow(t60,3.0);
2811 t65 = 1/pow(t62,3.0);
2812 t66 = pow(t60,2.0);
2813 t67 = 1/pow(t62,2.0);
2814 t68 = 1/t62;
2815 t69 = 0.0415788*t60*t68-8.894520000000001e-4*t66*t67+
2816 4.99176e-6*t64*t65-1.4674608e-8*t61*t63+0.51473;
2817 t70 = rhob+rhoa;
2818 t71 = 1/pow(t70,.3333333333333333);
2819 t72 = 0.2137*t1*t2*t3*t71+1.0;
2820 t73 = 1/pow(t70,.6666666666666666);
2821 t74 = sqrt(t70);
2822 t75 = 1/t74;
2823 t76 = 1/pow(t70,.1666666666666667);
2824 t77 = 7.5957*t14*t15*t16*t76+3.5876*t1*t2*t3*t71+0.8191*
2825 t8*t9*t75+0.49294*t4*t5*t6*t73;
2826 t78 = 16.0818243221511/t77+1.0;
2827 t79 = log(t78);
2828 t80 = -0.062182*t72*t79;
2829 t81 = 1/(2.0*t13-2.0);
2830 t82 = rhoa-1.0*rhob;
2831 t83 = pow(t82,4.0);
2832 t84 = 1/pow(t70,4.0);
2833 t85 = 1.0-1.0*t83*t84;
2834 t86 = 0.11125*t1*t2*t3*t71+1.0;
2835 t87 = 1/t70;
2836 t88 = 1.0-1.0*t82*t87;
2837 t89 = t82*t87+1.0;
2838 t90 = pow(t89,1.333333333333333)+pow(t88,1.333333333333333)-
2839 2.0;
2840 t91 = 10.357*t14*t15*t16*t76+3.6231*t1*t2*t3*t71+0.44013*
2841 t8*t9*t75+0.49671*t4*t5*t6*t73;
2842 t92 = 29.60857464321668/t91+1.0;
2843 t93 = log(t92);
2844 t94 = .0197517897025652*t81*t85*t86*t90*t93;
2845 t95 = 0.20548*t1*t2*t3*t71+1.0;
2846 t96 = 14.1189*t14*t15*t16*t76+6.1977*t1*t2*t3*t71+1.6831*
2847 t8*t9*t75+0.62517*t4*t5*t6*t73;
2848 t97 = 32.1646831778707/t96+1.0;
2849 t98 = log(t97);
2850 t99 = 0.062182*t72*t79-0.03109*t95*t98;
2851 t100 = t81*t83*t84*t90*t99;
2852 t101 = 1/pow(t70,1.666666666666667);
2853 t102 = 1/pow(t74,3.0);
2854 t103 = 1/pow(t70,1.333333333333333);
2855 t104 = 1/pow(t70,1.166666666666667);
2856 t105 = -1.26595*t14*t15*t16*t104-1.195866666666667*t1*
2857 t2*t3*t103-0.40955*t8*t9*t102-.3286266666666666*t4*t5*t6*t101;
2858 t106 = 1/
2859 pow(t77,2.0);
2860 t107 = 1/t78;
2861 t108 = .9999999999999999*t105*t72*t106*t107;
2862 t109 = -1.726166666666666*t14*t15*t16*t104-1.2077*t1*
2863 t2*t3*t103-0.220065*t8*t9*t102-0.33114*t4*t5*t6*t101;
2864 t110 = 1/pow(t91,2.0);
2865 t111 = 1/t92;
2866 t112 = -.5848223397455204*t81*t85*t109*t86*t110*t90*t111;
2867 t113 = .0044294311333333*
2868 t1*t2*t3*t103*t79;
2869 t114 = 1/pow(t70,2.0);
2870 t115 = t82*t114;
2871 t116 = -1.0*t87;
2872 t117 = t116+t115;
2873 t118 = pow(t88,.3333333333333333);
2874 t119 = -1.0*t114*t82;
2875 t120 = t87+t119;
2876 t121 = pow(t89,.3333333333333333);
2877 t122 = 1.333333333333333*t120*t121+1.333333333333333*
2878 t117*t118;
2879 t123 = .0197517897025652*t81*t85*t86*t122*t93;
2880 t124 = -7.324622014701263e-4*t81*t1*t2*t3*t103*t85*t90*
2881 t93;
2882 t125 = 1/pow(t70,5.0);
2883 t126 = 4.0*t125*t83;
2884 t127 = pow(t82,3.0);
2885 t128 = t126-4.0*t127*t84;
2886 t129 = .0197517897025652*t81*t128*t86*t90*t93;
2887 t130 = -2.35315*t14*t15*t16*t104-2.0659*t1*t2*t3*t103-
2888 0.84155*t8*t9*t102-0.41678*t4*t5*t6*t101;
2889 t131 = 1/pow(t96,2.0);
2890 t132 = 1/t97;
2891 t133 = .0021294577333333*t1*t2*t3*t103*t98-.0044294311333333*
2892 t1*t2*t3*t103*t79+t130*t95*t131*t132-.9999999999999999*t105*
2893 t72*t106*t107;
2894 t134 = t81*t83*t84*t90*t133;
2895 t135 = t81*t83*t84*t122*t99;
2896 t136 = -4.0*t125*t81*t83*t90*t99;
2897 t137 = -1.0*t50*t54*t34*t55*rhoa+t70*(4.0*t127*t81*t84*
2898 t90*t99+t136+t135+t134+t129+t124+t123+t113+t112+t108)+t94+
2899 t80+0.03109*t19*t34-.0021294577333333*t1*t2*t3*t19*t12+t100;
2900 t138 = 1/
2901 pow(t62,5.0);
2902 t139 = -0.0554384*t21*t48*t68+0.0027045024*t21*t48*t60*
2903 t67-3.4198272e-5*t21*t48*t66*t65+1.98066816e-7*t21*t48*t64*
2904 t63-4.69587456e-10*t21*t48*t61*t138;
2905 t140 = 1/pow(rhob,.6666666666666666);
2906 t141 = sqrt(rhob);
2907 t142 = pow(rhob,.3333333333333333);
2908 t143 = 1/t142;
2909 t144 = 14.1189*t14*t15*t16/pow(rhob,.1666666666666667)+
2910 1.6831*t8*t9/t141+6.1977*t1*t2*t3*t143+0.62517*t4*t5*t6*t140;
2911 t145 = 32.1646831778707/
2912 t144+1.0;
2913 t146 = log(t145);
2914 t147 = 0.20548*t1*t2*t3*t143+1.0;
2915 t148 = t70*(t100+t94+t80)+0.03109*t146*t147*rhob+0.03109*
2916 t19*t34*rhoa;
2917 t149 = pow(gradb,8.0);
2918 t150 = 0.2*t58*t59+1.0;
2919 t151 = 1/pow(t150,4.0);
2920 t152 = 1/pow(rhob,10.66666666666667);
2921 t153 = pow(gradb,6.0);
2922 t154 = 1/pow(t150,3.0);
2923 t155 = 1/pow(rhob,8.0);
2924 t156 = pow(gradb,4.0);
2925 t157 = 1/pow(t150,2.0);
2926 t158 = 1/pow(rhob,5.333333333333333);
2927 t159 = 1/t150;
2928 t160 = -0.05214*t58*t159*t59+0.017316*t156*t157*t158-
2929 0.01594*t153*t154*t155+0.00397648*t149*t151*t152+0.48951;
2930 t161 = 0.004*
2931 t58*t59+1.0;
2932 t162 = 1/pow(t161,4.0);
2933 t163 = 1/pow(t161,3.0);
2934 t164 = 1/pow(t161,2.0);
2935 t165 = 1/t161;
2936 t166 = -0.0029888*t58*t165*t59+8.125279999999999e-5*t156*
2937 t164*t158-2.6288e-7*t153*t163*t155+2.999552e-10*t149*t162*
2938 t152+1.09163;
2939 t167 = pow(gradb,10.0);
2940 t168 = 1/pow(t150,5.0);
2941 t169 = 1/pow(rhob,14.33333333333333);
2942 t170 = 1/pow(rhob,11.66666666666667);
2943 t171 = 1/pow(rhob,9.0);
2944 t172 = 1/pow(rhob,6.333333333333333);
2945 t173 = 1/pow(rhob,3.666666666666667);
2946 t174 = 0.13904*t58*t159*t173-0.12016*t156*t157*t172+0.1459904*
2947 t153*t154*t171-.0679197866666667*t149*t151*t170+.0084831573333333*
2948 t167*t168*t169;
2949 t175 = 1/t145;
2950 t176 = 1/pow(rhob,1.666666666666667);
2951 t177 = pow(rhob,1.333333333333333);
2952 t178 = 1/t177;
2953 t179 = -2.35315*t14*t15*t16/pow(rhob,1.166666666666667)-
2954 0.84155*t8*t9/pow(t141,3.0)-2.0659*t1*t2*t3*t178-0.41678*t4*
2955 t5*t6*t176;
2956 t180 = 1/pow(t144,2.0);
2957 t181 = 1/pow(t161,5.0);
2958 t182 = .0079701333333333*t58*t165*t173-4.652287999999999e-4*
2959 t156*t164*t172+3.836433066666666e-6*t153*t163*t171-1.161168213333333e-8*
2960 t149*t162*t170+1.27980885333333e-11*t167*t181*t169;
2961 t183 = t87+t115;
2962 t184 = t116+t119;
2963 t185 = 1.333333333333333*t121*t184+1.333333333333333*
2964 t118*t183;
2965 t186 = .0197517897025652*t81*t85*t86*t185*t93;
2966 t187 = 4.0*t127*t84+t126;
2967 t188 = .0197517897025652*t81*t187*t86*t90*t93;
2968 t189 = t81*t83*t84*t185*t99;
2969 t190 = -1.0*t175*t179*t147*t180*rhob+t70*(-4.0*t127*t81*
2970 t84*t90*t99+t189+t188+t186+t136+t134+t124+t113+t112+t108)+
2971 t94+t80+0.03109*t146*t147-.0021294577333333*t1*t2*t3*t146*
2972 t143+t100;
2973 t191 = -0.0554384*t58*t68*t173+0.0027045024*t58*t60*t67*
2974 t173-3.4198272e-5*t58*t66*t65*t173+1.98066816e-7*t58*t64*t63*
2975 t173-4.69587456e-10*t58*t61*t138*t173;
2976 t192 = pow(grada,9.0);
2977 t193 = 1/pow(rhoa,13.33333333333333);
2978 t194 = pow(grada,7.0);
2979 t195 = pow(grada,5.0);
2980 t196 = pow(grada,3.0);
2981 t197 = -0.10428*grada*t32*t22+0.09012*t196*t30*t31-0.1094928*
2982 t195*t27*t28+0.05093984*t194*t24*t25-0.006362368*t192*t43*
2983 t193;
2984 t198 = -0.0059776*grada*t40*t22+3.489216e-4*t196*t39*
2985 t31-2.8773248e-6*t195*t38*t28+8.7087616e-9*t194*t37*t25-9.5985664e-12*
2986 t192*t56*t193;
2987 t199 = 0.0415788*grada*t22*t68-0.0020283768*grada*t22*
2988 t60*t67+2.5648704e-5*grada*t22*t66*t65-1.48550112e-7*grada*
2989 t22*t64*t63+3.52190592e-10*grada*t22*t61*t138;
2990 t200 = pow(gradb,9.0);
2991 t201 = 1/pow(rhob,13.33333333333333);
2992 t202 = pow(gradb,7.0);
2993 t203 = pow(gradb,5.0);
2994 t204 = pow(gradb,3.0);
2995 t205 = -0.10428*gradb*t159*t59+0.09012*t204*t157*t158-
2996 0.1094928*t203*t154*t155+0.05093984*t202*t151*t152-0.006362368*
2997 t200*t168*t201;
2998 t206 = -0.0059776*gradb*t165*t59+3.489216e-4*t204*t164*
2999 t158-2.8773248e-6*t203*t163*t155+8.7087616e-9*t202*t162*t152-
3000 9.5985664e-12*t200*t181*t201;
3001 t207 = 0.0415788*gradb*t68*t59-0.0020283768*gradb*t60*
3002 t67*t59+2.5648704e-5*gradb*t66*t65*t59-1.48550112e-7*gradb*
3003 t64*t63*t59+3.52190592e-10*gradb*t61*t138*t59;
3004 t208 = pow(grada,12.0);
3005 t209 = 1/pow(t23,6.0);
3006 t210 = 1/pow(rhoa,18.0);
3007 t211 = 1/pow(rhoa,15.33333333333333);
3008 t212 = 1/pow(rhoa,12.66666666666667);
3009 t213 = 1/pow(rhoa,10.0);
3010 t214 = 1/pow(rhoa,7.333333333333333);
3011 t215 = 1/pow(rhoa,4.666666666666667);
3012 t216 = -.5098133333333333*t21*t32*t215+.8351680000000001*
3013 t29*t30*t214-1.442084266666667*t26*t27*t213+1.025982151111111*
3014 t20*t24*t212-.2664874666666667*t42*t43*t211+.0226217528888889*
3015 t208*t209*t210;
3016 t217 = 1/pow(t18,2.0);
3017 t218 = pow(t54,2.0);
3018 t219 = 1/pow(t17,4.0);
3019 t220 = 1/pow(t17,3.0);
3020 t221 = 1/pow(rhoa,2.333333333333333);
3021 t222 = 2.745341666666667*t14*t15*t16/pow(rhoa,2.166666666666667)+
3022 1.262325*t8*t9/pow(t10,5.0)+2.754533333333333*t1*t2*t3*t221+
3023 .6946333333333333*t4*t5*t6*t22;
3024 t223 = 1/pow(t36,6.0);
3025 t224 = -.0292238222222222*t21*t40*t215+.0030314638222222*
3026 t29*t39*t214-4.445277866666666e-5*t26*t38*t213+2.582354830222222e-7*
3027 t20*t37*t212-6.7887104e-10*t42*t56*t211+6.82564721777778e-13*
3028 t208*t223*t210;
3029 t225 = 2.0*t105*t72*t106*t107;
3030 t226 = -1.169644679491041*t81*t85*t109*t86*t110*t90*t111;
3031 t227 = .0088588622666667*
3032 t1*t2*t3*t103*t79;
3033 t228 = -.0014649244029403*t81*t1*t2*t3*t103*t85*t90*t93;
3034 t229 = 2.0*
3035 t133*t81*t83*t84*t90;
3036 t230 = -8.0*t125*t81*t83*t90*t99;
3037 t231 = pow(t105,2.0);
3038 t232 = 1/pow(t77,4.0);
3039 t233 = 1/pow(t78,2.0);
3040 t234 = 16.0818243221511*t231*t72*t232*t233;
3041 t235 = 1/pow(t77,3.0);
3042 t236 = -2.0*t231*t72*t235*t107;
3043 t237 = -.1424666666666666*t1*t2*t3*t103*t105*t106*t107;
3044 t238 = 1/
3045 pow(t70,2.666666666666667);
3046 t239 = 1/pow(t74,5.0);
3047 t240 = 1/pow(t70,2.333333333333333);
3048 t241 = 1/pow(t70,2.166666666666667);
3049 t242 = 1.476941666666667*t14*t15*t16*t241+1.594488888888889*
3050 t1*t2*t3*t240+0.614325*t8*t9*t239+0.547711111111111*t4*t5*
3051 t6*t238;
3052 t243 = .9999999999999999*t242*t72*t106*t107;
3053 t244 = pow(t109,2.0);
3054 t245 = 1/pow(t91,4.0);
3055 t246 = 1/pow(t92,2.0);
3056 t247 = -17.31575589937587*t81*t85*t244*t86*t245*t90*t246;
3057 t248 = -
3058 1.169644679491041*t81*t85*t109*t86*t110*t122*t111;
3059 t249 = 1/pow(t91,3.0);
3060 t250 = 1.169644679491041*t81*t85*t244*t86*t249*t90*t111;
3061 t251 = .0433743235311261*
3062 t81*t1*t2*t3*t103*t85*t109*t110*t90*t111;
3063 t252 = 2.013861111111111*t14*t15*t16*t241+1.610266666666667*
3064 t1*t2*t3*t240+0.3300975*t8*t9*t239+.5519000000000001*t4*t5*
3065 t6*t238;
3066 t253 = -.5848223397455204*t81*t85*t252*t86*t110*t90*t111;
3067 t254 = -
3068 1.169644679491041*t81*t128*t109*t86*t110*t90*t111;
3069 t255 = -.0059059081777778*t1*t2*t3*t240*t79;
3070 t256 = pow(t117,2.0);
3071 t257 = 1/pow(t88,.6666666666666666);
3072 t258 = 1/pow(t70,3.0);
3073 t259 = -2.0*t258*t82;
3074 t260 = 2.0*t114;
3075 t261 = t260+t259;
3076 t262 = pow(t120,2.0);
3077 t263 = 1/pow(t89,.6666666666666666);
3078 t264 = 2.0*t258*t82;
3079 t265 = -2.0*t114;
3080 t266 = t265+t264;
3081 t267 = 1.333333333333333*t121*t266+.4444444444444444*
3082 t262*t263+1.333333333333333*t118*t261+.4444444444444444*t256*
3083 t257;
3084 t268 = .0197517897025652*t81*t85*t86*t267*t93;
3085 t269 = -.0014649244029403*t81*t1*t2*t3*t103*t85*t122*
3086 t93;
3087 t270 = .0395035794051304*t81*t128*t86*t122*t93;
3088 t271 = -.0014649244029403*t81*t1*t2*t3*t103*t128*t90*
3089 t93;
3090 t272 = 9.766162686268349e-4*t81*t1*t2*t3*t240*t85*t90*
3091 t93;
3092 t273 = 1/pow(t70,6.0);
3093 t274 = -20.0*t273*t83;
3094 t275 = pow(t82,2.0);
3095 t276 = -12.0*t275*t84;
3096 t277 = t276+t274+32.0*t125*t127;
3097 t278 = .0197517897025652*t81*t277*t86*t90*t93;
3098 t279 = pow(t130,2.0);
3099 t280 = 1/pow(t96,4.0);
3100 t281 = 1/pow(t97,2.0);
3101 t282 = 1/pow(t96,3.0);
3102 t283 = 2.745341666666667*t14*t15*t16*t241+2.754533333333333*
3103 t1*t2*t3*t240+1.262325*t8*t9*t239+.6946333333333333*t4*t5*
3104 t6*t238;
3105 t284 = -.0028392769777778*t1*t2*t3*t240*t98-2.0*t132*
3106 t279*t282*t95+.0059059081777778*t1*t2*t3*t240*t79+32.1646831778707*
3107 t279*t95*t280*t281-16.0818243221511*t231*t72*t232*t233+t283*
3108 t95*t131*t132-.1369866666666666*t1*t2*t3*t103*t130*t131*t132+
3109 2.0*t231*t72*t235*t107-.9999999999999999*t242*t72*t106*t107+
3110 .1424666666666666*t1*t2*t3*t103*t105*t106*t107;
3111 t285 = t81*t83*t84*t90*t284;
3112 t286 = 2.0*t122*t133*t81*t83*t84;
3113 t287 = -8.0*t125*t133*t81*t83*t90;
3114 t288 = 8.0*t127*t133*t81*t84*t90;
3115 t289 = t81*t83*t84*t267*t99;
3116 t290 = -8.0*t122*t125*t81*t83*t99;
3117 t291 = 20.0*t273*t81*t83*t90*t99;
3118 t292 = -32.0*t125*t127*t81*t90*t99;
3119 t293 = 12.0*t275*t81*t84*t90*t99;
3120 t294 = -1.0*t50*t222*t34*t55*rhoa+2.0*t50*t218*t34*t220*
3121 rhoa-32.1646831778707*t217*t218*t34*t219*rhoa+t70*(8.0*t122*
3122 t127*t81*t84*t99+t293+t292+t291+t290+t289+t288+t287+t286+t285+
3123 t278+t272+t271+t270+t269+t268+t255+t254+t253+t251+t250+t248+
3124 t247+t243+t237+t236+t234)+8.0*t127*t81*t84*t90*t99+2.0*t122*
3125 t81*t83*t84*t99+.0395035794051304*t81*t128*t86*t90*t93+.0395035794051304*
3126 t81*t85*t86*t122*t93-2.0*t50*t54*t34*t55-.0014196384888889*
3127 t1*t2*t3*t19*t53+t230+t229+t228+t227+t226+t225+.1369866666666666*
3128 t1*t2*t3*t50*t54*t55*t12;
3129 t295 = 1/pow(t62,6.0);
3130 t296 = .2032741333333333*t21*t215*t68-0.0099165088*t21*
3131 t215*t60*t67-0.0040495104*t29*t214*t67+1.25393664e-4*t21*t215*
3132 t66*t65+1.344674304e-4*t29*t214*t60*t65-7.26244992e-7*t21*
3133 t215*t64*t63-1.613025792e-6*t29*t214*t66*t63+1.721820672e-9*
3134 t21*t215*t61*t138+8.842604544e-9*t29*t214*t64*t138-1.878349824e-11*
3135 t29*t214*t61*t295;
3136 t297 = 2.666666666666667*t121*t258*t82-2.666666666666667*
3137 t118*t258*t82+.4444444444444444*t120*t184*t263+.4444444444444444*
3138 t117*t183*t257;
3139 t298 = 12.0*t275*t84+t274;
3140 t299 = -12.0*t275*t81*t84*t90*t99;
3141 t300 = t70*(4.0*t127*t185*t81*t84*t99-4.0*t122*t127*t81*
3142 t84*t99-4.0*t125*t185*t81*t83*t99-4.0*t122*t125*t81*t83*t99+
3143 t81*t83*t84*t297*t99+.0197517897025652*t81*t298*t86*t90*t93-
3144 7.324622014701263e-4*t81*t1*t2*t3*t103*t187*t90*t93-7.324622014701263e-4*
3145 t81*t1*t2*t3*t103*t128*t90*t93+.0197517897025652*t81*t85*t86*
3146 t297*t93+.0197517897025652*t81*t128*t86*t185*t93-7.324622014701263e-4*
3147 t81*t1*t2*t3*t103*t85*t185*t93+.0197517897025652*t81*t187*
3148 t86*t122*t93-7.324622014701263e-4*t81*t1*t2*t3*t103*t85*t122*
3149 t93+t299+t291+t287+t285+t272+t255+t253+t251+t250+t247+t243+
3150 t237+t236+t234+t81*t83*t84*t185*t133+t81*t83*t84*t122*t133-
3151 .5848223397455204*t81*t187*t109*t86*t110*t90*t111-.5848223397455204*
3152 t81*t128*t109*t86*t110*t90*t111-.5848223397455204*t81*t85*
3153 t109*t86*t110*t185*t111-.5848223397455204*t81*t85*t109*t86*
3154 t110*t122*t111)+t230+t229+t228+t227+t226+t225+t189+t188+t186+
3155 t135+t129+t123;
3156 t301 = -0.0040495104*t21*t58*t48*t67*t173+1.344674304e-4*
3157 t21*t58*t48*t60*t65*t173-1.613025792e-6*t21*t58*t48*t66*t63*
3158 t173+8.842604544e-9*t21*t58*t48*t64*t138*t173-1.878349824e-11*
3159 t21*t58*t48*t61*t295*t173;
3160 t302 = pow(grada,11.0);
3161 t303 = 1/pow(rhoa,17.0);
3162 t304 = 0.27808*grada*t32*t48-.5362560000000001*t196*t30*
3163 t47+.9720704000000001*t195*t27*t46-.7185467733333335*t194*
3164 t24*t45+0.193503232*t192*t43*t44-.0169663146666667*t302*t209*
3165 t303;
3166 t305 = .0159402666666667*grada*t40*t48-.0019246762666667*
3167 t196*t39*t47+3.04622592e-5*t195*t38*t46-1.849678506666667e-7*
3168 t194*t37*t45+4.995547136e-10*t192*t56*t44-5.11923541333333e-13*
3169 t302*t223*t303;
3170 t306 = -0.1108768*grada*t48*t68+0.0054090048*grada*t48*
3171 t60*t67+0.0030371328*t196*t47*t67-6.839654399999999e-5*grada*
3172 t48*t66*t65-1.008505728e-4*t196*t47*t60*t65+3.96133632e-7*
3173 grada*t48*t64*t63+1.209769344e-6*t196*t47*t66*t63-9.39174912e-10*
3174 grada*t48*t61*t138-6.631953408000001e-9*t196*t47*t64*t138+
3175 1.408762368e-11*t196*t47*t61*t295;
3176 t307 = 0.0030371328*t21*gradb*t48*t67*t59-1.008505728e-4*
3177 t21*gradb*t48*t60*t65*t59+1.209769344e-6*t21*gradb*t48*t66*
3178 t63*t59-6.631953408000001e-9*t21*gradb*t48*t64*t138*t59+1.408762368e-11*
3179 t21*gradb*t48*t61*t295*t59;
3180 t308 = pow(gradb,12.0);
3181 t309 = 1/pow(t150,6.0);
3182 t310 = 1/pow(rhob,18.0);
3183 t311 = 1/pow(rhob,15.33333333333333);
3184 t312 = 1/pow(rhob,12.66666666666667);
3185 t313 = 1/pow(rhob,10.0);
3186 t314 = 1/pow(rhob,7.333333333333333);
3187 t315 = 1/pow(rhob,4.666666666666667);
3188 t316 = -.5098133333333333*t58*t159*t315+.8351680000000001*
3189 t156*t157*t314-1.442084266666667*t153*t154*t313+1.025982151111111*
3190 t149*t151*t312-.2664874666666667*t167*t168*t311+.0226217528888889*
3191 t308*t309*t310;
3192 t317 = 1/pow(t145,2.0);
3193 t318 = pow(t179,2.0);
3194 t319 = 1/pow(t144,4.0);
3195 t320 = 1/pow(t144,3.0);
3196 t321 = 1/pow(rhob,2.333333333333333);
3197 t322 = 2.745341666666667*t14*t15*t16/pow(rhob,2.166666666666667)+
3198 1.262325*t8*t9/pow(t141,5.0)+.6946333333333333*t4*t5*t6*t59+
3199 2.754533333333333*t1*t2*t3*t321;
3200 t323 = 1/pow(t161,6.0);
3201 t324 = -.0292238222222222*t58*t165*t315+.0030314638222222*
3202 t156*t164*t314-4.445277866666666e-5*t153*t163*t313+2.582354830222222e-7*
3203 t149*t162*t312-6.7887104e-10*t167*t181*t311+6.82564721777778e-13*
3204 t308*t323*t310;
3205 t325 = -1.169644679491041*t81*t85*t109*t86*t110*t185*
3206 t111;
3207 t326 = -1.169644679491041*t81*t187*t109*t86*t110*t90*
3208 t111;
3209 t327 = pow(t183,2.0);
3210 t328 = t265+t259;
3211 t329 = pow(t184,2.0);
3212 t330 = t260+t264;
3213 t331 = 1.333333333333333*t121*t330+.4444444444444444*
3214 t263*t329+1.333333333333333*t118*t328+.4444444444444444*t257*
3215 t327;
3216 t332 = .0197517897025652*t81*t85*t86*t331*t93;
3217 t333 = -.0014649244029403*t81*t1*t2*t3*t103*t85*t185*
3218 t93;
3219 t334 = .0395035794051304*t81*t187*t86*t185*t93;
3220 t335 = -.0014649244029403*t81*t1*t2*t3*t103*t187*t90*
3221 t93;
3222 t336 = t276+t274-32.0*t125*t127;
3223 t337 = .0197517897025652*t81*t336*t86*t90*t93;
3224 t338 = 2.0*t133*t185*t81*t83*t84;
3225 t339 = -8.0*t127*t133*t81*t84*t90;
3226 t340 = t81*t83*t84*t331*t99;
3227 t341 = -8.0*t125*t185*t81*t83*t99;
3228 t342 = 32.0*t125*t127*t81*t90*t99;
3229 t343 = 2.0*t175*t318*t147*t320*rhob-32.1646831778707*
3230 t317*t318*t147*t319*rhob-1.0*t175*t322*t147*t180*rhob+t70*
3231 (-8.0*t127*t185*t81*t84*t99+t342+t341+t340+t339+t338+t337+
3232 t335+t334+t333+t332+t326+t325+t293+t291+t287+t285+t272+t255+
3233 t253+t251+t250+t247+t243+t237+t236+t234)-8.0*t127*t81*t84*
3234 t90*t99+2.0*t185*t81*t83*t84*t99+.0395035794051304*t81*t187*
3235 t86*t90*t93+.0395035794051304*t81*t85*t86*t185*t93+t230+t229+
3236 t228+t227+t226+t225-2.0*t175*t179*t147*t180-.0014196384888889*
3237 t1*t2*t3*t146*t178+.1369866666666666*t1*t2*t3*t175*t179*t180*
3238 t143;
3239 t344 = .2032741333333333*t58*t68*t315-0.0099165088*t58*
3240 t60*t67*t315+1.25393664e-4*t58*t66*t65*t315-7.26244992e-7*
3241 t58*t64*t63*t315+1.721820672e-9*t58*t61*t138*t315-0.0040495104*
3242 t156*t67*t314+1.344674304e-4*t156*t60*t65*t314-1.613025792e-6*
3243 t156*t66*t63*t314+8.842604544e-9*t156*t64*t138*t314-1.878349824e-11*
3244 t156*t61*t295*t314;
3245 t345 = 0.0030371328*grada*t58*t22*t67*t173-1.008505728e-4*
3246 grada*t58*t22*t60*t65*t173+1.209769344e-6*grada*t58*t22*t66*
3247 t63*t173-6.631953408000001e-9*grada*t58*t22*t64*t138*t173+
3248 1.408762368e-11*grada*t58*t22*t61*t295*t173;
3249 t346 = pow(gradb,11.0);
3250 t347 = 1/pow(rhob,17.0);
3251 t348 = 0.27808*gradb*t159*t173-.5362560000000001*t204*
3252 t157*t172+.9720704000000001*t203*t154*t171-.7185467733333335*
3253 t202*t151*t170+0.193503232*t200*t168*t169-.0169663146666667*
3254 t346*t309*t347;
3255 t349 = .0159402666666667*gradb*t165*t173-.0019246762666667*
3256 t204*t164*t172+3.04622592e-5*t203*t163*t171-1.849678506666667e-7*
3257 t202*t162*t170+4.995547136e-10*t200*t181*t169-5.11923541333333e-13*
3258 t346*t323*t347;
3259 t350 = -0.1108768*gradb*t68*t173+0.0054090048*gradb*t60*
3260 t67*t173-6.839654399999999e-5*gradb*t66*t65*t173+3.96133632e-7*
3261 gradb*t64*t63*t173-9.39174912e-10*gradb*t61*t138*t173+0.0030371328*
3262 t204*t67*t172-1.008505728e-4*t204*t60*t65*t172+1.209769344e-6*
3263 t204*t66*t63*t172-6.631953408000001e-9*t204*t64*t138*t172+
3264 1.408762368e-11*t204*t61*t295*t172;
3265 t351 = 1/pow(rhoa,16.0);
3266 t352 = -0.10428*t32*t22+0.312072*t21*t30*t31-.6195600000000002*
3267 t29*t27*t28+.4879702400000002*t26*t24*t25-0.138765056*t20*
3268 t43*t193+0.012724736*t42*t209*t351;
3269 t353 = -0.0059776*t40*t22+0.0010945856*t21*t39*t31-1.99693696e-5*
3270 t29*t38*t28+1.300171264e-7*t26*t37*t25-3.650674688e-10*t20*
3271 t56*t193+3.83942656e-13*t42*t223*t351;
3272 t354 = 0.0415788*t22*t68-0.0020283768*t22*t60*t67-0.0022778496*
3273 t21*t31*t67+2.5648704e-5*t22*t66*t65+7.563792960000001e-5*
3274 t21*t31*t60*t65-1.48550112e-7*t22*t64*t63-9.073270080000002e-7*
3275 t21*t31*t66*t63+3.52190592e-10*t22*t61*t138+4.973965056000001e-9*
3276 t21*t31*t64*t138-1.056571776e-11*t21*t31*t61*t295;
3277 t355 = -0.0022778496*grada*gradb*t22*t67*t59+7.563792960000001e-5*
3278 grada*gradb*t22*t60*t65*t59-9.073270080000002e-7*grada*gradb*
3279 t22*t66*t63*t59+4.973965056000001e-9*grada*gradb*t22*t64*t138*
3280 t59-1.056571776e-11*grada*gradb*t22*t61*t295*t59;
3281 t356 = 1/pow(rhob,16.0);
3282 t357 = -0.10428*t159*t59+0.312072*t58*t157*t158-.6195600000000002*
3283 t156*t154*t155+.4879702400000002*t153*t151*t152-0.138765056*
3284 t149*t168*t201+0.012724736*t167*t309*t356;
3285 t358 = -0.0059776*t165*t59+0.0010945856*t58*t164*t158-
3286 1.99693696e-5*t156*t163*t155+1.300171264e-7*t153*t162*t152-
3287 3.650674688e-10*t149*t181*t201+3.83942656e-13*t167*t323*t356;
3288 t359 = 0.0415788*
3289 t68*t59-0.0020283768*t60*t67*t59+2.5648704e-5*t66*t65*t59-
3290 1.48550112e-7*t64*t63*t59+3.52190592e-10*t61*t138*t59-0.0022778496*
3291 t58*t67*t158+7.563792960000001e-5*t58*t60*t65*t158-9.073270080000002e-7*
3292 t58*t66*t63*t158+4.973965056000001e-9*t58*t64*t138*t158-1.056571776e-11*
3293 t58*t61*t295*t158;
3294 t360 = pow(grada,14.0);
3295 t361 = 1/pow(t23,7.0);
3296 t362 = 1/pow(rhoa,21.66666666666667);
3297 t363 = 1/pow(rhoa,19.0);
3298 t364 = 1/pow(rhoa,16.33333333333333);
3299 t365 = 1/pow(rhoa,13.66666666666667);
3300 t366 = 1/pow(rhoa,11.0);
3301 t367 = 1/pow(rhoa,8.333333333333334);
3302 t368 = 1/pow(rhoa,5.666666666666667);
3303 t369 = 2.379128888888889*t21*t32*t368-6.396465777777778*
3304 t29*t30*t367+15.31168853333334*t26*t27*t366-15.30310874074074*
3305 t20*t24*t365+6.274903077925926*t42*t43*t364-1.117824796444445*
3306 t208*t209*t363+.0723896092444445*t360*t361*t362;
3307 t370 = 1/pow(t18,3.0);
3308 t371 = pow(t54,3.0);
3309 t372 = 1/pow(t17,6.0);
3310 t373 = 1/pow(t17,5.0);
3311 t374 = 1/pow(rhoa,3.333333333333333);
3312 t375 = -5.948240277777777*t14*t15*t16/pow(rhoa,3.166666666666667)-
3313 3.1558125*t8*t9/pow(t10,7.0)-1.852355555555556*t4*t5*t6*t48-
3314 6.427244444444445*t1*t2*t3*t374;
3315 t376 = 1/pow(t36,7.0);
3316 t377 = 0.136377837037037*t21*t40*t368-.0225424554666667*
3317 t29*t39*t367+5.091990148740739e-4*t26*t38*t366-4.693471702281481e-6*
3318 t20*t37*t365+2.142740322228149e-8*t42*t56*t364-4.84926204586667e-11*
3319 t208*t223*t363+4.36841421937778e-14*t360*t376*t362;
3320 t378 = 48.2454729664533*t231*t72*t232*t233;
3321 t379 = -6.0*t231*t72*t235*t107;
3322 t380 = -.4273999999999999*t1*t2*t3*t103*t105*t106*t107;
3323 t381 = 3.0*
3324 t242*t72*t106*t107;
3325 t382 = -51.9472676981276*t81*t85*t244*t86*t245*t90*t246;
3326 t383 = 3.508934038473122*
3327 t81*t85*t244*t86*t249*t90*t111;
3328 t384 = .1301229705933783*t81*t1*t2*t3*t103*t85*t109*t110*
3329 t90*t111;
3330 t385 = -1.754467019236561*t81*t85*t252*t86*t110*t90*t111;
3331 t386 = -
3332 .0177177245333333*t1*t2*t3*t240*t79;
3333 t387 = .0029298488058805*t81*t1*t2*t3*t240*t85*t90*t93;
3334 t388 = 3.0*
3335 t284*t81*t83*t84*t90;
3336 t389 = -24.0*t125*t133*t81*t83*t90;
3337 t390 = 60.0*t273*t81*t83*t90*t99;
3338 t391 = 36.0*t275*t81*t84*t90*t99;
3339 t392 = pow(t105,3.0);
3340 t393 = 1/pow(t77,6.0);
3341 t394 = 1/pow(t78,3.0);
3342 t395 = 517.2501470570614*t392*t72*t393*t394;
3343 t396 = 1/pow(t77,5.0);
3344 t397 = -96.4909459329066*t392*t72*t396*t233;
3345 t398 = -3.43668585764369*t1*t2*t3*t103*t231*t232*t233;
3346 t399 = 48.2454729664533*
3347 t242*t105*t72*t232*t233;
3348 t400 = 6.0*t392*t72*t232*t107;
3349 t401 = .4273999999999999*t1*t2*t3*t103*t231*t235*t107;
3350 t402 = -
3351 6.0*t242*t105*t72*t235*t107;
3352 t403 = -0.2137*t1*t2*t3*t103*t242*t106*t107;
3353 t404 = .2849333333333333*t1*t2*t3*t240*t105*t106*t107;
3354 t405 = 1/
3355 pow(t70,3.666666666666667);
3356 t406 = 1/pow(t74,7.0);
3357 t407 = 1/pow(t70,3.333333333333333);
3358 t408 = 1/pow(t70,3.166666666666667);
3359 t409 = -3.200040277777777*t14*t15*t16*t408-3.720474074074074*
3360 t1*t2*t3*t407-1.5358125*t8*t9*t406-1.460562962962963*t4*t5*
3361 t6*t405;
3362 t410 = .9999999999999999*t409*t72*t106*t107;
3363 t411 = pow(t109,3.0);
3364 t412 = 1/pow(t91,6.0);
3365 t413 = 1/pow(t92,3.0);
3366 t414 = -1025.38970210078*t81*t85*t411*t86*t412*t90*t413;
3367 t415 = -
3368 51.9472676981276*t81*t85*t244*t86*t245*t122*t246;
3369 t416 = 1/pow(t91,5.0);
3370 t417 = 103.8945353962552*t81*t85*t411*t86*t416*t90*t246;
3371 t418 = 1.926377843805565*
3372 t81*t1*t2*t3*t103*t85*t244*t245*t90*t246;
3373 t419 = -51.9472676981276*t81*t85*t252*t109*t86*t245*t90*
3374 t246;
3375 t420 = -51.9472676981276*t81*t128*t244*t86*t245*t90*t246;
3376 t421 = 3.508934038473122*
3377 t81*t85*t244*t86*t249*t122*t111;
3378 t422 = .1301229705933783*t81*t1*t2*t3*t103*t85*t109*t110*
3379 t122*t111;
3380 t423 = -1.754467019236561*t81*t85*t252*t86*t110*t122*
3381 t111;
3382 t424 = -3.508934038473122*t81*t85*t411*t86*t245*t90*t111;
3383 t425 = -
3384 .1301229705933783*t81*t1*t2*t3*t103*t85*t244*t249*t90*t111;
3385 t426 = 3.508934038473122*
3386 t81*t85*t252*t109*t86*t249*t90*t111;
3387 t427 = 3.508934038473122*t81*t128*t244*t86*t249*t90*t111;
3388 t428 = .0650614852966891*
3389 t81*t1*t2*t3*t103*t85*t252*t110*t90*t111;
3390 t429 = .1301229705933783*t81*t1*t2*t3*t103*t128*t109*
3391 t110*t90*t111;
3392 t430 = -.0867486470622522*t81*t1*t2*t3*t240*t85*t109*
3393 t110*t90*t111;
3394 t431 = -4.36336574074074*t14*t15*t16*t408-3.757288888888889*
3395 t1*t2*t3*t407-0.82524375*t8*t9*t406-1.471733333333333*t4*t5*
3396 t6*t405;
3397 t432 = -.5848223397455204*t81*t85*t431*t86*t110*t90*t111;
3398 t433 = -
3399 1.754467019236561*t81*t128*t252*t86*t110*t90*t111;
3400 t434 = .0137804524148148*t1*t2*t3*t407*t79;
3401 t435 = pow(t117,3.0);
3402 t436 = 1/pow(t88,1.666666666666667);
3403 t437 = 6.0*t82*t84;
3404 t438 = -6.0*t258;
3405 t439 = t438+t437;
3406 t440 = pow(t120,3.0);
3407 t441 = 1/pow(t89,1.666666666666667);
3408 t442 = -6.0*t82*t84;
3409 t443 = 6.0*t258;
3410 t444 = t443+t442;
3411 t445 = 1.333333333333333*t121*t444-.2962962962962963*
3412 t440*t441+1.333333333333333*t118*t439-.2962962962962963*t435*
3413 t436+1.333333333333333*t120*t263*t266+1.333333333333333*t117*
3414 t257*t261;
3415 t446 = .0197517897025652*t81*t85*t86*t445*t93;
3416 t447 = .0592553691076956*t81*t128*t86*t267*t93;
3417 t448 = .0029298488058805*t81*t1*t2*t3*t240*t85*t122*t93;
3418 t449 = .0592553691076956*
3419 t81*t277*t86*t122*t93;
3420 t450 = .0029298488058805*t81*t1*t2*t3*t240*t128*t90*t93;
3421 t451 = -
3422 .0022787712934626*t81*t1*t2*t3*t407*t85*t90*t93;
3423 t452 = 1/pow(t70,7.0);
3424 t453 = 120.0*t452*t83;
3425 t454 = 144.0*t125*t275;
3426 t455 = -24.0*t82*t84;
3427 t456 = t455+t454+t453-240.0*t127*t273;
3428 t457 = .0197517897025652*t81*t456*t86*t90*t93;
3429 t458 = pow(t130,3.0);
3430 t459 = 1/pow(t96,6.0);
3431 t460 = 1/pow(t97,3.0);
3432 t461 = 1/pow(t96,5.0);
3433 t462 = -5.948240277777777*t14*t15*t16*t408-6.427244444444445*
3434 t1*t2*t3*t407-3.1558125*t8*t9*t406-1.852355555555556*t4*t5*
3435 t6*t405;
3436 t463 = .0066249796148148*t1*t2*t3*t407*t98+6.0*t132*t280*
3437 t458*t95-6.0*t130*t132*t282*t283*t95-.0137804524148148*t1*
3438 t2*t3*t407*t79+2069.133687865597*t458*t95*t459*t460-517.2501470570614*
3439 t392*t72*t393*t394-192.9880990672242*t458*t95*t461*t281+96.4940495336121*
3440 t283*t130*t95*t280*t281-6.60919909938887*t1*t2*t3*t103*t279*
3441 t280*t281+96.4909459329066*t392*t72*t396*t233-48.2454729664533*
3442 t242*t105*t72*t232*t233+3.43668585764369*t1*t2*t3*t103*t231*
3443 t232*t233+.4109599999999999*t1*t2*t3*t103*t279*t282*t132+t462*
3444 t95*t131*t132-0.20548*t1*t2*t3*t103*t283*t131*t132+.2739733333333333*
3445 t1*t2*t3*t240*t130*t131*t132+6.0*t242*t105*t72*t235*t107-.4273999999999999*
3446 t1*t2*t3*t103*t231*t235*t107-6.0*t392*t72*t232*t107-.9999999999999999*
3447 t409*t72*t106*t107+0.2137*t1*t2*t3*t103*t242*t106*t107-.2849333333333333*
3448 t1*t2*t3*t240*t105*t106*t107;
3449 t464 = t81*t83*t84*t90*t463;
3450 t465 = 3.0*t122*t284*t81*t83*t84;
3451 t466 = -12.0*t125*t284*t81*t83*t90;
3452 t467 = -24.0*t122*t125*t133*t81*t83;
3453 t468 = 24.0*t122*t127*t133*t81*t84;
3454 t469 = 60.0*t133*t273*t81*t83*t90;
3455 t470 = 36.0*t133*t275*t81*t84*t90;
3456 t471 = t81*t83*t84*t445*t99;
3457 t472 = 60.0*t122*t273*t81*t83*t99;
3458 t473 = -96.0*t122*t125*t127*t81*t99;
3459 t474 = 36.0*t122*t275*t81*t84*t99;
3460 t475 = -120.0*t452*t81*t83*t90*t99;
3461 t476 = -144.0*t125*t275*t81*t90*t99;
3462 t477 = 24.0*t81*t82*t84*t90*t99;
3463 t478 = -1.0*t50*t375*t34*t55*rhoa+192.9880990672242*t217*
3464 t371*t34*t373*rhoa-2069.133687865597*t370*t371*t34*t372*rhoa+
3465 6.0*t50*t222*t54*t34*t220*rhoa-96.4940495336121*t217*t222*
3466 t54*t34*t219*rhoa-6.0*t50*t371*t34*t219*rhoa+t70*(240.0*t127*
3467 t273*t81*t90*t99+12.0*t127*t267*t81*t84*t99-12.0*t125*t267*
3468 t81*t83*t99-.0021973866044104*t81*t1*t2*t3*t103*t277*t90*t93-
3469 .0021973866044104*t81*t1*t2*t3*t103*t85*t267*t93-.0043947732088208*
3470 t81*t1*t2*t3*t103*t128*t122*t93+12.0*t127*t284*t81*t84*t90-
3471 96.0*t125*t127*t133*t81*t90+3.0*t133*t267*t81*t83*t84+t477+
3472 t476+t475+t474+t473+t472+t471+t470+t469+t468+t467+t466+t465+
3473 t464+t457+t451+t450+t449+t448+t447+t446+t434+t433+t432+t430+
3474 t429+t428+t427+t426+t425+t424+t423+t422+t421+t420+t419+t418+
3475 t417+t415+t414+t410+t404+t403+t402+t401+t400+t399+t398+t397+
3476 t395-1.754467019236561*t81*t277*t109*t86*t110*t90*t111-1.754467019236561*
3477 t81*t85*t109*t86*t110*t267*t111-3.508934038473122*t81*t128*
3478 t109*t86*t110*t122*t111)-96.0*t125*t127*t81*t90*t99+3.0*t267*
3479 t81*t83*t84*t99+24.0*t122*t127*t81*t84*t99-24.0*t122*t125*
3480 t81*t83*t99+.0592553691076956*t81*t277*t86*t90*t93-.0043947732088208*
3481 t81*t1*t2*t3*t103*t128*t90*t93+.0592553691076956*t81*t85*t86*
3482 t267*t93+.1185107382153912*t81*t128*t86*t122*t93-.0043947732088208*
3483 t81*t1*t2*t3*t103*t85*t122*t93+24.0*t127*t133*t81*t84*t90+
3484 6.0*t122*t133*t81*t83*t84-3.0*t50*t222*t34*t55+.1369866666666666*
3485 t1*t2*t3*t50*t54*t55*t53+t391+t390+t389+t388+t387+t386+t385+
3486 t384+t383+t382+t381+t380+t379+t378+.0018928513185185*t1*t2*
3487 t3*t19*t221+6.0*t50*t218*t34*t220-96.4940495336121*t217*t218*
3488 t34*t219+0.20548*t1*t2*t3*t50*t222*t55*t12-.4109599999999999*
3489 t1*t2*t3*t50*t218*t220*t12+6.60919909938887*t1*t2*t3*t217*
3490 t218*t219*t12-3.508934038473122*t81*t128*t109*t86*t110*t90*
3491 t111-3.508934038473122*t81*t85*t109*t86*t110*t122*t111;
3492 t479 = 1/pow(t62,7.0);
3493 t480 = -.9486126222222223*t21*t368*t68+.0462770410666667*
3494 t21*t368*t60*t67+0.0445446144*t29*t367*t67-5.85170432e-4*t21*
3495 t368*t66*t65-0.0014791417344*t29*t367*t60*t65-2.440820736e-4*
3496 t26*t366*t65+3.389143296000001e-6*t21*t368*t64*t63+1.7743283712e-5*
3497 t29*t367*t66*t63+7.5286204416e-6*t26*t366*t60*t63-8.035163136e-9*
3498 t21*t368*t61*t138-9.726864998400001e-8*t29*t367*t64*t138-8.698724352e-8*
3499 t26*t366*t66*t138+2.0661848064e-10*t29*t367*t61*t295+4.5388283904e-10*
3500 t26*t366*t64*t295-9.0160791552e-13*t26*t366*t61*t479;
3501 t481 = .0395035794051304*t81*t85*t86*t297*t93;
3502 t482 = .0395035794051304*t81*t128*t86*t185*t93;
3503 t483 = .0395035794051304*t81*t187*t86*t122*t93;
3504 t484 = .0395035794051304*t81*t298*t86*t90*t93;
3505 t485 = 2.0*t297*t81*t83*t84*t99;
3506 t486 = -1.169644679491041*t81*t85*t109*t86*t110*t297*
3507 t111;
3508 t487 = -1.169644679491041*t81*t128*t109*t86*t110*t185*
3509 t111;
3510 t488 = -1.169644679491041*t81*t187*t109*t86*t110*t122*
3511 t111;
3512 t489 = -1.169644679491041*t81*t298*t109*t86*t110*t90*
3513 t111;
3514 t490 = -.0014649244029403*t81*t1*t2*t3*t103*t85*t297*
3515 t93;
3516 t491 = t437-2.0*t258;
3517 t492 = t442+2.0*t258;
3518 t493 = 1.777777777777778*t120*t258*t263*t82-1.777777777777778*
3519 t117*t257*t258*t82+1.333333333333333*t121*t492+1.333333333333333*
3520 t118*t491-.2962962962962963*t184*t262*t441-.2962962962962963*
3521 t183*t256*t436+.4444444444444444*t184*t263*t266+.4444444444444444*
3522 t183*t257*t261;
3523 t494 = -.0014649244029403*t81*t1*t2*t3*t103*t128*t185*
3524 t93;
3525 t495 = -.0014649244029403*t81*t1*t2*t3*t103*t187*t122*
3526 t93;
3527 t496 = -.0014649244029403*t81*t1*t2*t3*t103*t298*t90*
3528 t93;
3529 t497 = -48.0*t125*t275;
3530 t498 = 24.0*t82*t84;
3531 t499 = t498+t497+t453-80.0*t127*t273;
3532 t500 = 2.0*t133*t297*t81*t83*t84;
3533 t501 = -12.0*t133*t275*t81*t84*t90;
3534 t502 = -8.0*t125*t297*t81*t83*t99;
3535 t503 = -24.0*t122*t275*t81*t84*t99;
3536 t504 = 48.0*t125*t275*t81*t90*t99;
3537 t505 = -24.0*t81*t82*t84*t90*t99;
3538 t506 = t70*(80.0*t127*t273*t81*t90*t99+8.0*t127*t297*
3539 t81*t84*t99+12.0*t185*t275*t81*t84*t99-4.0*t127*t267*t81*t84*
3540 t99+20.0*t185*t273*t81*t83*t99+40.0*t122*t273*t81*t83*t99-
3541 4.0*t125*t267*t81*t83*t99-32.0*t125*t127*t185*t81*t99+t81*
3542 t83*t84*t493*t99+.0197517897025652*t81*t499*t86*t90*t93-7.324622014701263e-4*
3543 t81*t1*t2*t3*t103*t277*t90*t93+9.766162686268349e-4*t81*t1*
3544 t2*t3*t240*t187*t90*t93+.0019532325372537*t81*t1*t2*t3*t240*
3545 t128*t90*t93+.0197517897025652*t81*t85*t86*t493*t93+.0395035794051304*
3546 t81*t128*t86*t297*t93+.0197517897025652*t81*t187*t86*t267*
3547 t93-7.324622014701263e-4*t81*t1*t2*t3*t103*t85*t267*t93+.0197517897025652*
3548 t81*t277*t86*t185*t93+9.766162686268349e-4*t81*t1*t2*t3*t240*
3549 t85*t185*t93+.0395035794051304*t81*t298*t86*t122*t93+.0019532325372537*
3550 t81*t1*t2*t3*t240*t85*t122*t93-.0014649244029403*t81*t1*t2*
3551 t3*t103*t128*t122*t93+4.0*t127*t284*t81*t84*t90-32.0*t125*
3552 t127*t133*t81*t90+2.0*t122*t284*t81*t83*t84+8.0*t127*t133*
3553 t185*t81*t84-8.0*t125*t133*t185*t81*t83-16.0*t122*t125*t133*
3554 t81*t83+t505+t504+t503+t502+t501+t500+t496+t495+t494+t490+
3555 t489+t488+t487+t486+t475+t469+t466+t464+t451+t434+t432+t430+
3556 t428+t426+t425+t424+t419+t418+t417+t414+t410+t404+t403+t402+
3557 t401+t400+t399+t398+t397+t395+t81*t83*t84*t185*t284-17.31575589937587*
3558 t81*t187*t244*t86*t245*t90*t246-34.63151179875173*t81*t128*
3559 t244*t86*t245*t90*t246-17.31575589937587*t81*t85*t244*t86*
3560 t245*t185*t246-34.63151179875173*t81*t85*t244*t86*t245*t122*
3561 t246+t81*t83*t84*t267*t133+1.169644679491041*t81*t187*t244*
3562 t86*t249*t90*t111+2.339289358982082*t81*t128*t244*t86*t249*
3563 t90*t111-.5848223397455204*t81*t187*t252*t86*t110*t90*t111-
3564 1.169644679491041*t81*t128*t252*t86*t110*t90*t111-.5848223397455204*
3565 t81*t277*t109*t86*t110*t90*t111+.0433743235311261*t81*t1*t2*
3566 t3*t103*t187*t109*t110*t90*t111+.0867486470622522*t81*t1*t2*
3567 t3*t103*t128*t109*t110*t90*t111-.5848223397455204*t81*t85*
3568 t109*t86*t110*t267*t111+1.169644679491041*t81*t85*t244*t86*
3569 t249*t185*t111-.5848223397455204*t81*t85*t252*t86*t110*t185*
3570 t111+.0433743235311261*t81*t1*t2*t3*t103*t85*t109*t110*t185*
3571 t111+2.339289358982082*t81*t85*t244*t86*t249*t122*t111-1.169644679491041*
3572 t81*t85*t252*t86*t110*t122*t111-1.169644679491041*t81*t128*
3573 t109*t86*t110*t122*t111+.0867486470622522*t81*t1*t2*t3*t103*
3574 t85*t109*t110*t122*t111)+8.0*t127*t185*t81*t84*t99-16.0*t122*
3575 t125*t81*t83*t99-.0029298488058805*t81*t1*t2*t3*t103*t128*
3576 t90*t93-.0029298488058805*t81*t1*t2*t3*t103*t85*t122*t93+4.0*
3577 t122*t133*t81*t83*t84+t485+t484+t483+t482+t481+t390+t389+t388+
3578 t387+t386+t385+t384+t383+t382+t381+t380+t379+t378+t341+t338+
3579 t335+t333+t326+t325+t299+t292+t289+t288+t278+t270+t268-2.339289358982082*
3580 t81*t128*t109*t86*t110*t90*t111-2.339289358982082*t81*t85*
3581 t109*t86*t110*t122*t111;
3582 t507 = 0.0148482048*t21*t58*t215*t67*t173-4.930472448e-4*
3583 t21*t58*t215*t60*t65*t173-2.440820736e-4*t29*t58*t214*t65*
3584 t173+5.914427903999999e-6*t21*t58*t215*t66*t63*t173+7.5286204416e-6*
3585 t29*t58*t214*t60*t63*t173-3.2422883328e-8*t21*t58*t215*t64*
3586 t138*t173-8.698724352e-8*t29*t58*t214*t66*t138*t173+6.887282688e-11*
3587 t21*t58*t215*t61*t295*t173+4.5388283904e-10*t29*t58*t214*t64*
3588 t295*t173-9.0160791552e-13*t29*t58*t214*t61*t479*t173;
3589 t508 = pow(grada,13.0);
3590 t509 = 1/pow(rhoa,20.66666666666667);
3591 t510 = -1.019626666666667*grada*t32*t215+3.544597333333334*
3592 t196*t30*t214-9.320640000000001*t195*t27*t213+9.938358328888892*
3593 t194*t24*t212-4.306446108444446*t192*t43*t211+.8044359680000001*
3594 t302*t209*t210-.0542922069333334*t508*t361*t509;
3595 t511 = -.0584476444444444*grada*t40*t215+.0123596458666667*
3596 t196*t39*t214-3.152200931555555e-4*t195*t38*t213+3.132750552177778e-6*
3597 t194*t37*t212-1.505224585671111e-8*t192*t56*t211+3.53456182613333e-11*
3598 t302*t223*t210-3.27631066453333e-14*t508*t376*t509;
3599 t512 = .4065482666666667*grada*t215*t68-0.0198330176*
3600 grada*t215*t60*t67-0.0273341952*t196*t214*t67+2.50787328e-4*
3601 grada*t215*t66*t65+9.076551552e-4*t196*t214*t60*t65+1.830615552e-4*
3602 t195*t213*t65-1.452489984e-6*grada*t215*t64*t63-1.0887924096e-5*
3603 t196*t214*t66*t63-5.6464653312e-6*t195*t213*t60*t63+3.443641344e-9*
3604 grada*t215*t61*t138+5.968758067200001e-8*t196*t214*t64*t138+
3605 6.524043264e-8*t195*t213*t66*t138-1.2678861312e-10*t196*t214*
3606 t61*t295-3.4041212928e-10*t195*t213*t64*t295+6.7620593664e-13*
3607 t195*t213*t61*t479;
3608 t513 = -0.0111361536*t21*gradb*t215*t67*t59+3.697854336e-4*
3609 t21*gradb*t215*t60*t65*t59+1.830615552e-4*t29*gradb*t214*t65*
3610 t59-4.435820928e-6*t21*gradb*t215*t66*t63*t59-5.6464653312e-6*
3611 t29*gradb*t214*t60*t63*t59+2.431716249600001e-8*t21*gradb*
3612 t215*t64*t138*t59+6.524043264e-8*t29*gradb*t214*t66*t138*t59-
3613 5.165462016e-11*t21*gradb*t215*t61*t295*t59-3.4041212928e-10*
3614 t29*gradb*t214*t64*t295*t59+6.7620593664e-13*t29*gradb*t214*
3615 t61*t479*t59;
3616 t514 = -8.0*t121*t82*t84+8.0*t118*t82*t84+1.777777777777778*
3617 t184*t258*t263*t82-1.777777777777778*t183*t257*t258*t82-.2962962962962963*
3618 t120*t329*t441-.2962962962962963*t117*t327*t436+.4444444444444444*
3619 t120*t263*t330+.4444444444444444*t117*t257*t328-2.666666666666667*
3620 t121*t258+2.666666666666667*t118*t258;
3621 t515 = t497+t455+t453+80.0*t127*t273;
3622 t516 = -24.0*t185*t275*t81*t84*t99;
3623 t517 = t70*(-80.0*t127*t273*t81*t90*t99+4.0*t127*t331*
3624 t81*t84*t99-8.0*t127*t297*t81*t84*t99+12.0*t122*t275*t81*t84*
3625 t99-4.0*t125*t331*t81*t83*t99+40.0*t185*t273*t81*t83*t99+20.0*
3626 t122*t273*t81*t83*t99+32.0*t122*t125*t127*t81*t99+t81*t83*
3627 t84*t514*t99+.0197517897025652*t81*t515*t86*t90*t93-7.324622014701263e-4*
3628 t81*t1*t2*t3*t103*t336*t90*t93+.0019532325372537*t81*t1*t2*
3629 t3*t240*t187*t90*t93+9.766162686268349e-4*t81*t1*t2*t3*t240*
3630 t128*t90*t93+.0197517897025652*t81*t85*t86*t514*t93+.0197517897025652*
3631 t81*t128*t86*t331*t93-7.324622014701263e-4*t81*t1*t2*t3*t103*
3632 t85*t331*t93+.0395035794051304*t81*t187*t86*t297*t93+.0395035794051304*
3633 t81*t298*t86*t185*t93+.0019532325372537*t81*t1*t2*t3*t240*
3634 t85*t185*t93-.0014649244029403*t81*t1*t2*t3*t103*t187*t185*
3635 t93+.0197517897025652*t81*t336*t86*t122*t93+9.766162686268349e-4*
3636 t81*t1*t2*t3*t240*t85*t122*t93-4.0*t127*t284*t81*t84*t90+32.0*
3637 t125*t127*t133*t81*t90+2.0*t185*t284*t81*t83*t84-8.0*t122*
3638 t127*t133*t81*t84-16.0*t125*t133*t185*t81*t83-8.0*t122*t125*
3639 t133*t81*t83+t516+t504+t502+t501+t500+t496+t495+t494+t490+
3640 t489+t488+t487+t486+t477+t475+t469+t466+t464+t451+t434+t432+
3641 t430+t428+t426+t425+t424+t419+t418+t417+t414+t410+t404+t403+
3642 t402+t401+t400+t399+t398+t397+t395+t81*t83*t84*t122*t284-34.63151179875173*
3643 t81*t187*t244*t86*t245*t90*t246-17.31575589937587*t81*t128*
3644 t244*t86*t245*t90*t246-34.63151179875173*t81*t85*t244*t86*
3645 t245*t185*t246-17.31575589937587*t81*t85*t244*t86*t245*t122*
3646 t246+t81*t83*t84*t331*t133+2.339289358982082*t81*t187*t244*
3647 t86*t249*t90*t111+1.169644679491041*t81*t128*t244*t86*t249*
3648 t90*t111-1.169644679491041*t81*t187*t252*t86*t110*t90*t111-
3649 .5848223397455204*t81*t128*t252*t86*t110*t90*t111-.5848223397455204*
3650 t81*t336*t109*t86*t110*t90*t111+.0867486470622522*t81*t1*t2*
3651 t3*t103*t187*t109*t110*t90*t111+.0433743235311261*t81*t1*t2*
3652 t3*t103*t128*t109*t110*t90*t111-.5848223397455204*t81*t85*
3653 t109*t86*t110*t331*t111+2.339289358982082*t81*t85*t244*t86*
3654 t249*t185*t111-1.169644679491041*t81*t85*t252*t86*t110*t185*
3655 t111-1.169644679491041*t81*t187*t109*t86*t110*t185*t111+.0867486470622522*
3656 t81*t1*t2*t3*t103*t85*t109*t110*t185*t111+1.169644679491041*
3657 t81*t85*t244*t86*t249*t122*t111-.5848223397455204*t81*t85*
3658 t252*t86*t110*t122*t111+.0433743235311261*t81*t1*t2*t3*t103*
3659 t85*t109*t110*t122*t111)-8.0*t122*t127*t81*t84*t99-16.0*t125*
3660 t185*t81*t83*t99-.0029298488058805*t81*t1*t2*t3*t103*t187*
3661 t90*t93-.0029298488058805*t81*t1*t2*t3*t103*t85*t185*t93+4.0*
3662 t133*t185*t81*t83*t84+t485+t484+t483+t482+t481+t390+t389+t388+
3663 t387+t386+t385+t384+t383+t382+t381+t380+t379+t378+t342+t340+
3664 t339+t337+t334+t332+t299+t290+t286+t271+t269+t254+t248-2.339289358982082*
3665 t81*t187*t109*t86*t110*t90*t111-2.339289358982082*t81*t85*
3666 t109*t86*t110*t185*t111;
3667 t518 = 0.0148482048*t21*t58*t48*t67*t315-4.930472448e-4*
3668 t21*t58*t48*t60*t65*t315+5.914427903999999e-6*t21*t58*t48*
3669 t66*t63*t315-3.2422883328e-8*t21*t58*t48*t64*t138*t315+6.887282688e-11*
3670 t21*t58*t48*t61*t295*t315-2.440820736e-4*t21*t156*t48*t65*
3671 t314+7.5286204416e-6*t21*t156*t48*t60*t63*t314-8.698724352e-8*
3672 t21*t156*t48*t66*t138*t314+4.5388283904e-10*t21*t156*t48*t64*
3673 t295*t314-9.0160791552e-13*t21*t156*t48*t61*t479*t314;
3674 t519 = -0.0080990208*grada*t58*t48*t67*t173+2.689348608e-4*
3675 grada*t58*t48*t60*t65*t173+1.830615552e-4*t196*t58*t47*t65*
3676 t173-3.226051584e-6*grada*t58*t48*t66*t63*t173-5.6464653312e-6*
3677 t196*t58*t47*t60*t63*t173+1.7685209088e-8*grada*t58*t48*t64*
3678 t138*t173+6.524043264e-8*t196*t58*t47*t66*t138*t173-3.756699648e-11*
3679 grada*t58*t48*t61*t295*t173-3.4041212928e-10*t196*t58*t47*
3680 t64*t295*t173+6.7620593664e-13*t196*t58*t47*t61*t479*t173;
3681 t520 = -
3682 0.0080990208*t21*gradb*t48*t67*t173+2.689348608e-4*t21*gradb*
3683 t48*t60*t65*t173-3.226051584e-6*t21*gradb*t48*t66*t63*t173+
3684 1.7685209088e-8*t21*gradb*t48*t64*t138*t173-3.756699648e-11*
3685 t21*gradb*t48*t61*t295*t173+1.830615552e-4*t21*t204*t48*t65*
3686 t172-5.6464653312e-6*t21*t204*t48*t60*t63*t172+6.524043264e-8*
3687 t21*t204*t48*t66*t138*t172-3.4041212928e-10*t21*t204*t48*t64*
3688 t295*t172+6.7620593664e-13*t21*t204*t48*t61*t479*t172;
3689 t521 = 1/pow(rhoa,19.66666666666667);
3690 t522 = 0.27808*t32*t48-1.72*t21*t30*t47+5.289356800000001*
3691 t29*t27*t46-6.196311893333335*t26*t24*t45+2.891203925333334*
3692 t20*t43*t44-.5736359253333334*t42*t209*t303+0.0407191552*t208*
3693 t361*t521;
3694 t523 = .0159402666666667*t40*t48-.0059015509333333*t21*
3695 t39*t47+1.831061162666666e-4*t29*t38*t46-2.025869175466667e-6*
3696 t26*t37*t45+1.041496364373334e-8*t20*t56*t44-2.56133474986667e-11*
3697 t42*t223*t303+2.4572329984e-14*t208*t376*t521;
3698 t524 = -0.1108768*t48*t68+0.0054090048*t48*t60*t67+0.015185664*
3699 t21*t47*t67-6.839654399999999e-5*t48*t66*t65-5.04252864e-4*
3700 t21*t47*t60*t65-1.372961664e-4*t29*t46*t65+3.96133632e-7*t48*
3701 t64*t63+6.04884672e-6*t21*t47*t66*t63+4.2348489984e-6*t29*
3702 t46*t60*t63-9.39174912e-10*t48*t61*t138-3.315976704e-8*t21*
3703 t47*t64*t138-4.893032448e-8*t29*t46*t66*t138+7.04381184e-11*
3704 t21*t47*t61*t295+2.5530909696e-10*t29*t46*t64*t295-5.0715445248e-13*
3705 t29*t46*t61*t479;
3706 t525 = 0.0060742656*grada*gradb*t48*t67*t59-2.017011456e-4*
3707 grada*gradb*t48*t60*t65*t59-1.372961664e-4*t196*gradb*t47*
3708 t65*t59+2.419538688e-6*grada*gradb*t48*t66*t63*t59+4.2348489984e-6*
3709 t196*gradb*t47*t60*t63*t59-1.3263906816e-8*grada*gradb*t48*
3710 t64*t138*t59-4.893032448e-8*t196*gradb*t47*t66*t138*t59+2.817524736e-11*
3711 grada*gradb*t48*t61*t295*t59+2.5530909696e-10*t196*gradb*t47*
3712 t64*t295*t59-5.0715445248e-13*t196*gradb*t47*t61*t479*t59;
3713 t526 = 0.0030371328*
3714 t21*t48*t67*t59-1.008505728e-4*t21*t48*t60*t65*t59+1.209769344e-6*
3715 t21*t48*t66*t63*t59-6.631953408000001e-9*t21*t48*t64*t138*
3716 t59+1.408762368e-11*t21*t48*t61*t295*t59-1.372961664e-4*t21*
3717 t58*t48*t65*t158+4.2348489984e-6*t21*t58*t48*t60*t63*t158-
3718 4.893032448e-8*t21*t58*t48*t66*t138*t158+2.5530909696e-10*
3719 t21*t58*t48*t64*t295*t158-5.0715445248e-13*t21*t58*t48*t61*
3720 t479*t158;
3721 t527 = pow(gradb,14.0);
3722 t528 = 1/pow(t150,7.0);
3723 t529 = 1/pow(rhob,21.66666666666667);
3724 t530 = 1/pow(rhob,19.0);
3725 t531 = 1/pow(rhob,16.33333333333333);
3726 t532 = 1/pow(rhob,13.66666666666667);
3727 t533 = 1/pow(rhob,11.0);
3728 t534 = 1/pow(rhob,8.333333333333334);
3729 t535 = 1/pow(rhob,5.666666666666667);
3730 t536 = 2.379128888888889*t58*t159*t535-6.396465777777778*
3731 t156*t157*t534+15.31168853333334*t153*t154*t533-15.30310874074074*
3732 t149*t151*t532+6.274903077925926*t167*t168*t531-1.117824796444445*
3733 t308*t309*t530+.0723896092444445*t527*t528*t529;
3734 t537 = 1/pow(t145,3.0);
3735 t538 = pow(t179,3.0);
3736 t539 = 1/pow(t144,6.0);
3737 t540 = 1/pow(t144,5.0);
3738 t541 = 1/pow(rhob,3.333333333333333);
3739 t542 = -5.948240277777777*t14*t15*t16/pow(rhob,3.166666666666667)-
3740 3.1558125*t8*t9/pow(t141,7.0)-6.427244444444445*t1*t2*t3*t541-
3741 1.852355555555556*t4*t5*t6*t173;
3742 t543 = 1/pow(t161,7.0);
3743 t544 = 0.136377837037037*t58*t165*t535-.0225424554666667*
3744 t156*t164*t534+5.091990148740739e-4*t153*t163*t533-4.693471702281481e-6*
3745 t149*t162*t532+2.142740322228149e-8*t167*t181*t531-4.84926204586667e-11*
3746 t308*t323*t530+4.36841421937778e-14*t527*t543*t529;
3747 t545 = -51.9472676981276*t81*t85*t244*t86*t245*t185*t246;
3748 t546 = -
3749 51.9472676981276*t81*t187*t244*t86*t245*t90*t246;
3750 t547 = 3.508934038473122*t81*t85*t244*t86*t249*t185*t111;
3751 t548 = .1301229705933783*
3752 t81*t1*t2*t3*t103*t85*t109*t110*t185*t111;
3753 t549 = -1.754467019236561*t81*t85*t252*t86*t110*t185*
3754 t111;
3755 t550 = 3.508934038473122*t81*t187*t244*t86*t249*t90*t111;
3756 t551 = .1301229705933783*
3757 t81*t1*t2*t3*t103*t187*t109*t110*t90*t111;
3758 t552 = -1.754467019236561*t81*t187*t252*t86*t110*t90*
3759 t111;
3760 t553 = pow(t183,3.0);
3761 t554 = t443+t437;
3762 t555 = pow(t184,3.0);
3763 t556 = t438+t442;
3764 t557 = 1.333333333333333*t121*t556-.2962962962962963*
3765 t441*t555+1.333333333333333*t118*t554-.2962962962962963*t436*
3766 t553+1.333333333333333*t184*t263*t330+1.333333333333333*t183*
3767 t257*t328;
3768 t558 = .0197517897025652*t81*t85*t86*t557*t93;
3769 t559 = .0592553691076956*t81*t187*t86*t331*t93;
3770 t560 = .0029298488058805*t81*t1*t2*t3*t240*t85*t185*t93;
3771 t561 = .0592553691076956*
3772 t81*t336*t86*t185*t93;
3773 t562 = .0029298488058805*t81*t1*t2*t3*t240*t187*t90*t93;
3774 t563 = t498+
3775 t454+t453+240.0*t127*t273;
3776 t564 = .0197517897025652*t81*t563*t86*t90*t93;
3777 t565 = 3.0*t185*t284*t81*t83*t84;
3778 t566 = -24.0*t125*t133*t185*t81*t83;
3779 t567 = -24.0*t127*t133*t185*t81*t84;
3780 t568 = t81*t83*t84*t557*t99;
3781 t569 = 60.0*t185*t273*t81*t83*t99;
3782 t570 = 96.0*t125*t127*t185*t81*t99;
3783 t571 = 36.0*t185*t275*t81*t84*t99;
3784 t572 = 192.9880990672242*t317*t538*t147*t540*rhob-2069.133687865597*
3785 t537*t538*t147*t539*rhob+6.0*t175*t322*t179*t147*t320*rhob-
3786 6.0*t175*t538*t147*t319*rhob-96.4940495336121*t317*t322*t179*
3787 t147*t319*rhob-1.0*t175*t542*t147*t180*rhob+t70*(-240.0*t127*
3788 t273*t81*t90*t99-12.0*t127*t331*t81*t84*t99-12.0*t125*t331*
3789 t81*t83*t99-.0021973866044104*t81*t1*t2*t3*t103*t336*t90*t93-
3790 .0021973866044104*t81*t1*t2*t3*t103*t85*t331*t93-.0043947732088208*
3791 t81*t1*t2*t3*t103*t187*t185*t93-12.0*t127*t284*t81*t84*t90+
3792 96.0*t125*t127*t133*t81*t90+3.0*t133*t331*t81*t83*t84+t571+
3793 t570+t569+t568+t567+t566+t565+t564+t562+t561+t560+t559+t558+
3794 t552+t551+t550+t549+t548+t547+t546+t545+t505+t476+t475+t470+
3795 t469+t466+t464+t451+t434+t432+t430+t428+t426+t425+t424+t419+
3796 t418+t417+t414+t410+t404+t403+t402+t401+t400+t399+t398+t397+
3797 t395-1.754467019236561*t81*t336*t109*t86*t110*t90*t111-1.754467019236561*
3798 t81*t85*t109*t86*t110*t331*t111-3.508934038473122*t81*t187*
3799 t109*t86*t110*t185*t111)+96.0*t125*t127*t81*t90*t99+3.0*t331*
3800 t81*t83*t84*t99-24.0*t127*t185*t81*t84*t99-24.0*t125*t185*
3801 t81*t83*t99+.0592553691076956*t81*t336*t86*t90*t93-.0043947732088208*
3802 t81*t1*t2*t3*t103*t187*t90*t93+.0592553691076956*t81*t85*t86*
3803 t331*t93+.1185107382153912*t81*t187*t86*t185*t93-.0043947732088208*
3804 t81*t1*t2*t3*t103*t85*t185*t93-24.0*t127*t133*t81*t84*t90+
3805 6.0*t133*t185*t81*t83*t84+t391+t390+t389+t388+t387+t386+t385+
3806 t384+t383+t382+t381+t380+t379+t378+.0018928513185185*t1*t2*
3807 t3*t146*t321+6.0*t175*t318*t147*t320-96.4940495336121*t317*
3808 t318*t147*t319-3.0*t175*t322*t147*t180+.1369866666666666*t1*
3809 t2*t3*t175*t179*t180*t178-.4109599999999999*t1*t2*t3*t175*
3810 t318*t320*t143+6.60919909938887*t1*t2*t3*t317*t318*t319*t143+
3811 0.20548*t1*t2*t3*t175*t322*t180*t143-3.508934038473122*t81*
3812 t187*t109*t86*t110*t90*t111-3.508934038473122*t81*t85*t109*
3813 t86*t110*t185*t111;
3814 t573 = -.9486126222222223*t58*t68*t535+.0462770410666667*
3815 t58*t60*t67*t535-5.85170432e-4*t58*t66*t65*t535+3.389143296000001e-6*
3816 t58*t64*t63*t535-8.035163136e-9*t58*t61*t138*t535+0.0445446144*
3817 t156*t67*t534-0.0014791417344*t156*t60*t65*t534+1.7743283712e-5*
3818 t156*t66*t63*t534-9.726864998400001e-8*t156*t64*t138*t534+
3819 2.0661848064e-10*t156*t61*t295*t534-2.440820736e-4*t153*t65*
3820 t533+7.5286204416e-6*t153*t60*t63*t533-8.698724352e-8*t153*
3821 t66*t138*t533+4.5388283904e-10*t153*t64*t295*t533-9.0160791552e-13*
3822 t153*t61*t479*t533;
3823 t574 = -0.0111361536*grada*t58*t22*t67*t315+3.697854336e-4*
3824 grada*t58*t22*t60*t65*t315-4.435820928e-6*grada*t58*t22*t66*
3825 t63*t315+2.431716249600001e-8*grada*t58*t22*t64*t138*t315-
3826 5.165462016e-11*grada*t58*t22*t61*t295*t315+1.830615552e-4*
3827 grada*t156*t22*t65*t314-5.6464653312e-6*grada*t156*t22*t60*
3828 t63*t314+6.524043264e-8*grada*t156*t22*t66*t138*t314-3.4041212928e-10*
3829 grada*t156*t22*t64*t295*t314+6.7620593664e-13*grada*t156*t22*
3830 t61*t479*t314;
3831 t575 = pow(gradb,13.0);
3832 t576 = 1/pow(rhob,20.66666666666667);
3833 t577 = -1.019626666666667*gradb*t159*t315+3.544597333333334*
3834 t204*t157*t314-9.320640000000001*t203*t154*t313+9.938358328888892*
3835 t202*t151*t312-4.306446108444446*t200*t168*t311+.8044359680000001*
3836 t346*t309*t310-.0542922069333334*t575*t528*t576;
3837 t578 = -.0584476444444444*gradb*t165*t315+.0123596458666667*
3838 t204*t164*t314-3.152200931555555e-4*t203*t163*t313+3.132750552177778e-6*
3839 t202*t162*t312-1.505224585671111e-8*t200*t181*t311+3.53456182613333e-11*
3840 t346*t323*t310-3.27631066453333e-14*t575*t543*t576;
3841 t579 = .4065482666666667*gradb*t68*t315-0.0198330176*
3842 gradb*t60*t67*t315+2.50787328e-4*gradb*t66*t65*t315-1.452489984e-6*
3843 gradb*t64*t63*t315+3.443641344e-9*gradb*t61*t138*t315-0.0273341952*
3844 t204*t67*t314+9.076551552e-4*t204*t60*t65*t314-1.0887924096e-5*
3845 t204*t66*t63*t314+5.968758067200001e-8*t204*t64*t138*t314-
3846 1.2678861312e-10*t204*t61*t295*t314+1.830615552e-4*t203*t65*
3847 t313-5.6464653312e-6*t203*t60*t63*t313+6.524043264e-8*t203*
3848 t66*t138*t313-3.4041212928e-10*t203*t64*t295*t313+6.7620593664e-13*
3849 t203*t61*t479*t313;
3850 t580 = 0.0030371328*t58*t22*t67*t173-1.008505728e-4*t58*
3851 t22*t60*t65*t173-1.372961664e-4*t21*t58*t31*t65*t173+1.209769344e-6*
3852 t58*t22*t66*t63*t173+4.2348489984e-6*t21*t58*t31*t60*t63*t173-
3853 6.631953408000001e-9*t58*t22*t64*t138*t173-4.893032448e-8*
3854 t21*t58*t31*t66*t138*t173+1.408762368e-11*t58*t22*t61*t295*
3855 t173+2.5530909696e-10*t21*t58*t31*t64*t295*t173-5.0715445248e-13*
3856 t21*t58*t31*t61*t479*t173;
3857 t581 = 0.0060742656*grada*gradb*t22*t67*t173-2.017011456e-4*
3858 grada*gradb*t22*t60*t65*t173+2.419538688e-6*grada*gradb*t22*
3859 t66*t63*t173-1.3263906816e-8*grada*gradb*t22*t64*t138*t173+
3860 2.817524736e-11*grada*gradb*t22*t61*t295*t173-1.372961664e-4*
3861 grada*t204*t22*t65*t172+4.2348489984e-6*grada*t204*t22*t60*
3862 t63*t172-4.893032448e-8*grada*t204*t22*t66*t138*t172+2.5530909696e-10*
3863 grada*t204*t22*t64*t295*t172-5.0715445248e-13*grada*t204*t22*
3864 t61*t479*t172;
3865 t582 = 1/pow(rhob,19.66666666666667);
3866 t583 = 0.27808*t159*t173-1.72*t58*t157*t172+5.289356800000001*
3867 t156*t154*t171-6.196311893333335*t153*t151*t170+2.891203925333334*
3868 t149*t168*t169-.5736359253333334*t167*t309*t347+0.0407191552*
3869 t308*t528*t582;
3870 t584 = .0159402666666667*t165*t173-.0059015509333333*
3871 t58*t164*t172+1.831061162666666e-4*t156*t163*t171-2.025869175466667e-6*
3872 t153*t162*t170+1.041496364373334e-8*t149*t181*t169-2.56133474986667e-11*
3873 t167*t323*t347+2.4572329984e-14*t308*t543*t582;
3874 t585 = -0.1108768*t68*t173+0.0054090048*t60*t67*t173-
3875 6.839654399999999e-5*t66*t65*t173+3.96133632e-7*t64*t63*t173-
3876 9.39174912e-10*t61*t138*t173+0.015185664*t58*t67*t172-5.04252864e-4*
3877 t58*t60*t65*t172+6.04884672e-6*t58*t66*t63*t172-3.315976704e-8*
3878 t58*t64*t138*t172+7.04381184e-11*t58*t61*t295*t172-1.372961664e-4*
3879 t156*t65*t171+4.2348489984e-6*t156*t60*t63*t171-4.893032448e-8*
3880 t156*t66*t138*t171+2.5530909696e-10*t156*t64*t295*t171-5.0715445248e-13*
3881 t156*t61*t479*t171;
3882 t586 = 1/pow(rhoa,18.66666666666667);
3883 t587 = 0.665856*grada*t30*t31-2.727897600000001*t196*
3884 t27*t28+3.671293440000001*t195*t24*t25-1.890872832000001*t194*
3885 t43*t193+.4047774720000001*t192*t209*t351-0.0305393664*t302*
3886 t361*t586;
3887 t588 = 0.002236992*grada*t39*t31-9.739084800000001e-5*
3888 t196*t38*t28+1.259367628800001e-6*t195*t37*t25-7.081087795200001e-9*
3889 t194*t56*t193+1.8442125312e-11*t192*t223*t351-1.8429247488e-14*
3890 t302*t376*t586;
3891 t589 = -0.0068335488*grada*t31*t67+2.269137888e-4*grada*
3892 t31*t60*t65+1.029721248e-4*t196*t28*t65-2.721981024000001e-6*
3893 grada*t31*t66*t63-3.1761367488e-6*t196*t28*t60*t63+1.4921895168e-8*
3894 grada*t31*t64*t138+3.669774336000001e-8*t196*t28*t66*t138-
3895 3.169715328e-11*grada*t31*t61*t295-1.9148182272e-10*t196*t28*
3896 t64*t295+3.8036583936e-13*t196*t28*t61*t479;
3897 t590 = -0.0022778496*gradb*t22*t67*t59+7.563792960000001e-5*
3898 gradb*t22*t60*t65*t59+1.029721248e-4*t21*gradb*t31*t65*t59-
3899 9.073270080000002e-7*gradb*t22*t66*t63*t59-3.1761367488e-6*
3900 t21*gradb*t31*t60*t63*t59+4.973965056000001e-9*gradb*t22*t64*
3901 t138*t59+3.669774336000001e-8*t21*gradb*t31*t66*t138*t59-1.056571776e-11*
3902 gradb*t22*t61*t295*t59-1.9148182272e-10*t21*gradb*t31*t64*
3903 t295*t59+3.8036583936e-13*t21*gradb*t31*t61*t479*t59;
3904 t591 = -0.0022778496*grada*t22*t67*t59+7.563792960000001e-5*
3905 grada*t22*t60*t65*t59-9.073270080000002e-7*grada*t22*t66*t63*
3906 t59+4.973965056000001e-9*grada*t22*t64*t138*t59-1.056571776e-11*
3907 grada*t22*t61*t295*t59+1.029721248e-4*grada*t58*t22*t65*t158-
3908 3.1761367488e-6*grada*t58*t22*t60*t63*t158+3.669774336000001e-8*
3909 grada*t58*t22*t66*t138*t158-1.9148182272e-10*grada*t58*t22*
3910 t64*t295*t158+3.8036583936e-13*grada*t58*t22*t61*t479*t158;
3911 t592 = 1/
3912 pow(rhob,18.66666666666667);
3913 t593 = 0.665856*gradb*t157*t158-2.727897600000001*t204*
3914 t154*t155+3.671293440000001*t203*t151*t152-1.890872832000001*
3915 t202*t168*t201+.4047774720000001*t200*t309*t356-0.0305393664*
3916 t346*t528*t592;
3917 t594 = 0.002236992*gradb*t164*t158-9.739084800000001e-5*
3918 t204*t163*t155+1.259367628800001e-6*t203*t162*t152-7.081087795200001e-9*
3919 t202*t181*t201+1.8442125312e-11*t200*t323*t356-1.8429247488e-14*
3920 t346*t543*t592;
3921 t595 = -0.0068335488*gradb*t67*t158+2.269137888e-4*gradb*
3922 t60*t65*t158-2.721981024000001e-6*gradb*t66*t63*t158+1.4921895168e-8*
3923 gradb*t64*t138*t158-3.169715328e-11*gradb*t61*t295*t158+1.029721248e-4*
3924 t204*t65*t155-3.1761367488e-6*t204*t60*t63*t155+3.669774336000001e-8*
3925 t204*t66*t138*t155-1.9148182272e-10*t204*t64*t295*t155+3.8036583936e-13*
3926 t204*t61*t479*t155;
3927 t596 = pow(grada,16.0);
3928 t597 = 1/pow(t23,8.0);
3929 t598 = 1/pow(rhoa,25.33333333333333);
3930 t599 = 1/pow(rhoa,22.66666666666667);
3931 t600 = 1/pow(rhoa,20.0);
3932 t601 = 1/pow(rhoa,17.33333333333333);
3933 t602 = 1/pow(rhoa,14.66666666666667);
3934 t603 = 1/pow(rhoa,12.0);
3935 t604 = 1/pow(rhoa,9.333333333333334);
3936 t605 = 1/pow(rhoa,6.666666666666667);
3937 t606 = 1/pow(t18,4.0);
3938 t607 = pow(t54,4.0);
3939 t608 = 1/pow(t17,8.0);
3940 t609 = 1/pow(t17,7.0);
3941 t610 = pow(t222,2.0);
3942 t611 = 21.42414814814815*t1*t2*t3/pow(rhoa,4.333333333333333)+
3943 18.83609421296296*t14*t15*t16/pow(rhoa,4.166666666666667)+
3944 11.04534375*t8*t9/pow(t10,9.0)+6.79197037037037*t4*t5*t6*t215;
3945 t612 = 1/
3946 pow(t36,8.0);
3947 t613 = 2069.000588228246*t392*t72*t393*t394;
3948 t614 = -385.9637837316264*t392*t72*t396*t233;
3949 t615 = -13.74674343057476*t1*t2*t3*t103*t231*t232*t233;
3950 t616 = 192.9818918658132*
3951 t242*t105*t72*t232*t233;
3952 t617 = 24.0*t392*t72*t232*t107;
3953 t618 = 1.7096*t1*t2*t3*t103*t231*t235*t107;
3954 t619 = -24.0*t242*t105*t72*t235*t107;
3955 t620 = -.8547999999999998*t1*t2*t3*t103*t242*t106*t107;
3956 t621 = 1.139733333333333*
3957 t1*t2*t3*t240*t105*t106*t107;
3958 t622 = 4.0*t409*t72*t106*t107;
3959 t623 = -4101.558808403119*t81*t85*t411*t86*t412*t90*t413;
3960 t624 = 415.5781415850208*
3961 t81*t85*t411*t86*t416*t90*t246;
3962 t625 = 7.70551137522226*t81*t1*t2*t3*t103*t85*t244*t245*
3963 t90*t246;
3964 t626 = -207.7890707925104*t81*t85*t252*t109*t86*t245*
3965 t90*t246;
3966 t627 = -14.03573615389249*t81*t85*t411*t86*t245*t90*t111;
3967 t628 = -
3968 .5204918823735132*t81*t1*t2*t3*t103*t85*t244*t249*t90*t111;
3969 t629 = 14.03573615389249*
3970 t81*t85*t252*t109*t86*t249*t90*t111;
3971 t630 = .2602459411867566*t81*t1*t2*t3*t103*t85*t252*t110*
3972 t90*t111;
3973 t631 = -.3469945882490088*t81*t1*t2*t3*t240*t85*t109*
3974 t110*t90*t111;
3975 t632 = -2.339289358982082*t81*t85*t431*t86*t110*t90*t111;
3976 t633 = .0551218096592593*
3977 t1*t2*t3*t407*t79;
3978 t634 = -.0091150851738505*t81*t1*t2*t3*t407*t85*t90*t93;
3979 t635 = 4.0*
3980 t463*t81*t83*t84*t90;
3981 t636 = -48.0*t125*t284*t81*t83*t90;
3982 t637 = 240.0*t133*t273*t81*t83*t90;
3983 t638 = 144.0*t133*t275*t81*t84*t90;
3984 t639 = -480.0*t452*t81*t83*t90*t99;
3985 t640 = -576.0*t125*t275*t81*t90*t99;
3986 t641 = pow(t105,4.0);
3987 t642 = 1/pow(t77,8.0);
3988 t643 = 1/pow(t78,4.0);
3989 t644 = 24954.97798673546*t641*t72*t642*t643;
3990 t645 = 1/pow(t77,7.0);
3991 t646 = -6207.001764684737*t641*t72*t645*t394;
3992 t647 = -147.3818085681254*t1*t2*t3*t103*t392*t393*t394;
3993 t648 = 3103.500882342369*
3994 t242*t231*t72*t393*t394;
3995 t649 = 578.9456755974396*t641*t72*t393*t233;
3996 t650 = 27.49348686114952*t1*t2*t3*t103*t392*t396*t233;
3997 t651 = -
3998 578.9456755974396*t242*t231*t72*t396*t233;
3999 t652 = -13.74674343057476*t1*t2*t3*t103*t242*t105*t232*
4000 t233;
4001 t653 = 9.164495620383173*t1*t2*t3*t240*t231*t232*t233;
4002 t654 = pow(t242,
4003 2.0);
4004 t655 = 48.2454729664533*t654*t72*t232*t233;
4005 t656 = 64.3272972886044*t409*t105*t72*t232*t233;
4006 t657 = -24.0*t641*t72*t396*t107;
4007 t658 = -1.7096*t1*t2*t3*t103*t392*t232*t107;
4008 t659 = 36.0*t242*t231*t72*t232*t107;
4009 t660 = 1.7096*t1*t2*t3*t103*t242*t105*t235*t107;
4010 t661 = -1.139733333333333*t1*t2*t3*t240*t231*t235*t107;
4011 t662 = -
4012 6.0*t654*t72*t235*t107;
4013 t663 = -8.0*t409*t105*t72*t235*t107;
4014 t664 = -.2849333333333333*t1*t2*t3*t103*t409*t106*t107;
4015 t665 = .5698666666666665*
4016 t1*t2*t3*t240*t242*t106*t107;
4017 t666 = -.8864592592592592*t1*t2*t3*t407*t105*t106*t107;
4018 t667 = 1/
4019 pow(t70,4.666666666666667);
4020 t668 = 1/pow(t74,9.0);
4021 t669 = 1/pow(t70,4.333333333333333);
4022 t670 = 1/pow(t70,4.166666666666667);
4023 t671 = 10.13346087962963*t14*t15*t16*t670+12.40158024691358*
4024 t1*t2*t3*t669+5.37534375*t8*t9*t668+5.355397530864196*t4*t5*
4025 t6*t667;
4026 t672 = .9999999999999999*t671*t72*t106*t107;
4027 t673 = pow(t109,4.0);
4028 t674 = -91080.98259910994*t673*t81*t85*t86*t90/(pow(t91,
4029 8.0)*pow(t92,4.0));
4030 t675 = 12304.67642520936*t413*t673*t81*t85*t86*t90/pow(t91,
4031 7.0);
4032 t676 = 152.0994724782823*t81*t1*t2*t3*t103*t85*t411*t412*
4033 t90*t413;
4034 t677 = -6152.338212604678*t81*t85*t252*t244*t86*t412*
4035 t90*t413;
4036 t678 = -623.3672123775311*t81*t85*t673*t86*t412*t90*t246;
4037 t679 = -
4038 15.41102275044452*t81*t1*t2*t3*t103*t85*t411*t416*t90*t246;
4039 t680 = 623.3672123775311*
4040 t81*t85*t252*t244*t86*t416*t90*t246;
4041 t681 = 7.70551137522226*t81*t1*t2*t3*t103*t85*t252*t109*
4042 t245*t90*t246;
4043 t682 = -5.137007583481506*t81*t1*t2*t3*t240*t85*t244*
4044 t245*t90*t246;
4045 t683 = pow(t252,2.0);
4046 t684 = -51.9472676981276*t81*t85*t683*t86*t245*t90*t246;
4047 t685 = -
4048 69.26302359750346*t81*t85*t431*t109*t86*t245*t90*t246;
4049 t686 = 14.03573615389249*t81*t85*t673*t86*t416*t90*t111;
4050 t687 = .5204918823735132*
4051 t81*t1*t2*t3*t103*t85*t411*t245*t90*t111;
4052 t688 = -21.05360423083874*t81*t85*t252*t244*t86*t245*
4053 t90*t111;
4054 t689 = -.5204918823735132*t81*t1*t2*t3*t103*t85*t252*
4055 t109*t249*t90*t111;
4056 t690 = .3469945882490088*t81*t1*t2*t3*t240*t85*t244*t249*
4057 t90*t111;
4058 t691 = 3.508934038473122*t81*t85*t683*t86*t249*t90*t111;
4059 t692 = 4.678578717964164*
4060 t81*t85*t431*t109*t86*t249*t90*t111;
4061 t693 = .0867486470622522*t81*t1*t2*t3*t103*t85*t431*t110*
4062 t90*t111;
4063 t694 = -.1734972941245044*t81*t1*t2*t3*t240*t85*t252*
4064 t110*t90*t111;
4065 t695 = 0.269884679749229*t81*t1*t2*t3*t407*t85*t109*t110*
4066 t90*t111;
4067 t696 = -.5848223397455204*t81*(13.81732484567901*t14*
4068 t15*t16*t670+12.5242962962963*t1*t2*t3*t669+2.888353125*t8*
4069 t9*t668+5.396355555555555*t4*t5*t6*t667)*t85*t86*t110*t90*
4070 t111;
4071 t697 = -.0459348413827161*t1*t2*t3*t669*t79;
4072 t698 = 1/pow(t88,2.666666666666667);
4073 t699 = -24.0*t125*t82;
4074 t700 = 24.0*t84;
4075 t701 = 1/pow(t89,2.666666666666667);
4076 t702 = 24.0*t125*t82;
4077 t703 = -24.0*t84;
4078 t704 = 1.333333333333333*t121*(t703+t702)+.4938271604938271*
4079 pow(t120,4.0)*t701+1.333333333333333*t118*(t700+t699)+.4938271604938271*
4080 pow(t117,4.0)*t698+1.777777777777778*t120*t263*t444-1.777777777777778*
4081 t262*t266*t441+1.777777777777778*t117*t257*t439-1.777777777777778*
4082 t256*t261*t436+1.333333333333333*t263*pow(t266,2.0)+1.333333333333333*
4083 t257*pow(t261,2.0);
4084 t705 = .0075959043115421*t81*t1*t2*t3*t669*t85*t90*t93;
4085 t706 = 1/
4086 pow(t70,8.0);
4087 t707 = -840.0*t706*t83;
4088 t708 = -1440.0*t273*t275;
4089 t709 = pow(t130,4.0);
4090 t710 = pow(t283,2.0);
4091 t711 = t81*t83*t84*t90*(-0.022083265382716*t1*t2*t3*t669*
4092 t98+199659.0885685683*t709*t95/(pow(t96,8.0)*pow(t97,4.0))-
4093 24829.60425438716*t460*t709*t95/pow(t96,7.0)-6.0*t132*t282*
4094 t710*t95-24.0*t132*t461*t709*t95-8.0*t130*t132*t282*t462*t95+
4095 36.0*t132*t279*t280*t283*t95+.0459348413827161*t1*t2*t3*t669*
4096 t79-24954.97798673546*t641*t72*t642*t643+12414.80212719358*
4097 t283*t279*t95*t459*t460-566.8874535768302*t1*t2*t3*t103*t458*
4098 t459*t460+6207.001764684737*t641*t72*t645*t394-3103.500882342369*
4099 t242*t231*t72*t393*t394+147.3818085681254*t1*t2*t3*t103*t392*
4100 t393*t394-1157.928594403345*t283*t279*t95*t461*t281+52.87359279511096*
4101 t1*t2*t3*t103*t458*t461*t281+1157.928594403345*t709*t95*t459*
4102 t281+96.4940495336121*t710*t95*t280*t281+128.6587327114828*
4103 t462*t130*t95*t280*t281+17.62453093170365*t1*t2*t3*t240*t279*
4104 t280*t281-26.43679639755548*t1*t2*t3*t103*t283*t130*t280*t281+
4105 578.9456755974396*t242*t231*t72*t396*t233-27.49348686114952*
4106 t1*t2*t3*t103*t392*t396*t233-578.9456755974396*t641*t72*t393*
4107 t233-48.2454729664533*t654*t72*t232*t233-64.3272972886044*
4108 t409*t105*t72*t232*t233-9.164495620383173*t1*t2*t3*t240*t231*
4109 t232*t233+13.74674343057476*t1*t2*t3*t103*t242*t105*t232*t233-
4110 1.095893333333333*t1*t2*t3*t240*t279*t282*t132+1.64384*t1*
4111 t2*t3*t103*t283*t130*t282*t132-1.64384*t1*t2*t3*t103*t458*
4112 t280*t132+(18.83609421296296*t14*t15*t16*t670+21.42414814814815*
4113 t1*t2*t3*t669+11.04534375*t8*t9*t668+6.79197037037037*t4*t5*
4114 t6*t667)*t95*t131*t132-.2739733333333333*t1*t2*t3*t103*t462*
4115 t131*t132+.5479466666666666*t1*t2*t3*t240*t283*t131*t132-.8523614814814813*
4116 t1*t2*t3*t407*t130*t131*t132+24.0*t641*t72*t396*t107+6.0*t654*
4117 t72*t235*t107+8.0*t409*t105*t72*t235*t107+1.139733333333333*
4118 t1*t2*t3*t240*t231*t235*t107-1.7096*t1*t2*t3*t103*t242*t105*
4119 t235*t107-36.0*t242*t231*t72*t232*t107+1.7096*t1*t2*t3*t103*
4120 t392*t232*t107-.9999999999999999*t671*t72*t106*t107+.2849333333333333*
4121 t1*t2*t3*t103*t409*t106*t107-.5698666666666665*t1*t2*t3*t240*
4122 t242*t106*t107+.8864592592592592*t1*t2*t3*t407*t105*t106*t107);
4123 t712 = -
4124 16.0*t125*t463*t81*t83*t90;
4125 t713 = 120.0*t273*t284*t81*t83*t90;
4126 t714 = 72.0*t275*t284*t81*t84*t90;
4127 t715 = -480.0*t133*t452*t81*t83*t90;
4128 t716 = -576.0*t125*t133*t275*t81*t90;
4129 t717 = 840.0*t706*t81*t83*t90*t99;
4130 t718 = 1440.0*t273*t275*t81*t90*t99;
4131 t719 = 24.0*t81*t84*t90*t99;
4132 t720 = 1/pow(t62,8.0);
4133 t721 = -3.508934038473122*t81*t85*t109*t86*t110*t297*
4134 t111;
4135 t722 = -3.508934038473122*t81*t128*t109*t86*t110*t185*
4136 t111;
4137 t723 = -3.508934038473122*t81*t187*t109*t86*t110*t122*
4138 t111;
4139 t724 = -3.508934038473122*t81*t298*t109*t86*t110*t90*
4140 t111;
4141 t725 = -.0043947732088208*t81*t1*t2*t3*t103*t85*t297*
4142 t93;
4143 t726 = -.0043947732088208*t81*t1*t2*t3*t103*t128*t185*
4144 t93;
4145 t727 = -.0043947732088208*t81*t1*t2*t3*t103*t187*t122*
4146 t93;
4147 t728 = -.0043947732088208*t81*t1*t2*t3*t103*t298*t90*
4148 t93;
4149 t729 = 6.0*t133*t297*t81*t83*t84;
4150 t730 = -24.0*t125*t297*t81*t83*t99;
4151 t731 = -51.9472676981276*t81*t85*t244*t86*t245*t297*t246;
4152 t732 = -
4153 51.9472676981276*t81*t128*t244*t86*t245*t185*t246;
4154 t733 = -51.9472676981276*t81*t187*t244*t86*t245*t122*
4155 t246;
4156 t734 = -51.9472676981276*t81*t298*t244*t86*t245*t90*t246;
4157 t735 = 3.508934038473122*
4158 t81*t85*t244*t86*t249*t297*t111;
4159 t736 = .1301229705933783*t81*t1*t2*t3*t103*t85*t109*t110*
4160 t297*t111;
4161 t737 = -1.754467019236561*t81*t85*t252*t86*t110*t297*
4162 t111;
4163 t738 = 3.508934038473122*t81*t128*t244*t86*t249*t185*
4164 t111;
4165 t739 = .1301229705933783*t81*t1*t2*t3*t103*t128*t109*
4166 t110*t185*t111;
4167 t740 = -1.754467019236561*t81*t128*t252*t86*t110*t185*
4168 t111;
4169 t741 = 3.508934038473122*t81*t187*t244*t86*t249*t122*
4170 t111;
4171 t742 = .1301229705933783*t81*t1*t2*t3*t103*t187*t109*
4172 t110*t122*t111;
4173 t743 = -1.754467019236561*t81*t187*t252*t86*t110*t122*
4174 t111;
4175 t744 = 3.508934038473122*t81*t298*t244*t86*t249*t90*t111;
4176 t745 = .1301229705933783*
4177 t81*t1*t2*t3*t103*t298*t109*t110*t90*t111;
4178 t746 = -1.754467019236561*t81*t298*t252*t86*t110*t90*
4179 t111;
4180 t747 = .0029298488058805*t81*t1*t2*t3*t240*t85*t297*t93;
4181 t748 = 1.333333333333333*
4182 t118*(12.0*t84+t699)+1.333333333333333*t121*(t702-12.0*t84)-
4183 1.777777777777778*t258*t262*t441*t82+1.777777777777778*t256*
4184 t258*t436*t82+2.666666666666667*t258*t263*t266*t82-2.666666666666667*
4185 t257*t258*t261*t82+.4938271604938271*t184*t440*t701+.4938271604938271*
4186 t183*t435*t698+1.333333333333333*t120*t263*t492+1.333333333333333*
4187 t117*t257*t491+.4444444444444444*t184*t263*t444-.8888888888888888*
4188 t120*t184*t266*t441+.4444444444444444*t183*t257*t439-.8888888888888888*
4189 t117*t183*t261*t436;
4190 t749 = .0029298488058805*t81*t1*t2*t3*t240*t128*t185*
4191 t93;
4192 t750 = .0029298488058805*t81*t1*t2*t3*t240*t187*t122*
4193 t93;
4194 t751 = .0029298488058805*t81*t1*t2*t3*t240*t298*t90*t93;
4195 t752 = 3.0*
4196 t284*t297*t81*t83*t84;
4197 t753 = -24.0*t125*t133*t297*t81*t83;
4198 t754 = 60.0*t273*t297*t81*t83*t99;
4199 t755 = 36.0*t275*t297*t81*t84*t99;
4200 t756 = -24.0*t81*t84*t90*t99;
4201 t757 = pow(grada,15.0);
4202 t758 = 1/pow(rhoa,24.33333333333333);
4203 t759 = -32.0*t118*t125*t82;
4204 t760 = 32.0*t121*t125*t82;
4205 t761 = -5.333333333333333*t120*t263*t82*t84+5.333333333333333*
4206 t117*t257*t82*t84-2.37037037037037*t120*t184*t258*t441*t82+
4207 2.37037037037037*t117*t183*t258*t436*t82+t760+t759+.4938271604938271*
4208 t262*t329*t701+.4938271604938271*t256*t327*t698+.8888888888888888*
4209 t184*t263*t492+.8888888888888888*t183*t257*t491-.2962962962962963*
4210 t262*t330*t441-.2962962962962963*t266*t329*t441-.2962962962962963*
4211 t256*t328*t436-.2962962962962963*t261*t327*t436+.4444444444444444*
4212 t263*t266*t330+.4444444444444444*t257*t261*t328+3.555555555555555*
4213 t263*t273*t275+3.555555555555555*t257*t273*t275-1.777777777777778*
4214 t120*t258*t263+1.777777777777778*t117*t257*t258;
4215 t762 = 1/pow(rhoa,23.33333333333333);
4216 t763 = -8.0*t184*t263*t82*t84+8.0*t183*t257*t82*t84+16.0*
4217 t121*t84-16.0*t118*t84-1.777777777777778*t258*t329*t441*t82+
4218 1.777777777777778*t258*t327*t436*t82+2.666666666666667*t258*
4219 t263*t330*t82-2.666666666666667*t257*t258*t328*t82+t760+t759+
4220 .4938271604938271*t120*t555*t701+.4938271604938271*t117*t553*
4221 t698+.4444444444444444*t120*t263*t556+.4444444444444444*t117*
4222 t257*t554-.8888888888888888*t120*t184*t330*t441-.8888888888888888*
4223 t117*t183*t328*t436-2.666666666666667*t184*t258*t263+2.666666666666667*
4224 t183*t257*t258;
4225 t764 = 1/pow(rhoa,22.33333333333333);
4226 t765 = pow(gradb,16.0);
4227 t766 = 1/pow(t150,8.0);
4228 t767 = 1/pow(rhob,25.33333333333333);
4229 t768 = 1/pow(rhob,22.66666666666667);
4230 t769 = 1/pow(rhob,20.0);
4231 t770 = 1/pow(rhob,17.33333333333333);
4232 t771 = 1/pow(rhob,14.66666666666667);
4233 t772 = 1/pow(rhob,12.0);
4234 t773 = 1/pow(rhob,9.333333333333334);
4235 t774 = 1/pow(rhob,6.666666666666667);
4236 t775 = 1/pow(t145,4.0);
4237 t776 = pow(t179,4.0);
4238 t777 = 1/pow(t144,8.0);
4239 t778 = 1/pow(t144,7.0);
4240 t779 = pow(t322,2.0);
4241 t780 = 21.42414814814815*t1*t2*t3/pow(rhob,4.333333333333333)+
4242 18.83609421296296*t14*t15*t16/pow(rhob,4.166666666666667)+
4243 11.04534375*t8*t9/pow(t141,9.0)+6.79197037037037*t4*t5*t6*
4244 t315;
4245 t781 = 1/pow(t161,8.0);
4246 t782 = 1.333333333333333*t118*(t703+t699)+.4938271604938271*
4247 pow(t184,4.0)*t701+1.333333333333333*t121*(t700+t702)+.4938271604938271*
4248 pow(t183,4.0)*t698+1.777777777777778*t184*t263*t556+1.777777777777778*
4249 t183*t257*t554-1.777777777777778*t329*t330*t441-1.777777777777778*
4250 t327*t328*t436+1.333333333333333*t263*pow(t330,2.0)+1.333333333333333*
4251 t257*pow(t328,2.0);
4252 t783 = pow(gradb,15.0);
4253 t784 = 1/pow(rhob,24.33333333333333);
4254 t785 = 1/pow(rhob,23.33333333333333);
4255 t786 = 1/pow(rhob,22.33333333333333);
4256 t787 = 1/pow(rhoa,21.33333333333333);
4257 t788 = 1/pow(rhob,21.33333333333333);
4258
4259 /* code */
4260 dfdra = t50*t33*t54*t34*t55*rhoa-0.03109*t19*t49*t34*
4261 rhoa-0.75*t3*t35*t52*t57-1.0*t11*t3*t35*t41-0.03109*t19*t33*
4262 t34+t139*t148+t69*t137+.0021294577333333*t1*t2*t3*t19*t33*
4263 t12;
4264 dfdrb = t175*t160*t179*t147*t180*rhob-0.03109*t146*t174*
4265 t147*rhob-0.75*t177*t182*t3*t35-1.0*t142*t166*t3*t35+t69*t190+
4266 t191*t148-0.03109*t146*t160*t147+.0021294577333333*t1*t2*t3*
4267 t146*t160*t143;
4268 dfdga = -0.03109*t19*t197*t34*rhoa-0.75*t198*t3*t35*t52+
4269 t199*t148;
4270 dfdgb = -0.03109*t146*t205*t147*rhob-0.75*t177*t206*t3*
4271 t35+t207*t148;
4272 dfdgab = 0.0;
4273 d2fdrara = 2.0*t34*t49*t50*t54*t55*rhoa+t50*t33*t222*
4274 t34*t55*rhoa-2.0*t218*t220*t33*t34*t50*rhoa-0.03109*t19*t216*
4275 t34*rhoa+32.1646831778707*t217*t33*t218*t34*t219*rhoa-.3333333333333333*
4276 t3*t35*t41*t7-2.0*t11*t3*t35*t57+2.0*t33*t34*t50*t54*t55+.0014196384888889*
4277 t1*t2*t3*t19*t33*t53-0.75*t224*t3*t35*t52-0.06218*t19*t49*
4278 t34+t69*t294+t296*t148+2.0*t137*t139-.1369866666666666*t1*
4279 t2*t3*t50*t33*t54*t55*t12+.0042589154666667*t1*t2*t3*t19*t49*
4280 t12;
4281 d2fdrarb = t301*t148+t191*t137+t139*t190+t69*t300;
4282 d2fdraga = t50*t197*t54*t34*t55*rhoa-0.03109*t19*t304*
4283 t34*rhoa-0.75*t3*t305*t35*t52-1.0*t11*t198*t3*t35-0.03109*
4284 t19*t197*t34+t306*t148+t199*t137+.0021294577333333*t1*t2*t3*
4285 t19*t197*t12;
4286 d2fdragb = t307*t148+t207*t137;
4287 d2fdraab = 0.0;
4288 d2fdrbrb = -2.0*t147*t160*t175*t318*t320*rhob+32.1646831778707*
4289 t317*t160*t318*t147*t319*rhob+2.0*t147*t174*t175*t179*t180*
4290 rhob+t175*t160*t322*t147*t180*rhob-0.03109*t146*t316*t147*
4291 rhob-0.75*t177*t3*t324*t35-2.0*t142*t182*t3*t35-.3333333333333333*
4292 t140*t166*t3*t35+t69*t343+2.0*t190*t191+2.0*t147*t160*t175*
4293 t179*t180+.0014196384888889*t1*t2*t3*t146*t160*t178+t344*t148-
4294 0.06218*t146*t174*t147-.1369866666666666*t1*t2*t3*t175*t160*
4295 t179*t180*t143+.0042589154666667*t1*t2*t3*t146*t174*t143;
4296 d2fdrbga = t345*
4297 t148+t199*t190;
4298 d2fdrbgb = t175*t205*t179*t147*t180*rhob-0.03109*t146*
4299 t348*t147*rhob-0.75*t177*t3*t349*t35-1.0*t142*t206*t3*t35+
4300 t207*t190+t350*t148-0.03109*t146*t205*t147+.0021294577333333*
4301 t1*t2*t3*t146*t205*t143;
4302 d2fdrbgab = 0.0;
4303 d2fdgaga = -0.03109*t19*t352*t34*rhoa-0.75*t3*t35*t353*
4304 t52+t354*t148;
4305 d2fdgagb = t355*t148;
4306 d2fdgagab = 0.0;
4307 d2fdgbgb = -0.03109*t146*t357*t147*rhob-0.75*t177*t3*
4308 t35*t358+t359*t148;
4309 d2fdgbgab = 0.0;
4310 d2fdgabgab = 0.0;
4311 d3fdrarara = 3.0*t216*t34*t50*t54*t55*rhoa+3.0*t222*t34*
4312 t49*t50*t55*rhoa+t50*t375*t33*t34*t55*rhoa-6.0*t220*t222*t33*
4313 t34*t50*t54*rhoa-6.0*t218*t220*t34*t49*t50*rhoa+6.0*t219*t33*
4314 t34*t371*t50*rhoa-192.9880990672242*t217*t33*t371*t34*t373*
4315 rhoa+2069.133687865597*t370*t33*t371*t34*t372*rhoa-0.03109*
4316 t19*t369*t34*rhoa+96.4940495336121*t217*t33*t222*t54*t34*t219*
4317 rhoa+96.4940495336121*t217*t49*t218*t34*t219*rhoa-1.0*t3*t35*
4318 t57*t7+3.0*t222*t33*t34*t50*t55+6.0*t50*t49*t54*t34*t55-.1369866666666666*
4319 t1*t2*t3*t50*t33*t54*t55*t53+.0042589154666667*t1*t2*t3*t19*
4320 t49*t53-0.75*t3*t35*t377*t52+.2222222222222222*t3*t35*t41*
4321 t51-6.0*t218*t220*t33*t34*t50+t69*t478-3.0*t11*t224*t3*t35-
4322 0.09327*t19*t216*t34+3.0*t137*t296+3.0*t139*t294-.0018928513185185*
4323 t1*t2*t3*t19*t33*t221+96.4940495336121*t217*t33*t218*t34*t219+
4324 t480*t148-.4109599999999999*t1*t2*t3*t50*t49*t54*t55*t12-0.20548*
4325 t1*t2*t3*t50*t33*t222*t55*t12+.4109599999999999*t1*t2*t3*t50*
4326 t33*t218*t220*t12-6.60919909938887*t1*t2*t3*t217*t33*t218*
4327 t219*t12+0.0063883732*t1*t2*t3*t19*t216*t12;
4328 d3fdrararb = t69*t506+2.0*t137*t301+2.0*t139*t300+t191*
4329 t294+t296*t190+t507*t148;
4330 d3fdraraga = 2.0*t304*t34*t50*t54*t55*rhoa+t50*t197*t222*
4331 t34*t55*rhoa-2.0*t197*t218*t220*t34*t50*rhoa-0.03109*t19*t510*
4332 t34*rhoa+32.1646831778707*t217*t197*t218*t34*t219*rhoa-.3333333333333333*
4333 t198*t3*t35*t7+2.0*t197*t34*t50*t54*t55+.0014196384888889*
4334 t1*t2*t3*t19*t197*t53-0.75*t3*t35*t511*t52-2.0*t11*t3*t305*
4335 t35-0.06218*t19*t304*t34+2.0*t137*t306+t199*t294+t512*t148-
4336 .1369866666666666*t1*t2*t3*t50*t197*t54*t55*t12+.0042589154666667*
4337 t1*t2*t3*t19*t304*t12;
4338 d3fdraragb = 2.0*t137*t307+t207*t294+t513*t148;
4339 d3fdraraab = 0.0;
4340 d3fdrarbrb = t69*t517+t139*t343+2.0*t190*t301+2.0*t191*
4341 t300+t518*t148+t344*t137;
4342 d3fdrarbga = t519*t148+t345*t137+t306*t190+t199*t300;
4343 d3fdrarbgb = t520*
4344 t148+t350*t137+t307*t190+t207*t300;
4345 d3fdrarbab = 0.0;
4346 d3fdragaga = t50*t352*t54*t34*t55*rhoa-0.03109*t19*t522*
4347 t34*rhoa-0.75*t3*t35*t52*t523-1.0*t11*t3*t35*t353-0.03109*
4348 t19*t352*t34+t524*t148+t354*t137+.0021294577333333*t1*t2*t3*
4349 t19*t352*t12;
4350 d3fdragagb = t525*t148+t355*t137;
4351 d3fdragaab = 0.0;
4352 d3fdragbgb = t526*t148+t359*t137;
4353 d3fdragbab = 0.0;
4354 d3fdraabab = 0.0;
4355 d3fdrbrbrb = -192.9880990672242*t317*t160*t538*t147*t540*
4356 rhob+2069.133687865597*t537*t160*t538*t147*t539*rhob+6.0*t147*
4357 t160*t175*t319*t538*rhob-6.0*t147*t160*t175*t179*t320*t322*
4358 rhob+3.0*t147*t174*t175*t180*t322*rhob-6.0*t147*t174*t175*
4359 t318*t320*rhob+96.4940495336121*t317*t174*t318*t147*t319*rhob+
4360 96.4940495336121*t317*t160*t322*t179*t147*t319*rhob+3.0*t147*
4361 t175*t179*t180*t316*rhob+t175*t542*t160*t147*t180*rhob-0.03109*
4362 t146*t536*t147*rhob+t69*t572-0.75*t177*t3*t35*t544-3.0*t142*
4363 t3*t324*t35-1.0*t140*t182*t3*t35+.2222222222222222*t166*t176*
4364 t3*t35+3.0*t190*t344+3.0*t191*t343+3.0*t147*t160*t175*t180*
4365 t322-.0018928513185185*t1*t2*t3*t146*t160*t321-6.0*t147*t160*
4366 t175*t318*t320+96.4940495336121*t317*t160*t318*t147*t319+6.0*
4367 t175*t174*t179*t147*t180-.1369866666666666*t1*t2*t3*t175*t160*
4368 t179*t180*t178+.0042589154666667*t1*t2*t3*t146*t174*t178+t573*
4369 t148-0.09327*t146*t316*t147+.4109599999999999*t1*t2*t3*t175*
4370 t160*t318*t320*t143-6.60919909938887*t1*t2*t3*t317*t160*t318*
4371 t319*t143+0.0063883732*t1*t2*t3*t146*t316*t143-0.20548*t1*
4372 t2*t3*t175*t160*t322*t180*t143-.4109599999999999*t1*t2*t3*
4373 t175*t174*t179*t180*t143;
4374 d3fdrbrbga = 2.0*t190*t345+t199*t343+t574*t148;
4375 d3fdrbrbgb = 2.0*t147*t175*t179*t180*t348*rhob-2.0*t147*
4376 t175*t205*t318*t320*rhob+32.1646831778707*t317*t205*t318*t147*
4377 t319*rhob+t175*t205*t322*t147*t180*rhob-0.03109*t146*t577*
4378 t147*rhob-0.75*t177*t3*t35*t578+2.0*t190*t350-2.0*t142*t3*
4379 t349*t35-.3333333333333333*t140*t206*t3*t35+t207*t343+2.0*
4380 t147*t175*t179*t180*t205+.0014196384888889*t1*t2*t3*t146*t205*
4381 t178+t579*t148-0.06218*t146*t348*t147+.0042589154666667*t1*
4382 t2*t3*t146*t348*t143-.1369866666666666*t1*t2*t3*t175*t205*
4383 t179*t180*t143;
4384 d3fdrbrbab = 0.0;
4385 d3fdrbgaga = t580*t148+t354*t190;
4386 d3fdrbgagb = t581*t148+t355*t190;
4387 d3fdrbgaab = 0.0;
4388 d3fdrbgbgb = t175*t357*t179*t147*t180*rhob-0.03109*t146*
4389 t583*t147*rhob-0.75*t177*t3*t35*t584-1.0*t142*t3*t35*t358+
4390 t359*t190+t585*t148-0.03109*t146*t357*t147+.0021294577333333*
4391 t1*t2*t3*t146*t357*t143;
4392 d3fdrbgbab = 0.0;
4393 d3fdrbabab = 0.0;
4394 d3fdgagaga = -0.03109*t19*t587*t34*rhoa-0.75*t3*t35*t52*
4395 t588+t589*t148;
4396 d3fdgagagb = t590*t148;
4397 d3fdgagaab = 0.0;
4398 d3fdgagbgb = t591*t148;
4399 d3fdgagbab = 0.0;
4400 d3fdgaabab = 0.0;
4401 d3fdgbgbgb = -0.03109*t146*t593*t147*rhob-0.75*t177*t3*
4402 t35*t594+t595*t148;
4403 d3fdgbgbab = 0.0;
4404 d3fdgbabab = 0.0;
4405 d3fdababab = 0.0;
4406 d4fdrararara = t69*(24829.60425438716*t370*t607*t34*t609*
4407 rhoa-199659.0885685683*t606*t607*t34*t608*rhoa-1.0*t50*t611*
4408 t34*t55*rhoa+24.0*t50*t607*t34*t373*rhoa+1157.928594403345*
4409 t217*t222*t218*t34*t373*rhoa-1157.928594403345*t217*t607*t34*
4410 t372*rhoa-12414.80212719358*t370*t222*t218*t34*t372*rhoa+6.0*
4411 t50*t610*t34*t220*rhoa+8.0*t50*t375*t54*t34*t220*rhoa-96.4940495336121*
4412 t217*t610*t34*t219*rhoa-128.6587327114828*t217*t375*t54*t34*
4413 t219*rhoa-36.0*t50*t222*t218*t34*t219*rhoa+t70*(-384.0*t125*
4414 t81*t82*t90*t99-1920.0*t127*t452*t81*t90*t99+96.0*t122*t81*
4415 t82*t84*t99+16.0*t127*t445*t81*t84*t99+72.0*t267*t275*t81*
4416 t84*t99-480.0*t122*t452*t81*t83*t99-16.0*t125*t445*t81*t83*
4417 t99+120.0*t267*t273*t81*t83*t99-576.0*t122*t125*t275*t81*t99+
4418 960.0*t122*t127*t273*t81*t99-192.0*t125*t127*t267*t81*t99+
4419 t81*t83*t84*t704*t99+.0197517897025652*t81*(384.0*t125*t82+
4420 t708+t707+t703+1920.0*t127*t452)*t86*t90*t93-.0029298488058805*
4421 t81*t1*t2*t3*t103*t456*t90*t93+0.005859697611761*t81*t1*t2*
4422 t3*t240*t277*t90*t93-.0091150851738505*t81*t1*t2*t3*t407*t128*
4423 t90*t93+.0197517897025652*t81*t85*t86*t704*t93+.0790071588102608*
4424 t81*t128*t86*t445*t93-.0029298488058805*t81*t1*t2*t3*t103*
4425 t85*t445*t93+.1185107382153912*t81*t277*t86*t267*t93+0.005859697611761*
4426 t81*t1*t2*t3*t240*t85*t267*t93-.0087895464176415*t81*t1*t2*
4427 t3*t103*t128*t267*t93+.0790071588102608*t81*t456*t86*t122*
4428 t93-.0091150851738505*t81*t1*t2*t3*t407*t85*t122*t93-.0087895464176415*
4429 t81*t1*t2*t3*t103*t277*t122*t93+0.011719395223522*t81*t1*t2*
4430 t3*t240*t128*t122*t93+96.0*t133*t81*t82*t84*t90+16.0*t127*
4431 t463*t81*t84*t90-192.0*t125*t127*t284*t81*t90+960.0*t127*t133*
4432 t273*t81*t90+4.0*t122*t463*t81*t83*t84+4.0*t133*t445*t81*t83*
4433 t84+6.0*t267*t284*t81*t83*t84+48.0*t122*t127*t284*t81*t84+
4434 144.0*t122*t133*t275*t81*t84+48.0*t127*t133*t267*t81*t84-48.0*
4435 t122*t125*t284*t81*t83+240.0*t122*t133*t273*t81*t83-48.0*t125*
4436 t133*t267*t81*t83-384.0*t122*t125*t127*t133*t81+t719+t718+
4437 t717+t716+t715+t714+t713+t712+t711+t705+t697+t696+t695+t694+
4438 t693+t692+t691+t690+t689+t688+t687+t686+t685+t684+t682+t681+
4439 t680+t679+t678+t677+t676+t675+t674+t672+t666+t665+t664+t663+
4440 t662+t661+t660+t659+t658+t657+t656+t655+t653+t652+t651+t650+
4441 t649+t648+t647+t646+t644-4101.558808403119*t81*t128*t411*t86*
4442 t412*t90*t413-4101.558808403119*t81*t85*t411*t86*t412*t122*
4443 t413+415.5781415850207*t81*t128*t411*t86*t416*t90*t246-103.8945353962552*
4444 t81*t277*t244*t86*t245*t90*t246-207.7890707925104*t81*t128*
4445 t252*t109*t86*t245*t90*t246+7.70551137522226*t81*t1*t2*t3*
4446 t103*t128*t244*t245*t90*t246-103.8945353962552*t81*t85*t244*
4447 t86*t245*t267*t246+415.5781415850207*t81*t85*t411*t86*t416*
4448 t122*t246-207.7890707925104*t81*t128*t244*t86*t245*t122*t246-
4449 207.7890707925104*t81*t85*t252*t109*t86*t245*t122*t246+7.70551137522226*
4450 t81*t1*t2*t3*t103*t85*t244*t245*t122*t246+7.017868076946245*
4451 t81*t277*t244*t86*t249*t90*t111+14.03573615389249*t81*t128*
4452 t252*t109*t86*t249*t90*t111-.5204918823735132*t81*t1*t2*t3*
4453 t103*t128*t244*t249*t90*t111-14.03573615389249*t81*t128*t411*
4454 t86*t245*t90*t111-2.339289358982082*t81*t128*t431*t86*t110*
4455 t90*t111-3.508934038473122*t81*t277*t252*t86*t110*t90*t111-
4456 2.339289358982082*t81*t456*t109*t86*t110*t90*t111+.2602459411867566*
4457 t81*t1*t2*t3*t103*t128*t252*t110*t90*t111+.2602459411867566*
4458 t81*t1*t2*t3*t103*t277*t109*t110*t90*t111-.3469945882490088*
4459 t81*t1*t2*t3*t240*t128*t109*t110*t90*t111-2.339289358982082*
4460 t81*t85*t109*t86*t110*t445*t111+7.017868076946245*t81*t85*
4461 t244*t86*t249*t267*t111-3.508934038473122*t81*t85*t252*t86*
4462 t110*t267*t111-7.017868076946245*t81*t128*t109*t86*t110*t267*
4463 t111+.2602459411867566*t81*t1*t2*t3*t103*t85*t109*t110*t267*
4464 t111+14.03573615389249*t81*t128*t244*t86*t249*t122*t111+14.03573615389249*
4465 t81*t85*t252*t109*t86*t249*t122*t111-.5204918823735132*t81*
4466 t1*t2*t3*t103*t85*t244*t249*t122*t111-14.03573615389249*t81*
4467 t85*t411*t86*t245*t122*t111-2.339289358982082*t81*t85*t431*
4468 t86*t110*t122*t111-7.017868076946245*t81*t128*t252*t86*t110*
4469 t122*t111-7.017868076946245*t81*t277*t109*t86*t110*t122*t111+
4470 .2602459411867566*t81*t1*t2*t3*t103*t85*t252*t110*t122*t111-
4471 .3469945882490088*t81*t1*t2*t3*t240*t85*t109*t110*t122*t111+
4472 .5204918823735132*t81*t1*t2*t3*t103*t128*t109*t110*t122*t111)+
4473 96.0*t81*t82*t84*t90*t99+960.0*t127*t273*t81*t90*t99+4.0*t445*
4474 t81*t83*t84*t99+144.0*t122*t275*t81*t84*t99+48.0*t127*t267*
4475 t81*t84*t99+240.0*t122*t273*t81*t83*t99-48.0*t125*t267*t81*
4476 t83*t99-384.0*t122*t125*t127*t81*t99+.0790071588102608*t81*
4477 t456*t86*t90*t93-.0087895464176415*t81*t1*t2*t3*t103*t277*
4478 t90*t93+0.011719395223522*t81*t1*t2*t3*t240*t128*t90*t93+.0790071588102608*
4479 t81*t85*t86*t445*t93+.2370214764307825*t81*t128*t86*t267*t93-
4480 .0087895464176415*t81*t1*t2*t3*t103*t85*t267*t93+.2370214764307825*
4481 t81*t277*t86*t122*t93+0.011719395223522*t81*t1*t2*t3*t240*
4482 t85*t122*t93-0.017579092835283*t81*t1*t2*t3*t103*t128*t122*
4483 t93+48.0*t127*t284*t81*t84*t90-384.0*t125*t127*t133*t81*t90+
4484 12.0*t122*t284*t81*t83*t84+12.0*t133*t267*t81*t83*t84+96.0*
4485 t122*t127*t133*t81*t84-96.0*t122*t125*t133*t81*t83+t640+t639+
4486 t638+t637+t636+t635+t634+t633+t632+t631+t630+t629+t628+t627+
4487 t626+t625+t624+t623+t622+t621+t620+t619+t618+t617+t616+t615+
4488 t614+t613-4.0*t50*t375*t34*t55+.2739733333333333*t1*t2*t3*
4489 t50*t222*t55*t53-.5479466666666666*t1*t2*t3*t50*t218*t220*
4490 t53+8.812265465851826*t1*t2*t3*t217*t218*t219*t53-.0044166530765432*
4491 t1*t2*t3*t19*t374+771.9523962688968*t217*t371*t34*t373-8276.534751462386*
4492 t370*t371*t34*t372-207.7890707925104*t81*t128*t244*t86*t245*
4493 t90*t246-207.7890707925104*t81*t85*t244*t86*t245*t122*t246-
4494 .2435318518518518*t1*t2*t3*t50*t54*t55*t221+24.0*t50*t222*
4495 t54*t34*t220-385.9761981344484*t217*t222*t54*t34*t219-24.0*
4496 t50*t371*t34*t219+.2739733333333333*t1*t2*t3*t50*t375*t55*
4497 t12-52.87359279511096*t1*t2*t3*t217*t371*t373*t12+566.8874535768302*
4498 t1*t2*t3*t370*t371*t372*t12-1.64384*t1*t2*t3*t50*t222*t54*
4499 t220*t12+26.43679639755548*t1*t2*t3*t217*t222*t54*t219*t12+
4500 1.64384*t1*t2*t3*t50*t371*t219*t12+14.03573615389249*t81*t128*
4501 t244*t86*t249*t90*t111-7.017868076946245*t81*t128*t252*t86*
4502 t110*t90*t111-7.017868076946245*t81*t277*t109*t86*t110*t90*
4503 t111+.5204918823735132*t81*t1*t2*t3*t103*t128*t109*t110*t90*
4504 t111-7.017868076946245*t81*t85*t109*t86*t110*t267*t111+14.03573615389249*
4505 t81*t85*t244*t86*t249*t122*t111-7.017868076946245*t81*t85*
4506 t252*t86*t110*t122*t111-14.03573615389249*t81*t128*t109*t86*
4507 t110*t122*t111+.5204918823735132*t81*t1*t2*t3*t103*t85*t109*
4508 t110*t122*t111)-6.0*t220*t33*t34*t50*t610*rhoa-24829.60425438716*
4509 t370*t33*t607*t34*t609*rhoa+199659.0885685683*t606*t33*t607*
4510 t34*t608*rhoa-24.0*t33*t34*t373*t50*t607*rhoa+4.0*t34*t369*
4511 t50*t54*t55*rhoa+4.0*t34*t375*t49*t50*t55*rhoa+6.0*t216*t222*
4512 t34*t50*t55*rhoa+t50*t611*t33*t34*t55*rhoa-24.0*t220*t222*
4513 t34*t49*t50*t54*rhoa-8.0*t220*t33*t34*t375*t50*t54*rhoa+24.0*
4514 t219*t34*t371*t49*t50*rhoa+36.0*t218*t219*t222*t33*t34*t50*
4515 rhoa-12.0*t216*t218*t220*t34*t50*rhoa-771.9523962688968*t217*
4516 t49*t371*t34*t373*rhoa-1157.928594403345*t217*t33*t222*t218*
4517 t34*t373*rhoa+1157.928594403345*t217*t33*t607*t34*t372*rhoa+
4518 8276.534751462386*t370*t49*t371*t34*t372*rhoa+12414.80212719358*
4519 t370*t33*t222*t218*t34*t372*rhoa-0.03109*t19*(-13.48173037037037*
4520 t21*t32*t605+54.57275022222223*t29*t30*t604-175.2514706962963*
4521 t26*t27*t603+233.6411877767902*t20*t24*t602-135.1367155863704*
4522 t42*t43*t601+37.97174600691358*t208*t209*t600-5.145480882251853*
4523 t360*t361*t599+.2702545411792593*t596*t597*t598)*t34*rhoa+
4524 96.4940495336121*t217*t33*t610*t34*t219*rhoa+128.6587327114828*
4525 t217*t375*t33*t54*t34*t219*rhoa+385.9761981344484*t217*t49*
4526 t222*t54*t34*t219*rhoa+192.9880990672242*t217*t216*t218*t34*
4527 t219*rhoa-2.0*t224*t3*t35*t7-0.75*t3*t35*t52*(-.7728077432098764*
4528 t21*t40*t605+.1893084924839506*t29*t39*t604-0.006082094880237*
4529 t26*t38*t603+8.043848174048394e-5*t20*t37*t602-5.502357119279407e-7*
4530 t42*t56*t601+2.064154627236346e-9*t208*t223*t600-4.05001745688652e-12*
4531 t360*t376*t599+3.26174928380207e-15*t596*t612*t598)+.8888888888888888*
4532 t3*t35*t51*t57+4.0*t33*t34*t375*t50*t55+12.0*t50*t216*t54*
4533 t34*t55+12.0*t50*t49*t222*t34*t55-24.0*t220*t222*t33*t34*t50*
4534 t54-.5479466666666666*t1*t2*t3*t50*t49*t54*t55*t53-.2739733333333333*
4535 t1*t2*t3*t50*t33*t222*t55*t53+.5479466666666666*t1*t2*t3*t50*
4536 t33*t218*t220*t53-8.812265465851826*t1*t2*t3*t217*t33*t218*
4537 t219*t53+.0085178309333333*t1*t2*t3*t19*t216*t53+24.0*t219*
4538 t33*t34*t371*t50+4.0*t137*t480+4.0*t139*t478-.3703703703703703*
4539 t22*t3*t35*t41-4.0*t11*t3*t35*t377+.0044166530765432*t1*t2*
4540 t3*t19*t33*t374-771.9523962688968*t217*t33*t371*t34*t373+8276.534751462386*
4541 t370*t33*t371*t34*t372-0.12436*t19*t369*t34+6.0*t294*t296+
4542 .2435318518518518*t1*t2*t3*t50*t33*t54*t55*t221-.0075714052740741*
4543 t1*t2*t3*t19*t49*t221-24.0*t50*t49*t218*t34*t220+385.9761981344484*
4544 t217*t33*t222*t54*t34*t219+385.9761981344484*t217*t49*t218*
4545 t34*t219+(5.375471525925927*t21*t605*t68-.2622365660444445*
4546 t21*t605*t60*t67-0.4404967424*t29*t604*t67+.0033159657813333*
4547 t21*t605*t66*t65+0.0146270682624*t29*t604*t60*t65+0.0053698056192*
4548 t26*t603*t65-1.9205145344e-5*t21*t605*t64*t63-1.75461361152e-4*
4549 t29*t604*t66*t63-1.656296497152e-4*t26*t603*t60*t63-1.58961303552e-5*
4550 t20*t602*t63+4.5532591104e-8*t21*t605*t61*t138+9.618788720640002e-7*
4551 t29*t604*t64*t138+1.91371935744e-6*t26*t603*t66*t138+4.728818368512e-7*
4552 t20*t602*t60*t138-2.04322719744e-9*t29*t604*t61*t295-9.98542245888e-9*
4553 t26*t603*t64*t295-5.29502109696e-9*t20*t602*t66*t295+1.983537414144e-11*
4554 t26*t603*t61*t479+2.659495182336e-11*t20*t602*t64*t479-5.049004326912e-14*
4555 t20*t602*t61*t720)*t148-.8219199999999999*t1*t2*t3*t50*t216*
4556 t54*t55*t12-.2739733333333333*t1*t2*t3*t50*t375*t33*t55*t12-
4557 .8219199999999999*t1*t2*t3*t50*t49*t222*t55*t12+52.87359279511096*
4558 t1*t2*t3*t217*t33*t371*t373*t12-566.8874535768302*t1*t2*t3*
4559 t370*t33*t371*t372*t12+.0085178309333333*t1*t2*t3*t19*t369*
4560 t12+1.64384*t1*t2*t3*t50*t33*t222*t54*t220*t12+1.64384*t1*
4561 t2*t3*t50*t49*t218*t220*t12-26.43679639755548*t1*t2*t3*t217*
4562 t33*t222*t54*t219*t12-1.64384*t1*t2*t3*t50*t33*t371*t219*t12-
4563 26.43679639755548*t1*t2*t3*t217*t49*t218*t219*t12;
4564 d4fdrarararb = t69*(t70*(192.0*t125*t81*t82*t90*t99-960.0*
4565 t127*t452*t81*t90*t99+24.0*t185*t81*t82*t84*t99-72.0*t122*
4566 t81*t82*t84*t99+12.0*t127*t493*t81*t84*t99-4.0*t127*t445*t81*
4567 t84*t99-36.0*t267*t275*t81*t84*t99-12.0*t125*t493*t81*t83*
4568 t99-120.0*t185*t452*t81*t83*t99-360.0*t122*t452*t81*t83*t99-
4569 4.0*t125*t445*t81*t83*t99+60.0*t267*t273*t81*t83*t99-96.0*
4570 t125*t127*t297*t81*t99-144.0*t125*t185*t275*t81*t99+144.0*
4571 t122*t125*t275*t81*t99+240.0*t127*t185*t273*t81*t99+240.0*
4572 t122*t127*t273*t81*t99+t81*t83*t84*t748*t99+.0197517897025652*
4573 t81*(-192.0*t125*t82+t707+t700+960.0*t127*t452)*t86*t90*t93-
4574 .0021973866044104*t81*t1*t2*t3*t103*t499*t90*t93-7.324622014701263e-4*
4575 t81*t1*t2*t3*t103*t456*t90*t93+.0029298488058805*t81*t1*t2*
4576 t3*t240*t277*t90*t93-.0022787712934626*t81*t1*t2*t3*t407*t187*
4577 t90*t93-.0068363138803878*t81*t1*t2*t3*t407*t128*t90*t93+.0197517897025652*
4578 t81*t85*t86*t748*t93+.0592553691076956*t81*t128*t86*t493*t93-
4579 .0021973866044104*t81*t1*t2*t3*t103*t85*t493*t93+.0197517897025652*
4580 t81*t187*t86*t445*t93-7.324622014701263e-4*t81*t1*t2*t3*t103*
4581 t85*t445*t93+.0592553691076956*t81*t277*t86*t297*t93-.0043947732088208*
4582 t81*t1*t2*t3*t103*t128*t297*t93+.0592553691076956*t81*t298*
4583 t86*t267*t93+.0029298488058805*t81*t1*t2*t3*t240*t85*t267*
4584 t93-.0021973866044104*t81*t1*t2*t3*t103*t187*t267*t93-.0021973866044104*
4585 t81*t1*t2*t3*t103*t128*t267*t93+.0197517897025652*t81*t456*
4586 t86*t185*t93-.0022787712934626*t81*t1*t2*t3*t407*t85*t185*
4587 t93-.0021973866044104*t81*t1*t2*t3*t103*t277*t185*t93+.0592553691076956*
4588 t81*t499*t86*t122*t93-.0068363138803878*t81*t1*t2*t3*t407*
4589 t85*t122*t93-.0043947732088208*t81*t1*t2*t3*t103*t298*t122*
4590 t93-.0021973866044104*t81*t1*t2*t3*t103*t277*t122*t93+0.005859697611761*
4591 t81*t1*t2*t3*t240*t128*t122*t93-48.0*t133*t81*t82*t84*t90+
4592 8.0*t127*t463*t81*t84*t90-96.0*t125*t127*t284*t81*t90+480.0*
4593 t127*t133*t273*t81*t90+3.0*t133*t493*t81*t83*t84+3.0*t122*
4594 t463*t81*t83*t84+3.0*t267*t284*t81*t83*t84+24.0*t127*t133*
4595 t297*t81*t84+12.0*t127*t185*t284*t81*t84+12.0*t122*t127*t284*
4596 t81*t84+36.0*t133*t185*t275*t81*t84-36.0*t122*t133*t275*t81*
4597 t84-12.0*t125*t185*t284*t81*t83-36.0*t122*t125*t284*t81*t83+
4598 60.0*t133*t185*t273*t81*t83+180.0*t122*t133*t273*t81*t83-24.0*
4599 t125*t133*t267*t81*t83-96.0*t125*t127*t133*t185*t81-96.0*t122*
4600 t125*t127*t133*t81+t756+t755+t754+t753+t752+t751+t750+t749+
4601 t747+t746+t745+t744+t743+t742+t741+t740+t739+t738+t737+t736+
4602 t735+t734+t733+t732+t731+t717+t715+t713+t712+t711+t705+t697+
4603 t696+t695+t694+t693+t692+t691+t690+t689+t688+t687+t686+t685+
4604 t684+t682+t681+t680+t679+t678+t677+t676+t675+t674+t672+t666+
4605 t665+t664+t663+t662+t661+t660+t659+t658+t657+t656+t655+t653+
4606 t652+t651+t650+t649+t648+t647+t646+t644+t81*t83*t84*t185*t463-
4607 1025.38970210078*t81*t187*t411*t86*t412*t90*t413-3076.169106302339*
4608 t81*t128*t411*t86*t412*t90*t413-1025.38970210078*t81*t85*t411*
4609 t86*t412*t185*t413-3076.169106302339*t81*t85*t411*t86*t412*
4610 t122*t413+103.8945353962552*t81*t187*t411*t86*t416*t90*t246+
4611 311.6836061887656*t81*t128*t411*t86*t416*t90*t246-51.94726769812759*
4612 t81*t277*t244*t86*t245*t90*t246-51.9472676981276*t81*t187*
4613 t252*t109*t86*t245*t90*t246-155.8418030943828*t81*t128*t252*
4614 t109*t86*t245*t90*t246+1.926377843805565*t81*t1*t2*t3*t103*
4615 t187*t244*t245*t90*t246+5.779133531416695*t81*t1*t2*t3*t103*
4616 t128*t244*t245*t90*t246-51.94726769812759*t81*t85*t244*t86*
4617 t245*t267*t246+103.8945353962552*t81*t85*t411*t86*t416*t185*
4618 t246-51.9472676981276*t81*t85*t252*t109*t86*t245*t185*t246+
4619 1.926377843805565*t81*t1*t2*t3*t103*t85*t244*t245*t185*t246+
4620 311.6836061887656*t81*t85*t411*t86*t416*t122*t246-103.8945353962552*
4621 t81*t128*t244*t86*t245*t122*t246-155.8418030943828*t81*t85*
4622 t252*t109*t86*t245*t122*t246+5.779133531416695*t81*t1*t2*t3*
4623 t103*t85*t244*t245*t122*t246+t81*t83*t84*t445*t133+3.508934038473122*
4624 t81*t277*t244*t86*t249*t90*t111+3.508934038473122*t81*t187*
4625 t252*t109*t86*t249*t90*t111+10.52680211541937*t81*t128*t252*
4626 t109*t86*t249*t90*t111-.1301229705933783*t81*t1*t2*t3*t103*
4627 t187*t244*t249*t90*t111-.3903689117801349*t81*t1*t2*t3*t103*
4628 t128*t244*t249*t90*t111-3.508934038473122*t81*t187*t411*t86*
4629 t245*t90*t111-10.52680211541937*t81*t128*t411*t86*t245*t90*
4630 t111-.5848223397455204*t81*t187*t431*t86*t110*t90*t111-1.754467019236561*
4631 t81*t128*t431*t86*t110*t90*t111-1.754467019236561*t81*t277*
4632 t252*t86*t110*t90*t111-1.754467019236561*t81*t499*t109*t86*
4633 t110*t90*t111-.5848223397455204*t81*t456*t109*t86*t110*t90*
4634 t111+.0650614852966891*t81*t1*t2*t3*t103*t187*t252*t110*t90*
4635 t111+.1951844558900674*t81*t1*t2*t3*t103*t128*t252*t110*t90*
4636 t111+.1301229705933783*t81*t1*t2*t3*t103*t277*t109*t110*t90*
4637 t111-.0867486470622522*t81*t1*t2*t3*t240*t187*t109*t110*t90*
4638 t111-.2602459411867566*t81*t1*t2*t3*t240*t128*t109*t110*t90*
4639 t111-1.754467019236561*t81*t85*t109*t86*t110*t493*t111-.5848223397455204*
4640 t81*t85*t109*t86*t110*t445*t111-3.508934038473122*t81*t128*
4641 t109*t86*t110*t297*t111+3.508934038473122*t81*t85*t244*t86*
4642 t249*t267*t111-1.754467019236561*t81*t85*t252*t86*t110*t267*
4643 t111-1.754467019236561*t81*t187*t109*t86*t110*t267*t111-1.754467019236561*
4644 t81*t128*t109*t86*t110*t267*t111+.1301229705933783*t81*t1*
4645 t2*t3*t103*t85*t109*t110*t267*t111+3.508934038473122*t81*t85*
4646 t252*t109*t86*t249*t185*t111-.1301229705933783*t81*t1*t2*t3*
4647 t103*t85*t244*t249*t185*t111-3.508934038473122*t81*t85*t411*
4648 t86*t245*t185*t111-.5848223397455204*t81*t85*t431*t86*t110*
4649 t185*t111-1.754467019236561*t81*t277*t109*t86*t110*t185*t111+
4650 .0650614852966891*t81*t1*t2*t3*t103*t85*t252*t110*t185*t111-
4651 .0867486470622522*t81*t1*t2*t3*t240*t85*t109*t110*t185*t111+
4652 7.017868076946245*t81*t128*t244*t86*t249*t122*t111+10.52680211541937*
4653 t81*t85*t252*t109*t86*t249*t122*t111-.3903689117801349*t81*
4654 t1*t2*t3*t103*t85*t244*t249*t122*t111-10.52680211541937*t81*
4655 t85*t411*t86*t245*t122*t111-1.754467019236561*t81*t85*t431*
4656 t86*t110*t122*t111-3.508934038473122*t81*t128*t252*t86*t110*
4657 t122*t111-3.508934038473122*t81*t298*t109*t86*t110*t122*t111-
4658 1.754467019236561*t81*t277*t109*t86*t110*t122*t111+.1951844558900674*
4659 t81*t1*t2*t3*t103*t85*t252*t110*t122*t111-.2602459411867566*
4660 t81*t1*t2*t3*t240*t85*t109*t110*t122*t111+.2602459411867565*
4661 t81*t1*t2*t3*t103*t128*t109*t110*t122*t111)-48.0*t81*t82*t84*
4662 t90*t99+480.0*t127*t273*t81*t90*t99+3.0*t493*t81*t83*t84*t99+
4663 24.0*t127*t297*t81*t84*t99-36.0*t122*t275*t81*t84*t99+180.0*
4664 t122*t273*t81*t83*t99-24.0*t125*t267*t81*t83*t99-96.0*t125*
4665 t127*t185*t81*t99+.0592553691076956*t81*t499*t86*t90*t93-.0043947732088208*
4666 t81*t1*t2*t3*t103*t277*t90*t93+.0087895464176415*t81*t1*t2*
4667 t3*t240*t128*t90*t93+.0592553691076956*t81*t85*t86*t493*t93+
4668 .1185107382153912*t81*t128*t86*t297*t93+.0592553691076956*
4669 t81*t187*t86*t267*t93-.0043947732088208*t81*t1*t2*t3*t103*
4670 t85*t267*t93+.0592553691076956*t81*t277*t86*t185*t93+.1185107382153912*
4671 t81*t298*t86*t122*t93+.0087895464176415*t81*t1*t2*t3*t240*
4672 t85*t122*t93-.0087895464176415*t81*t1*t2*t3*t103*t128*t122*
4673 t93+24.0*t127*t284*t81*t84*t90-192.0*t125*t127*t133*t81*t90+
4674 9.0*t122*t284*t81*t83*t84+6.0*t133*t267*t81*t83*t84+24.0*t127*
4675 t133*t185*t81*t84-72.0*t122*t125*t133*t81*t83+t730+t729+t728+
4676 t727+t726+t725+t724+t723+t722+t721+t639+t637+t636+t635+t634+
4677 t633+t632+t631+t630+t629+t628+t627+t626+t625+t624+t623+t622+
4678 t621+t620+t619+t618+t617+t616+t615+t614+t613+t571+t569+t566+
4679 t565+t562+t560+t552+t551+t550+t549+t548+t547+t546+t545+t473+
4680 t471+t468+t457+t449+t447+t446-155.8418030943828*t81*t128*t244*
4681 t86*t245*t90*t246-155.8418030943828*t81*t85*t244*t86*t245*
4682 t122*t246+10.52680211541937*t81*t128*t244*t86*t249*t90*t111-
4683 5.263401057709684*t81*t128*t252*t86*t110*t90*t111-3.508934038473122*
4684 t81*t277*t109*t86*t110*t90*t111+.3903689117801348*t81*t1*t2*
4685 t3*t103*t128*t109*t110*t90*t111-3.508934038473122*t81*t85*
4686 t109*t86*t110*t267*t111+10.52680211541937*t81*t85*t244*t86*
4687 t249*t122*t111-5.263401057709684*t81*t85*t252*t86*t110*t122*
4688 t111-7.017868076946245*t81*t128*t109*t86*t110*t122*t111+.3903689117801348*
4689 t81*t1*t2*t3*t103*t85*t109*t110*t122*t111)+3.0*t137*t507+3.0*
4690 t139*t506+t191*t478+3.0*t294*t301+3.0*t296*t300+t480*t190+
4691 (-0.0692916224*t21*t58*t368*t67*t173+0.0023008871424*t21*t58*
4692 t368*t60*t65*t173+0.0026849028096*t29*t58*t367*t65*t173-2.7600663552e-5*
4693 t21*t58*t368*t66*t63*t173-8.28148248576e-5*t29*t58*t367*t60*
4694 t63*t173-1.58961303552e-5*t26*t58*t366*t63*t173+1.51306788864e-7*
4695 t21*t58*t368*t64*t138*t173+9.568596787200001e-7*t29*t58*t367*
4696 t66*t138*t173+4.728818368512e-7*t26*t58*t366*t60*t138*t173-
4697 3.2140652544e-10*t21*t58*t368*t61*t295*t173-4.992711229440001e-9*
4698 t29*t58*t367*t64*t295*t173-5.29502109696e-9*t26*t58*t366*t66*
4699 t295*t173+9.91768707072e-12*t29*t58*t367*t61*t479*t173+2.659495182336e-11*
4700 t26*t58*t366*t64*t479*t173-5.049004326912e-14*t26*t58*t366*
4701 t61*t720*t173)*t148;
4702 d4fdrararaga = 3.0*t34*t50*t510*t54*t55*rhoa+3.0*t222*
4703 t304*t34*t50*t55*rhoa+t50*t375*t197*t34*t55*rhoa-6.0*t197*
4704 t220*t222*t34*t50*t54*rhoa+6.0*t197*t219*t34*t371*t50*rhoa-
4705 6.0*t218*t220*t304*t34*t50*rhoa-192.9880990672242*t217*t197*
4706 t371*t34*t373*rhoa+2069.133687865597*t370*t197*t371*t34*t372*
4707 rhoa-0.03109*t19*(4.758257777777779*grada*t32*t368-26.53751466666667*
4708 t196*t30*t367+96.98730382222223*t195*t27*t366-140.798896165926*
4709 t194*t24*t365+87.23400476444445*t192*t43*t364-25.96370371318519*
4710 t302*t209*t363+3.69623404088889*t508*t361*t362-.2026909058844445*
4711 t757*t597*t758)*t34*rhoa+96.4940495336121*t217*t197*t222*t54*
4712 t34*t219*rhoa+96.4940495336121*t217*t304*t218*t34*t219*rhoa-
4713 1.0*t3*t305*t35*t7+3.0*t197*t222*t34*t50*t55+6.0*t50*t304*
4714 t54*t34*t55-.1369866666666666*t1*t2*t3*t50*t197*t54*t55*t53+
4715 .0042589154666667*t1*t2*t3*t19*t304*t53-0.75*t3*t35*(0.272755674074074*
4716 grada*t40*t368-.0912608445629629*t196*t39*t367+.0034158733767111*
4717 t195*t38*t366-4.976854997522963e-5*t194*t37*t365+3.644651266958222e-7*
4718 t192*t56*t364-1.439007574395259e-9*t302*t223*t363+2.93922377272889e-12*
4719 t508*t376*t362-2.44631196285156e-15*t757*t612*t758)*t52+3.0*
4720 t137*t512-3.0*t11*t3*t35*t511+.2222222222222222*t198*t3*t35*
4721 t51-6.0*t197*t218*t220*t34*t50+t199*t478-0.09327*t19*t510*
4722 t34+3.0*t294*t306-.0018928513185185*t1*t2*t3*t19*t197*t221+
4723 96.4940495336121*t217*t197*t218*t34*t219+(-1.897225244444445*
4724 grada*t368*t68+.0925540821333334*grada*t368*t60*t67+0.2301471744*
4725 t196*t367*t67-0.001170340864*grada*t368*t66*t65-0.0076422322944*
4726 t196*t367*t60*t65-0.0034781695488*t195*t366*t65+6.778286592000002e-6*
4727 grada*t368*t64*t63+9.167363251200001e-5*t196*t367*t66*t63+
4728 1.072828412928e-4*t195*t366*t60*t63+1.19220977664e-5*t194*
4729 t365*t63-1.6070326272e-8*grada*t368*t61*t138-5.02554691584e-7*
4730 t196*t367*t64*t138-1.23956822016e-6*t195*t366*t66*t138-3.546613776384e-7*
4731 t194*t365*t60*t138+1.06752881664e-9*t196*t367*t61*t295+6.46783045632e-9*
4732 t195*t366*t64*t295+3.971265822719999e-9*t194*t365*t66*t295-
4733 1.284791279616e-11*t195*t366*t61*t479-1.994621386752e-11*t194*
4734 t365*t64*t479+3.786753245184e-14*t194*t365*t61*t720)*t148-
4735 .4109599999999999*t1*t2*t3*t50*t304*t54*t55*t12-0.20548*t1*
4736 t2*t3*t50*t197*t222*t55*t12+0.0063883732*t1*t2*t3*t19*t510*
4737 t12+.4109599999999999*t1*t2*t3*t50*t197*t218*t220*t12-6.60919909938887*
4738 t1*t2*t3*t217*t197*t218*t219*t12;
4739 d4fdrararagb = 3.0*t137*t513+t207*t478+3.0*t294*t307+
4740 (0.0519687168*t21*gradb*t368*t67*t59-0.0017256653568*t21*gradb*
4741 t368*t60*t65*t59-0.0020136771072*t29*gradb*t367*t65*t59+2.0700497664e-5*
4742 t21*gradb*t368*t66*t63*t59+6.21111186432e-5*t29*gradb*t367*
4743 t60*t63*t59+1.19220977664e-5*t26*gradb*t366*t63*t59-1.13480091648e-7*
4744 t21*gradb*t368*t64*t138*t59-7.1764475904e-7*t29*gradb*t367*
4745 t66*t138*t59-3.546613776384e-7*t26*gradb*t366*t60*t138*t59+
4746 2.4105489408e-10*t21*gradb*t368*t61*t295*t59+3.74453342208e-9*
4747 t29*gradb*t367*t64*t295*t59+3.971265822719999e-9*t26*gradb*
4748 t366*t66*t295*t59-7.43826530304e-12*t29*gradb*t367*t61*t479*
4749 t59-1.994621386752e-11*t26*gradb*t366*t64*t479*t59+3.786753245184e-14*
4750 t26*gradb*t366*t61*t720*t59)*t148;
4751 d4fdrararaab = 0.0;
4752 d4fdrararbrb = t69*(t70*(-480.0*t273*t275*t81*t90*t99-
4753 48.0*t185*t81*t82*t84*t99+48.0*t122*t81*t82*t84*t99+8.0*t127*
4754 t514*t81*t84*t99-8.0*t127*t493*t81*t84*t99+12.0*t275*t331*
4755 t81*t84*t99-48.0*t275*t297*t81*t84*t99+12.0*t267*t275*t81*
4756 t84*t99-8.0*t125*t514*t81*t83*t99-8.0*t125*t493*t81*t83*t99-
4757 240.0*t185*t452*t81*t83*t99-240.0*t122*t452*t81*t83*t99+20.0*
4758 t273*t331*t81*t83*t99+80.0*t273*t297*t81*t83*t99+20.0*t267*
4759 t273*t81*t83*t99-32.0*t125*t127*t331*t81*t99+96.0*t125*t185*
4760 t275*t81*t99+96.0*t122*t125*t275*t81*t99+160.0*t127*t185*t273*
4761 t81*t99-160.0*t122*t127*t273*t81*t99+32.0*t125*t127*t267*t81*
4762 t99+t81*t83*t84*t761*t99+.0197517897025652*(t707+t703+480.0*
4763 t273*t275)*t81*t86*t90*t93-.0014649244029403*t81*t1*t2*t3*
4764 t103*t515*t90*t93-.0014649244029403*t81*t1*t2*t3*t103*t499*
4765 t90*t93+9.766162686268349e-4*t81*t1*t2*t3*t240*t336*t90*t93+
4766 .0039064650745073*t81*t1*t2*t3*t240*t298*t90*t93+9.766162686268349e-4*
4767 t81*t1*t2*t3*t240*t277*t90*t93-.0045575425869252*t81*t1*t2*
4768 t3*t407*t187*t90*t93-.0045575425869252*t81*t1*t2*t3*t407*t128*
4769 t90*t93+.0197517897025652*t81*t85*t86*t761*t93+.0395035794051304*
4770 t81*t128*t86*t514*t93-.0014649244029403*t81*t1*t2*t3*t103*
4771 t85*t514*t93+.0395035794051304*t81*t187*t86*t493*t93-.0014649244029403*
4772 t81*t1*t2*t3*t103*t85*t493*t93+.0197517897025652*t81*t277*
4773 t86*t331*t93+9.766162686268349e-4*t81*t1*t2*t3*t240*t85*t331*
4774 t93-.0014649244029403*t81*t1*t2*t3*t103*t128*t331*t93+.0790071588102608*
4775 t81*t298*t86*t297*t93+.0039064650745073*t81*t1*t2*t3*t240*
4776 t85*t297*t93-.0029298488058805*t81*t1*t2*t3*t103*t187*t297*
4777 t93-.0029298488058805*t81*t1*t2*t3*t103*t128*t297*t93+.0197517897025652*
4778 t81*t336*t86*t267*t93+9.766162686268349e-4*t81*t1*t2*t3*t240*
4779 t85*t267*t93-.0014649244029403*t81*t1*t2*t3*t103*t187*t267*
4780 t93+.0395035794051304*t81*t499*t86*t185*t93-.0045575425869252*
4781 t81*t1*t2*t3*t407*t85*t185*t93-.0029298488058805*t81*t1*t2*
4782 t3*t103*t298*t185*t93-.0014649244029403*t81*t1*t2*t3*t103*
4783 t277*t185*t93+.0019532325372537*t81*t1*t2*t3*t240*t187*t185*
4784 t93+.0039064650745073*t81*t1*t2*t3*t240*t128*t185*t93+.0395035794051304*
4785 t81*t515*t86*t122*t93-.0045575425869252*t81*t1*t2*t3*t407*
4786 t85*t122*t93-.0014649244029403*t81*t1*t2*t3*t103*t336*t122*
4787 t93-.0029298488058805*t81*t1*t2*t3*t103*t298*t122*t93+.0039064650745073*
4788 t81*t1*t2*t3*t240*t187*t122*t93+.0019532325372537*t81*t1*t2*
4789 t3*t240*t128*t122*t93-24.0*t275*t284*t81*t84*t90+192.0*t125*
4790 t133*t275*t81*t90+2.0*t133*t514*t81*t83*t84+2.0*t133*t493*
4791 t81*t83*t84+2.0*t185*t463*t81*t83*t84+2.0*t122*t463*t81*t83*
4792 t84+4.0*t284*t297*t81*t83*t84+8.0*t127*t133*t331*t81*t84+8.0*
4793 t127*t185*t284*t81*t84-8.0*t122*t127*t284*t81*t84-24.0*t133*
4794 t185*t275*t81*t84-24.0*t122*t133*t275*t81*t84-8.0*t127*t133*
4795 t267*t81*t84-8.0*t125*t133*t331*t81*t83-32.0*t125*t133*t297*
4796 t81*t83-24.0*t125*t185*t284*t81*t83-24.0*t122*t125*t284*t81*
4797 t83+120.0*t133*t185*t273*t81*t83+120.0*t122*t133*t273*t81*
4798 t83-8.0*t125*t133*t267*t81*t83-64.0*t125*t127*t133*t185*t81+
4799 64.0*t122*t125*t127*t133*t81+t719+t717+t715+t713+t712+t711+
4800 t705+t697+t696+t695+t694+t693+t692+t691+t690+t689+t688+t687+
4801 t686+t685+t684+t682+t681+t680+t679+t678+t677+t676+t675+t674+
4802 t672+t666+t665+t664+t663+t662+t661+t660+t659+t658+t657+t656+
4803 t655+t653+t652+t651+t650+t649+t648+t647+t646+t644-2050.77940420156*
4804 t81*t187*t411*t86*t412*t90*t413-2050.77940420156*t81*t128*
4805 t411*t86*t412*t90*t413-2050.77940420156*t81*t85*t411*t86*t412*
4806 t185*t413-2050.77940420156*t81*t85*t411*t86*t412*t122*t413+
4807 t81*t83*t84*t331*t284+t81*t83*t84*t267*t284+207.7890707925104*
4808 t81*t187*t411*t86*t416*t90*t246+207.7890707925104*t81*t128*
4809 t411*t86*t416*t90*t246-17.31575589937587*t81*t336*t244*t86*
4810 t245*t90*t246-69.26302359750346*t81*t298*t244*t86*t245*t90*
4811 t246-17.31575589937587*t81*t277*t244*t86*t245*t90*t246-103.8945353962552*
4812 t81*t187*t252*t109*t86*t245*t90*t246-103.8945353962552*t81*
4813 t128*t252*t109*t86*t245*t90*t246+3.85275568761113*t81*t1*t2*
4814 t3*t103*t187*t244*t245*t90*t246+3.85275568761113*t81*t1*t2*
4815 t3*t103*t128*t244*t245*t90*t246-17.31575589937587*t81*t85*
4816 t244*t86*t245*t331*t246-69.26302359750346*t81*t85*t244*t86*
4817 t245*t297*t246-17.31575589937587*t81*t85*t244*t86*t245*t267*
4818 t246+207.7890707925104*t81*t85*t411*t86*t416*t185*t246-34.63151179875173*
4819 t81*t187*t244*t86*t245*t185*t246-69.26302359750346*t81*t128*
4820 t244*t86*t245*t185*t246-103.8945353962552*t81*t85*t252*t109*
4821 t86*t245*t185*t246+3.85275568761113*t81*t1*t2*t3*t103*t85*
4822 t244*t245*t185*t246+207.7890707925104*t81*t85*t411*t86*t416*
4823 t122*t246-69.26302359750346*t81*t187*t244*t86*t245*t122*t246-
4824 34.63151179875173*t81*t128*t244*t86*t245*t122*t246-103.8945353962552*
4825 t81*t85*t252*t109*t86*t245*t122*t246+3.85275568761113*t81*
4826 t1*t2*t3*t103*t85*t244*t245*t122*t246+1.169644679491041*t81*
4827 t336*t244*t86*t249*t90*t111+4.678578717964164*t81*t298*t244*
4828 t86*t249*t90*t111+1.169644679491041*t81*t277*t244*t86*t249*
4829 t90*t111+7.017868076946245*t81*t187*t252*t109*t86*t249*t90*
4830 t111+7.017868076946245*t81*t128*t252*t109*t86*t249*t90*t111-
4831 .2602459411867566*t81*t1*t2*t3*t103*t187*t244*t249*t90*t111-
4832 .2602459411867566*t81*t1*t2*t3*t103*t128*t244*t249*t90*t111-
4833 7.017868076946245*t81*t187*t411*t86*t245*t90*t111-7.017868076946245*
4834 t81*t128*t411*t86*t245*t90*t111-1.169644679491041*t81*t187*
4835 t431*t86*t110*t90*t111-1.169644679491041*t81*t128*t431*t86*
4836 t110*t90*t111-.5848223397455204*t81*t336*t252*t86*t110*t90*
4837 t111-2.339289358982082*t81*t298*t252*t86*t110*t90*t111-.5848223397455204*
4838 t81*t277*t252*t86*t110*t90*t111-1.169644679491041*t81*t515*
4839 t109*t86*t110*t90*t111-1.169644679491041*t81*t499*t109*t86*
4840 t110*t90*t111+.1301229705933783*t81*t1*t2*t3*t103*t187*t252*
4841 t110*t90*t111+.1301229705933783*t81*t1*t2*t3*t103*t128*t252*
4842 t110*t90*t111+.0433743235311261*t81*t1*t2*t3*t103*t336*t109*
4843 t110*t90*t111+.1734972941245044*t81*t1*t2*t3*t103*t298*t109*
4844 t110*t90*t111+.0433743235311261*t81*t1*t2*t3*t103*t277*t109*
4845 t110*t90*t111-.1734972941245044*t81*t1*t2*t3*t240*t187*t109*
4846 t110*t90*t111-.1734972941245044*t81*t1*t2*t3*t240*t128*t109*
4847 t110*t90*t111-1.169644679491041*t81*t85*t109*t86*t110*t514*
4848 t111-1.169644679491041*t81*t85*t109*t86*t110*t493*t111+1.169644679491041*
4849 t81*t85*t244*t86*t249*t331*t111-.5848223397455204*t81*t85*
4850 t252*t86*t110*t331*t111-1.169644679491041*t81*t128*t109*t86*
4851 t110*t331*t111+.0433743235311261*t81*t1*t2*t3*t103*t85*t109*
4852 t110*t331*t111+4.678578717964164*t81*t85*t244*t86*t249*t297*
4853 t111-2.339289358982082*t81*t85*t252*t86*t110*t297*t111-2.339289358982082*
4854 t81*t187*t109*t86*t110*t297*t111-2.339289358982082*t81*t128*
4855 t109*t86*t110*t297*t111+.1734972941245044*t81*t1*t2*t3*t103*
4856 t85*t109*t110*t297*t111+1.169644679491041*t81*t85*t244*t86*
4857 t249*t267*t111-.5848223397455204*t81*t85*t252*t86*t110*t267*
4858 t111-1.169644679491041*t81*t187*t109*t86*t110*t267*t111+.0433743235311261*
4859 t81*t1*t2*t3*t103*t85*t109*t110*t267*t111+2.339289358982082*
4860 t81*t187*t244*t86*t249*t185*t111+4.678578717964164*t81*t128*
4861 t244*t86*t249*t185*t111+7.017868076946245*t81*t85*t252*t109*
4862 t86*t249*t185*t111-.2602459411867566*t81*t1*t2*t3*t103*t85*
4863 t244*t249*t185*t111-7.017868076946245*t81*t85*t411*t86*t245*
4864 t185*t111-1.169644679491041*t81*t85*t431*t86*t110*t185*t111-
4865 1.169644679491041*t81*t187*t252*t86*t110*t185*t111-2.339289358982082*
4866 t81*t128*t252*t86*t110*t185*t111-2.339289358982082*t81*t298*
4867 t109*t86*t110*t185*t111-1.169644679491041*t81*t277*t109*t86*
4868 t110*t185*t111+.1301229705933783*t81*t1*t2*t3*t103*t85*t252*
4869 t110*t185*t111-.1734972941245044*t81*t1*t2*t3*t240*t85*t109*
4870 t110*t185*t111+.0867486470622522*t81*t1*t2*t3*t103*t187*t109*
4871 t110*t185*t111+.1734972941245044*t81*t1*t2*t3*t103*t128*t109*
4872 t110*t185*t111+4.678578717964164*t81*t187*t244*t86*t249*t122*
4873 t111+2.339289358982082*t81*t128*t244*t86*t249*t122*t111+7.017868076946245*
4874 t81*t85*t252*t109*t86*t249*t122*t111-.2602459411867566*t81*
4875 t1*t2*t3*t103*t85*t244*t249*t122*t111-7.017868076946245*t81*
4876 t85*t411*t86*t245*t122*t111-1.169644679491041*t81*t85*t431*
4877 t86*t110*t122*t111-2.339289358982082*t81*t187*t252*t86*t110*
4878 t122*t111-1.169644679491041*t81*t128*t252*t86*t110*t122*t111-
4879 1.169644679491041*t81*t336*t109*t86*t110*t122*t111-2.339289358982082*
4880 t81*t298*t109*t86*t110*t122*t111+.1301229705933783*t81*t1*
4881 t2*t3*t103*t85*t252*t110*t122*t111-.1734972941245044*t81*t1*
4882 t2*t3*t240*t85*t109*t110*t122*t111+.1734972941245044*t81*t1*
4883 t2*t3*t103*t187*t109*t110*t122*t111+.0867486470622522*t81*
4884 t1*t2*t3*t103*t128*t109*t110*t122*t111)+192.0*t125*t275*t81*
4885 t90*t99+2.0*t514*t81*t83*t84*t99+2.0*t493*t81*t83*t84*t99+
4886 8.0*t127*t331*t81*t84*t99-8.0*t127*t267*t81*t84*t99-8.0*t125*
4887 t331*t81*t83*t99-32.0*t125*t297*t81*t83*t99+120.0*t185*t273*
4888 t81*t83*t99+120.0*t122*t273*t81*t83*t99-8.0*t125*t267*t81*
4889 t83*t99-64.0*t125*t127*t185*t81*t99+64.0*t122*t125*t127*t81*
4890 t99+.0395035794051304*t81*t515*t86*t90*t93+.0395035794051304*
4891 t81*t499*t86*t90*t93-.0014649244029403*t81*t1*t2*t3*t103*t336*
4892 t90*t93-0.005859697611761*t81*t1*t2*t3*t103*t298*t90*t93-.0014649244029403*
4893 t81*t1*t2*t3*t103*t277*t90*t93+0.005859697611761*t81*t1*t2*
4894 t3*t240*t187*t90*t93+0.005859697611761*t81*t1*t2*t3*t240*t128*
4895 t90*t93+.0395035794051304*t81*t85*t86*t514*t93+.0395035794051304*
4896 t81*t85*t86*t493*t93+.0395035794051304*t81*t128*t86*t331*t93-
4897 .0014649244029403*t81*t1*t2*t3*t103*t85*t331*t93+.0790071588102608*
4898 t81*t187*t86*t297*t93+.0790071588102608*t81*t128*t86*t297*
4899 t93-0.005859697611761*t81*t1*t2*t3*t103*t85*t297*t93+.0395035794051304*
4900 t81*t187*t86*t267*t93-.0014649244029403*t81*t1*t2*t3*t103*
4901 t85*t267*t93+.0790071588102608*t81*t298*t86*t185*t93+.0395035794051304*
4902 t81*t277*t86*t185*t93+0.005859697611761*t81*t1*t2*t3*t240*
4903 t85*t185*t93-.0029298488058805*t81*t1*t2*t3*t103*t187*t185*
4904 t93-0.005859697611761*t81*t1*t2*t3*t103*t128*t185*t93+.0395035794051304*
4905 t81*t336*t86*t122*t93+.0790071588102608*t81*t298*t86*t122*
4906 t93+0.005859697611761*t81*t1*t2*t3*t240*t85*t122*t93-0.005859697611761*
4907 t81*t1*t2*t3*t103*t187*t122*t93-.0029298488058805*t81*t1*t2*
4908 t3*t103*t128*t122*t93-48.0*t133*t275*t81*t84*t90+2.0*t133*
4909 t331*t81*t83*t84+8.0*t133*t297*t81*t83*t84+6.0*t185*t284*t81*
4910 t83*t84+6.0*t122*t284*t81*t83*t84+2.0*t133*t267*t81*t83*t84+
4911 16.0*t127*t133*t185*t81*t84-16.0*t122*t127*t133*t81*t84-48.0*
4912 t125*t133*t185*t81*t83-48.0*t122*t125*t133*t81*t83+t639+t637+
4913 t636+t635+t634+t633+t632+t631+t630+t629+t628+t627+t626+t625+
4914 t624+t623+t622+t621+t620+t619+t618+t617+t616+t615+t614+t613+
4915 t516+t503-103.8945353962552*t81*t187*t244*t86*t245*t90*t246-
4916 103.8945353962552*t81*t128*t244*t86*t245*t90*t246-103.8945353962552*
4917 t81*t85*t244*t86*t245*t185*t246-103.8945353962552*t81*t85*
4918 t244*t86*t245*t122*t246+7.017868076946245*t81*t187*t244*t86*
4919 t249*t90*t111+7.017868076946245*t81*t128*t244*t86*t249*t90*
4920 t111-3.508934038473122*t81*t187*t252*t86*t110*t90*t111-3.508934038473122*
4921 t81*t128*t252*t86*t110*t90*t111-1.169644679491041*t81*t336*
4922 t109*t86*t110*t90*t111-4.678578717964164*t81*t298*t109*t86*
4923 t110*t90*t111-1.169644679491041*t81*t277*t109*t86*t110*t90*
4924 t111+.2602459411867565*t81*t1*t2*t3*t103*t187*t109*t110*t90*
4925 t111+.2602459411867566*t81*t1*t2*t3*t103*t128*t109*t110*t90*
4926 t111-1.169644679491041*t81*t85*t109*t86*t110*t331*t111-4.678578717964164*
4927 t81*t85*t109*t86*t110*t297*t111-1.169644679491041*t81*t85*
4928 t109*t86*t110*t267*t111+7.017868076946245*t81*t85*t244*t86*
4929 t249*t185*t111-3.508934038473122*t81*t85*t252*t86*t110*t185*
4930 t111-2.339289358982082*t81*t187*t109*t86*t110*t185*t111-4.678578717964164*
4931 t81*t128*t109*t86*t110*t185*t111+.2602459411867565*t81*t1*
4932 t2*t3*t103*t85*t109*t110*t185*t111+7.017868076946245*t81*t85*
4933 t244*t86*t249*t122*t111-3.508934038473122*t81*t85*t252*t86*
4934 t110*t122*t111-4.678578717964164*t81*t187*t109*t86*t110*t122*
4935 t111-2.339289358982082*t81*t128*t109*t86*t110*t122*t111+.2602459411867566*
4936 t81*t1*t2*t3*t103*t85*t109*t110*t122*t111)+2.0*t137*t518+2.0*
4937 t139*t517+2.0*t190*t507+2.0*t191*t506+t296*t343+4.0*t300*t301+
4938 t344*t294+(-0.0544434176*t21*t58*t215*t67*t315+0.0018078398976*
4939 t21*t58*t215*t60*t65*t315+8.949676031999998e-4*t29*t58*t214*
4940 t65*t315-2.1686235648e-5*t21*t58*t215*t66*t63*t315-2.76049416192e-5*
4941 t29*t58*t214*t60*t63*t315+1.18883905536e-7*t21*t58*t215*t64*
4942 t138*t315+3.1895322624e-7*t29*t58*t214*t66*t138*t315-2.5253369856e-10*
4943 t21*t58*t215*t61*t295*t315-1.66423707648e-9*t29*t58*t214*t64*
4944 t295*t315+3.30589569024e-12*t29*t58*t214*t61*t479*t315+8.949676032e-4*
4945 t21*t156*t215*t65*t314-2.76049416192e-5*t21*t156*t215*t60*
4946 t63*t314-1.58961303552e-5*t29*t156*t214*t63*t314+3.1895322624e-7*
4947 t21*t156*t215*t66*t138*t314+4.728818368512e-7*t29*t156*t214*
4948 t60*t138*t314-1.66423707648e-9*t21*t156*t215*t64*t295*t314-
4949 5.29502109696e-9*t29*t156*t214*t66*t295*t314+3.30589569024e-12*
4950 t21*t156*t215*t61*t479*t314+2.659495182336e-11*t29*t156*t214*
4951 t64*t479*t314-5.049004326912e-14*t29*t156*t214*t61*t720*t314)*
4952 t148;
4953 d4fdrararbga = 2.0*t137*t519+t199*t506+2.0*t300*t306+
4954 t345*t294+t512*t190+(0.0296964096*grada*t58*t215*t67*t173-
4955 9.860944896e-4*grada*t58*t215*t60*t65*t173-0.0016475539968*
4956 t196*t58*t214*t65*t173+1.1828855808e-5*grada*t58*t215*t66*
4957 t63*t173+5.08181879808e-5*t196*t58*t214*t60*t63*t173+1.19220977664e-5*
4958 t195*t58*t213*t63*t173-6.4845766656e-8*grada*t58*t215*t64*
4959 t138*t173-5.871638937599999e-7*t196*t58*t214*t66*t138*t173-
4960 3.546613776384e-7*t195*t58*t213*t60*t138*t173+1.3774565376e-10*
4961 grada*t58*t215*t61*t295*t173+3.06370916352e-9*t196*t58*t214*
4962 t64*t295*t173+3.971265822719999e-9*t195*t58*t213*t66*t295*
4963 t173-6.08585342976e-12*t196*t58*t214*t61*t479*t173-1.994621386752e-11*
4964 t195*t58*t213*t64*t479*t173+3.786753245184e-14*t195*t58*t213*
4965 t61*t720*t173)*t148;
4966 d4fdrararbgb = 2.0*t137*t520+t207*t506+2.0*t300*t307+
4967 t350*t294+t513*t190+(0.0296964096*t21*gradb*t215*t67*t173-
4968 9.860944896e-4*t21*gradb*t215*t60*t65*t173-4.881641471999999e-4*
4969 t29*gradb*t214*t65*t173+1.1828855808e-5*t21*gradb*t215*t66*
4970 t63*t173+1.50572408832e-5*t29*gradb*t214*t60*t63*t173-6.4845766656e-8*
4971 t21*gradb*t215*t64*t138*t173-1.7397448704e-7*t29*gradb*t214*
4972 t66*t138*t173+1.3774565376e-10*t21*gradb*t215*t61*t295*t173+
4973 9.0776567808e-10*t29*gradb*t214*t64*t295*t173-1.80321583104e-12*
4974 t29*gradb*t214*t61*t479*t173-6.712257024000001e-4*t21*t204*
4975 t215*t65*t172+2.07037062144e-5*t21*t204*t215*t60*t63*t172+
4976 1.19220977664e-5*t29*t204*t214*t63*t172-2.3921491968e-7*t21*
4977 t204*t215*t66*t138*t172-3.546613776384e-7*t29*t204*t214*t60*
4978 t138*t172+1.24817780736e-9*t21*t204*t215*t64*t295*t172+3.971265822719999e-9*
4979 t29*t204*t214*t66*t295*t172-2.47942176768e-12*t21*t204*t215*
4980 t61*t479*t172-1.994621386752e-11*t29*t204*t214*t64*t479*t172+
4981 3.786753245184e-14*t29*t204*t214*t61*t720*t172)*t148;
4982 d4fdrararbab = 0.0;
4983 d4fdraragaga = 2.0*t34*t50*t522*t54*t55*rhoa+t50*t352*
4984 t222*t34*t55*rhoa-2.0*t218*t220*t34*t352*t50*rhoa-0.03109*
4985 t19*(-1.019626666666667*t32*t215+11.04164266666667*t21*t30*
4986 t214-49.43887786666667*t29*t27*t213+80.75327630222225*t26*
4987 t24*t212-54.65938830222224*t20*t43*t211+17.46168786488889*
4988 t42*t209*t210-2.636445013333334*t208*t361*t509+.1520181794133334*
4989 t360*t597*t762)*t34*rhoa+32.1646831778707*t217*t352*t218*t34*
4990 t219*rhoa-.3333333333333333*t3*t35*t353*t7+2.0*t34*t352*t50*
4991 t54*t55+.0014196384888889*t1*t2*t3*t19*t352*t53+2.0*t137*t524-
4992 2.0*t11*t3*t35*t523-0.75*(-.0584476444444444*t40*t215+.0375465187555555*
4993 t21*t39*t214-.0017738547996444*t29*t38*t213+2.949453610097778e-5*
4994 t26*t37*t212-2.357182303800889e-7*t20*t56*t211+9.90891635143111e-10*
4995 t42*t223*t210-2.12251006293333e-12*t208*t376*t509+1.83473397213867e-15*
4996 t360*t612*t762)*t3*t35*t52-0.06218*t19*t522*t34+t354*t294+
4997 (.4065482666666667*t215*t68-0.0198330176*t215*t60*t67-0.1042748928*
4998 t21*t214*t67+2.50787328e-4*t215*t66*t65+0.0034625363328*t21*
4999 t214*t60*t65+0.0021509732736*t29*t213*t65-1.452489984e-6*t215*
5000 t64*t63-4.1535414144e-5*t21*t214*t66*t63-6.63459676416e-5*
5001 t29*t213*t60*t63-8.9415733248e-6*t26*t212*t63+3.443641344e-9*
5002 t215*t61*t138+2.27697067008e-7*t21*t214*t64*t138+7.6657508352e-7*
5003 t29*t213*t66*t138+2.659960332288e-7*t26*t212*t60*t138-4.8367507968e-10*
5004 t21*t214*t61*t295-3.99984251904e-9*t29*t213*t64*t295-2.97844936704e-9*
5005 t26*t212*t66*t295+7.94541975552e-12*t29*t213*t61*t479+1.495966040064e-11*
5006 t26*t212*t64*t479-2.840064933888e-14*t26*t212*t61*t720)*t148-
5007 .1369866666666666*t1*t2*t3*t50*t352*t54*t55*t12+.0042589154666667*
5008 t1*t2*t3*t19*t522*t12;
5009 d4fdraragagb = 2.0*t137*t525+t355*t294+(-0.0222723072*
5010 grada*gradb*t215*t67*t59+7.395708672e-4*grada*gradb*t215*t60*
5011 t65*t59+0.0012356654976*t196*gradb*t214*t65*t59-8.871641856000001e-6*
5012 grada*gradb*t215*t66*t63*t59-3.811364098559999e-5*t196*gradb*
5013 t214*t60*t63*t59-8.9415733248e-6*t195*gradb*t213*t63*t59+4.863432499200002e-8*
5014 grada*gradb*t215*t64*t138*t59+4.4037292032e-7*t196*gradb*t214*
5015 t66*t138*t59+2.659960332288e-7*t195*gradb*t213*t60*t138*t59-
5016 1.0330924032e-10*grada*gradb*t215*t61*t295*t59-2.29778187264e-9*
5017 t196*gradb*t214*t64*t295*t59-2.97844936704e-9*t195*gradb*t213*
5018 t66*t295*t59+4.56439007232e-12*t196*gradb*t214*t61*t479*t59+
5019 1.495966040064e-11*t195*gradb*t213*t64*t479*t59-2.840064933888e-14*
5020 t195*gradb*t213*t61*t720*t59)*t148;
5021 d4fdraragaab = 0.0;
5022 d4fdraragbgb = 2.0*t137*t526+t359*t294+(-0.0111361536*
5023 t21*t215*t67*t59+3.697854336e-4*t21*t215*t60*t65*t59+1.830615552e-4*
5024 t29*t214*t65*t59-4.435820928e-6*t21*t215*t66*t63*t59-5.6464653312e-6*
5025 t29*t214*t60*t63*t59+2.431716249600001e-8*t21*t215*t64*t138*
5026 t59+6.524043264e-8*t29*t214*t66*t138*t59-5.165462016e-11*t21*
5027 t215*t61*t295*t59-3.4041212928e-10*t29*t214*t64*t295*t59+6.7620593664e-13*
5028 t29*t214*t61*t479*t59+5.034192768e-4*t21*t58*t215*t65*t158-
5029 1.55277796608e-5*t21*t58*t215*t60*t63*t158-8.9415733248e-6*
5030 t29*t58*t214*t63*t158+1.7941118976e-7*t21*t58*t215*t66*t138*
5031 t158+2.659960332288e-7*t29*t58*t214*t60*t138*t158-9.3613335552e-10*
5032 t21*t58*t215*t64*t295*t158-2.97844936704e-9*t29*t58*t214*t66*
5033 t295*t158+1.85956632576e-12*t21*t58*t215*t61*t479*t158+1.495966040064e-11*
5034 t29*t58*t214*t64*t479*t158-2.840064933888e-14*t29*t58*t214*
5035 t61*t720*t158)*t148;
5036 d4fdraragbab = 0.0;
5037 d4fdraraabab = 0.0;
5038 d4fdrarbrbrb = t69*(t70*(-192.0*t125*t81*t82*t90*t99+
5039 960.0*t127*t452*t81*t90*t99+72.0*t185*t81*t82*t84*t99-24.0*
5040 t122*t81*t82*t84*t99+4.0*t127*t557*t81*t84*t99-12.0*t127*t514*
5041 t81*t84*t99-36.0*t275*t331*t81*t84*t99-4.0*t125*t557*t81*t83*
5042 t99-12.0*t125*t514*t81*t83*t99-360.0*t185*t452*t81*t83*t99-
5043 120.0*t122*t452*t81*t83*t99+60.0*t273*t331*t81*t83*t99+96.0*
5044 t125*t127*t297*t81*t99+144.0*t125*t185*t275*t81*t99-144.0*
5045 t122*t125*t275*t81*t99-240.0*t127*t185*t273*t81*t99-240.0*
5046 t122*t127*t273*t81*t99+t81*t83*t84*t763*t99+.0197517897025652*
5047 t81*(192.0*t125*t82+t707+t700-960.0*t127*t452)*t86*t90*t93-
5048 7.324622014701263e-4*t81*t1*t2*t3*t103*t563*t90*t93-.0021973866044104*
5049 t81*t1*t2*t3*t103*t515*t90*t93+.0029298488058805*t81*t1*t2*
5050 t3*t240*t336*t90*t93-.0068363138803878*t81*t1*t2*t3*t407*t187*
5051 t90*t93-.0022787712934626*t81*t1*t2*t3*t407*t128*t90*t93+.0197517897025652*
5052 t81*t85*t86*t763*t93+.0197517897025652*t81*t128*t86*t557*t93-
5053 7.324622014701263e-4*t81*t1*t2*t3*t103*t85*t557*t93+.0592553691076956*
5054 t81*t187*t86*t514*t93-.0021973866044104*t81*t1*t2*t3*t103*
5055 t85*t514*t93+.0592553691076956*t81*t298*t86*t331*t93+.0029298488058805*
5056 t81*t1*t2*t3*t240*t85*t331*t93-.0021973866044104*t81*t1*t2*
5057 t3*t103*t187*t331*t93-.0021973866044104*t81*t1*t2*t3*t103*
5058 t128*t331*t93+.0592553691076956*t81*t336*t86*t297*t93-.0043947732088208*
5059 t81*t1*t2*t3*t103*t187*t297*t93+.0592553691076956*t81*t515*
5060 t86*t185*t93-.0068363138803878*t81*t1*t2*t3*t407*t85*t185*
5061 t93-.0021973866044104*t81*t1*t2*t3*t103*t336*t185*t93-.0043947732088208*
5062 t81*t1*t2*t3*t103*t298*t185*t93+0.005859697611761*t81*t1*t2*
5063 t3*t240*t187*t185*t93+.0197517897025652*t81*t563*t86*t122*
5064 t93-.0022787712934626*t81*t1*t2*t3*t407*t85*t122*t93-.0021973866044104*
5065 t81*t1*t2*t3*t103*t336*t122*t93+48.0*t133*t81*t82*t84*t90-
5066 8.0*t127*t463*t81*t84*t90+96.0*t125*t127*t284*t81*t90-480.0*
5067 t127*t133*t273*t81*t90+3.0*t133*t514*t81*t83*t84+3.0*t185*
5068 t463*t81*t83*t84+3.0*t284*t331*t81*t83*t84-24.0*t127*t133*
5069 t297*t81*t84-12.0*t127*t185*t284*t81*t84-12.0*t122*t127*t284*
5070 t81*t84-36.0*t133*t185*t275*t81*t84+36.0*t122*t133*t275*t81*
5071 t84-24.0*t125*t133*t331*t81*t83-36.0*t125*t185*t284*t81*t83-
5072 12.0*t122*t125*t284*t81*t83+180.0*t133*t185*t273*t81*t83+60.0*
5073 t122*t133*t273*t81*t83+96.0*t125*t127*t133*t185*t81+96.0*t122*
5074 t125*t127*t133*t81+t756+t755+t754+t753+t752+t751+t750+t749+
5075 t747+t746+t745+t744+t743+t742+t741+t740+t739+t738+t737+t736+
5076 t735+t734+t733+t732+t731+t717+t715+t713+t712+t711+t705+t697+
5077 t696+t695+t694+t693+t692+t691+t690+t689+t688+t687+t686+t685+
5078 t684+t682+t681+t680+t679+t678+t677+t676+t675+t674+t672+t666+
5079 t665+t664+t663+t662+t661+t660+t659+t658+t657+t656+t655+t653+
5080 t652+t651+t650+t649+t648+t647+t646+t644+t81*t83*t84*t122*t463-
5081 3076.169106302339*t81*t187*t411*t86*t412*t90*t413-1025.38970210078*
5082 t81*t128*t411*t86*t412*t90*t413-3076.169106302339*t81*t85*
5083 t411*t86*t412*t185*t413-1025.38970210078*t81*t85*t411*t86*
5084 t412*t122*t413+311.6836061887656*t81*t187*t411*t86*t416*t90*
5085 t246+103.8945353962552*t81*t128*t411*t86*t416*t90*t246-51.9472676981276*
5086 t81*t336*t244*t86*t245*t90*t246-155.8418030943828*t81*t187*
5087 t252*t109*t86*t245*t90*t246-51.9472676981276*t81*t128*t252*
5088 t109*t86*t245*t90*t246+5.779133531416695*t81*t1*t2*t3*t103*
5089 t187*t244*t245*t90*t246+1.926377843805565*t81*t1*t2*t3*t103*
5090 t128*t244*t245*t90*t246-51.9472676981276*t81*t85*t244*t86*
5091 t245*t331*t246+311.6836061887656*t81*t85*t411*t86*t416*t185*
5092 t246-103.8945353962552*t81*t187*t244*t86*t245*t185*t246-155.8418030943828*
5093 t81*t85*t252*t109*t86*t245*t185*t246+5.779133531416695*t81*
5094 t1*t2*t3*t103*t85*t244*t245*t185*t246+103.8945353962552*t81*
5095 t85*t411*t86*t416*t122*t246-51.9472676981276*t81*t85*t252*
5096 t109*t86*t245*t122*t246+1.926377843805565*t81*t1*t2*t3*t103*
5097 t85*t244*t245*t122*t246+t81*t83*t84*t557*t133+3.508934038473122*
5098 t81*t336*t244*t86*t249*t90*t111+10.52680211541937*t81*t187*
5099 t252*t109*t86*t249*t90*t111+3.508934038473122*t81*t128*t252*
5100 t109*t86*t249*t90*t111-.3903689117801349*t81*t1*t2*t3*t103*
5101 t187*t244*t249*t90*t111-.1301229705933783*t81*t1*t2*t3*t103*
5102 t128*t244*t249*t90*t111-10.52680211541937*t81*t187*t411*t86*
5103 t245*t90*t111-3.508934038473122*t81*t128*t411*t86*t245*t90*
5104 t111-1.754467019236561*t81*t187*t431*t86*t110*t90*t111-.5848223397455204*
5105 t81*t128*t431*t86*t110*t90*t111-1.754467019236561*t81*t336*
5106 t252*t86*t110*t90*t111-.5848223397455204*t81*t563*t109*t86*
5107 t110*t90*t111-1.754467019236561*t81*t515*t109*t86*t110*t90*
5108 t111+.1951844558900674*t81*t1*t2*t3*t103*t187*t252*t110*t90*
5109 t111+.0650614852966891*t81*t1*t2*t3*t103*t128*t252*t110*t90*
5110 t111+.1301229705933783*t81*t1*t2*t3*t103*t336*t109*t110*t90*
5111 t111-.2602459411867565*t81*t1*t2*t3*t240*t187*t109*t110*t90*
5112 t111-.0867486470622522*t81*t1*t2*t3*t240*t128*t109*t110*t90*
5113 t111-.5848223397455204*t81*t85*t109*t86*t110*t557*t111-1.754467019236561*
5114 t81*t85*t109*t86*t110*t514*t111+3.508934038473122*t81*t85*
5115 t244*t86*t249*t331*t111-1.754467019236561*t81*t85*t252*t86*
5116 t110*t331*t111-1.754467019236561*t81*t187*t109*t86*t110*t331*
5117 t111-1.754467019236561*t81*t128*t109*t86*t110*t331*t111+.1301229705933783*
5118 t81*t1*t2*t3*t103*t85*t109*t110*t331*t111-3.508934038473122*
5119 t81*t187*t109*t86*t110*t297*t111+7.017868076946245*t81*t187*
5120 t244*t86*t249*t185*t111+10.52680211541937*t81*t85*t252*t109*
5121 t86*t249*t185*t111-.3903689117801349*t81*t1*t2*t3*t103*t85*
5122 t244*t249*t185*t111-10.52680211541937*t81*t85*t411*t86*t245*
5123 t185*t111-1.754467019236561*t81*t85*t431*t86*t110*t185*t111-
5124 3.508934038473122*t81*t187*t252*t86*t110*t185*t111-1.754467019236561*
5125 t81*t336*t109*t86*t110*t185*t111-3.508934038473122*t81*t298*
5126 t109*t86*t110*t185*t111+.1951844558900674*t81*t1*t2*t3*t103*
5127 t85*t252*t110*t185*t111-.2602459411867565*t81*t1*t2*t3*t240*
5128 t85*t109*t110*t185*t111+.2602459411867566*t81*t1*t2*t3*t103*
5129 t187*t109*t110*t185*t111+3.508934038473122*t81*t85*t252*t109*
5130 t86*t249*t122*t111-.1301229705933783*t81*t1*t2*t3*t103*t85*
5131 t244*t249*t122*t111-3.508934038473122*t81*t85*t411*t86*t245*
5132 t122*t111-.5848223397455204*t81*t85*t431*t86*t110*t122*t111-
5133 1.754467019236561*t81*t336*t109*t86*t110*t122*t111+.0650614852966891*
5134 t81*t1*t2*t3*t103*t85*t252*t110*t122*t111-.0867486470622522*
5135 t81*t1*t2*t3*t240*t85*t109*t110*t122*t111)+48.0*t81*t82*t84*
5136 t90*t99-480.0*t127*t273*t81*t90*t99+3.0*t514*t81*t83*t84*t99-
5137 24.0*t127*t297*t81*t84*t99-36.0*t185*t275*t81*t84*t99-24.0*
5138 t125*t331*t81*t83*t99+180.0*t185*t273*t81*t83*t99+96.0*t122*
5139 t125*t127*t81*t99+.0592553691076956*t81*t515*t86*t90*t93-.0043947732088208*
5140 t81*t1*t2*t3*t103*t336*t90*t93+.0087895464176415*t81*t1*t2*
5141 t3*t240*t187*t90*t93+.0592553691076956*t81*t85*t86*t514*t93+
5142 .0592553691076956*t81*t128*t86*t331*t93-.0043947732088208*
5143 t81*t1*t2*t3*t103*t85*t331*t93+.1185107382153912*t81*t187*
5144 t86*t297*t93+.1185107382153912*t81*t298*t86*t185*t93+.0087895464176415*
5145 t81*t1*t2*t3*t240*t85*t185*t93-.0087895464176415*t81*t1*t2*
5146 t3*t103*t187*t185*t93+.0592553691076956*t81*t336*t86*t122*
5147 t93-24.0*t127*t284*t81*t84*t90+192.0*t125*t127*t133*t81*t90+
5148 6.0*t133*t331*t81*t83*t84+9.0*t185*t284*t81*t83*t84-24.0*t122*
5149 t127*t133*t81*t84-72.0*t125*t133*t185*t81*t83+t730+t729+t728+
5150 t727+t726+t725+t724+t723+t722+t721+t639+t637+t636+t635+t634+
5151 t633+t632+t631+t630+t629+t628+t627+t626+t625+t624+t623+t622+
5152 t621+t620+t619+t618+t617+t616+t615+t614+t613+t570+t568+t567+
5153 t564+t561+t559+t558+t474+t472+t467+t465+t450+t448+t433+t429+
5154 t427+t423+t422+t421+t420+t415-155.8418030943828*t81*t187*t244*
5155 t86*t245*t90*t246-155.8418030943828*t81*t85*t244*t86*t245*
5156 t185*t246+10.52680211541937*t81*t187*t244*t86*t249*t90*t111-
5157 5.263401057709684*t81*t187*t252*t86*t110*t90*t111-3.508934038473123*
5158 t81*t336*t109*t86*t110*t90*t111+.3903689117801349*t81*t1*t2*
5159 t3*t103*t187*t109*t110*t90*t111-3.508934038473123*t81*t85*
5160 t109*t86*t110*t331*t111+10.52680211541937*t81*t85*t244*t86*
5161 t249*t185*t111-5.263401057709684*t81*t85*t252*t86*t110*t185*
5162 t111-7.017868076946246*t81*t187*t109*t86*t110*t185*t111+.3903689117801349*
5163 t81*t1*t2*t3*t103*t85*t109*t110*t185*t111)+t139*t572+3.0*t190*
5164 t518+3.0*t191*t517+3.0*t300*t344+3.0*t301*t343+(-0.0692916224*
5165 t21*t58*t48*t67*t535+0.0023008871424*t21*t58*t48*t60*t65*t535-
5166 2.7600663552e-5*t21*t58*t48*t66*t63*t535+1.51306788864e-7*
5167 t21*t58*t48*t64*t138*t535-3.2140652544e-10*t21*t58*t48*t61*
5168 t295*t535+0.0026849028096*t21*t156*t48*t65*t534-8.28148248576e-5*
5169 t21*t156*t48*t60*t63*t534+9.568596787199999e-7*t21*t156*t48*
5170 t66*t138*t534-4.992711229439999e-9*t21*t156*t48*t64*t295*t534+
5171 9.91768707072e-12*t21*t156*t48*t61*t479*t534-1.58961303552e-5*
5172 t21*t153*t48*t63*t533+4.728818368512e-7*t21*t153*t48*t60*t138*
5173 t533-5.29502109696e-9*t21*t153*t48*t66*t295*t533+2.659495182336e-11*
5174 t21*t153*t48*t64*t479*t533-5.049004326912e-14*t21*t153*t48*
5175 t61*t720*t533)*t148+t573*t137;
5176 d4fdrarbrbga = 2.0*t190*t519+t199*t517+2.0*t300*t345+
5177 t306*t343+(0.0296964096*grada*t58*t48*t67*t315-9.860944896e-4*
5178 grada*t58*t48*t60*t65*t315-6.712257024000001e-4*t196*t58*t47*
5179 t65*t315+1.1828855808e-5*grada*t58*t48*t66*t63*t315+2.07037062144e-5*
5180 t196*t58*t47*t60*t63*t315-6.4845766656e-8*grada*t58*t48*t64*
5181 t138*t315-2.3921491968e-7*t196*t58*t47*t66*t138*t315+1.3774565376e-10*
5182 grada*t58*t48*t61*t295*t315+1.24817780736e-9*t196*t58*t47*
5183 t64*t295*t315-2.47942176768e-12*t196*t58*t47*t61*t479*t315-
5184 4.881641471999999e-4*grada*t156*t48*t65*t314+1.50572408832e-5*
5185 grada*t156*t48*t60*t63*t314+1.19220977664e-5*t196*t156*t47*
5186 t63*t314-1.7397448704e-7*grada*t156*t48*t66*t138*t314-3.546613776384e-7*
5187 t196*t156*t47*t60*t138*t314+9.0776567808e-10*grada*t156*t48*
5188 t64*t295*t314+3.971265822719999e-9*t196*t156*t47*t66*t295*
5189 t314-1.80321583104e-12*grada*t156*t48*t61*t479*t314-1.994621386752e-11*
5190 t196*t156*t47*t64*t479*t314+3.786753245184e-14*t196*t156*t47*
5191 t61*t720*t314)*t148+t574*t137;
5192 d4fdrarbrbgb = 2.0*t190*t520+t207*t517+2.0*t300*t350+
5193 t307*t343+(0.0296964096*t21*gradb*t48*t67*t315-9.860944896e-4*
5194 t21*gradb*t48*t60*t65*t315+1.1828855808e-5*t21*gradb*t48*t66*
5195 t63*t315-6.4845766656e-8*t21*gradb*t48*t64*t138*t315+1.3774565376e-10*
5196 t21*gradb*t48*t61*t295*t315-0.0016475539968*t21*t204*t48*t65*
5197 t314+5.08181879808e-5*t21*t204*t48*t60*t63*t314-5.871638937599999e-7*
5198 t21*t204*t48*t66*t138*t314+3.06370916352e-9*t21*t204*t48*t64*
5199 t295*t314-6.08585342976e-12*t21*t204*t48*t61*t479*t314+1.19220977664e-5*
5200 t21*t203*t48*t63*t313-3.546613776384e-7*t21*t203*t48*t60*t138*
5201 t313+3.971265822719999e-9*t21*t203*t48*t66*t295*t313-1.994621386752e-11*
5202 t21*t203*t48*t64*t479*t313+3.786753245184e-14*t21*t203*t48*
5203 t61*t720*t313)*t148+t579*t137;
5204 d4fdrarbrbab = 0.0;
5205 d4fdrarbgaga = (-0.0080990208*t58*t48*t67*t173+2.689348608e-4*
5206 t58*t48*t60*t65*t173+9.153077759999999e-4*t21*t58*t47*t65*
5207 t173-3.226051584e-6*t58*t48*t66*t63*t173-2.8232326656e-5*t21*
5208 t58*t47*t60*t63*t173-8.9415733248e-6*t29*t58*t46*t63*t173+
5209 1.7685209088e-8*t58*t48*t64*t138*t173+3.262021632e-7*t21*t58*
5210 t47*t66*t138*t173+2.659960332288e-7*t29*t58*t46*t60*t138*t173-
5211 3.756699648e-11*t58*t48*t61*t295*t173-1.7020606464e-9*t21*
5212 t58*t47*t64*t295*t173-2.97844936704e-9*t29*t58*t46*t66*t295*
5213 t173+3.3810296832e-12*t21*t58*t47*t61*t479*t173+1.495966040064e-11*
5214 t29*t58*t46*t64*t479*t173-2.840064933888e-14*t29*t58*t46*t61*
5215 t720*t173)*t148+t580*t137+t524*t190+t354*t300;
5216 d4fdrarbgagb = (-0.0161980416*grada*gradb*t48*t67*t173+
5217 5.378697216e-4*grada*gradb*t48*t60*t65*t173+3.661231104e-4*
5218 t196*gradb*t47*t65*t173-6.452103168e-6*grada*gradb*t48*t66*
5219 t63*t173-1.12929306624e-5*t196*gradb*t47*t60*t63*t173+3.5370418176e-8*
5220 grada*gradb*t48*t64*t138*t173+1.3048086528e-7*t196*gradb*t47*
5221 t66*t138*t173-7.513399296e-11*grada*gradb*t48*t61*t295*t173-
5222 6.8082425856e-10*t196*gradb*t47*t64*t295*t173+1.35241187328e-12*
5223 t196*gradb*t47*t61*t479*t173+3.661231104e-4*grada*t204*t48*
5224 t65*t172-1.12929306624e-5*grada*t204*t48*t60*t63*t172-8.9415733248e-6*
5225 t196*t204*t47*t63*t172+1.3048086528e-7*grada*t204*t48*t66*
5226 t138*t172+2.659960332288e-7*t196*t204*t47*t60*t138*t172-6.8082425856e-10*
5227 grada*t204*t48*t64*t295*t172-2.97844936704e-9*t196*t204*t47*
5228 t66*t295*t172+1.35241187328e-12*grada*t204*t48*t61*t479*t172+
5229 1.495966040064e-11*t196*t204*t47*t64*t479*t172-2.840064933888e-14*
5230 t196*t204*t47*t61*t720*t172)*t148+t581*t137+t525*t190+t355*
5231 t300;
5232 d4fdrarbgaab = 0.0;
5233 d4fdrarbgbgb = (-0.0080990208*t21*t48*t67*t173+2.689348608e-4*
5234 t21*t48*t60*t65*t173-3.226051584e-6*t21*t48*t66*t63*t173+1.7685209088e-8*
5235 t21*t48*t64*t138*t173-3.756699648e-11*t21*t48*t61*t295*t173+
5236 9.153077759999999e-4*t21*t58*t48*t65*t172-2.8232326656e-5*
5237 t21*t58*t48*t60*t63*t172+3.262021632e-7*t21*t58*t48*t66*t138*
5238 t172-1.7020606464e-9*t21*t58*t48*t64*t295*t172+3.3810296832e-12*
5239 t21*t58*t48*t61*t479*t172-8.9415733248e-6*t21*t156*t48*t63*
5240 t171+2.659960332288e-7*t21*t156*t48*t60*t138*t171-2.97844936704e-9*
5241 t21*t156*t48*t66*t295*t171+1.495966040064e-11*t21*t156*t48*
5242 t64*t479*t171-2.840064933888e-14*t21*t156*t48*t61*t720*t171)*
5243 t148+t585*t137+t526*t190+t359*t300;
5244 d4fdrarbgbab = 0.0;
5245 d4fdrarbabab = 0.0;
5246 d4fdragagaga = t50*t587*t54*t34*t55*rhoa-0.03109*t19*
5247 (-3.551232*grada*t30*t47+22.53342720000001*t196*t27*t46-43.52509952000001*
5248 t195*t24*t45+33.043730432*t194*t43*t44-11.518767104*t192*t209*
5249 t303+1.8653560832*t302*t361*t521-0.11401363456*t508*t597*t764)*
5250 t34*rhoa-1.0*t11*t3*t35*t588-0.75*t3*t35*(-0.011930624*grada*
5251 t39*t47+8.268492799999999e-4*t196*t38*t46-1.65497618432e-5*
5252 t195*t37*t45+1.481475227648001e-7*t194*t56*t44-6.72732020736e-10*
5253 t192*t223*t303+1.524308639744e-12*t302*t376*t521-1.376050479104e-15*
5254 t508*t612*t764)*t52-0.03109*t19*t587*t34+(0.0364455936*grada*
5255 t47*t67-0.0012102068736*grada*t47*t60*t65-0.0012356654976*
5256 t196*t46*t65+1.4517232128e-5*grada*t47*t66*t63+3.811364098559999e-5*
5257 t196*t46*t60*t63+6.706179993600001e-6*t195*t45*t63-7.9583440896e-8*
5258 grada*t47*t64*t138-4.4037292032e-7*t196*t46*t66*t138-1.994970249216e-7*
5259 t195*t45*t60*t138+1.6905148416e-10*grada*t47*t61*t295+2.29778187264e-9*
5260 t196*t46*t64*t295+2.23383702528e-9*t195*t45*t66*t295-4.56439007232e-12*
5261 t196*t46*t61*t479-1.121974530048e-11*t195*t45*t64*t479+2.130048700416e-14*
5262 t195*t45*t61*t720)*t148+t589*t137+.0021294577333333*t1*t2*
5263 t3*t19*t587*t12;
5264 d4fdragagagb = (0.0060742656*gradb*t48*t67*t59-2.017011456e-4*
5265 gradb*t48*t60*t65*t59-6.86480832e-4*t21*gradb*t47*t65*t59+
5266 2.419538688e-6*gradb*t48*t66*t63*t59+2.1174244992e-5*t21*gradb*
5267 t47*t60*t63*t59+6.706179993600001e-6*t29*gradb*t46*t63*t59-
5268 1.3263906816e-8*gradb*t48*t64*t138*t59-2.446516224e-7*t21*
5269 gradb*t47*t66*t138*t59-1.994970249216e-7*t29*gradb*t46*t60*
5270 t138*t59+2.817524736e-11*gradb*t48*t61*t295*t59+1.2765454848e-9*
5271 t21*gradb*t47*t64*t295*t59+2.23383702528e-9*t29*gradb*t46*
5272 t66*t295*t59-2.5357722624e-12*t21*gradb*t47*t61*t479*t59-1.121974530048e-11*
5273 t29*gradb*t46*t64*t479*t59+2.130048700416e-14*t29*gradb*t46*
5274 t61*t720*t59)*t148+t590*t137;
5275 d4fdragagaab = 0.0;
5276 d4fdragagbgb = (0.0060742656*grada*t48*t67*t59-2.017011456e-4*
5277 grada*t48*t60*t65*t59-1.372961664e-4*t196*t47*t65*t59+2.419538688e-6*
5278 grada*t48*t66*t63*t59+4.2348489984e-6*t196*t47*t60*t63*t59-
5279 1.3263906816e-8*grada*t48*t64*t138*t59-4.893032448e-8*t196*
5280 t47*t66*t138*t59+2.817524736e-11*grada*t48*t61*t295*t59+2.5530909696e-10*
5281 t196*t47*t64*t295*t59-5.0715445248e-13*t196*t47*t61*t479*t59-
5282 2.745923328e-4*grada*t58*t48*t65*t158+8.4696979968e-6*grada*
5283 t58*t48*t60*t63*t158+6.706179993600001e-6*t196*t58*t47*t63*
5284 t158-9.786064896e-8*grada*t58*t48*t66*t138*t158-1.994970249216e-7*
5285 t196*t58*t47*t60*t138*t158+5.1061819392e-10*grada*t58*t48*
5286 t64*t295*t158+2.23383702528e-9*t196*t58*t47*t66*t295*t158-
5287 1.01430890496e-12*grada*t58*t48*t61*t479*t158-1.121974530048e-11*
5288 t196*t58*t47*t64*t479*t158+2.130048700416e-14*t196*t58*t47*
5289 t61*t720*t158)*t148+t591*t137;
5290 d4fdragagbab = 0.0;
5291 d4fdragaabab = 0.0;
5292 d4fdragbgbgb = (-4.118884992e-4*t21*gradb*t48*t65*t158+
5293 1.27045469952e-5*t21*gradb*t48*t60*t63*t158-1.4679097344e-7*
5294 t21*gradb*t48*t66*t138*t158+7.6592729088e-10*t21*gradb*t48*
5295 t64*t295*t158-1.52146335744e-12*t21*gradb*t48*t61*t479*t158+
5296 6.706179993600001e-6*t21*t204*t48*t63*t155-1.994970249216e-7*
5297 t21*t204*t48*t60*t138*t155+2.23383702528e-9*t21*t204*t48*t66*
5298 t295*t155-1.121974530048e-11*t21*t204*t48*t64*t479*t155+2.130048700416e-14*
5299 t21*t204*t48*t61*t720*t155)*t148+t595*t137;
5300 d4fdragbgbab = 0.0;
5301 d4fdragbabab = 0.0;
5302 d4fdraababab = 0.0;
5303 d4fdrbrbrbrb = t69*(24829.60425438716*t537*t776*t147*
5304 t778*rhob-199659.0885685683*t775*t776*t147*t777*rhob+24.0*
5305 t175*t776*t147*t540*rhob+1157.928594403345*t317*t322*t318*
5306 t147*t540*rhob-1157.928594403345*t317*t776*t147*t539*rhob-
5307 12414.80212719358*t537*t322*t318*t147*t539*rhob+6.0*t175*t779*
5308 t147*t320*rhob+8.0*t175*t542*t179*t147*t320*rhob-96.4940495336121*
5309 t317*t779*t147*t319*rhob-36.0*t175*t322*t318*t147*t319*rhob-
5310 128.6587327114828*t317*t542*t179*t147*t319*rhob-1.0*t175*t780*
5311 t147*t180*rhob+t70*(384.0*t125*t81*t82*t90*t99+1920.0*t127*
5312 t452*t81*t90*t99-96.0*t185*t81*t82*t84*t99-16.0*t127*t557*
5313 t81*t84*t99+72.0*t275*t331*t81*t84*t99-16.0*t125*t557*t81*
5314 t83*t99-480.0*t185*t452*t81*t83*t99+120.0*t273*t331*t81*t83*
5315 t99+192.0*t125*t127*t331*t81*t99-576.0*t125*t185*t275*t81*
5316 t99-960.0*t127*t185*t273*t81*t99+t81*t83*t84*t782*t99+.0197517897025652*
5317 t81*(-384.0*t125*t82+t708+t707+t703-1920.0*t127*t452)*t86*
5318 t90*t93-.0029298488058805*t81*t1*t2*t3*t103*t563*t90*t93+0.005859697611761*
5319 t81*t1*t2*t3*t240*t336*t90*t93-.0091150851738505*t81*t1*t2*
5320 t3*t407*t187*t90*t93+.0197517897025652*t81*t85*t86*t782*t93+
5321 .0790071588102608*t81*t187*t86*t557*t93-.0029298488058805*
5322 t81*t1*t2*t3*t103*t85*t557*t93+.1185107382153912*t81*t336*
5323 t86*t331*t93+0.005859697611761*t81*t1*t2*t3*t240*t85*t331*
5324 t93-.0087895464176415*t81*t1*t2*t3*t103*t187*t331*t93+.0790071588102608*
5325 t81*t563*t86*t185*t93-.0091150851738505*t81*t1*t2*t3*t407*
5326 t85*t185*t93-.0087895464176415*t81*t1*t2*t3*t103*t336*t185*
5327 t93+0.011719395223522*t81*t1*t2*t3*t240*t187*t185*t93-96.0*
5328 t133*t81*t82*t84*t90-16.0*t127*t463*t81*t84*t90+192.0*t125*
5329 t127*t284*t81*t90-960.0*t127*t133*t273*t81*t90+4.0*t133*t557*
5330 t81*t83*t84+4.0*t185*t463*t81*t83*t84+6.0*t284*t331*t81*t83*
5331 t84-48.0*t127*t133*t331*t81*t84-48.0*t127*t185*t284*t81*t84+
5332 144.0*t133*t185*t275*t81*t84-48.0*t125*t133*t331*t81*t83-48.0*
5333 t125*t185*t284*t81*t83+240.0*t133*t185*t273*t81*t83+384.0*
5334 t125*t127*t133*t185*t81+t719+t718+t717+t716+t715+t714+t713+
5335 t712+t711+t705+t697+t696+t695+t694+t693+t692+t691+t690+t689+
5336 t688+t687+t686+t685+t684+t682+t681+t680+t679+t678+t677+t676+
5337 t675+t674+t672+t666+t665+t664+t663+t662+t661+t660+t659+t658+
5338 t657+t656+t655+t653+t652+t651+t650+t649+t648+t647+t646+t644-
5339 4101.558808403119*t81*t187*t411*t86*t412*t90*t413-4101.558808403119*
5340 t81*t85*t411*t86*t412*t185*t413+415.5781415850207*t81*t187*
5341 t411*t86*t416*t90*t246-103.8945353962552*t81*t336*t244*t86*
5342 t245*t90*t246-207.7890707925104*t81*t187*t252*t109*t86*t245*
5343 t90*t246+7.70551137522226*t81*t1*t2*t3*t103*t187*t244*t245*
5344 t90*t246-103.8945353962552*t81*t85*t244*t86*t245*t331*t246+
5345 415.5781415850207*t81*t85*t411*t86*t416*t185*t246-207.7890707925104*
5346 t81*t187*t244*t86*t245*t185*t246-207.7890707925104*t81*t85*
5347 t252*t109*t86*t245*t185*t246+7.70551137522226*t81*t1*t2*t3*
5348 t103*t85*t244*t245*t185*t246+7.017868076946245*t81*t336*t244*
5349 t86*t249*t90*t111+14.03573615389249*t81*t187*t252*t109*t86*
5350 t249*t90*t111-.5204918823735132*t81*t1*t2*t3*t103*t187*t244*
5351 t249*t90*t111-14.03573615389249*t81*t187*t411*t86*t245*t90*
5352 t111-2.339289358982082*t81*t187*t431*t86*t110*t90*t111-3.508934038473122*
5353 t81*t336*t252*t86*t110*t90*t111-2.339289358982082*t81*t563*
5354 t109*t86*t110*t90*t111+.2602459411867566*t81*t1*t2*t3*t103*
5355 t187*t252*t110*t90*t111+.2602459411867566*t81*t1*t2*t3*t103*
5356 t336*t109*t110*t90*t111-.3469945882490088*t81*t1*t2*t3*t240*
5357 t187*t109*t110*t90*t111-2.339289358982082*t81*t85*t109*t86*
5358 t110*t557*t111+7.017868076946245*t81*t85*t244*t86*t249*t331*
5359 t111-3.508934038473122*t81*t85*t252*t86*t110*t331*t111-7.017868076946245*
5360 t81*t187*t109*t86*t110*t331*t111+.2602459411867566*t81*t1*
5361 t2*t3*t103*t85*t109*t110*t331*t111+14.03573615389249*t81*t187*
5362 t244*t86*t249*t185*t111+14.03573615389249*t81*t85*t252*t109*
5363 t86*t249*t185*t111-.5204918823735132*t81*t1*t2*t3*t103*t85*
5364 t244*t249*t185*t111-14.03573615389249*t81*t85*t411*t86*t245*
5365 t185*t111-2.339289358982082*t81*t85*t431*t86*t110*t185*t111-
5366 7.017868076946245*t81*t187*t252*t86*t110*t185*t111-7.017868076946245*
5367 t81*t336*t109*t86*t110*t185*t111+.2602459411867566*t81*t1*
5368 t2*t3*t103*t85*t252*t110*t185*t111-.3469945882490088*t81*t1*
5369 t2*t3*t240*t85*t109*t110*t185*t111+.5204918823735132*t81*t1*
5370 t2*t3*t103*t187*t109*t110*t185*t111)-96.0*t81*t82*t84*t90*
5371 t99-960.0*t127*t273*t81*t90*t99+4.0*t557*t81*t83*t84*t99-48.0*
5372 t127*t331*t81*t84*t99+144.0*t185*t275*t81*t84*t99-48.0*t125*
5373 t331*t81*t83*t99+240.0*t185*t273*t81*t83*t99+384.0*t125*t127*
5374 t185*t81*t99+.0790071588102608*t81*t563*t86*t90*t93-.0087895464176415*
5375 t81*t1*t2*t3*t103*t336*t90*t93+0.011719395223522*t81*t1*t2*
5376 t3*t240*t187*t90*t93+.0790071588102608*t81*t85*t86*t557*t93+
5377 .2370214764307825*t81*t187*t86*t331*t93-.0087895464176415*
5378 t81*t1*t2*t3*t103*t85*t331*t93+.2370214764307825*t81*t336*
5379 t86*t185*t93+0.011719395223522*t81*t1*t2*t3*t240*t85*t185*
5380 t93-0.017579092835283*t81*t1*t2*t3*t103*t187*t185*t93-48.0*
5381 t127*t284*t81*t84*t90+384.0*t125*t127*t133*t81*t90+12.0*t133*
5382 t331*t81*t83*t84+12.0*t185*t284*t81*t83*t84-96.0*t127*t133*
5383 t185*t81*t84-96.0*t125*t133*t185*t81*t83+t640+t639+t638+t637+
5384 t636+t635+t634+t633+t632+t631+t630+t629+t628+t627+t626+t625+
5385 t624+t623+t622+t621+t620+t619+t618+t617+t616+t615+t614+t613-
5386 .0044166530765432*t1*t2*t3*t146*t541+771.9523962688968*t317*
5387 t538*t147*t540-8276.534751462386*t537*t538*t147*t539-.2435318518518518*
5388 t1*t2*t3*t175*t179*t180*t321+24.0*t175*t322*t179*t147*t320-
5389 24.0*t175*t538*t147*t319-385.9761981344484*t317*t322*t179*
5390 t147*t319-207.7890707925104*t81*t187*t244*t86*t245*t90*t246-
5391 207.7890707925104*t81*t85*t244*t86*t245*t185*t246-4.0*t175*
5392 t542*t147*t180-.5479466666666666*t1*t2*t3*t175*t318*t320*t178+
5393 8.812265465851826*t1*t2*t3*t317*t318*t319*t178+.2739733333333333*
5394 t1*t2*t3*t175*t322*t180*t178-52.87359279511096*t1*t2*t3*t317*
5395 t538*t540*t143+566.8874535768302*t1*t2*t3*t537*t538*t539*t143-
5396 1.64384*t1*t2*t3*t175*t322*t179*t320*t143+1.64384*t1*t2*t3*
5397 t175*t538*t319*t143+26.43679639755548*t1*t2*t3*t317*t322*t179*
5398 t319*t143+.2739733333333333*t1*t2*t3*t175*t542*t180*t143+14.03573615389249*
5399 t81*t187*t244*t86*t249*t90*t111-7.017868076946245*t81*t187*
5400 t252*t86*t110*t90*t111-7.017868076946245*t81*t336*t109*t86*
5401 t110*t90*t111+.5204918823735132*t81*t1*t2*t3*t103*t187*t109*
5402 t110*t90*t111-7.017868076946245*t81*t85*t109*t86*t110*t331*
5403 t111+14.03573615389249*t81*t85*t244*t86*t249*t185*t111-7.017868076946245*
5404 t81*t85*t252*t86*t110*t185*t111-14.03573615389249*t81*t187*
5405 t109*t86*t110*t185*t111+.5204918823735132*t81*t1*t2*t3*t103*
5406 t85*t109*t110*t185*t111)-6.0*t147*t160*t175*t320*t779*rhob-
5407 24829.60425438716*t537*t160*t776*t147*t778*rhob+199659.0885685683*
5408 t775*t160*t776*t147*t777*rhob-24.0*t147*t160*t175*t540*t776*
5409 rhob-8.0*t147*t160*t175*t179*t320*t542*rhob+4.0*t147*t174*
5410 t175*t180*t542*rhob-771.9523962688968*t317*t174*t538*t147*
5411 t540*rhob-1157.928594403345*t317*t160*t322*t318*t147*t540*
5412 rhob+1157.928594403345*t317*t160*t776*t147*t539*rhob+8276.534751462386*
5413 t537*t174*t538*t147*t539*rhob+12414.80212719358*t537*t160*
5414 t322*t318*t147*t539*rhob+24.0*t147*t174*t175*t319*t538*rhob+
5415 4.0*t147*t175*t179*t180*t536*rhob-24.0*t147*t174*t175*t179*
5416 t320*t322*rhob+36.0*t147*t160*t175*t318*t319*t322*rhob+6.0*
5417 t147*t175*t180*t316*t322*rhob-12.0*t147*t175*t316*t318*t320*
5418 rhob+96.4940495336121*t317*t160*t779*t147*t319*rhob+192.9880990672242*
5419 t317*t316*t318*t147*t319*rhob+385.9761981344484*t317*t174*
5420 t322*t179*t147*t319*rhob+128.6587327114828*t317*t542*t160*
5421 t179*t147*t319*rhob+t175*t780*t160*t147*t180*rhob-0.03109*
5422 t146*(-13.48173037037037*t58*t159*t774+54.57275022222223*t156*
5423 t157*t773-175.2514706962963*t153*t154*t772+233.6411877767902*
5424 t149*t151*t771-135.1367155863704*t167*t168*t770+37.97174600691358*
5425 t308*t309*t769-5.145480882251853*t527*t528*t768+.2702545411792593*
5426 t765*t766*t767)*t147*rhob-0.75*t177*t3*t35*(-.7728077432098764*
5427 t58*t165*t774+.1893084924839506*t156*t164*t773-0.006082094880237*
5428 t153*t163*t772+8.043848174048394e-5*t149*t162*t771-5.502357119279407e-7*
5429 t167*t181*t770+2.064154627236346e-9*t308*t323*t769-4.05001745688652e-12*
5430 t527*t543*t768+3.26174928380207e-15*t765*t781*t767)-.3703703703703703*
5431 t166*t3*t35*t59+4.0*t190*t573+4.0*t191*t572-4.0*t142*t3*t35*
5432 t544+4.0*t147*t160*t175*t180*t542+.0044166530765432*t1*t2*
5433 t3*t146*t160*t541-771.9523962688968*t317*t160*t538*t147*t540+
5434 8276.534751462386*t537*t160*t538*t147*t539+24.0*t147*t160*
5435 t175*t319*t538-2.0*t140*t3*t324*t35+.8888888888888888*t176*
5436 t182*t3*t35+6.0*t343*t344-24.0*t147*t160*t175*t179*t320*t322+
5437 .2435318518518518*t1*t2*t3*t175*t160*t179*t180*t321-.0075714052740741*
5438 t1*t2*t3*t146*t174*t321-24.0*t175*t174*t318*t147*t320+385.9761981344484*
5439 t317*t174*t318*t147*t319+385.9761981344484*t317*t160*t322*
5440 t179*t147*t319+12.0*t175*t174*t322*t147*t180+12.0*t175*t316*
5441 t179*t147*t180+.5479466666666666*t1*t2*t3*t175*t160*t318*t320*
5442 t178-8.812265465851826*t1*t2*t3*t317*t160*t318*t319*t178+.0085178309333333*
5443 t1*t2*t3*t146*t316*t178-.2739733333333333*t1*t2*t3*t175*t160*
5444 t322*t180*t178-.5479466666666666*t1*t2*t3*t175*t174*t179*t180*
5445 t178+(5.375471525925927*t58*t68*t774-.2622365660444445*t58*
5446 t60*t67*t774+.0033159657813333*t58*t66*t65*t774-1.9205145344e-5*
5447 t58*t64*t63*t774+4.5532591104e-8*t58*t61*t138*t774-0.4404967424*
5448 t156*t67*t773+0.0146270682624*t156*t60*t65*t773-1.75461361152e-4*
5449 t156*t66*t63*t773+9.618788720640002e-7*t156*t64*t138*t773-
5450 2.04322719744e-9*t156*t61*t295*t773+0.0053698056192*t153*t65*
5451 t772-1.656296497152e-4*t153*t60*t63*t772+1.91371935744e-6*
5452 t153*t66*t138*t772-9.98542245888e-9*t153*t64*t295*t772+1.983537414144e-11*
5453 t153*t61*t479*t772-1.58961303552e-5*t149*t63*t771+4.728818368512e-7*
5454 t149*t60*t138*t771-5.29502109696e-9*t149*t66*t295*t771+2.659495182336e-11*
5455 t149*t64*t479*t771-5.049004326912e-14*t149*t61*t720*t771)*
5456 t148-0.12436*t146*t536*t147+52.87359279511096*t1*t2*t3*t317*
5457 t160*t538*t540*t143-566.8874535768302*t1*t2*t3*t537*t160*t538*
5458 t539*t143+.0085178309333333*t1*t2*t3*t146*t536*t143+1.64384*
5459 t1*t2*t3*t175*t174*t318*t320*t143+1.64384*t1*t2*t3*t175*t160*
5460 t322*t179*t320*t143-1.64384*t1*t2*t3*t175*t160*t538*t319*t143-
5461 26.43679639755548*t1*t2*t3*t317*t174*t318*t319*t143-26.43679639755548*
5462 t1*t2*t3*t317*t160*t322*t179*t319*t143-.8219199999999999*t1*
5463 t2*t3*t175*t174*t322*t180*t143-.8219199999999999*t1*t2*t3*
5464 t175*t316*t179*t180*t143-.2739733333333333*t1*t2*t3*t175*t542*
5465 t160*t180*t143;
5466 d4fdrbrbrbga = 3.0*t190*t574+t199*t572+3.0*t343*t345+
5467 (0.0519687168*grada*t58*t22*t67*t535-0.0017256653568*grada*
5468 t58*t22*t60*t65*t535+2.0700497664e-5*grada*t58*t22*t66*t63*
5469 t535-1.13480091648e-7*grada*t58*t22*t64*t138*t535+2.4105489408e-10*
5470 grada*t58*t22*t61*t295*t535-0.0020136771072*grada*t156*t22*
5471 t65*t534+6.21111186432e-5*grada*t156*t22*t60*t63*t534-7.1764475904e-7*
5472 grada*t156*t22*t66*t138*t534+3.74453342208e-9*grada*t156*t22*
5473 t64*t295*t534-7.43826530304e-12*grada*t156*t22*t61*t479*t534+
5474 1.19220977664e-5*grada*t153*t22*t63*t533-3.546613776384e-7*
5475 grada*t153*t22*t60*t138*t533+3.971265822719999e-9*grada*t153*
5476 t22*t66*t295*t533-1.994621386752e-11*grada*t153*t22*t64*t479*
5477 t533+3.786753245184e-14*grada*t153*t22*t61*t720*t533)*t148;
5478 d4fdrbrbrbgb = 3.0*
5479 t147*t175*t179*t180*t577*rhob-192.9880990672242*t317*t205*
5480 t538*t147*t540*rhob+2069.133687865597*t537*t205*t538*t147*
5481 t539*rhob+6.0*t147*t175*t205*t319*t538*rhob+3.0*t147*t175*
5482 t180*t322*t348*rhob-6.0*t147*t175*t318*t320*t348*rhob-6.0*
5483 t147*t175*t179*t205*t320*t322*rhob+96.4940495336121*t317*t348*
5484 t318*t147*t319*rhob+96.4940495336121*t317*t205*t322*t179*t147*
5485 t319*rhob+t175*t542*t205*t147*t180*rhob-0.03109*t146*(4.758257777777779*
5486 gradb*t159*t535-26.53751466666667*t204*t157*t534+96.98730382222223*
5487 t203*t154*t533-140.798896165926*t202*t151*t532+87.23400476444445*
5488 t200*t168*t531-25.96370371318519*t346*t309*t530+3.69623404088889*
5489 t575*t528*t529-.2026909058844445*t783*t766*t784)*t147*rhob+
5490 3.0*t190*t579-3.0*t142*t3*t35*t578+t207*t572-0.75*t177*t3*
5491 t35*(0.272755674074074*gradb*t165*t535-.0912608445629629*t204*
5492 t164*t534+.0034158733767111*t203*t163*t533-4.976854997522963e-5*
5493 t202*t162*t532+3.644651266958222e-7*t200*t181*t531-1.439007574395259e-9*
5494 t346*t323*t530+2.93922377272889e-12*t575*t543*t529-2.44631196285156e-15*
5495 t783*t781*t784)+3.0*t343*t350-1.0*t140*t3*t349*t35+.2222222222222222*
5496 t176*t206*t3*t35+3.0*t147*t175*t180*t205*t322-.0018928513185185*
5497 t1*t2*t3*t146*t205*t321-6.0*t147*t175*t205*t318*t320+96.4940495336121*
5498 t317*t205*t318*t147*t319+6.0*t175*t348*t179*t147*t180+.0042589154666667*
5499 t1*t2*t3*t146*t348*t178-.1369866666666666*t1*t2*t3*t175*t205*
5500 t179*t180*t178+(-1.897225244444445*gradb*t68*t535+.0925540821333334*
5501 gradb*t60*t67*t535-0.001170340864*gradb*t66*t65*t535+6.778286592000002e-6*
5502 gradb*t64*t63*t535-1.6070326272e-8*gradb*t61*t138*t535+0.2301471744*
5503 t204*t67*t534-0.0076422322944*t204*t60*t65*t534+9.167363251200001e-5*
5504 t204*t66*t63*t534-5.02554691584e-7*t204*t64*t138*t534+1.06752881664e-9*
5505 t204*t61*t295*t534-0.0034781695488*t203*t65*t533+1.072828412928e-4*
5506 t203*t60*t63*t533-1.23956822016e-6*t203*t66*t138*t533+6.46783045632e-9*
5507 t203*t64*t295*t533-1.284791279616e-11*t203*t61*t479*t533+1.19220977664e-5*
5508 t202*t63*t532-3.546613776384e-7*t202*t60*t138*t532+3.971265822719999e-9*
5509 t202*t66*t295*t532-1.994621386752e-11*t202*t64*t479*t532+3.786753245184e-14*
5510 t202*t61*t720*t532)*t148-0.09327*t146*t577*t147+0.0063883732*
5511 t1*t2*t3*t146*t577*t143+.4109599999999999*t1*t2*t3*t175*t205*
5512 t318*t320*t143-6.60919909938887*t1*t2*t3*t317*t205*t318*t319*
5513 t143-0.20548*t1*t2*t3*t175*t205*t322*t180*t143-.4109599999999999*
5514 t1*t2*t3*t175*t348*t179*t180*t143;
5515 d4fdrbrbrbab = 0.0;
5516 d4fdrbrbgaga = 2.0*t190*t580+t354*t343+(-0.0111361536*
5517 t58*t22*t67*t315+3.697854336e-4*t58*t22*t60*t65*t315+5.034192768e-4*
5518 t21*t58*t31*t65*t315-4.435820928e-6*t58*t22*t66*t63*t315-1.55277796608e-5*
5519 t21*t58*t31*t60*t63*t315+2.431716249600001e-8*t58*t22*t64*
5520 t138*t315+1.7941118976e-7*t21*t58*t31*t66*t138*t315-5.165462016e-11*
5521 t58*t22*t61*t295*t315-9.3613335552e-10*t21*t58*t31*t64*t295*
5522 t315+1.85956632576e-12*t21*t58*t31*t61*t479*t315+1.830615552e-4*
5523 t156*t22*t65*t314-5.6464653312e-6*t156*t22*t60*t63*t314-8.9415733248e-6*
5524 t21*t156*t31*t63*t314+6.524043264e-8*t156*t22*t66*t138*t314+
5525 2.659960332288e-7*t21*t156*t31*t60*t138*t314-3.4041212928e-10*
5526 t156*t22*t64*t295*t314-2.97844936704e-9*t21*t156*t31*t66*t295*
5527 t314+6.7620593664e-13*t156*t22*t61*t479*t314+1.495966040064e-11*
5528 t21*t156*t31*t64*t479*t314-2.840064933888e-14*t21*t156*t31*
5529 t61*t720*t314)*t148;
5530 d4fdrbrbgagb = 2.0*t190*t581+t355*t343+(-0.0222723072*
5531 grada*gradb*t22*t67*t315+7.395708672e-4*grada*gradb*t22*t60*
5532 t65*t315-8.871641856000001e-6*grada*gradb*t22*t66*t63*t315+
5533 4.863432499200002e-8*grada*gradb*t22*t64*t138*t315-1.0330924032e-10*
5534 grada*gradb*t22*t61*t295*t315+0.0012356654976*grada*t204*t22*
5535 t65*t314-3.811364098559999e-5*grada*t204*t22*t60*t63*t314+
5536 4.4037292032e-7*grada*t204*t22*t66*t138*t314-2.29778187264e-9*
5537 grada*t204*t22*t64*t295*t314+4.56439007232e-12*grada*t204*
5538 t22*t61*t479*t314-8.9415733248e-6*grada*t203*t22*t63*t313+
5539 2.659960332288e-7*grada*t203*t22*t60*t138*t313-2.97844936704e-9*
5540 grada*t203*t22*t66*t295*t313+1.495966040064e-11*grada*t203*
5541 t22*t64*t479*t313-2.840064933888e-14*grada*t203*t22*t61*t720*
5542 t313)*t148;
5543 d4fdrbrbgaab = 0.0;
5544 d4fdrbrbgbgb = 2.0*t147*t175*t179*t180*t583*rhob-2.0*
5545 t147*t175*t318*t320*t357*rhob+32.1646831778707*t317*t357*t318*
5546 t147*t319*rhob+t175*t357*t322*t147*t180*rhob-0.03109*t146*
5547 (-1.019626666666667*t159*t315+11.04164266666667*t58*t157*t314-
5548 49.43887786666667*t156*t154*t313+80.75327630222225*t153*t151*
5549 t312-54.65938830222224*t149*t168*t311+17.46168786488889*t167*
5550 t309*t310-2.636445013333334*t308*t528*t576+.1520181794133334*
5551 t527*t766*t785)*t147*rhob+2.0*t190*t585-2.0*t142*t3*t35*t584-
5552 .3333333333333333*t140*t3*t35*t358+2.0*t147*t175*t179*t180*
5553 t357-0.75*t177*t3*(-.0584476444444444*t165*t315+.0375465187555555*
5554 t58*t164*t314-.0017738547996444*t156*t163*t313+2.949453610097778e-5*
5555 t153*t162*t312-2.357182303800889e-7*t149*t181*t311+9.90891635143111e-10*
5556 t167*t323*t310-2.12251006293333e-12*t308*t543*t576+1.83473397213867e-15*
5557 t527*t781*t785)*t35+t359*t343+.0014196384888889*t1*t2*t3*t146*
5558 t357*t178+(.4065482666666667*t68*t315-0.0198330176*t60*t67*
5559 t315+2.50787328e-4*t66*t65*t315-1.452489984e-6*t64*t63*t315+
5560 3.443641344e-9*t61*t138*t315-0.1042748928*t58*t67*t314+0.0034625363328*
5561 t58*t60*t65*t314-4.1535414144e-5*t58*t66*t63*t314+2.27697067008e-7*
5562 t58*t64*t138*t314-4.8367507968e-10*t58*t61*t295*t314+0.0021509732736*
5563 t156*t65*t313-6.63459676416e-5*t156*t60*t63*t313+7.6657508352e-7*
5564 t156*t66*t138*t313-3.99984251904e-9*t156*t64*t295*t313+7.94541975552e-12*
5565 t156*t61*t479*t313-8.9415733248e-6*t153*t63*t312+2.659960332288e-7*
5566 t153*t60*t138*t312-2.97844936704e-9*t153*t66*t295*t312+1.495966040064e-11*
5567 t153*t64*t479*t312-2.840064933888e-14*t153*t61*t720*t312)*
5568 t148-0.06218*t146*t583*t147+.0042589154666667*t1*t2*t3*t146*
5569 t583*t143-.1369866666666666*t1*t2*t3*t175*t357*t179*t180*t143;
5570 d4fdrbrbgbab = 0.0;
5571 d4fdrbrbabab = 0.0;
5572 d4fdrbgagaga = (-
5573 4.118884992e-4*grada*t58*t31*t65*t173+1.27045469952e-5*grada*
5574 t58*t31*t60*t63*t173+6.706179993600001e-6*t196*t58*t28*t63*
5575 t173-1.4679097344e-7*grada*t58*t31*t66*t138*t173-1.994970249216e-7*
5576 t196*t58*t28*t60*t138*t173+7.6592729088e-10*grada*t58*t31*
5577 t64*t295*t173+2.23383702528e-9*t196*t58*t28*t66*t295*t173-
5578 1.52146335744e-12*grada*t58*t31*t61*t479*t173-1.121974530048e-11*
5579 t196*t58*t28*t64*t479*t173+2.130048700416e-14*t196*t58*t28*
5580 t61*t720*t173)*t148+t589*t190;
5581 d4fdrbgagagb = (0.0060742656*gradb*t22*t67*t173-2.017011456e-4*
5582 gradb*t22*t60*t65*t173-2.745923328e-4*t21*gradb*t31*t65*t173+
5583 2.419538688e-6*gradb*t22*t66*t63*t173+8.4696979968e-6*t21*
5584 gradb*t31*t60*t63*t173-1.3263906816e-8*gradb*t22*t64*t138*
5585 t173-9.786064896e-8*t21*gradb*t31*t66*t138*t173+2.817524736e-11*
5586 gradb*t22*t61*t295*t173+5.1061819392e-10*t21*gradb*t31*t64*
5587 t295*t173-1.01430890496e-12*t21*gradb*t31*t61*t479*t173-1.372961664e-4*
5588 t204*t22*t65*t172+4.2348489984e-6*t204*t22*t60*t63*t172+6.706179993600001e-6*
5589 t21*t204*t31*t63*t172-4.893032448e-8*t204*t22*t66*t138*t172-
5590 1.994970249216e-7*t21*t204*t31*t60*t138*t172+2.5530909696e-10*
5591 t204*t22*t64*t295*t172+2.23383702528e-9*t21*t204*t31*t66*t295*
5592 t172-5.0715445248e-13*t204*t22*t61*t479*t172-1.121974530048e-11*
5593 t21*t204*t31*t64*t479*t172+2.130048700416e-14*t21*t204*t31*
5594 t61*t720*t172)*t148+t590*t190;
5595 d4fdrbgagaab = 0.0;
5596 d4fdrbgagbgb = (0.0060742656*grada*t22*t67*t173-2.017011456e-4*
5597 grada*t22*t60*t65*t173+2.419538688e-6*grada*t22*t66*t63*t173-
5598 1.3263906816e-8*grada*t22*t64*t138*t173+2.817524736e-11*grada*
5599 t22*t61*t295*t173-6.86480832e-4*grada*t58*t22*t65*t172+2.1174244992e-5*
5600 grada*t58*t22*t60*t63*t172-2.446516224e-7*grada*t58*t22*t66*
5601 t138*t172+1.2765454848e-9*grada*t58*t22*t64*t295*t172-2.5357722624e-12*
5602 grada*t58*t22*t61*t479*t172+6.706179993600001e-6*grada*t156*
5603 t22*t63*t171-1.994970249216e-7*grada*t156*t22*t60*t138*t171+
5604 2.23383702528e-9*grada*t156*t22*t66*t295*t171-1.121974530048e-11*
5605 grada*t156*t22*t64*t479*t171+2.130048700416e-14*grada*t156*
5606 t22*t61*t720*t171)*t148+t591*t190;
5607 d4fdrbgagbab = 0.0;
5608 d4fdrbgaabab = 0.0;
5609 d4fdrbgbgbgb = t175*t593*t179*t147*t180*rhob-0.03109*
5610 t146*(-3.551232*gradb*t157*t172+22.53342720000001*t204*t154*
5611 t171-43.52509952000001*t203*t151*t170+33.043730432*t202*t168*
5612 t169-11.518767104*t200*t309*t347+1.8653560832*t346*t528*t582-
5613 0.11401363456*t575*t766*t786)*t147*rhob-1.0*t142*t3*t35*t594-
5614 0.75*(-0.011930624*gradb*t164*t172+8.268492799999999e-4*t204*
5615 t163*t171-1.65497618432e-5*t203*t162*t170+1.481475227648001e-7*
5616 t202*t181*t169-6.72732020736e-10*t200*t323*t347+1.524308639744e-12*
5617 t346*t543*t582-1.376050479104e-15*t575*t781*t786)*t177*t3*
5618 t35+t595*t190+(0.0364455936*gradb*t67*t172-0.0012102068736*
5619 gradb*t60*t65*t172+1.4517232128e-5*gradb*t66*t63*t172-7.9583440896e-8*
5620 gradb*t64*t138*t172+1.6905148416e-10*gradb*t61*t295*t172-0.0012356654976*
5621 t204*t65*t171+3.811364098559999e-5*t204*t60*t63*t171-4.4037292032e-7*
5622 t204*t66*t138*t171+2.29778187264e-9*t204*t64*t295*t171-4.56439007232e-12*
5623 t204*t61*t479*t171+6.706179993600001e-6*t203*t63*t170-1.994970249216e-7*
5624 t203*t60*t138*t170+2.23383702528e-9*t203*t66*t295*t170-1.121974530048e-11*
5625 t203*t64*t479*t170+2.130048700416e-14*t203*t61*t720*t170)*
5626 t148-0.03109*t146*t593*t147+.0021294577333333*t1*t2*t3*t146*
5627 t593*t143;
5628 d4fdrbgbgbab = 0.0;
5629 d4fdrbgbabab = 0.0;
5630 d4fdrbababab = 0.0;
5631 d4fdgagagaga = -0.03109*t19*(0.665856*t30*t31-8.716377600000003*
5632 t21*t27*t28+21.62994432000001*t29*t24*t25-19.11017932800001*
5633 t26*t43*t193+7.424742912000003*t20*t209*t351-1.307398963200001*
5634 t42*t361*t586+0.08551022592*t208*t597*t787)*t34*rhoa-0.75*
5635 t3*(0.002236992*t39*t31-3.27964416e-4*t21*t38*t28+8.634218496000002e-6*
5636 t29*t37*t25-8.986737868800001e-8*t26*t56*t193+4.49222639616e-10*
5637 t20*t223*t351-1.087943737344e-12*t42*t376*t586+1.032037859328e-15*
5638 t208*t612*t787)*t35*t52+(-0.0068335488*t31*t67+2.269137888e-4*
5639 t31*t60*t65+6.178327488e-4*t21*t28*t65-2.721981024000001e-6*
5640 t31*t66*t63-1.90568204928e-5*t21*t28*t60*t63-5.029634995200001e-6*
5641 t29*t25*t63+1.4921895168e-8*t31*t64*t138+2.2018646016e-7*t21*
5642 t28*t66*t138+1.496227686912e-7*t29*t25*t60*t138-3.169715328e-11*
5643 t31*t61*t295-1.14889093632e-9*t21*t28*t64*t295-1.67537776896e-9*
5644 t29*t25*t66*t295+2.28219503616e-12*t21*t28*t61*t479+8.41480897536e-12*
5645 t29*t25*t64*t479-1.597536525312e-14*t29*t25*t61*t720)*t148;
5646 d4fdgagagagb = (3.089163744e-4*grada*gradb*t31*t65*t59-
5647 9.528410246400003e-6*grada*gradb*t31*t60*t63*t59-5.029634995200001e-6*
5648 t196*gradb*t28*t63*t59+1.1009323008e-7*grada*gradb*t31*t66*
5649 t138*t59+1.496227686912e-7*t196*gradb*t28*t60*t138*t59-5.7444546816e-10*
5650 grada*gradb*t31*t64*t295*t59-1.67537776896e-9*t196*gradb*t28*
5651 t66*t295*t59+1.14109751808e-12*grada*gradb*t31*t61*t479*t59+
5652 8.41480897536e-12*t196*gradb*t28*t64*t479*t59-1.597536525312e-14*
5653 t196*gradb*t28*t61*t720*t59)*t148;
5654 d4fdgagagaab = 0.0;
5655 d4fdgagagbgb = (-0.0022778496*t22*t67*t59+7.563792960000001e-5*
5656 t22*t60*t65*t59+1.029721248e-4*t21*t31*t65*t59-9.073270080000002e-7*
5657 t22*t66*t63*t59-3.1761367488e-6*t21*t31*t60*t63*t59+4.973965056000001e-9*
5658 t22*t64*t138*t59+3.669774336000001e-8*t21*t31*t66*t138*t59-
5659 1.056571776e-11*t22*t61*t295*t59-1.9148182272e-10*t21*t31*
5660 t64*t295*t59+3.8036583936e-13*t21*t31*t61*t479*t59+1.029721248e-4*
5661 t58*t22*t65*t158-3.1761367488e-6*t58*t22*t60*t63*t158-5.029634995200001e-6*
5662 t21*t58*t31*t63*t158+3.669774336000001e-8*t58*t22*t66*t138*
5663 t158+1.496227686912e-7*t21*t58*t31*t60*t138*t158-1.9148182272e-10*
5664 t58*t22*t64*t295*t158-1.67537776896e-9*t21*t58*t31*t66*t295*
5665 t158+3.8036583936e-13*t58*t22*t61*t479*t158+8.41480897536e-12*
5666 t21*t58*t31*t64*t479*t158-1.597536525312e-14*t21*t58*t31*t61*
5667 t720*t158)*t148;
5668 d4fdgagagbab = 0.0;
5669 d4fdgagaabab = 0.0;
5670 d4fdgagbgbgb = (3.089163744e-4*grada*gradb*t22*t65*t158-
5671 9.528410246400002e-6*grada*gradb*t22*t60*t63*t158+1.1009323008e-7*
5672 grada*gradb*t22*t66*t138*t158-5.7444546816e-10*grada*gradb*
5673 t22*t64*t295*t158+1.14109751808e-12*grada*gradb*t22*t61*t479*
5674 t158-5.029634995200001e-6*grada*t204*t22*t63*t155+1.496227686912e-7*
5675 grada*t204*t22*t60*t138*t155-1.67537776896e-9*grada*t204*t22*
5676 t66*t295*t155+8.41480897536e-12*grada*t204*t22*t64*t479*t155-
5677 1.597536525312e-14*grada*t204*t22*t61*t720*t155)*t148;
5678 d4fdgagbgbab = 0.0;
5679 d4fdgagbabab = 0.0;
5680 d4fdgaababab = 0.0;
5681 d4fdgbgbgbgb = -0.03109*t146*(0.665856*t157*t158-8.716377600000003*
5682 t58*t154*t155+21.62994432000001*t156*t151*t152-19.11017932800001*
5683 t153*t168*t201+7.424742912000003*t149*t309*t356-1.307398963200001*
5684 t167*t528*t592+0.08551022592*t308*t766*t788)*t147*rhob-0.75*
5685 (0.002236992*t164*t158-3.27964416e-4*t58*t163*t155+8.634218496000002e-6*
5686 t156*t162*t152-8.986737868800001e-8*t153*t181*t201+4.49222639616e-10*
5687 t149*t323*t356-1.087943737344e-12*t167*t543*t592+1.032037859328e-15*
5688 t308*t781*t788)*t177*t3*t35+(-0.0068335488*t67*t158+2.269137888e-4*
5689 t60*t65*t158-2.721981024000001e-6*t66*t63*t158+1.4921895168e-8*
5690 t64*t138*t158-3.169715328e-11*t61*t295*t158+6.178327488e-4*
5691 t58*t65*t155-1.90568204928e-5*t58*t60*t63*t155+2.2018646016e-7*
5692 t58*t66*t138*t155-1.14889093632e-9*t58*t64*t295*t155+2.28219503616e-12*
5693 t58*t61*t479*t155-5.029634995200001e-6*t156*t63*t152+1.496227686912e-7*
5694 t156*t60*t138*t152-1.67537776896e-9*t156*t66*t295*t152+8.41480897536e-12*
5695 t156*t64*t479*t152-1.597536525312e-14*t156*t61*t720*t152)*
5696 t148;
5697 d4fdgbgbgbab = 0.0;
5698 d4fdgbgbabab = 0.0;
5699 d4fdgbababab = 0.0;
5700 d4fdabababab = 0.0;
5701
5702
5703 ds->df1000 += factor*dfdra;
5704 ds->df0100 += factor*dfdrb;
5705 ds->df0010 += factor*dfdga;
5706 ds->df0001 += factor*dfdgb;
5707 ds->df00001+= factor*dfdgab;
5708
5709 ds->df2000 += factor*d2fdrara;
5710 ds->df1100 += factor*d2fdrarb;
5711 ds->df1010 += factor*d2fdraga;
5712 ds->df1001 += factor*d2fdragb;
5713 ds->df10001+= factor*d2fdraab;
5714 ds->df0200 += factor*d2fdrbrb;
5715 ds->df0110 += factor*d2fdrbga;
5716 ds->df0101 += factor*d2fdrbgb;
5717 ds->df01001+= factor*d2fdrbgab;
5718 ds->df0020 += factor*d2fdgaga;
5719 ds->df0011 += factor*d2fdgagb;
5720 ds->df00101+= factor*d2fdgagab;
5721 ds->df0002 += factor*d2fdgbgb;
5722 ds->df00011+= factor*d2fdgbgab;
5723 ds->df00002+= factor*d2fdgabgab;
5724
5725 ds->df3000 += factor*d3fdrarara;
5726 ds->df2100 += factor*d3fdrararb;
5727 ds->df2010 += factor*d3fdraraga;
5728 ds->df2001 += factor*d3fdraragb;
5729 ds->df20001 += factor*d3fdraraab;
5730 ds->df1200 += factor*d3fdrarbrb;
5731 ds->df1110 += factor*d3fdrarbga;
5732 ds->df1101 += factor*d3fdrarbgb;
5733 ds->df11001 += factor*d3fdrarbab;
5734 ds->df1020 += factor*d3fdragaga;
5735 ds->df1011 += factor*d3fdragagb;
5736 ds->df10101 += factor*d3fdragaab;
5737 ds->df1002 += factor*d3fdragbgb;
5738 ds->df10011 += factor*d3fdragbab;
5739 ds->df10002 += factor*d3fdraabab;
5740 ds->df0300 += factor*d3fdrbrbrb;
5741 ds->df0210 += factor*d3fdrbrbga;
5742 ds->df0201 += factor*d3fdrbrbgb;
5743 ds->df02001 += factor*d3fdrbrbab;
5744 ds->df0120 += factor*d3fdrbgaga;
5745 ds->df0111 += factor*d3fdrbgagb;
5746 ds->df01101 += factor*d3fdrbgaab;
5747 ds->df0102 += factor*d3fdrbgbgb;
5748 ds->df01011 += factor*d3fdrbgbab;
5749 ds->df01002 += factor*d3fdrbabab;
5750 ds->df0030 += factor*d3fdgagaga;
5751 ds->df0021 += factor*d3fdgagagb;
5752 ds->df00201 += factor*d3fdgagaab;
5753 ds->df0012 += factor*d3fdgagbgb;
5754 ds->df00111 += factor*d3fdgagbab;
5755 ds->df00102 += factor*d3fdgaabab;
5756 ds->df0003 += factor*d3fdgbgbgb;
5757 ds->df00021 += factor*d3fdgbgbab;
5758 ds->df00012 += factor*d3fdgbabab;
5759 ds->df00003 += factor*d3fdababab;
5760
5761 ds->df4000 += factor*d4fdrararara;
5762 ds->df3100 += factor*d4fdrarararb;
5763 ds->df3010 += factor*d4fdrararaga;
5764 ds->df3001 += factor*d4fdrararagb;
5765 ds->df30001 += factor*d4fdrararaab;
5766 ds->df2200 += factor*d4fdrararbrb;
5767 ds->df2110 += factor*d4fdrararbga;
5768 ds->df2101 += factor*d4fdrararbgb;
5769 ds->df21001 += factor*d4fdrararbab;
5770 ds->df2020 += factor*d4fdraragaga;
5771 ds->df2011 += factor*d4fdraragagb;
5772 ds->df20101 += factor*d4fdraragaab;
5773 ds->df2002 += factor*d4fdraragbgb;
5774 ds->df20011 += factor*d4fdraragbab;
5775 ds->df20002 += factor*d4fdraraabab;
5776 ds->df1300 += factor*d4fdrarbrbrb;
5777 ds->df1210 += factor*d4fdrarbrbga;
5778 ds->df1201 += factor*d4fdrarbrbgb;
5779 ds->df12001 += factor*d4fdrarbrbab;
5780 ds->df1120 += factor*d4fdrarbgaga;
5781 ds->df1111 += factor*d4fdrarbgagb;
5782 ds->df11101 += factor*d4fdrarbgaab;
5783 ds->df1102 += factor*d4fdrarbgbgb;
5784 ds->df11011 += factor*d4fdrarbgbab;
5785 ds->df11002 += factor*d4fdrarbabab;
5786 ds->df1030 += factor*d4fdragagaga;
5787 ds->df1021 += factor*d4fdragagagb;
5788 ds->df10201 += factor*d4fdragagaab;
5789 ds->df1012 += factor*d4fdragagbgb;
5790 ds->df10111 += factor*d4fdragagbab;
5791 ds->df10102 += factor*d4fdragaabab;
5792 ds->df1003 += factor*d4fdragbgbgb;
5793 ds->df10021 += factor*d4fdragbgbab;
5794 ds->df10012 += factor*d4fdragbabab;
5795 ds->df10003 += factor*d4fdraababab;
5796 ds->df0400 += factor*d4fdrbrbrbrb;
5797 ds->df0310 += factor*d4fdrbrbrbga;
5798 ds->df0301 += factor*d4fdrbrbrbgb;
5799 ds->df03001 += factor*d4fdrbrbrbab;
5800 ds->df0220 += factor*d4fdrbrbgaga;
5801 ds->df0211 += factor*d4fdrbrbgagb;
5802 ds->df02101 += factor*d4fdrbrbgaab;
5803 ds->df0202 += factor*d4fdrbrbgbgb;
5804 ds->df02011 += factor*d4fdrbrbgbab;
5805 ds->df02002 += factor*d4fdrbrbabab;
5806 ds->df0130 += factor*d4fdrbgagaga;
5807 ds->df0121 += factor*d4fdrbgagagb;
5808 ds->df01201 += factor*d4fdrbgagaab;
5809 ds->df0112 += factor*d4fdrbgagbgb;
5810 ds->df01111 += factor*d4fdrbgagbab;
5811 ds->df01102 += factor*d4fdrbgaabab;
5812 ds->df0103 += factor*d4fdrbgbgbgb;
5813 ds->df01021 += factor*d4fdrbgbgbab;
5814 ds->df01012 += factor*d4fdrbgbabab;
5815 ds->df01003 += factor*d4fdrbababab;
5816 ds->df0040 += factor*d4fdgagagaga;
5817 ds->df0031 += factor*d4fdgagagagb;
5818 ds->df00301 += factor*d4fdgagagaab;
5819 ds->df0022 += factor*d4fdgagagbgb;
5820 ds->df00211 += factor*d4fdgagagbab;
5821 ds->df00202 += factor*d4fdgagaabab;
5822 ds->df0013 += factor*d4fdgagbgbgb;
5823 ds->df00121 += factor*d4fdgagbgbab;
5824 ds->df00112 += factor*d4fdgagbabab;
5825 ds->df00103 += factor*d4fdgaababab;
5826 ds->df0004 += factor*d4fdgbgbgbgb;
5827 ds->df00031 += factor*d4fdgbgbgbab;
5828 ds->df00022 += factor*d4fdgbgbabab;
5829 ds->df00013 += factor*d4fdgbababab;
5830 ds->df00004 += factor*d4fdabababab;
5831
5832 }
5833