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