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