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