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