ParMooN
 All Classes Functions Variables Friends Pages
BF_C_H_Q3_3D.h
1 // ***********************************************************************
2 // Q3 element, conforming, 3D
3 // ***********************************************************************
4 
5 static void C_H_Q3_3D_Funct(double xi, double eta, double zeta,
6  double *values)
7 {
8  double t1, t3, t4, t5, t6, t7, t9, t10, t11, t14, t15, t16, t19, t20;
9  double t22, t24, t25, t26, t27, t30, t31, t34, t35, t40, t41, t42, t44;
10  double t45, t46, t48, t50, t51, t53, t56, t57, t64, t65, t70, t75, t80;
11  double t85, t88, t89, t90, t95, t100, t105, t112, t113, t118, t123, t128;
12 
13  t1 = xi-1.0;
14  t3 = t1*(xi+1.0/3.0);
15  t4 = xi-1.0/3.0;
16  t5 = eta-1.0;
17  t6 = t4*t5;
18  t7 = t3*t6;
19  t9 = eta-1.0/3.0;
20  t10 = (eta+1.0/3.0)*t9;
21  t11 = zeta-1.0;
22  t14 = zeta-1.0/3.0;
23  t15 = t11*(zeta+1.0/3.0)*t14;
24  t16 = t10*t15;
25  t19 = t1*(xi+1.0);
26  t20 = t19*t6;
27  t22 = -xi-1.0;
28  t24 = t22*(-xi+1.0);
29  t25 = -xi-1.0/3.0;
30  t26 = t25*t5;
31  t27 = t24*t26;
32  t30 = t22*(-xi+1.0/3.0);
33  t31 = t30*t26;
34  t34 = (eta+1.0)*t9;
35  t35 = t34*t15;
36  t40 = -eta-1.0;
37  t41 = t4*t40;
38  t42 = t3*t41;
39  t44 = -eta-1.0/3.0;
40  t45 = (-eta+1.0)*t44;
41  t46 = t45*t15;
42  t48 = t19*t41;
43  t50 = t25*t40;
44  t51 = t24*t50;
45  t53 = t30*t50;
46  t56 = (-eta+1.0/3.0)*t44;
47  t57 = t56*t15;
48  t64 = t11*(zeta+1.0)*t14;
49  t65 = t10*t64;
50  t70 = t34*t64;
51  t75 = t45*t64;
52  t80 = t56*t64;
53  t85 = -zeta-1.0;
54  t88 = -zeta-1.0/3.0;
55  t89 = t85*(-zeta+1.0)*t88;
56  t90 = t10*t89;
57  t95 = t34*t89;
58  t100 = t45*t89;
59  t105 = t56*t89;
60  t112 = t85*(-zeta+1.0/3.0)*t88;
61  t113 = t10*t112;
62  t118 = t34*t112;
63  t123 = t45*t112;
64  t128 = t56*t112;
65 
66  values[0] = -729.0/4096.0*t7*t16;
67  values[1] = 2187.0/4096.0*t20*t16;
68  values[2] = 2187.0/4096.0*t27*t16;
69  values[3] = -729.0/4096.0*t31*t16;
70  values[4] = 2187.0/4096.0*t7*t35;
71  values[5] = -6561.0/4096.0*t20*t35;
72  values[6] = -6561.0/4096.0*t27*t35;
73  values[7] = 2187.0/4096.0*t31*t35;
74  values[8] = 2187.0/4096.0*t42*t46;
75  values[9] = -6561.0/4096.0*t48*t46;
76  values[10] = -6561.0/4096.0*t51*t46;
77  values[11] = 2187.0/4096.0*t53*t46;
78  values[12] = -729.0/4096.0*t42*t57;
79  values[13] = 2187.0/4096.0*t48*t57;
80  values[14] = 2187.0/4096.0*t51*t57;
81  values[15] = -729.0/4096.0*t53*t57;
82  values[16] = 2187.0/4096.0*t7*t65;
83  values[17] = -6561.0/4096.0*t20*t65;
84  values[18] = -6561.0/4096.0*t27*t65;
85  values[19] = 2187.0/4096.0*t31*t65;
86  values[20] = -6561.0/4096.0*t7*t70;
87  values[21] = 19683.0/4096.0*t20*t70;
88  values[22] = 19683.0/4096.0*t27*t70;
89  values[23] = -6561.0/4096.0*t31*t70;
90  values[24] = -6561.0/4096.0*t42*t75;
91  values[25] = 19683.0/4096.0*t48*t75;
92  values[26] = 19683.0/4096.0*t51*t75;
93  values[27] = -6561.0/4096.0*t53*t75;
94  values[28] = 2187.0/4096.0*t42*t80;
95  values[29] = -6561.0/4096.0*t48*t80;
96  values[30] = -6561.0/4096.0*t51*t80;
97  values[31] = 2187.0/4096.0*t53*t80;
98  values[32] = 2187.0/4096.0*t7*t90;
99  values[33] = -6561.0/4096.0*t20*t90;
100  values[34] = -6561.0/4096.0*t27*t90;
101  values[35] = 2187.0/4096.0*t31*t90;
102  values[36] = -6561.0/4096.0*t7*t95;
103  values[37] = 19683.0/4096.0*t20*t95;
104  values[38] = 19683.0/4096.0*t27*t95;
105  values[39] = -6561.0/4096.0*t31*t95;
106  values[40] = -6561.0/4096.0*t42*t100;
107  values[41] = 19683.0/4096.0*t48*t100;
108  values[42] = 19683.0/4096.0*t51*t100;
109  values[43] = -6561.0/4096.0*t53*t100;
110  values[44] = 2187.0/4096.0*t42*t105;
111  values[45] = -6561.0/4096.0*t48*t105;
112  values[46] = -6561.0/4096.0*t51*t105;
113  values[47] = 2187.0/4096.0*t53*t105;
114  values[48] = -729.0/4096.0*t7*t113;
115  values[49] = 2187.0/4096.0*t20*t113;
116  values[50] = 2187.0/4096.0*t27*t113;
117  values[51] = -729.0/4096.0*t31*t113;
118  values[52] = 2187.0/4096.0*t7*t118;
119  values[53] = -6561.0/4096.0*t20*t118;
120  values[54] = -6561.0/4096.0*t27*t118;
121  values[55] = 2187.0/4096.0*t31*t118;
122  values[56] = 2187.0/4096.0*t42*t123;
123  values[57] = -6561.0/4096.0*t48*t123;
124  values[58] = -6561.0/4096.0*t51*t123;
125  values[59] = 2187.0/4096.0*t53*t123;
126  values[60] = -729.0/4096.0*t42*t128;
127  values[61] = 2187.0/4096.0*t48*t128;
128  values[62] = 2187.0/4096.0*t51*t128;
129  values[63] = -729.0/4096.0*t53*t128;
130 }
131 
132 static void C_H_Q3_3D_DeriveXi(double xi, double eta, double zeta,
133  double *values)
134 {
135  double t1, t2, t3, t4, t6, t7, t8, t9, t10, t12, t13, t14, t16, t17, t18;
136  double t19, t20, t21, t24, t25, t26, t28, t29, t32, t33, t34, t35, t37;
137  double t38, t39, t40, t41, t42, t45, t46, t47, t49, t50, t54, t55, t57;
138  double t58, t59, t62, t64, t67, t69, t70, t71, t74, t76, t79, t81, t82;
139  double t83, t84, t85, t87, t88, t89, t92, t94, t97, t99, t100, t101, t104;
140  double t106, t110, t111, t113, t114, t115, t118, t120, t123, t125, t126;
141  double t127, t130, t132, t136, t137, t139, t146, t153, t160, t166, t168;
142  double t175, t182, t189, t195, t196, t198, t199, t200, t202, t209, t216;
143  double t223, t229, t230, t232, t239, t246, t253, t260, t261, t263, t270;
144  double t277, t284, t290, t292, t299, t306, t313;
145 
146  t1 = xi+1.0/3.0;
147  t2 = xi-1.0/3.0;
148  t3 = t1*t2;
149  t4 = eta-1.0;
150  t6 = t4*(eta+1.0/3.0);
151  t7 = t3*t6;
152  t8 = eta-1.0/3.0;
153  t9 = zeta-1.0;
154  t10 = t8*t9;
155  t12 = zeta-1.0/3.0;
156  t13 = (zeta+1.0/3.0)*t12;
157  t14 = t10*t13;
158  t16 = xi-1.0;
159  t17 = t16*t2;
160  t18 = t17*t6;
161  t19 = t18*t14;
162  t20 = t16*t1;
163  t21 = t20*t6;
164  t24 = xi+1.0;
165  t25 = t24*t2;
166  t26 = t25*t6;
167  t28 = t16*t24;
168  t29 = t28*t6;
169  t32 = -xi+1.0;
170  t33 = -xi-1.0/3.0;
171  t34 = t32*t33;
172  t35 = t34*t6;
173  t37 = -xi-1.0;
174  t38 = t37*t33;
175  t39 = t38*t6;
176  t40 = t39*t14;
177  t41 = t37*t32;
178  t42 = t41*t6;
179  t45 = -xi+1.0/3.0;
180  t46 = t45*t33;
181  t47 = t46*t6;
182  t49 = t37*t45;
183  t50 = t49*t6;
184  t54 = t4*(eta+1.0);
185  t55 = t3*t54;
186  t57 = t17*t54;
187  t58 = t57*t14;
188  t59 = t20*t54;
189  t62 = t25*t54;
190  t64 = t28*t54;
191  t67 = t34*t54;
192  t69 = t38*t54;
193  t70 = t69*t14;
194  t71 = t41*t54;
195  t74 = t46*t54;
196  t76 = t49*t54;
197  t79 = -eta-1.0;
198  t81 = t79*(-eta+1.0);
199  t82 = t3*t81;
200  t83 = -eta-1.0/3.0;
201  t84 = t83*t9;
202  t85 = t84*t13;
203  t87 = t17*t81;
204  t88 = t87*t85;
205  t89 = t20*t81;
206  t92 = t25*t81;
207  t94 = t28*t81;
208  t97 = t34*t81;
209  t99 = t38*t81;
210  t100 = t99*t85;
211  t101 = t41*t81;
212  t104 = t46*t81;
213  t106 = t49*t81;
214  t110 = t79*(-eta+1.0/3.0);
215  t111 = t3*t110;
216  t113 = t17*t110;
217  t114 = t113*t85;
218  t115 = t20*t110;
219  t118 = t25*t110;
220  t120 = t28*t110;
221  t123 = t34*t110;
222  t125 = t38*t110;
223  t126 = t125*t85;
224  t127 = t41*t110;
225  t130 = t46*t110;
226  t132 = t49*t110;
227  t136 = (zeta+1.0)*t12;
228  t137 = t10*t136;
229  t139 = t18*t137;
230  t146 = t39*t137;
231  t153 = t57*t137;
232  t160 = t69*t137;
233  t166 = t84*t136;
234  t168 = t87*t166;
235  t175 = t99*t166;
236  t182 = t113*t166;
237  t189 = t125*t166;
238  t195 = -zeta-1.0;
239  t196 = t8*t195;
240  t198 = -zeta-1.0/3.0;
241  t199 = (-zeta+1.0)*t198;
242  t200 = t196*t199;
243  t202 = t18*t200;
244  t209 = t39*t200;
245  t216 = t57*t200;
246  t223 = t69*t200;
247  t229 = t83*t195;
248  t230 = t229*t199;
249  t232 = t87*t230;
250  t239 = t99*t230;
251  t246 = t113*t230;
252  t253 = t125*t230;
253  t260 = (-zeta+1.0/3.0)*t198;
254  t261 = t196*t260;
255  t263 = t18*t261;
256  t270 = t39*t261;
257  t277 = t57*t261;
258  t284 = t69*t261;
259  t290 = t229*t260;
260  t292 = t87*t290;
261  t299 = t99*t290;
262  t306 = t113*t290;
263  t313 = t125*t290;
264 
265  values[0] = -729.0/4096.0*t7*t14-729.0/4096.0*t19-729.0/4096.0*t21*t14;
266  values[1] = 2187.0/4096.0*t26*t14+2187.0/4096.0*t19+2187.0/4096.0*t29*t14;
267  values[2] = -2187.0/4096.0*t35*t14-2187.0/4096.0*t40-2187.0/4096.0*t42*t14;
268  values[3] = 729.0/4096.0*t47*t14+729.0/4096.0*t40+729.0/4096.0*t50*t14;
269  values[4] = 2187.0/4096.0*t55*t14+2187.0/4096.0*t58+2187.0/4096.0*t59*t14;
270  values[5] = -6561.0/4096.0*t62*t14-6561.0/4096.0*t58-6561.0/4096.0*t64*t14;
271  values[6] = 6561.0/4096.0*t67*t14+6561.0/4096.0*t70+6561.0/4096.0*t71*t14;
272  values[7] = -2187.0/4096.0*t74*t14-2187.0/4096.0*t70-2187.0/4096.0*t76*t14;
273  values[8] = 2187.0/4096.0*t82*t85+2187.0/4096.0*t88+2187.0/4096.0*t89*t85;
274  values[9] = -6561.0/4096.0*t92*t85-6561.0/4096.0*t88-6561.0/4096.0*t94*t85;
275  values[10] = 6561.0/4096.0*t97*t85+6561.0/4096.0*t100+6561.0/4096.0*t101*t85;
276  values[11] = -2187.0/4096.0*t104*t85-2187.0/4096.0*t100-2187.0/4096.0*t106*t85;
277  values[12] = -729.0/4096.0*t111*t85-729.0/4096.0*t114-729.0/4096.0*t115*t85;
278  values[13] = 2187.0/4096.0*t118*t85+2187.0/4096.0*t114+2187.0/4096.0*t120*t85;
279  values[14] = -2187.0/4096.0*t123*t85-2187.0/4096.0*t126-2187.0/4096.0*t127*t85;
280  values[15] = 729.0/4096.0*t130*t85+729.0/4096.0*t126+729.0/4096.0*t132*t85;
281  values[16] = 2187.0/4096.0*t7*t137+2187.0/4096.0*t139+2187.0/4096.0*t21*t137;
282  values[17] = -6561.0/4096.0*t26*t137-6561.0/4096.0*t139-6561.0/4096.0*t29*t137;
283  values[18] = 6561.0/4096.0*t35*t137+6561.0/4096.0*t146+6561.0/4096.0*t42*t137;
284  values[19] = -2187.0/4096.0*t47*t137-2187.0/4096.0*t146-2187.0/4096.0*t50*t137;
285  values[20] = -6561.0/4096.0*t55*t137-6561.0/4096.0*t153-6561.0/4096.0*t59*t137;
286  values[21] = 19683.0/4096.0*t62*t137+19683.0/4096.0*t153+19683.0/4096.0*t64*t137;
287  values[22] = -19683.0/4096.0*t67*t137-19683.0/4096.0*t160-19683.0/4096.0*t71*t137;
288  values[23] = 6561.0/4096.0*t74*t137+6561.0/4096.0*t160+6561.0/4096.0*t76*t137;
289  values[24] = -6561.0/4096.0*t82*t166-6561.0/4096.0*t168-6561.0/4096.0*t89*t166;
290  values[25] = 19683.0/4096.0*t92*t166+19683.0/4096.0*t168+19683.0/4096.0*t94*t166;
291  values[26] = -19683.0/4096.0*t97*t166-19683.0/4096.0*t175-19683.0/4096.0*t101*t166;
292  values[27] = 6561.0/4096.0*t104*t166+6561.0/4096.0*t175+6561.0/4096.0*t106*t166;
293  values[28] = 2187.0/4096.0*t111*t166+2187.0/4096.0*t182+2187.0/4096.0*t115*t166;
294  values[29] = -6561.0/4096.0*t118*t166-6561.0/4096.0*t182-6561.0/4096.0*t120*t166;
295  values[30] = 6561.0/4096.0*t123*t166+6561.0/4096.0*t189+6561.0/4096.0*t127*t166;
296  values[31] = -2187.0/4096.0*t130*t166-2187.0/4096.0*t189-2187.0/4096.0*t132*t166;
297  values[32] = 2187.0/4096.0*t7*t200+2187.0/4096.0*t202+2187.0/4096.0*t21*t200;
298  values[33] = -6561.0/4096.0*t26*t200-6561.0/4096.0*t202-6561.0/4096.0*t29*t200;
299  values[34] = 6561.0/4096.0*t35*t200+6561.0/4096.0*t209+6561.0/4096.0*t42*t200;
300  values[35] = -2187.0/4096.0*t47*t200-2187.0/4096.0*t209-2187.0/4096.0*t50*t200;
301  values[36] = -6561.0/4096.0*t55*t200-6561.0/4096.0*t216-6561.0/4096.0*t59*t200;
302  values[37] = 19683.0/4096.0*t62*t200+19683.0/4096.0*t216+19683.0/4096.0*t64*t200;
303  values[38] = -19683.0/4096.0*t67*t200-19683.0/4096.0*t223-19683.0/4096.0*t71*t200;
304  values[39] = 6561.0/4096.0*t74*t200+6561.0/4096.0*t223+6561.0/4096.0*t76*t200;
305  values[40] = -6561.0/4096.0*t82*t230-6561.0/4096.0*t232-6561.0/4096.0*t89*t230;
306  values[41] = 19683.0/4096.0*t92*t230+19683.0/4096.0*t232+19683.0/4096.0*t94*t230;
307  values[42] = -19683.0/4096.0*t97*t230-19683.0/4096.0*t239-19683.0/4096.0*t101*t230;
308  values[43] = 6561.0/4096.0*t104*t230+6561.0/4096.0*t239+6561.0/4096.0*t106*t230;
309  values[44] = 2187.0/4096.0*t111*t230+2187.0/4096.0*t246+2187.0/4096.0*t115*t230;
310  values[45] = -6561.0/4096.0*t118*t230-6561.0/4096.0*t246-6561.0/4096.0*t120*t230;
311  values[46] = 6561.0/4096.0*t123*t230+6561.0/4096.0*t253+6561.0/4096.0*t127*t230;
312  values[47] = -2187.0/4096.0*t130*t230-2187.0/4096.0*t253-2187.0/4096.0*t132*t230;
313  values[48] = -729.0/4096.0*t7*t261-729.0/4096.0*t263-729.0/4096.0*t21*t261;
314  values[49] = 2187.0/4096.0*t26*t261+2187.0/4096.0*t263+2187.0/4096.0*t29*t261;
315  values[50] = -2187.0/4096.0*t35*t261-2187.0/4096.0*t270-2187.0/4096.0*t42*t261;
316  values[51] = 729.0/4096.0*t47*t261+729.0/4096.0*t270+729.0/4096.0*t50*t261;
317  values[52] = 2187.0/4096.0*t55*t261+2187.0/4096.0*t277+2187.0/4096.0*t59*t261;
318  values[53] = -6561.0/4096.0*t62*t261-6561.0/4096.0*t277-6561.0/4096.0*t64*t261;
319  values[54] = 6561.0/4096.0*t67*t261+6561.0/4096.0*t284+6561.0/4096.0*t71*t261;
320  values[55] = -2187.0/4096.0*t74*t261-2187.0/4096.0*t284-2187.0/4096.0*t76*t261;
321  values[56] = 2187.0/4096.0*t82*t290+2187.0/4096.0*t292+2187.0/4096.0*t89*t290;
322  values[57] = -6561.0/4096.0*t92*t290-6561.0/4096.0*t292-6561.0/4096.0*t94*t290;
323  values[58] = 6561.0/4096.0*t97*t290+6561.0/4096.0*t299+6561.0/4096.0*t101*t290;
324  values[59] = -2187.0/4096.0*t104*t290-2187.0/4096.0*t299-2187.0/4096.0*t106*t290;
325  values[60] = -729.0/4096.0*t111*t290-729.0/4096.0*t306-729.0/4096.0*t115*t290;
326  values[61] = 2187.0/4096.0*t118*t290+2187.0/4096.0*t306+2187.0/4096.0*t120*t290;
327  values[62] = -2187.0/4096.0*t123*t290-2187.0/4096.0*t313-2187.0/4096.0*t127*t290;
328  values[63] = 729.0/4096.0*t130*t290+729.0/4096.0*t313+729.0/4096.0*t132*t290;
329 }
330 
331 static void C_H_Q3_3D_DeriveEta(double xi, double eta, double zeta,
332  double *values)
333 {
334  double t1, t3, t4, t5, t6, t7, t8, t9, t10, t12, t13, t14, t16, t17;
335  double t18, t19, t20, t21, t25, t26, t28, t29, t32, t34, t35, t36, t37;
336  double t39, t40, t41, t45, t46, t48, t49, t52, t53, t54, t56, t57, t60;
337  double t64, t65, t69, t73, t74, t75, t76, t77, t78, t80, t81, t82, t83;
338  double t84, t85, t88, t90, t91, t94, t95, t97, t98, t99, t102, t104;
339  double t105, t108, t109, t110, t112, t113, t116, t120, t121, t125, t130;
340  double t131, t133, t134, t138, t142, t146, t150, t162, t164, t165, t169;
341  double t173, t177, t181, t193, t194, t196, t197, t198, t200, t201, t202;
342  double t206, t210, t214, t218, t219, t231, t232, t234, t235, t236, t240;
343  double t244, t248, t252, t253, t266, t267, t269, t270, t274, t278, t282;
344  double t286, t298, t300, t301, t305, t309, t313, t317;
345 
346  t1 = xi-1.0;
347  t3 = t1*(xi+1.0/3.0);
348  t4 = xi-1.0/3.0;
349  t5 = eta+1.0/3.0;
350  t6 = t4*t5;
351  t7 = t3*t6;
352  t8 = eta-1.0/3.0;
353  t9 = zeta-1.0;
354  t10 = t8*t9;
355  t12 = zeta-1.0/3.0;
356  t13 = (zeta+1.0/3.0)*t12;
357  t14 = t10*t13;
358  t16 = eta-1.0;
359  t17 = t4*t16;
360  t18 = t3*t17;
361  t19 = t18*t14;
362  t20 = t5*t9;
363  t21 = t20*t13;
364  t25 = t1*(xi+1.0);
365  t26 = t25*t6;
366  t28 = t25*t17;
367  t29 = t28*t14;
368  t32 = -xi-1.0;
369  t34 = t32*(-xi+1.0);
370  t35 = -xi-1.0/3.0;
371  t36 = t35*t5;
372  t37 = t34*t36;
373  t39 = t35*t16;
374  t40 = t34*t39;
375  t41 = t40*t14;
376  t45 = t32*(-xi+1.0/3.0);
377  t46 = t45*t36;
378  t48 = t45*t39;
379  t49 = t48*t14;
380  t52 = eta+1.0;
381  t53 = t4*t52;
382  t54 = t3*t53;
383  t56 = t52*t9;
384  t57 = t56*t13;
385  t60 = t25*t53;
386  t64 = t35*t52;
387  t65 = t34*t64;
388  t69 = t45*t64;
389  t73 = -eta+1.0;
390  t74 = t4*t73;
391  t75 = t3*t74;
392  t76 = -eta-1.0/3.0;
393  t77 = t76*t9;
394  t78 = t77*t13;
395  t80 = -eta-1.0;
396  t81 = t4*t80;
397  t82 = t3*t81;
398  t83 = t82*t78;
399  t84 = t73*t9;
400  t85 = t84*t13;
401  t88 = t25*t74;
402  t90 = t25*t81;
403  t91 = t90*t78;
404  t94 = t35*t73;
405  t95 = t34*t94;
406  t97 = t35*t80;
407  t98 = t34*t97;
408  t99 = t98*t78;
409  t102 = t45*t94;
410  t104 = t45*t97;
411  t105 = t104*t78;
412  t108 = -eta+1.0/3.0;
413  t109 = t4*t108;
414  t110 = t3*t109;
415  t112 = t108*t9;
416  t113 = t112*t13;
417  t116 = t25*t109;
418  t120 = t35*t108;
419  t121 = t34*t120;
420  t125 = t45*t120;
421  t130 = (zeta+1.0)*t12;
422  t131 = t10*t130;
423  t133 = t18*t131;
424  t134 = t20*t130;
425  t138 = t28*t131;
426  t142 = t40*t131;
427  t146 = t48*t131;
428  t150 = t56*t130;
429  t162 = t77*t130;
430  t164 = t82*t162;
431  t165 = t84*t130;
432  t169 = t90*t162;
433  t173 = t98*t162;
434  t177 = t104*t162;
435  t181 = t112*t130;
436  t193 = -zeta-1.0;
437  t194 = t8*t193;
438  t196 = -zeta-1.0/3.0;
439  t197 = (-zeta+1.0)*t196;
440  t198 = t194*t197;
441  t200 = t18*t198;
442  t201 = t5*t193;
443  t202 = t201*t197;
444  t206 = t28*t198;
445  t210 = t40*t198;
446  t214 = t48*t198;
447  t218 = t52*t193;
448  t219 = t218*t197;
449  t231 = t76*t193;
450  t232 = t231*t197;
451  t234 = t82*t232;
452  t235 = t73*t193;
453  t236 = t235*t197;
454  t240 = t90*t232;
455  t244 = t98*t232;
456  t248 = t104*t232;
457  t252 = t108*t193;
458  t253 = t252*t197;
459  t266 = (-zeta+1.0/3.0)*t196;
460  t267 = t194*t266;
461  t269 = t18*t267;
462  t270 = t201*t266;
463  t274 = t28*t267;
464  t278 = t40*t267;
465  t282 = t48*t267;
466  t286 = t218*t266;
467  t298 = t231*t266;
468  t300 = t82*t298;
469  t301 = t235*t266;
470  t305 = t90*t298;
471  t309 = t98*t298;
472  t313 = t104*t298;
473  t317 = t252*t266;
474 
475  values[0] = -729.0/4096.0*t7*t14-729.0/4096.0*t19-729.0/4096.0*t18*t21;
476  values[1] = 2187.0/4096.0*t26*t14+2187.0/4096.0*t29+2187.0/4096.0*t28*t21;
477  values[2] = 2187.0/4096.0*t37*t14+2187.0/4096.0*t41+2187.0/4096.0*t40*t21;
478  values[3] = -729.0/4096.0*t46*t14-729.0/4096.0*t49-729.0/4096.0*t48*t21;
479  values[4] = 2187.0/4096.0*t54*t14+2187.0/4096.0*t19+2187.0/4096.0*t18*t57;
480  values[5] = -6561.0/4096.0*t60*t14-6561.0/4096.0*t29-6561.0/4096.0*t28*t57;
481  values[6] = -6561.0/4096.0*t65*t14-6561.0/4096.0*t41-6561.0/4096.0*t40*t57;
482  values[7] = 2187.0/4096.0*t69*t14+2187.0/4096.0*t49+2187.0/4096.0*t48*t57;
483  values[8] = -2187.0/4096.0*t75*t78-2187.0/4096.0*t83-2187.0/4096.0*t82*t85;
484  values[9] = 6561.0/4096.0*t88*t78+6561.0/4096.0*t91+6561.0/4096.0*t90*t85;
485  values[10] = 6561.0/4096.0*t95*t78+6561.0/4096.0*t99+6561.0/4096.0*t98*t85;
486  values[11] = -2187.0/4096.0*t102*t78-2187.0/4096.0*t105-2187.0/4096.0*t104*t85;
487  values[12] = 729.0/4096.0*t110*t78+729.0/4096.0*t83+729.0/4096.0*t82*t113;
488  values[13] = -2187.0/4096.0*t116*t78-2187.0/4096.0*t91-2187.0/4096.0*t90*t113;
489  values[14] = -2187.0/4096.0*t121*t78-2187.0/4096.0*t99-2187.0/4096.0*t98*t113;
490  values[15] = 729.0/4096.0*t125*t78+729.0/4096.0*t105+729.0/4096.0*t104*t113;
491  values[16] = 2187.0/4096.0*t7*t131+2187.0/4096.0*t133+2187.0/4096.0*t18*t134;
492  values[17] = -6561.0/4096.0*t26*t131-6561.0/4096.0*t138-6561.0/4096.0*t28*t134;
493  values[18] = -6561.0/4096.0*t37*t131-6561.0/4096.0*t142-6561.0/4096.0*t40*t134;
494  values[19] = 2187.0/4096.0*t46*t131+2187.0/4096.0*t146+2187.0/4096.0*t48*t134;
495  values[20] = -6561.0/4096.0*t54*t131-6561.0/4096.0*t133-6561.0/4096.0*t18*t150;
496  values[21] = 19683.0/4096.0*t60*t131+19683.0/4096.0*t138+19683.0/4096.0*t28*t150;
497  values[22] = 19683.0/4096.0*t65*t131+19683.0/4096.0*t142+19683.0/4096.0*t40*t150;
498  values[23] = -6561.0/4096.0*t69*t131-6561.0/4096.0*t146-6561.0/4096.0*t48*t150;
499  values[24] = 6561.0/4096.0*t75*t162+6561.0/4096.0*t164+6561.0/4096.0*t82*t165;
500  values[25] = -19683.0/4096.0*t88*t162-19683.0/4096.0*t169-19683.0/4096.0*t90*t165;
501  values[26] = -19683.0/4096.0*t95*t162-19683.0/4096.0*t173-19683.0/4096.0*t98*t165;
502  values[27] = 6561.0/4096.0*t102*t162+6561.0/4096.0*t177+6561.0/4096.0*t104*t165;
503  values[28] = -2187.0/4096.0*t110*t162-2187.0/4096.0*t164-2187.0/4096.0*t82*t181;
504  values[29] = 6561.0/4096.0*t116*t162+6561.0/4096.0*t169+6561.0/4096.0*t90*t181;
505  values[30] = 6561.0/4096.0*t121*t162+6561.0/4096.0*t173+6561.0/4096.0*t98*t181;
506  values[31] = -2187.0/4096.0*t125*t162-2187.0/4096.0*t177-2187.0/4096.0*t104*t181;
507  values[32] = 2187.0/4096.0*t7*t198+2187.0/4096.0*t200+2187.0/4096.0*t18*t202;
508  values[33] = -6561.0/4096.0*t26*t198-6561.0/4096.0*t206-6561.0/4096.0*t28*t202;
509  values[34] = -6561.0/4096.0*t37*t198-6561.0/4096.0*t210-6561.0/4096.0*t40*t202;
510  values[35] = 2187.0/4096.0*t46*t198+2187.0/4096.0*t214+2187.0/4096.0*t48*t202;
511  values[36] = -6561.0/4096.0*t54*t198-6561.0/4096.0*t200-6561.0/4096.0*t18*t219;
512  values[37] = 19683.0/4096.0*t60*t198+19683.0/4096.0*t206+19683.0/4096.0*t28*t219;
513  values[38] = 19683.0/4096.0*t65*t198+19683.0/4096.0*t210+19683.0/4096.0*t40*t219;
514  values[39] = -6561.0/4096.0*t69*t198-6561.0/4096.0*t214-6561.0/4096.0*t48*t219;
515  values[40] = 6561.0/4096.0*t75*t232+6561.0/4096.0*t234+6561.0/4096.0*t82*t236;
516  values[41] = -19683.0/4096.0*t88*t232-19683.0/4096.0*t240-19683.0/4096.0*t90*t236;
517  values[42] = -19683.0/4096.0*t95*t232-19683.0/4096.0*t244-19683.0/4096.0*t98*t236;
518  values[43] = 6561.0/4096.0*t102*t232+6561.0/4096.0*t248+6561.0/4096.0*t104*t236;
519  values[44] = -2187.0/4096.0*t110*t232-2187.0/4096.0*t234-2187.0/4096.0*t82*t253;
520  values[45] = 6561.0/4096.0*t116*t232+6561.0/4096.0*t240+6561.0/4096.0*t90*t253;
521  values[46] = 6561.0/4096.0*t121*t232+6561.0/4096.0*t244+6561.0/4096.0*t98*t253;
522  values[47] = -2187.0/4096.0*t125*t232-2187.0/4096.0*t248-2187.0/4096.0*t104*t253;
523  values[48] = -729.0/4096.0*t7*t267-729.0/4096.0*t269-729.0/4096.0*t18*t270;
524  values[49] = 2187.0/4096.0*t26*t267+2187.0/4096.0*t274+2187.0/4096.0*t28*t270;
525  values[50] = 2187.0/4096.0*t37*t267+2187.0/4096.0*t278+2187.0/4096.0*t40*t270;
526  values[51] = -729.0/4096.0*t46*t267-729.0/4096.0*t282-729.0/4096.0*t48*t270;
527  values[52] = 2187.0/4096.0*t54*t267+2187.0/4096.0*t269+2187.0/4096.0*t18*t286;
528  values[53] = -6561.0/4096.0*t60*t267-6561.0/4096.0*t274-6561.0/4096.0*t28*t286;
529  values[54] = -6561.0/4096.0*t65*t267-6561.0/4096.0*t278-6561.0/4096.0*t40*t286;
530  values[55] = 2187.0/4096.0*t69*t267+2187.0/4096.0*t282+2187.0/4096.0*t48*t286;
531  values[56] = -2187.0/4096.0*t75*t298-2187.0/4096.0*t300-2187.0/4096.0*t82*t301;
532  values[57] = 6561.0/4096.0*t88*t298+6561.0/4096.0*t305+6561.0/4096.0*t90*t301;
533  values[58] = 6561.0/4096.0*t95*t298+6561.0/4096.0*t309+6561.0/4096.0*t98*t301;
534  values[59] = -2187.0/4096.0*t102*t298-2187.0/4096.0*t313-2187.0/4096.0*t104*t301;
535  values[60] = 729.0/4096.0*t110*t298+729.0/4096.0*t300+729.0/4096.0*t82*t317;
536  values[61] = -2187.0/4096.0*t116*t298-2187.0/4096.0*t305-2187.0/4096.0*t90*t317;
537  values[62] = -2187.0/4096.0*t121*t298-2187.0/4096.0*t309-2187.0/4096.0*t98*t317;
538  values[63] = 729.0/4096.0*t125*t298+729.0/4096.0*t313+729.0/4096.0*t104*t317;
539 }
540 
541 static void C_H_Q3_3D_DeriveZeta(double xi, double eta, double zeta,
542  double *values)
543 {
544  double t1, t3, t4, t5, t6, t7, t9, t10, t11, t12, t13, t14, t16, t17;
545  double t18, t19, t20, t21, t25, t26, t28, t31, t33, t34, t35, t36, t38;
546  double t42, t43, t45, t49, t50, t52, t53, t54, t58, t62, t66, t69, t70;
547  double t71, t73, t74, t75, t77, t78, t79, t82, t84, t87, t88, t90, t93;
548  double t95, t99, t100, t102, t103, t104, t108, t112, t116, t119, t120;
549  double t121, t123, t124, t136, t138, t150, t152, t164, t166, t178, t179;
550  double t180, t181, t183, t184, t185, t186, t187, t188, t192, t196, t200;
551  double t203, t205, t206, t207, t211, t215, t219, t222, t224, t225, t226;
552  double t230, t234, t238, t241, t243, t244, t245, t249, t253, t257, t260;
553  double t261, t262, t264, t265, t277, t279, t291, t293, t305, t307;
554 
555  t1 = xi-1.0;
556  t3 = t1*(xi+1.0/3.0);
557  t4 = xi-1.0/3.0;
558  t5 = eta-1.0;
559  t6 = t4*t5;
560  t7 = t3*t6;
561  t9 = eta-1.0/3.0;
562  t10 = (eta+1.0/3.0)*t9;
563  t11 = zeta+1.0/3.0;
564  t12 = zeta-1.0/3.0;
565  t13 = t11*t12;
566  t14 = t10*t13;
567  t16 = zeta-1.0;
568  t17 = t16*t12;
569  t18 = t10*t17;
570  t19 = t7*t18;
571  t20 = t16*t11;
572  t21 = t10*t20;
573  t25 = t1*(xi+1.0);
574  t26 = t25*t6;
575  t28 = t26*t18;
576  t31 = -xi-1.0;
577  t33 = t31*(-xi+1.0);
578  t34 = -xi-1.0/3.0;
579  t35 = t34*t5;
580  t36 = t33*t35;
581  t38 = t36*t18;
582  t42 = t31*(-xi+1.0/3.0);
583  t43 = t42*t35;
584  t45 = t43*t18;
585  t49 = (eta+1.0)*t9;
586  t50 = t49*t13;
587  t52 = t49*t17;
588  t53 = t7*t52;
589  t54 = t49*t20;
590  t58 = t26*t52;
591  t62 = t36*t52;
592  t66 = t43*t52;
593  t69 = -eta-1.0;
594  t70 = t4*t69;
595  t71 = t3*t70;
596  t73 = -eta-1.0/3.0;
597  t74 = (-eta+1.0)*t73;
598  t75 = t74*t13;
599  t77 = t74*t17;
600  t78 = t71*t77;
601  t79 = t74*t20;
602  t82 = t25*t70;
603  t84 = t82*t77;
604  t87 = t34*t69;
605  t88 = t33*t87;
606  t90 = t88*t77;
607  t93 = t42*t87;
608  t95 = t93*t77;
609  t99 = (-eta+1.0/3.0)*t73;
610  t100 = t99*t13;
611  t102 = t99*t17;
612  t103 = t71*t102;
613  t104 = t99*t20;
614  t108 = t82*t102;
615  t112 = t88*t102;
616  t116 = t93*t102;
617  t119 = zeta+1.0;
618  t120 = t119*t12;
619  t121 = t10*t120;
620  t123 = t16*t119;
621  t124 = t10*t123;
622  t136 = t49*t120;
623  t138 = t49*t123;
624  t150 = t74*t120;
625  t152 = t74*t123;
626  t164 = t99*t120;
627  t166 = t99*t123;
628  t178 = -zeta+1.0;
629  t179 = -zeta-1.0/3.0;
630  t180 = t178*t179;
631  t181 = t10*t180;
632  t183 = -zeta-1.0;
633  t184 = t183*t179;
634  t185 = t10*t184;
635  t186 = t7*t185;
636  t187 = t183*t178;
637  t188 = t10*t187;
638  t192 = t26*t185;
639  t196 = t36*t185;
640  t200 = t43*t185;
641  t203 = t49*t180;
642  t205 = t49*t184;
643  t206 = t7*t205;
644  t207 = t49*t187;
645  t211 = t26*t205;
646  t215 = t36*t205;
647  t219 = t43*t205;
648  t222 = t74*t180;
649  t224 = t74*t184;
650  t225 = t71*t224;
651  t226 = t74*t187;
652  t230 = t82*t224;
653  t234 = t88*t224;
654  t238 = t93*t224;
655  t241 = t99*t180;
656  t243 = t99*t184;
657  t244 = t71*t243;
658  t245 = t99*t187;
659  t249 = t82*t243;
660  t253 = t88*t243;
661  t257 = t93*t243;
662  t260 = -zeta+1.0/3.0;
663  t261 = t260*t179;
664  t262 = t10*t261;
665  t264 = t183*t260;
666  t265 = t10*t264;
667  t277 = t49*t261;
668  t279 = t49*t264;
669  t291 = t74*t261;
670  t293 = t74*t264;
671  t305 = t99*t261;
672  t307 = t99*t264;
673 
674  values[0] = -729.0/4096.0*t7*t14-729.0/4096.0*t19-729.0/4096.0*t7*t21;
675  values[1] = 2187.0/4096.0*t26*t14+2187.0/4096.0*t28+2187.0/4096.0*t26*t21;
676  values[2] = 2187.0/4096.0*t36*t14+2187.0/4096.0*t38+2187.0/4096.0*t36*t21;
677  values[3] = -729.0/4096.0*t43*t14-729.0/4096.0*t45-729.0/4096.0*t43*t21;
678  values[4] = 2187.0/4096.0*t7*t50+2187.0/4096.0*t53+2187.0/4096.0*t7*t54;
679  values[5] = -6561.0/4096.0*t26*t50-6561.0/4096.0*t58-6561.0/4096.0*t26*t54;
680  values[6] = -6561.0/4096.0*t36*t50-6561.0/4096.0*t62-6561.0/4096.0*t36*t54;
681  values[7] = 2187.0/4096.0*t43*t50+2187.0/4096.0*t66+2187.0/4096.0*t43*t54;
682  values[8] = 2187.0/4096.0*t71*t75+2187.0/4096.0*t78+2187.0/4096.0*t71*t79;
683  values[9] = -6561.0/4096.0*t82*t75-6561.0/4096.0*t84-6561.0/4096.0*t82*t79;
684  values[10] = -6561.0/4096.0*t88*t75-6561.0/4096.0*t90-6561.0/4096.0*t88*t79;
685  values[11] = 2187.0/4096.0*t93*t75+2187.0/4096.0*t95+2187.0/4096.0*t93*t79;
686  values[12] = -729.0/4096.0*t71*t100-729.0/4096.0*t103-729.0/4096.0*t71*t104;
687  values[13] = 2187.0/4096.0*t82*t100+2187.0/4096.0*t108+2187.0/4096.0*t82*t104;
688  values[14] = 2187.0/4096.0*t88*t100+2187.0/4096.0*t112+2187.0/4096.0*t88*t104;
689  values[15] = -729.0/4096.0*t93*t100-729.0/4096.0*t116-729.0/4096.0*t93*t104;
690  values[16] = 2187.0/4096.0*t7*t121+2187.0/4096.0*t19+2187.0/4096.0*t7*t124;
691  values[17] = -6561.0/4096.0*t26*t121-6561.0/4096.0*t28-6561.0/4096.0*t26*t124;
692  values[18] = -6561.0/4096.0*t36*t121-6561.0/4096.0*t38-6561.0/4096.0*t36*t124;
693  values[19] = 2187.0/4096.0*t43*t121+2187.0/4096.0*t45+2187.0/4096.0*t43*t124;
694  values[20] = -6561.0/4096.0*t7*t136-6561.0/4096.0*t53-6561.0/4096.0*t7*t138;
695  values[21] = 19683.0/4096.0*t26*t136+19683.0/4096.0*t58+19683.0/4096.0*t26*t138;
696  values[22] = 19683.0/4096.0*t36*t136+19683.0/4096.0*t62+19683.0/4096.0*t36*t138;
697  values[23] = -6561.0/4096.0*t43*t136-6561.0/4096.0*t66-6561.0/4096.0*t43*t138;
698  values[24] = -6561.0/4096.0*t71*t150-6561.0/4096.0*t78-6561.0/4096.0*t71*t152;
699  values[25] = 19683.0/4096.0*t82*t150+19683.0/4096.0*t84+19683.0/4096.0*t82*t152;
700  values[26] = 19683.0/4096.0*t88*t150+19683.0/4096.0*t90+19683.0/4096.0*t88*t152;
701  values[27] = -6561.0/4096.0*t93*t150-6561.0/4096.0*t95-6561.0/4096.0*t93*t152;
702  values[28] = 2187.0/4096.0*t71*t164+2187.0/4096.0*t103+2187.0/4096.0*t71*t166;
703  values[29] = -6561.0/4096.0*t82*t164-6561.0/4096.0*t108-6561.0/4096.0*t82*t166;
704  values[30] = -6561.0/4096.0*t88*t164-6561.0/4096.0*t112-6561.0/4096.0*t88*t166;
705  values[31] = 2187.0/4096.0*t93*t164+2187.0/4096.0*t116+2187.0/4096.0*t93*t166;
706  values[32] = -2187.0/4096.0*t7*t181-2187.0/4096.0*t186-2187.0/4096.0*t7*t188;
707  values[33] = 6561.0/4096.0*t26*t181+6561.0/4096.0*t192+6561.0/4096.0*t26*t188;
708  values[34] = 6561.0/4096.0*t36*t181+6561.0/4096.0*t196+6561.0/4096.0*t36*t188;
709  values[35] = -2187.0/4096.0*t43*t181-2187.0/4096.0*t200-2187.0/4096.0*t43*t188;
710  values[36] = 6561.0/4096.0*t7*t203+6561.0/4096.0*t206+6561.0/4096.0*t7*t207;
711  values[37] = -19683.0/4096.0*t26*t203-19683.0/4096.0*t211-19683.0/4096.0*t26*t207;
712  values[38] = -19683.0/4096.0*t36*t203-19683.0/4096.0*t215-19683.0/4096.0*t36*t207;
713  values[39] = 6561.0/4096.0*t43*t203+6561.0/4096.0*t219+6561.0/4096.0*t43*t207;
714  values[40] = 6561.0/4096.0*t71*t222+6561.0/4096.0*t225+6561.0/4096.0*t71*t226;
715  values[41] = -19683.0/4096.0*t82*t222-19683.0/4096.0*t230-19683.0/4096.0*t82*t226;
716  values[42] = -19683.0/4096.0*t88*t222-19683.0/4096.0*t234-19683.0/4096.0*t88*t226;
717  values[43] = 6561.0/4096.0*t93*t222+6561.0/4096.0*t238+6561.0/4096.0*t93*t226;
718  values[44] = -2187.0/4096.0*t71*t241-2187.0/4096.0*t244-2187.0/4096.0*t71*t245;
719  values[45] = 6561.0/4096.0*t82*t241+6561.0/4096.0*t249+6561.0/4096.0*t82*t245;
720  values[46] = 6561.0/4096.0*t88*t241+6561.0/4096.0*t253+6561.0/4096.0*t88*t245;
721  values[47] = -2187.0/4096.0*t93*t241-2187.0/4096.0*t257-2187.0/4096.0*t93*t245;
722  values[48] = 729.0/4096.0*t7*t262+729.0/4096.0*t186+729.0/4096.0*t7*t265;
723  values[49] = -2187.0/4096.0*t26*t262-2187.0/4096.0*t192-2187.0/4096.0*t26*t265;
724  values[50] = -2187.0/4096.0*t36*t262-2187.0/4096.0*t196-2187.0/4096.0*t36*t265;
725  values[51] = 729.0/4096.0*t43*t262+729.0/4096.0*t200+729.0/4096.0*t43*t265;
726  values[52] = -2187.0/4096.0*t7*t277-2187.0/4096.0*t206-2187.0/4096.0*t7*t279;
727  values[53] = 6561.0/4096.0*t26*t277+6561.0/4096.0*t211+6561.0/4096.0*t26*t279;
728  values[54] = 6561.0/4096.0*t36*t277+6561.0/4096.0*t215+6561.0/4096.0*t36*t279;
729  values[55] = -2187.0/4096.0*t43*t277-2187.0/4096.0*t219-2187.0/4096.0*t43*t279;
730  values[56] = -2187.0/4096.0*t71*t291-2187.0/4096.0*t225-2187.0/4096.0*t71*t293;
731  values[57] = 6561.0/4096.0*t82*t291+6561.0/4096.0*t230+6561.0/4096.0*t82*t293;
732  values[58] = 6561.0/4096.0*t88*t291+6561.0/4096.0*t234+6561.0/4096.0*t88*t293;
733  values[59] = -2187.0/4096.0*t93*t291-2187.0/4096.0*t238-2187.0/4096.0*t93*t293;
734  values[60] = 729.0/4096.0*t71*t305+729.0/4096.0*t244+729.0/4096.0*t71*t307;
735  values[61] = -2187.0/4096.0*t82*t305-2187.0/4096.0*t249-2187.0/4096.0*t82*t307;
736  values[62] = -2187.0/4096.0*t88*t305-2187.0/4096.0*t253-2187.0/4096.0*t88*t307;
737  values[63] = 729.0/4096.0*t93*t305+729.0/4096.0*t257+729.0/4096.0*t93*t307;
738 }
739 
740 static void C_H_Q3_3D_DeriveXiXi(double xi, double eta, double zeta,
741  double *values)
742 {
743  double t1, t2, t3, t4, t5, t6, t7, t8, t10, t11, t12, t13, t14, t15;
744  double t16, t18, t19, t20, t21, t23, t24, t25, t28, t29, t30, t31, t32;
745  double t33, t34, t36, t37, t38, t39, t41, t42, t43, t46, t47, t48, t49;
746  double t51, t52, t54, t57, t58, t59, t61, t62, t64, t67, t68, t69, t70;
747  double t71, t72, t73, t74, t75, t76, t78, t79, t80, t82, t83, t86, t87;
748  double t88, t89, t90, t92, t93, t94, t96, t97, t100, t101, t102, t103;
749  double t105, t106, t108, t111, t112, t113, t115, t116, t118, t122, t123;
750  double t124, t126, t130, t132, t136, t138, t142, t144, t148, t149, t151;
751  double t155, t157, t161, t163, t167, t169, t173, t174, t176, t177, t178;
752  double t179, t181, t185, t187, t191, t193, t197, t199, t203, t204, t205;
753  double t207, t211, t213, t217, t219, t223, t225, t230, t231, t232, t234;
754  double t238, t240, t244, t246, t250, t252, t256, t257, t259, t263, t265;
755  double t269, t271, t275, t277;
756 
757  t1 = xi-1.0/3.0;
758  t2 = eta-1.0;
759  t3 = t1*t2;
760  t4 = eta+1.0/3.0;
761  t5 = t3*t4;
762  t6 = eta-1.0/3.0;
763  t7 = zeta-1.0;
764  t8 = t6*t7;
765  t10 = zeta-1.0/3.0;
766  t11 = (zeta+1.0/3.0)*t10;
767  t12 = t8*t11;
768  t13 = t5*t12;
769  t14 = xi+1.0/3.0;
770  t15 = t14*t2;
771  t16 = t15*t4;
772  t18 = xi-1.0;
773  t19 = t18*t2;
774  t20 = t19*t4;
775  t21 = t20*t12;
776  t23 = xi+1.0;
777  t24 = t23*t2;
778  t25 = t24*t4;
779  t28 = -xi-1.0/3.0;
780  t29 = t28*t2;
781  t30 = t29*t4;
782  t31 = t30*t12;
783  t32 = -xi+1.0;
784  t33 = t32*t2;
785  t34 = t33*t4;
786  t36 = -xi-1.0;
787  t37 = t36*t2;
788  t38 = t37*t4;
789  t39 = t38*t12;
790  t41 = -xi+1.0/3.0;
791  t42 = t41*t2;
792  t43 = t42*t4;
793  t46 = eta+1.0;
794  t47 = t3*t46;
795  t48 = t47*t12;
796  t49 = t15*t46;
797  t51 = t19*t46;
798  t52 = t51*t12;
799  t54 = t24*t46;
800  t57 = t29*t46;
801  t58 = t57*t12;
802  t59 = t33*t46;
803  t61 = t37*t46;
804  t62 = t61*t12;
805  t64 = t42*t46;
806  t67 = -eta-1.0;
807  t68 = t1*t67;
808  t69 = -eta+1.0;
809  t70 = t68*t69;
810  t71 = -eta-1.0/3.0;
811  t72 = t71*t7;
812  t73 = t72*t11;
813  t74 = t70*t73;
814  t75 = t14*t67;
815  t76 = t75*t69;
816  t78 = t18*t67;
817  t79 = t78*t69;
818  t80 = t79*t73;
819  t82 = t23*t67;
820  t83 = t82*t69;
821  t86 = t28*t67;
822  t87 = t86*t69;
823  t88 = t87*t73;
824  t89 = t32*t67;
825  t90 = t89*t69;
826  t92 = t36*t67;
827  t93 = t92*t69;
828  t94 = t93*t73;
829  t96 = t41*t67;
830  t97 = t96*t69;
831  t100 = -eta+1.0/3.0;
832  t101 = t68*t100;
833  t102 = t101*t73;
834  t103 = t75*t100;
835  t105 = t78*t100;
836  t106 = t105*t73;
837  t108 = t82*t100;
838  t111 = t86*t100;
839  t112 = t111*t73;
840  t113 = t89*t100;
841  t115 = t92*t100;
842  t116 = t115*t73;
843  t118 = t96*t100;
844  t122 = (zeta+1.0)*t10;
845  t123 = t8*t122;
846  t124 = t5*t123;
847  t126 = t20*t123;
848  t130 = t30*t123;
849  t132 = t38*t123;
850  t136 = t47*t123;
851  t138 = t51*t123;
852  t142 = t57*t123;
853  t144 = t61*t123;
854  t148 = t72*t122;
855  t149 = t70*t148;
856  t151 = t79*t148;
857  t155 = t87*t148;
858  t157 = t93*t148;
859  t161 = t101*t148;
860  t163 = t105*t148;
861  t167 = t111*t148;
862  t169 = t115*t148;
863  t173 = -zeta-1.0;
864  t174 = t6*t173;
865  t176 = -zeta-1.0/3.0;
866  t177 = (-zeta+1.0)*t176;
867  t178 = t174*t177;
868  t179 = t5*t178;
869  t181 = t20*t178;
870  t185 = t30*t178;
871  t187 = t38*t178;
872  t191 = t47*t178;
873  t193 = t51*t178;
874  t197 = t57*t178;
875  t199 = t61*t178;
876  t203 = t71*t173;
877  t204 = t203*t177;
878  t205 = t70*t204;
879  t207 = t79*t204;
880  t211 = t87*t204;
881  t213 = t93*t204;
882  t217 = t101*t204;
883  t219 = t105*t204;
884  t223 = t111*t204;
885  t225 = t115*t204;
886  t230 = (-zeta+1.0/3.0)*t176;
887  t231 = t174*t230;
888  t232 = t5*t231;
889  t234 = t20*t231;
890  t238 = t30*t231;
891  t240 = t38*t231;
892  t244 = t47*t231;
893  t246 = t51*t231;
894  t250 = t57*t231;
895  t252 = t61*t231;
896  t256 = t203*t230;
897  t257 = t70*t256;
898  t259 = t79*t256;
899  t263 = t87*t256;
900  t265 = t93*t256;
901  t269 = t101*t256;
902  t271 = t105*t256;
903  t275 = t111*t256;
904  t277 = t115*t256;
905 
906  values[0] = -729.0/2048.0*t13-729.0/2048.0*t16*t12-729.0/2048.0*t21;
907  values[1] = 2187.0/2048.0*t13+2187.0/2048.0*t25*t12+2187.0/2048.0*t21;
908  values[2] = 2187.0/2048.0*t31+2187.0/2048.0*t34*t12+2187.0/2048.0*t39;
909  values[3] = -729.0/2048.0*t31-729.0/2048.0*t43*t12-729.0/2048.0*t39;
910  values[4] = 2187.0/2048.0*t48+2187.0/2048.0*t49*t12+2187.0/2048.0*t52;
911  values[5] = -6561.0/2048.0*t48-6561.0/2048.0*t54*t12-6561.0/2048.0*t52;
912  values[6] = -6561.0/2048.0*t58-6561.0/2048.0*t59*t12-6561.0/2048.0*t62;
913  values[7] = 2187.0/2048.0*t58+2187.0/2048.0*t64*t12+2187.0/2048.0*t62;
914  values[8] = 2187.0/2048.0*t74+2187.0/2048.0*t76*t73+2187.0/2048.0*t80;
915  values[9] = -6561.0/2048.0*t74-6561.0/2048.0*t83*t73-6561.0/2048.0*t80;
916  values[10] = -6561.0/2048.0*t88-6561.0/2048.0*t90*t73-6561.0/2048.0*t94;
917  values[11] = 2187.0/2048.0*t88+2187.0/2048.0*t97*t73+2187.0/2048.0*t94;
918  values[12] = -729.0/2048.0*t102-729.0/2048.0*t103*t73-729.0/2048.0*t106;
919  values[13] = 2187.0/2048.0*t102+2187.0/2048.0*t108*t73+2187.0/2048.0*t106;
920  values[14] = 2187.0/2048.0*t112+2187.0/2048.0*t113*t73+2187.0/2048.0*t116;
921  values[15] = -729.0/2048.0*t112-729.0/2048.0*t118*t73-729.0/2048.0*t116;
922  values[16] = 2187.0/2048.0*t124+2187.0/2048.0*t16*t123+2187.0/2048.0*t126;
923  values[17] = -6561.0/2048.0*t124-6561.0/2048.0*t25*t123-6561.0/2048.0*t126;
924  values[18] = -6561.0/2048.0*t130-6561.0/2048.0*t34*t123-6561.0/2048.0*t132;
925  values[19] = 2187.0/2048.0*t130+2187.0/2048.0*t43*t123+2187.0/2048.0*t132;
926  values[20] = -6561.0/2048.0*t136-6561.0/2048.0*t49*t123-6561.0/2048.0*t138;
927  values[21] = 19683.0/2048.0*t136+19683.0/2048.0*t54*t123+19683.0/2048.0*t138;
928  values[22] = 19683.0/2048.0*t142+19683.0/2048.0*t59*t123+19683.0/2048.0*t144;
929  values[23] = -6561.0/2048.0*t142-6561.0/2048.0*t64*t123-6561.0/2048.0*t144;
930  values[24] = -6561.0/2048.0*t149-6561.0/2048.0*t76*t148-6561.0/2048.0*t151;
931  values[25] = 19683.0/2048.0*t149+19683.0/2048.0*t83*t148+19683.0/2048.0*t151;
932  values[26] = 19683.0/2048.0*t155+19683.0/2048.0*t90*t148+19683.0/2048.0*t157;
933  values[27] = -6561.0/2048.0*t155-6561.0/2048.0*t97*t148-6561.0/2048.0*t157;
934  values[28] = 2187.0/2048.0*t161+2187.0/2048.0*t103*t148+2187.0/2048.0*t163;
935  values[29] = -6561.0/2048.0*t161-6561.0/2048.0*t108*t148-6561.0/2048.0*t163;
936  values[30] = -6561.0/2048.0*t167-6561.0/2048.0*t113*t148-6561.0/2048.0*t169;
937  values[31] = 2187.0/2048.0*t167+2187.0/2048.0*t118*t148+2187.0/2048.0*t169;
938  values[32] = 2187.0/2048.0*t179+2187.0/2048.0*t16*t178+2187.0/2048.0*t181;
939  values[33] = -6561.0/2048.0*t179-6561.0/2048.0*t25*t178-6561.0/2048.0*t181;
940  values[34] = -6561.0/2048.0*t185-6561.0/2048.0*t34*t178-6561.0/2048.0*t187;
941  values[35] = 2187.0/2048.0*t185+2187.0/2048.0*t43*t178+2187.0/2048.0*t187;
942  values[36] = -6561.0/2048.0*t191-6561.0/2048.0*t49*t178-6561.0/2048.0*t193;
943  values[37] = 19683.0/2048.0*t191+19683.0/2048.0*t54*t178+19683.0/2048.0*t193;
944  values[38] = 19683.0/2048.0*t197+19683.0/2048.0*t59*t178+19683.0/2048.0*t199;
945  values[39] = -6561.0/2048.0*t197-6561.0/2048.0*t64*t178-6561.0/2048.0*t199;
946  values[40] = -6561.0/2048.0*t205-6561.0/2048.0*t76*t204-6561.0/2048.0*t207;
947  values[41] = 19683.0/2048.0*t205+19683.0/2048.0*t83*t204+19683.0/2048.0*t207;
948  values[42] = 19683.0/2048.0*t211+19683.0/2048.0*t90*t204+19683.0/2048.0*t213;
949  values[43] = -6561.0/2048.0*t211-6561.0/2048.0*t97*t204-6561.0/2048.0*t213;
950  values[44] = 2187.0/2048.0*t217+2187.0/2048.0*t103*t204+2187.0/2048.0*t219;
951  values[45] = -6561.0/2048.0*t217-6561.0/2048.0*t108*t204-6561.0/2048.0*t219;
952  values[46] = -6561.0/2048.0*t223-6561.0/2048.0*t113*t204-6561.0/2048.0*t225;
953  values[47] = 2187.0/2048.0*t223+2187.0/2048.0*t118*t204+2187.0/2048.0*t225;
954  values[48] = -729.0/2048.0*t232-729.0/2048.0*t16*t231-729.0/2048.0*t234;
955  values[49] = 2187.0/2048.0*t232+2187.0/2048.0*t25*t231+2187.0/2048.0*t234;
956  values[50] = 2187.0/2048.0*t238+2187.0/2048.0*t34*t231+2187.0/2048.0*t240;
957  values[51] = -729.0/2048.0*t238-729.0/2048.0*t43*t231-729.0/2048.0*t240;
958  values[52] = 2187.0/2048.0*t244+2187.0/2048.0*t49*t231+2187.0/2048.0*t246;
959  values[53] = -6561.0/2048.0*t244-6561.0/2048.0*t54*t231-6561.0/2048.0*t246;
960  values[54] = -6561.0/2048.0*t250-6561.0/2048.0*t59*t231-6561.0/2048.0*t252;
961  values[55] = 2187.0/2048.0*t250+2187.0/2048.0*t64*t231+2187.0/2048.0*t252;
962  values[56] = 2187.0/2048.0*t257+2187.0/2048.0*t76*t256+2187.0/2048.0*t259;
963  values[57] = -6561.0/2048.0*t257-6561.0/2048.0*t83*t256-6561.0/2048.0*t259;
964  values[58] = -6561.0/2048.0*t263-6561.0/2048.0*t90*t256-6561.0/2048.0*t265;
965  values[59] = 2187.0/2048.0*t263+2187.0/2048.0*t97*t256+2187.0/2048.0*t265;
966  values[60] = -729.0/2048.0*t269-729.0/2048.0*t103*t256-729.0/2048.0*t271;
967  values[61] = 2187.0/2048.0*t269+2187.0/2048.0*t108*t256+2187.0/2048.0*t271;
968  values[62] = 2187.0/2048.0*t275+2187.0/2048.0*t113*t256+2187.0/2048.0*t277;
969  values[63] = -729.0/2048.0*t275-729.0/2048.0*t118*t256-729.0/2048.0*t277;
970 }
971 
972 static void C_H_Q3_3D_DeriveXiEta(double xi, double eta, double zeta,
973  double *values)
974 {
975  double t1, t2, t3, t4, t5, t6, t7, t8, t10, t11, t12, t14, t15, t16;
976  double t17, t18, t20, t21, t22, t23, t24, t25, t26, t27, t28, t30;
977  double t31, t34, t35, t36, t38, t39, t41, t42, t44, t45, t48, t49;
978  double t50, t51, t53, t54, t56, t57, t58, t59, t60, t61, t62, t63;
979  double t64, t66, t67, t70, t71, t72, t74, t75, t77, t78, t80, t81;
980  double t84, t85, t87, t88, t90, t91, t92, t93, t97, t100, t104, t107;
981  double t108, t109, t110, t114, t117, t121, t122, t123, t124, t125;
982  double t127, t128, t129, t130, t131, t133, t134, t135, t136, t137;
983  double t138, t140, t141, t144, t146, t147, t149, t151, t152, t155;
984  double t157, t158, t160, t161, t162, t163, t164, t165, t167, t168;
985  double t171, t173, t174, t176, t178, t179, t182, t183, t185, t186;
986  double t188, t189, t190, t191, t195, t198, t202, t205, t206, t207;
987  double t208, t212, t215, t220, t221, t223, t224, t226, t227, t228;
988  double t230, t234, t237, t241, t243, t244, t245, t247, t251, t254;
989  double t258, t260, t261, t272, t273, t282, t284, t285, t287, t288;
990  double t289, t291, t295, t298, t302, t304, t305, t306, t308, t312;
991  double t315, t319, t321, t322, t333, t334, t343, t344, t346, t347;
992  double t348, t350, t351, t352, t354, t355, t356, t358, t362, t365;
993  double t369, t371, t372, t373, t375, t379, t382, t386, t387, t389;
994  double t390, t401, t402, t411, t412, t414, t415, t416, t418, t419;
995  double t420, t422, t426, t429, t433, t435, t436, t437, t439, t443;
996  double t446, t450, t451, t453, t454, t465, t466, t476, t477, t479;
997  double t480, t482, t483, t484, t486, t490, t493, t497, t499, t500;
998  double t501, t503, t507, t510, t514, t516, t517, t528, t529, t538;
999  double t540, t541, t543, t544, t545, t547, t551, t554, t558, t560;
1000  double t561, t562, t564, t568, t571, t575, t577, t578, t589, t590;
1001 
1002  t1 = xi+1.0/3.0;
1003  t2 = xi-1.0/3.0;
1004  t3 = t1*t2;
1005  t4 = eta+1.0/3.0;
1006  t5 = t3*t4;
1007  t6 = eta-1.0/3.0;
1008  t7 = zeta-1.0;
1009  t8 = t6*t7;
1010  t10 = zeta-1.0/3.0;
1011  t11 = (zeta+1.0/3.0)*t10;
1012  t12 = t8*t11;
1013  t14 = eta-1.0;
1014  t15 = t3*t14;
1015  t16 = t15*t12;
1016  t17 = t4*t7;
1017  t18 = t17*t11;
1018  t20 = xi-1.0;
1019  t21 = t20*t2;
1020  t22 = t21*t4;
1021  t23 = t22*t12;
1022  t24 = t21*t14;
1023  t25 = t24*t12;
1024  t26 = t24*t18;
1025  t27 = t20*t1;
1026  t28 = t27*t4;
1027  t30 = t27*t14;
1028  t31 = t30*t12;
1029  t34 = xi+1.0;
1030  t35 = t34*t2;
1031  t36 = t35*t4;
1032  t38 = t35*t14;
1033  t39 = t38*t12;
1034  t41 = t20*t34;
1035  t42 = t41*t4;
1036  t44 = t41*t14;
1037  t45 = t44*t12;
1038  t48 = -xi+1.0;
1039  t49 = -xi-1.0/3.0;
1040  t50 = t48*t49;
1041  t51 = t50*t4;
1042  t53 = t50*t14;
1043  t54 = t53*t12;
1044  t56 = -xi-1.0;
1045  t57 = t56*t49;
1046  t58 = t57*t4;
1047  t59 = t58*t12;
1048  t60 = t57*t14;
1049  t61 = t60*t12;
1050  t62 = t60*t18;
1051  t63 = t56*t48;
1052  t64 = t63*t4;
1053  t66 = t63*t14;
1054  t67 = t66*t12;
1055  t70 = -xi+1.0/3.0;
1056  t71 = t70*t49;
1057  t72 = t71*t4;
1058  t74 = t71*t14;
1059  t75 = t74*t12;
1060  t77 = t56*t70;
1061  t78 = t77*t4;
1062  t80 = t77*t14;
1063  t81 = t80*t12;
1064  t84 = eta+1.0;
1065  t85 = t3*t84;
1066  t87 = t84*t7;
1067  t88 = t87*t11;
1068  t90 = t21*t84;
1069  t91 = t90*t12;
1070  t92 = t24*t88;
1071  t93 = t27*t84;
1072  t97 = t35*t84;
1073  t100 = t41*t84;
1074  t104 = t50*t84;
1075  t107 = t57*t84;
1076  t108 = t107*t12;
1077  t109 = t60*t88;
1078  t110 = t63*t84;
1079  t114 = t71*t84;
1080  t117 = t77*t84;
1081  t121 = -eta+1.0;
1082  t122 = t3*t121;
1083  t123 = -eta-1.0/3.0;
1084  t124 = t123*t7;
1085  t125 = t124*t11;
1086  t127 = -eta-1.0;
1087  t128 = t3*t127;
1088  t129 = t128*t125;
1089  t130 = t121*t7;
1090  t131 = t130*t11;
1091  t133 = t21*t121;
1092  t134 = t133*t125;
1093  t135 = t21*t127;
1094  t136 = t135*t125;
1095  t137 = t135*t131;
1096  t138 = t27*t121;
1097  t140 = t27*t127;
1098  t141 = t140*t125;
1099  t144 = t35*t121;
1100  t146 = t35*t127;
1101  t147 = t146*t125;
1102  t149 = t41*t121;
1103  t151 = t41*t127;
1104  t152 = t151*t125;
1105  t155 = t50*t121;
1106  t157 = t50*t127;
1107  t158 = t157*t125;
1108  t160 = t57*t121;
1109  t161 = t160*t125;
1110  t162 = t57*t127;
1111  t163 = t162*t125;
1112  t164 = t162*t131;
1113  t165 = t63*t121;
1114  t167 = t63*t127;
1115  t168 = t167*t125;
1116  t171 = t71*t121;
1117  t173 = t71*t127;
1118  t174 = t173*t125;
1119  t176 = t77*t121;
1120  t178 = t77*t127;
1121  t179 = t178*t125;
1122  t182 = -eta+1.0/3.0;
1123  t183 = t3*t182;
1124  t185 = t182*t7;
1125  t186 = t185*t11;
1126  t188 = t21*t182;
1127  t189 = t188*t125;
1128  t190 = t135*t186;
1129  t191 = t27*t182;
1130  t195 = t35*t182;
1131  t198 = t41*t182;
1132  t202 = t50*t182;
1133  t205 = t57*t182;
1134  t206 = t205*t125;
1135  t207 = t162*t186;
1136  t208 = t63*t182;
1137  t212 = t71*t182;
1138  t215 = t77*t182;
1139  t220 = (zeta+1.0)*t10;
1140  t221 = t8*t220;
1141  t223 = t15*t221;
1142  t224 = t17*t220;
1143  t226 = t22*t221;
1144  t227 = t24*t221;
1145  t228 = t24*t224;
1146  t230 = t30*t221;
1147  t234 = t38*t221;
1148  t237 = t44*t221;
1149  t241 = t53*t221;
1150  t243 = t58*t221;
1151  t244 = t60*t221;
1152  t245 = t60*t224;
1153  t247 = t66*t221;
1154  t251 = t74*t221;
1155  t254 = t80*t221;
1156  t258 = t87*t220;
1157  t260 = t90*t221;
1158  t261 = t24*t258;
1159  t272 = t107*t221;
1160  t273 = t60*t258;
1161  t282 = t124*t220;
1162  t284 = t128*t282;
1163  t285 = t130*t220;
1164  t287 = t133*t282;
1165  t288 = t135*t282;
1166  t289 = t135*t285;
1167  t291 = t140*t282;
1168  t295 = t146*t282;
1169  t298 = t151*t282;
1170  t302 = t157*t282;
1171  t304 = t160*t282;
1172  t305 = t162*t282;
1173  t306 = t162*t285;
1174  t308 = t167*t282;
1175  t312 = t173*t282;
1176  t315 = t178*t282;
1177  t319 = t185*t220;
1178  t321 = t188*t282;
1179  t322 = t135*t319;
1180  t333 = t205*t282;
1181  t334 = t162*t319;
1182  t343 = -zeta-1.0;
1183  t344 = t6*t343;
1184  t346 = -zeta-1.0/3.0;
1185  t347 = (-zeta+1.0)*t346;
1186  t348 = t344*t347;
1187  t350 = t15*t348;
1188  t351 = t4*t343;
1189  t352 = t351*t347;
1190  t354 = t22*t348;
1191  t355 = t24*t348;
1192  t356 = t24*t352;
1193  t358 = t30*t348;
1194  t362 = t38*t348;
1195  t365 = t44*t348;
1196  t369 = t53*t348;
1197  t371 = t58*t348;
1198  t372 = t60*t348;
1199  t373 = t60*t352;
1200  t375 = t66*t348;
1201  t379 = t74*t348;
1202  t382 = t80*t348;
1203  t386 = t84*t343;
1204  t387 = t386*t347;
1205  t389 = t90*t348;
1206  t390 = t24*t387;
1207  t401 = t107*t348;
1208  t402 = t60*t387;
1209  t411 = t123*t343;
1210  t412 = t411*t347;
1211  t414 = t128*t412;
1212  t415 = t121*t343;
1213  t416 = t415*t347;
1214  t418 = t133*t412;
1215  t419 = t135*t412;
1216  t420 = t135*t416;
1217  t422 = t140*t412;
1218  t426 = t146*t412;
1219  t429 = t151*t412;
1220  t433 = t157*t412;
1221  t435 = t160*t412;
1222  t436 = t162*t412;
1223  t437 = t162*t416;
1224  t439 = t167*t412;
1225  t443 = t173*t412;
1226  t446 = t178*t412;
1227  t450 = t182*t343;
1228  t451 = t450*t347;
1229  t453 = t188*t412;
1230  t454 = t135*t451;
1231  t465 = t205*t412;
1232  t466 = t162*t451;
1233  t476 = (-zeta+1.0/3.0)*t346;
1234  t477 = t344*t476;
1235  t479 = t15*t477;
1236  t480 = t351*t476;
1237  t482 = t22*t477;
1238  t483 = t24*t477;
1239  t484 = t24*t480;
1240  t486 = t30*t477;
1241  t490 = t38*t477;
1242  t493 = t44*t477;
1243  t497 = t53*t477;
1244  t499 = t58*t477;
1245  t500 = t60*t477;
1246  t501 = t60*t480;
1247  t503 = t66*t477;
1248  t507 = t74*t477;
1249  t510 = t80*t477;
1250  t514 = t386*t476;
1251  t516 = t90*t477;
1252  t517 = t24*t514;
1253  t528 = t107*t477;
1254  t529 = t60*t514;
1255  t538 = t411*t476;
1256  t540 = t128*t538;
1257  t541 = t415*t476;
1258  t543 = t133*t538;
1259  t544 = t135*t538;
1260  t545 = t135*t541;
1261  t547 = t140*t538;
1262  t551 = t146*t538;
1263  t554 = t151*t538;
1264  t558 = t157*t538;
1265  t560 = t160*t538;
1266  t561 = t162*t538;
1267  t562 = t162*t541;
1268  t564 = t167*t538;
1269  t568 = t173*t538;
1270  t571 = t178*t538;
1271  t575 = t450*t476;
1272  t577 = t188*t538;
1273  t578 = t135*t575;
1274  t589 = t205*t538;
1275  t590 = t162*t575;
1276 
1277  values[0] = -729.0/4096.0*t5*t12-729.0/4096.0*t16-729.0/4096.0*t15*t18-729.0/4096.0*t23-729.0/4096.0*t25-729.0/4096.0*t26-729.0/4096.0*t28*t12-729.0/4096.0*t31-729.0/4096.0*t30*t18;
1278  values[1] = 2187.0/4096.0*t36*t12+2187.0/4096.0*t39+2187.0/4096.0*t38*t18+2187.0/4096.0*t23+2187.0/4096.0*t25+2187.0/4096.0*t26+2187.0/4096.0*t42*t12+2187.0/4096.0*t45+2187.0/4096.0*t44*t18;
1279  values[2] = -2187.0/4096.0*t51*t12-2187.0/4096.0*t54-2187.0/4096.0*t53*t18-2187.0/4096.0*t59-2187.0/4096.0*t61-2187.0/4096.0*t62-2187.0/4096.0*t64*t12-2187.0/4096.0*t67-2187.0/4096.0*t66*t18;
1280  values[3] = 729.0/4096.0*t72*t12+729.0/4096.0*t75+729.0/4096.0*t74*t18+729.0/4096.0*t59+729.0/4096.0*t61+729.0/4096.0*t62+729.0/4096.0*t78*t12+729.0/4096.0*t81+729.0/4096.0*t80*t18;
1281  values[4] = 2187.0/4096.0*t85*t12+2187.0/4096.0*t16+2187.0/4096.0*t15*t88+2187.0/4096.0*t91+2187.0/4096.0*t25+2187.0/4096.0*t92+2187.0/4096.0*t93*t12+2187.0/4096.0*t31+2187.0/4096.0*t30*t88;
1282  values[5] = -6561.0/4096.0*t97*t12-6561.0/4096.0*t39-6561.0/4096.0*t38*t88-6561.0/4096.0*t91-6561.0/4096.0*t25-6561.0/4096.0*t92-6561.0/4096.0*t100*t12-6561.0/4096.0*t45-6561.0/4096.0*t44*t88;
1283  values[6] = 6561.0/4096.0*t104*t12+6561.0/4096.0*t54+6561.0/4096.0*t53*t88+6561.0/4096.0*t108+6561.0/4096.0*t61+6561.0/4096.0*t109+6561.0/4096.0*t110*t12+6561.0/4096.0*t67+6561.0/4096.0*t66*t88;
1284  values[7] = -2187.0/4096.0*t114*t12-2187.0/4096.0*t75-2187.0/4096.0*t74*t88-2187.0/4096.0*t108-2187.0/4096.0*t61-2187.0/4096.0*t109-2187.0/4096.0*t117*t12-2187.0/4096.0*t81-2187.0/4096.0*t80*t88;
1285  values[8] = -2187.0/4096.0*t122*t125-2187.0/4096.0*t129-2187.0/4096.0*t128*t131-2187.0/4096.0*t134-2187.0/4096.0*t136-2187.0/4096.0*t137-2187.0/4096.0*t138*t125-2187.0/4096.0*t141-2187.0/4096.0*t140*t131;
1286  values[9] = 6561.0/4096.0*t144*t125+6561.0/4096.0*t147+6561.0/4096.0*t146*t131+6561.0/4096.0*t134+6561.0/4096.0*t136+6561.0/4096.0*t137+6561.0/4096.0*t149*t125+6561.0/4096.0*t152+6561.0/4096.0*t151*t131;
1287  values[10] = -6561.0/4096.0*t155*t125-6561.0/4096.0*t158-6561.0/4096.0*t157*t131-6561.0/4096.0*t161-6561.0/4096.0*t163-6561.0/4096.0*t164-6561.0/4096.0*t165*t125-6561.0/4096.0*t168-6561.0/4096.0*t167*t131;
1288  values[11] = 2187.0/4096.0*t171*t125+2187.0/4096.0*t174+2187.0/4096.0*t173*t131+2187.0/4096.0*t161+2187.0/4096.0*t163+2187.0/4096.0*t164+2187.0/4096.0*t176*t125+2187.0/4096.0*t179+2187.0/4096.0*t178*t131;
1289  values[12] = 729.0/4096.0*t183*t125+729.0/4096.0*t129+729.0/4096.0*t128*t186+729.0/4096.0*t189+729.0/4096.0*t136+729.0/4096.0*t190+729.0/4096.0*t191*t125+729.0/4096.0*t141+729.0/4096.0*t140*t186;
1290  values[13] = -2187.0/4096.0*t195*t125-2187.0/4096.0*t147-2187.0/4096.0*t146*t186-2187.0/4096.0*t189-2187.0/4096.0*t136-2187.0/4096.0*t190-2187.0/4096.0*t198*t125-2187.0/4096.0*t152-2187.0/4096.0*t151*t186;
1291  values[14] = 2187.0/4096.0*t202*t125+2187.0/4096.0*t158+2187.0/4096.0*t157*t186+2187.0/4096.0*t206+2187.0/4096.0*t163+2187.0/4096.0*t207+2187.0/4096.0*t208*t125+2187.0/4096.0*t168+2187.0/4096.0*t167*t186;
1292  values[15] = -729.0/4096.0*t212*t125-729.0/4096.0*t174-729.0/4096.0*t173*t186-729.0/4096.0*t206-729.0/4096.0*t163-729.0/4096.0*t207-729.0/4096.0*t215*t125-729.0/4096.0*t179-729.0/4096.0*t178*t186;
1293  values[16] = 2187.0/4096.0*t5*t221+2187.0/4096.0*t223+2187.0/4096.0*t15*t224+2187.0/4096.0*t226+2187.0/4096.0*t227+2187.0/4096.0*t228+2187.0/4096.0*t28*t221+2187.0/4096.0*t230+2187.0/4096.0*t30*t224;
1294  values[17] = -6561.0/4096.0*t36*t221-6561.0/4096.0*t234-6561.0/4096.0*t38*t224-6561.0/4096.0*t226-6561.0/4096.0*t227-6561.0/4096.0*t228-6561.0/4096.0*t42*t221-6561.0/4096.0*t237-6561.0/4096.0*t44*t224;
1295  values[18] = 6561.0/4096.0*t51*t221+6561.0/4096.0*t241+6561.0/4096.0*t53*t224+6561.0/4096.0*t243+6561.0/4096.0*t244+6561.0/4096.0*t245+6561.0/4096.0*t64*t221+6561.0/4096.0*t247+6561.0/4096.0*t66*t224;
1296  values[19] = -2187.0/4096.0*t72*t221-2187.0/4096.0*t251-2187.0/4096.0*t74*t224-2187.0/4096.0*t243-2187.0/4096.0*t244-2187.0/4096.0*t245-2187.0/4096.0*t78*t221-2187.0/4096.0*t254-2187.0/4096.0*t80*t224;
1297  values[20] = -6561.0/4096.0*t85*t221-6561.0/4096.0*t223-6561.0/4096.0*t15*t258-6561.0/4096.0*t260-6561.0/4096.0*t227-6561.0/4096.0*t261-6561.0/4096.0*t93*t221-6561.0/4096.0*t230-6561.0/4096.0*t30*t258;
1298  values[21] = 19683.0/4096.0*t97*t221+19683.0/4096.0*t234+19683.0/4096.0*t38*t258+19683.0/4096.0*t260+19683.0/4096.0*t227+19683.0/4096.0*t261+19683.0/4096.0*t100*t221+19683.0/4096.0*t237+19683.0/4096.0*t44*t258;
1299  values[22] = -19683.0/4096.0*t104*t221-19683.0/4096.0*t241-19683.0/4096.0*t53*t258-19683.0/4096.0*t272-19683.0/4096.0*t244-19683.0/4096.0*t273-19683.0/4096.0*t110*t221-19683.0/4096.0*t247-19683.0/4096.0*t66*t258;
1300  values[23] = 6561.0/4096.0*t114*t221+6561.0/4096.0*t251+6561.0/4096.0*t74*t258+6561.0/4096.0*t272+6561.0/4096.0*t244+6561.0/4096.0*t273+6561.0/4096.0*t117*t221+6561.0/4096.0*t254+6561.0/4096.0*t80*t258;
1301  values[24] = 6561.0/4096.0*t122*t282+6561.0/4096.0*t284+6561.0/4096.0*t128*t285+6561.0/4096.0*t287+6561.0/4096.0*t288+6561.0/4096.0*t289+6561.0/4096.0*t138*t282+6561.0/4096.0*t291+6561.0/4096.0*t140*t285;
1302  values[25] = -19683.0/4096.0*t144*t282-19683.0/4096.0*t295-19683.0/4096.0*t146*t285-19683.0/4096.0*t287-19683.0/4096.0*t288-19683.0/4096.0*t289-19683.0/4096.0*t149*t282-19683.0/4096.0*t298-19683.0/4096.0*t151*t285;
1303  values[26] = 19683.0/4096.0*t155*t282+19683.0/4096.0*t302+19683.0/4096.0*t157*t285+19683.0/4096.0*t304+19683.0/4096.0*t305+19683.0/4096.0*t306+19683.0/4096.0*t165*t282+19683.0/4096.0*t308+19683.0/4096.0*t167*t285;
1304  values[27] = -6561.0/4096.0*t171*t282-6561.0/4096.0*t312-6561.0/4096.0*t173*t285-6561.0/4096.0*t304-6561.0/4096.0*t305-6561.0/4096.0*t306-6561.0/4096.0*t176*t282-6561.0/4096.0*t315-6561.0/4096.0*t178*t285;
1305  values[28] = -2187.0/4096.0*t183*t282-2187.0/4096.0*t284-2187.0/4096.0*t128*t319-2187.0/4096.0*t321-2187.0/4096.0*t288-2187.0/4096.0*t322-2187.0/4096.0*t191*t282-2187.0/4096.0*t291-2187.0/4096.0*t140*t319;
1306  values[29] = 6561.0/4096.0*t195*t282+6561.0/4096.0*t295+6561.0/4096.0*t146*t319+6561.0/4096.0*t321+6561.0/4096.0*t288+6561.0/4096.0*t322+6561.0/4096.0*t198*t282+6561.0/4096.0*t298+6561.0/4096.0*t151*t319;
1307  values[30] = -6561.0/4096.0*t202*t282-6561.0/4096.0*t302-6561.0/4096.0*t157*t319-6561.0/4096.0*t333-6561.0/4096.0*t305-6561.0/4096.0*t334-6561.0/4096.0*t208*t282-6561.0/4096.0*t308-6561.0/4096.0*t167*t319;
1308  values[31] = 2187.0/4096.0*t212*t282+2187.0/4096.0*t312+2187.0/4096.0*t173*t319+2187.0/4096.0*t333+2187.0/4096.0*t305+2187.0/4096.0*t334+2187.0/4096.0*t215*t282+2187.0/4096.0*t315+2187.0/4096.0*t178*t319;
1309  values[32] = 2187.0/4096.0*t5*t348+2187.0/4096.0*t350+2187.0/4096.0*t15*t352+2187.0/4096.0*t354+2187.0/4096.0*t355+2187.0/4096.0*t356+2187.0/4096.0*t28*t348+2187.0/4096.0*t358+2187.0/4096.0*t30*t352;
1310  values[33] = -6561.0/4096.0*t36*t348-6561.0/4096.0*t362-6561.0/4096.0*t38*t352-6561.0/4096.0*t354-6561.0/4096.0*t355-6561.0/4096.0*t356-6561.0/4096.0*t42*t348-6561.0/4096.0*t365-6561.0/4096.0*t44*t352;
1311  values[34] = 6561.0/4096.0*t51*t348+6561.0/4096.0*t369+6561.0/4096.0*t53*t352+6561.0/4096.0*t371+6561.0/4096.0*t372+6561.0/4096.0*t373+6561.0/4096.0*t64*t348+6561.0/4096.0*t375+6561.0/4096.0*t66*t352;
1312  values[35] = -2187.0/4096.0*t72*t348-2187.0/4096.0*t379-2187.0/4096.0*t74*t352-2187.0/4096.0*t371-2187.0/4096.0*t372-2187.0/4096.0*t373-2187.0/4096.0*t78*t348-2187.0/4096.0*t382-2187.0/4096.0*t80*t352;
1313  values[36] = -6561.0/4096.0*t85*t348-6561.0/4096.0*t350-6561.0/4096.0*t15*t387-6561.0/4096.0*t389-6561.0/4096.0*t355-6561.0/4096.0*t390-6561.0/4096.0*t93*t348-6561.0/4096.0*t358-6561.0/4096.0*t30*t387;
1314  values[37] = 19683.0/4096.0*t97*t348+19683.0/4096.0*t362+19683.0/4096.0*t38*t387+19683.0/4096.0*t389+19683.0/4096.0*t355+19683.0/4096.0*t390+19683.0/4096.0*t100*t348+19683.0/4096.0*t365+19683.0/4096.0*t44*t387;
1315  values[38] = -19683.0/4096.0*t104*t348-19683.0/4096.0*t369-19683.0/4096.0*t53*t387-19683.0/4096.0*t401-19683.0/4096.0*t372-19683.0/4096.0*t402-19683.0/4096.0*t110*t348-19683.0/4096.0*t375-19683.0/4096.0*t66*t387;
1316  values[39] = 6561.0/4096.0*t114*t348+6561.0/4096.0*t379+6561.0/4096.0*t74*t387+6561.0/4096.0*t401+6561.0/4096.0*t372+6561.0/4096.0*t402+6561.0/4096.0*t117*t348+6561.0/4096.0*t382+6561.0/4096.0*t80*t387;
1317  values[40] = 6561.0/4096.0*t122*t412+6561.0/4096.0*t414+6561.0/4096.0*t128*t416+6561.0/4096.0*t418+6561.0/4096.0*t419+6561.0/4096.0*t420+6561.0/4096.0*t138*t412+6561.0/4096.0*t422+6561.0/4096.0*t140*t416;
1318  values[41] = -19683.0/4096.0*t144*t412-19683.0/4096.0*t426-19683.0/4096.0*t146*t416-19683.0/4096.0*t418-19683.0/4096.0*t419-19683.0/4096.0*t420-19683.0/4096.0*t149*t412-19683.0/4096.0*t429-19683.0/4096.0*t151*t416;
1319  values[42] = 19683.0/4096.0*t155*t412+19683.0/4096.0*t433+19683.0/4096.0*t157*t416+19683.0/4096.0*t435+19683.0/4096.0*t436+19683.0/4096.0*t437+19683.0/4096.0*t165*t412+19683.0/4096.0*t439+19683.0/4096.0*t167*t416;
1320  values[43] = -6561.0/4096.0*t171*t412-6561.0/4096.0*t443-6561.0/4096.0*t173*t416-6561.0/4096.0*t435-6561.0/4096.0*t436-6561.0/4096.0*t437-6561.0/4096.0*t176*t412-6561.0/4096.0*t446-6561.0/4096.0*t178*t416;
1321  values[44] = -2187.0/4096.0*t183*t412-2187.0/4096.0*t414-2187.0/4096.0*t128*t451-2187.0/4096.0*t453-2187.0/4096.0*t419-2187.0/4096.0*t454-2187.0/4096.0*t191*t412-2187.0/4096.0*t422-2187.0/4096.0*t140*t451;
1322  values[45] = 6561.0/4096.0*t195*t412+6561.0/4096.0*t426+6561.0/4096.0*t146*t451+6561.0/4096.0*t453+6561.0/4096.0*t419+6561.0/4096.0*t454+6561.0/4096.0*t198*t412+6561.0/4096.0*t429+6561.0/4096.0*t151*t451;
1323  values[46] = -6561.0/4096.0*t202*t412-6561.0/4096.0*t433-6561.0/4096.0*t157*t451-6561.0/4096.0*t465-6561.0/4096.0*t436-6561.0/4096.0*t466-6561.0/4096.0*t208*t412-6561.0/4096.0*t439-6561.0/4096.0*t167*t451;
1324  values[47] = 2187.0/4096.0*t212*t412+2187.0/4096.0*t443+2187.0/4096.0*t173*t451+2187.0/4096.0*t465+2187.0/4096.0*t436+2187.0/4096.0*t466+2187.0/4096.0*t215*t412+2187.0/4096.0*t446+2187.0/4096.0*t178*t451;
1325  values[48] = -729.0/4096.0*t5*t477-729.0/4096.0*t479-729.0/4096.0*t15*t480-729.0/4096.0*t482-729.0/4096.0*t483-729.0/4096.0*t484-729.0/4096.0*t28*t477-729.0/4096.0*t486-729.0/4096.0*t30*t480;
1326  values[49] = 2187.0/4096.0*t36*t477+2187.0/4096.0*t490+2187.0/4096.0*t38*t480+2187.0/4096.0*t482+2187.0/4096.0*t483+2187.0/4096.0*t484+2187.0/4096.0*t42*t477+2187.0/4096.0*t493+2187.0/4096.0*t44*t480;
1327  values[50] = -2187.0/4096.0*t51*t477-2187.0/4096.0*t497-2187.0/4096.0*t53*t480-2187.0/4096.0*t499-2187.0/4096.0*t500-2187.0/4096.0*t501-2187.0/4096.0*t64*t477-2187.0/4096.0*t503-2187.0/4096.0*t66*t480;
1328  values[51] = 729.0/4096.0*t72*t477+729.0/4096.0*t507+729.0/4096.0*t74*t480+729.0/4096.0*t499+729.0/4096.0*t500+729.0/4096.0*t501+729.0/4096.0*t78*t477+729.0/4096.0*t510+729.0/4096.0*t80*t480;
1329  values[52] = 2187.0/4096.0*t85*t477+2187.0/4096.0*t479+2187.0/4096.0*t15*t514+2187.0/4096.0*t516+2187.0/4096.0*t483+2187.0/4096.0*t517+2187.0/4096.0*t93*t477+2187.0/4096.0*t486+2187.0/4096.0*t30*t514;
1330  values[53] = -6561.0/4096.0*t97*t477-6561.0/4096.0*t490-6561.0/4096.0*t38*t514-6561.0/4096.0*t516-6561.0/4096.0*t483-6561.0/4096.0*t517-6561.0/4096.0*t100*t477-6561.0/4096.0*t493-6561.0/4096.0*t44*t514;
1331  values[54] = 6561.0/4096.0*t104*t477+6561.0/4096.0*t497+6561.0/4096.0*t53*t514+6561.0/4096.0*t528+6561.0/4096.0*t500+6561.0/4096.0*t529+6561.0/4096.0*t110*t477+6561.0/4096.0*t503+6561.0/4096.0*t66*t514;
1332  values[55] = -2187.0/4096.0*t114*t477-2187.0/4096.0*t507-2187.0/4096.0*t74*t514-2187.0/4096.0*t528-2187.0/4096.0*t500-2187.0/4096.0*t529-2187.0/4096.0*t117*t477-2187.0/4096.0*t510-2187.0/4096.0*t80*t514;
1333  values[56] = -2187.0/4096.0*t122*t538-2187.0/4096.0*t540-2187.0/4096.0*t128*t541-2187.0/4096.0*t543-2187.0/4096.0*t544-2187.0/4096.0*t545-2187.0/4096.0*t138*t538-2187.0/4096.0*t547-2187.0/4096.0*t140*t541;
1334  values[57] = 6561.0/4096.0*t144*t538+6561.0/4096.0*t551+6561.0/4096.0*t146*t541+6561.0/4096.0*t543+6561.0/4096.0*t544+6561.0/4096.0*t545+6561.0/4096.0*t149*t538+6561.0/4096.0*t554+6561.0/4096.0*t151*t541;
1335  values[58] = -6561.0/4096.0*t155*t538-6561.0/4096.0*t558-6561.0/4096.0*t157*t541-6561.0/4096.0*t560-6561.0/4096.0*t561-6561.0/4096.0*t562-6561.0/4096.0*t165*t538-6561.0/4096.0*t564-6561.0/4096.0*t167*t541;
1336  values[59] = 2187.0/4096.0*t171*t538+2187.0/4096.0*t568+2187.0/4096.0*t173*t541+2187.0/4096.0*t560+2187.0/4096.0*t561+2187.0/4096.0*t562+2187.0/4096.0*t176*t538+2187.0/4096.0*t571+2187.0/4096.0*t178*t541;
1337  values[60] = 729.0/4096.0*t183*t538+729.0/4096.0*t540+729.0/4096.0*t128*t575+729.0/4096.0*t577+729.0/4096.0*t544+729.0/4096.0*t578+729.0/4096.0*t191*t538+729.0/4096.0*t547+729.0/4096.0*t140*t575;
1338  values[61] = -2187.0/4096.0*t195*t538-2187.0/4096.0*t551-2187.0/4096.0*t146*t575-2187.0/4096.0*t577-2187.0/4096.0*t544-2187.0/4096.0*t578-2187.0/4096.0*t198*t538-2187.0/4096.0*t554-2187.0/4096.0*t151*t575;
1339  values[62] = 2187.0/4096.0*t202*t538+2187.0/4096.0*t558+2187.0/4096.0*t157*t575+2187.0/4096.0*t589+2187.0/4096.0*t561+2187.0/4096.0*t590+2187.0/4096.0*t208*t538+2187.0/4096.0*t564+2187.0/4096.0*t167*t575;
1340  values[63] = -729.0/4096.0*t212*t538-729.0/4096.0*t568-729.0/4096.0*t173*t575-729.0/4096.0*t589-729.0/4096.0*t561-729.0/4096.0*t590-729.0/4096.0*t215*t538-729.0/4096.0*t571-729.0/4096.0*t178*t575;
1341 }
1342 
1343 static void C_H_Q3_3D_DeriveXiZeta(double xi, double eta, double zeta,
1344  double *values)
1345 {
1346  double t1, t2, t3, t4, t5, t7, t8, t9, t10, t11, t12, t14, t15, t16, t17;
1347  double t18, t19, t21, t22, t23, t24, t25, t26, t27, t28, t30, t33, t34;
1348  double t35, t37, t39, t40, t42, t45, t46, t47, t48, t50, t52, t53, t54;
1349  double t55, t56, t57, t58, t59, t61, t64, t65, t66, t68, t70, t71, t73;
1350  double t77, t78, t80, t81, t82, t84, t85, t86, t88, t92, t95, t99, t101;
1351  double t102, t103, t105, t109, t112, t115, t116, t118, t119, t120, t122;
1352  double t123, t124, t126, t127, t128, t129, t130, t132, t135, t137, t139;
1353  double t141, t144, t146, t148, t149, t150, t151, t152, t154, t157, t159;
1354  double t161, t163, t167, t168, t170, t171, t172, t174, t175, t176, t178;
1355  double t182, t185, t189, t191, t192, t193, t195, t199, t202, t205, t206;
1356  double t207, t209, t210, t212, t213, t224, t225, t234, t236, t238, t239;
1357  double t250, t251, t260, t262, t264, t265, t276, t277, t286, t288, t290;
1358  double t291, t302, t303, t312, t313, t314, t315, t317, t318, t319, t320;
1359  double t321, t322, t324, t325, t326, t328, t332, t335, t339, t341, t342;
1360  double t343, t345, t349, t352, t355, t357, t358, t359, t361, t362, t363;
1361  double t365, t369, t372, t376, t378, t379, t380, t382, t386, t389, t392;
1362  double t394, t395, t396, t398, t399, t400, t402, t406, t409, t413, t415;
1363  double t416, t417, t419, t423, t426, t429, t431, t432, t433, t435, t436;
1364  double t437, t439, t443, t446, t450, t452, t453, t454, t456, t460, t463;
1365  double t466, t467, t468, t470, t471, t473, t474, t485, t486, t495, t497;
1366  double t499, t500, t511, t512, t521, t523, t525, t526, t537, t538, t547;
1367  double t549, t551, t552, t563, t564;
1368 
1369  t1 = xi+1.0/3.0;
1370  t2 = xi-1.0/3.0;
1371  t3 = t1*t2;
1372  t4 = eta-1.0;
1373  t5 = t3*t4;
1374  t7 = eta-1.0/3.0;
1375  t8 = (eta+1.0/3.0)*t7;
1376  t9 = zeta+1.0/3.0;
1377  t10 = zeta-1.0/3.0;
1378  t11 = t9*t10;
1379  t12 = t8*t11;
1380  t14 = zeta-1.0;
1381  t15 = t14*t10;
1382  t16 = t8*t15;
1383  t17 = t5*t16;
1384  t18 = t14*t9;
1385  t19 = t8*t18;
1386  t21 = xi-1.0;
1387  t22 = t21*t2;
1388  t23 = t22*t4;
1389  t24 = t23*t12;
1390  t25 = t23*t16;
1391  t26 = t23*t19;
1392  t27 = t21*t1;
1393  t28 = t27*t4;
1394  t30 = t28*t16;
1395  t33 = xi+1.0;
1396  t34 = t33*t2;
1397  t35 = t34*t4;
1398  t37 = t35*t16;
1399  t39 = t21*t33;
1400  t40 = t39*t4;
1401  t42 = t40*t16;
1402  t45 = -xi+1.0;
1403  t46 = -xi-1.0/3.0;
1404  t47 = t45*t46;
1405  t48 = t47*t4;
1406  t50 = t48*t16;
1407  t52 = -xi-1.0;
1408  t53 = t52*t46;
1409  t54 = t53*t4;
1410  t55 = t54*t12;
1411  t56 = t54*t16;
1412  t57 = t54*t19;
1413  t58 = t52*t45;
1414  t59 = t58*t4;
1415  t61 = t59*t16;
1416  t64 = -xi+1.0/3.0;
1417  t65 = t64*t46;
1418  t66 = t65*t4;
1419  t68 = t66*t16;
1420  t70 = t52*t64;
1421  t71 = t70*t4;
1422  t73 = t71*t16;
1423  t77 = (eta+1.0)*t7;
1424  t78 = t77*t11;
1425  t80 = t77*t15;
1426  t81 = t5*t80;
1427  t82 = t77*t18;
1428  t84 = t23*t78;
1429  t85 = t23*t80;
1430  t86 = t23*t82;
1431  t88 = t28*t80;
1432  t92 = t35*t80;
1433  t95 = t40*t80;
1434  t99 = t48*t80;
1435  t101 = t54*t78;
1436  t102 = t54*t80;
1437  t103 = t54*t82;
1438  t105 = t59*t80;
1439  t109 = t66*t80;
1440  t112 = t71*t80;
1441  t115 = -eta-1.0;
1442  t116 = t3*t115;
1443  t118 = -eta-1.0/3.0;
1444  t119 = (-eta+1.0)*t118;
1445  t120 = t119*t11;
1446  t122 = t119*t15;
1447  t123 = t116*t122;
1448  t124 = t119*t18;
1449  t126 = t22*t115;
1450  t127 = t126*t120;
1451  t128 = t126*t122;
1452  t129 = t126*t124;
1453  t130 = t27*t115;
1454  t132 = t130*t122;
1455  t135 = t34*t115;
1456  t137 = t135*t122;
1457  t139 = t39*t115;
1458  t141 = t139*t122;
1459  t144 = t47*t115;
1460  t146 = t144*t122;
1461  t148 = t53*t115;
1462  t149 = t148*t120;
1463  t150 = t148*t122;
1464  t151 = t148*t124;
1465  t152 = t58*t115;
1466  t154 = t152*t122;
1467  t157 = t65*t115;
1468  t159 = t157*t122;
1469  t161 = t70*t115;
1470  t163 = t161*t122;
1471  t167 = (-eta+1.0/3.0)*t118;
1472  t168 = t167*t11;
1473  t170 = t167*t15;
1474  t171 = t116*t170;
1475  t172 = t167*t18;
1476  t174 = t126*t168;
1477  t175 = t126*t170;
1478  t176 = t126*t172;
1479  t178 = t130*t170;
1480  t182 = t135*t170;
1481  t185 = t139*t170;
1482  t189 = t144*t170;
1483  t191 = t148*t168;
1484  t192 = t148*t170;
1485  t193 = t148*t172;
1486  t195 = t152*t170;
1487  t199 = t157*t170;
1488  t202 = t161*t170;
1489  t205 = zeta+1.0;
1490  t206 = t205*t10;
1491  t207 = t8*t206;
1492  t209 = t14*t205;
1493  t210 = t8*t209;
1494  t212 = t23*t207;
1495  t213 = t23*t210;
1496  t224 = t54*t207;
1497  t225 = t54*t210;
1498  t234 = t77*t206;
1499  t236 = t77*t209;
1500  t238 = t23*t234;
1501  t239 = t23*t236;
1502  t250 = t54*t234;
1503  t251 = t54*t236;
1504  t260 = t119*t206;
1505  t262 = t119*t209;
1506  t264 = t126*t260;
1507  t265 = t126*t262;
1508  t276 = t148*t260;
1509  t277 = t148*t262;
1510  t286 = t167*t206;
1511  t288 = t167*t209;
1512  t290 = t126*t286;
1513  t291 = t126*t288;
1514  t302 = t148*t286;
1515  t303 = t148*t288;
1516  t312 = -zeta+1.0;
1517  t313 = -zeta-1.0/3.0;
1518  t314 = t312*t313;
1519  t315 = t8*t314;
1520  t317 = -zeta-1.0;
1521  t318 = t317*t313;
1522  t319 = t8*t318;
1523  t320 = t5*t319;
1524  t321 = t317*t312;
1525  t322 = t8*t321;
1526  t324 = t23*t315;
1527  t325 = t23*t319;
1528  t326 = t23*t322;
1529  t328 = t28*t319;
1530  t332 = t35*t319;
1531  t335 = t40*t319;
1532  t339 = t48*t319;
1533  t341 = t54*t315;
1534  t342 = t54*t319;
1535  t343 = t54*t322;
1536  t345 = t59*t319;
1537  t349 = t66*t319;
1538  t352 = t71*t319;
1539  t355 = t77*t314;
1540  t357 = t77*t318;
1541  t358 = t5*t357;
1542  t359 = t77*t321;
1543  t361 = t23*t355;
1544  t362 = t23*t357;
1545  t363 = t23*t359;
1546  t365 = t28*t357;
1547  t369 = t35*t357;
1548  t372 = t40*t357;
1549  t376 = t48*t357;
1550  t378 = t54*t355;
1551  t379 = t54*t357;
1552  t380 = t54*t359;
1553  t382 = t59*t357;
1554  t386 = t66*t357;
1555  t389 = t71*t357;
1556  t392 = t119*t314;
1557  t394 = t119*t318;
1558  t395 = t116*t394;
1559  t396 = t119*t321;
1560  t398 = t126*t392;
1561  t399 = t126*t394;
1562  t400 = t126*t396;
1563  t402 = t130*t394;
1564  t406 = t135*t394;
1565  t409 = t139*t394;
1566  t413 = t144*t394;
1567  t415 = t148*t392;
1568  t416 = t148*t394;
1569  t417 = t148*t396;
1570  t419 = t152*t394;
1571  t423 = t157*t394;
1572  t426 = t161*t394;
1573  t429 = t167*t314;
1574  t431 = t167*t318;
1575  t432 = t116*t431;
1576  t433 = t167*t321;
1577  t435 = t126*t429;
1578  t436 = t126*t431;
1579  t437 = t126*t433;
1580  t439 = t130*t431;
1581  t443 = t135*t431;
1582  t446 = t139*t431;
1583  t450 = t144*t431;
1584  t452 = t148*t429;
1585  t453 = t148*t431;
1586  t454 = t148*t433;
1587  t456 = t152*t431;
1588  t460 = t157*t431;
1589  t463 = t161*t431;
1590  t466 = -zeta+1.0/3.0;
1591  t467 = t466*t313;
1592  t468 = t8*t467;
1593  t470 = t317*t466;
1594  t471 = t8*t470;
1595  t473 = t23*t468;
1596  t474 = t23*t471;
1597  t485 = t54*t468;
1598  t486 = t54*t471;
1599  t495 = t77*t467;
1600  t497 = t77*t470;
1601  t499 = t23*t495;
1602  t500 = t23*t497;
1603  t511 = t54*t495;
1604  t512 = t54*t497;
1605  t521 = t119*t467;
1606  t523 = t119*t470;
1607  t525 = t126*t521;
1608  t526 = t126*t523;
1609  t537 = t148*t521;
1610  t538 = t148*t523;
1611  t547 = t167*t467;
1612  t549 = t167*t470;
1613  t551 = t126*t547;
1614  t552 = t126*t549;
1615  t563 = t148*t547;
1616  t564 = t148*t549;
1617 
1618  values[0] = -729.0/4096.0*t5*t12-729.0/4096.0*t17-729.0/4096.0*t5*t19-729.0/4096.0*t24-729.0/4096.0*t25-729.0/4096.0*t26-729.0/4096.0*t28*t12-729.0/4096.0*t30-729.0/4096.0*t28*t19;
1619  values[1] = 2187.0/4096.0*t35*t12+2187.0/4096.0*t37+2187.0/4096.0*t35*t19+2187.0/4096.0*t24+2187.0/4096.0*t25+2187.0/4096.0*t26+2187.0/4096.0*t40*t12+2187.0/4096.0*t42+2187.0/4096.0*t40*t19;
1620  values[2] = -2187.0/4096.0*t48*t12-2187.0/4096.0*t50-2187.0/4096.0*t48*t19-2187.0/4096.0*t55-2187.0/4096.0*t56-2187.0/4096.0*t57-2187.0/4096.0*t59*t12-2187.0/4096.0*t61-2187.0/4096.0*t59*t19;
1621  values[3] = 729.0/4096.0*t66*t12+729.0/4096.0*t68+729.0/4096.0*t66*t19+729.0/4096.0*t55+729.0/4096.0*t56+729.0/4096.0*t57+729.0/4096.0*t71*t12+729.0/4096.0*t73+729.0/4096.0*t71*t19;
1622  values[4] = 2187.0/4096.0*t5*t78+2187.0/4096.0*t81+2187.0/4096.0*t5*t82+2187.0/4096.0*t84+2187.0/4096.0*t85+2187.0/4096.0*t86+2187.0/4096.0*t28*t78+2187.0/4096.0*t88+2187.0/4096.0*t28*t82;
1623  values[5] = -6561.0/4096.0*t35*t78-6561.0/4096.0*t92-6561.0/4096.0*t35*t82-6561.0/4096.0*t84-6561.0/4096.0*t85-6561.0/4096.0*t86-6561.0/4096.0*t40*t78-6561.0/4096.0*t95-6561.0/4096.0*t40*t82;
1624  values[6] = 6561.0/4096.0*t48*t78+6561.0/4096.0*t99+6561.0/4096.0*t48*t82+6561.0/4096.0*t101+6561.0/4096.0*t102+6561.0/4096.0*t103+6561.0/4096.0*t59*t78+6561.0/4096.0*t105+6561.0/4096.0*t59*t82;
1625  values[7] = -2187.0/4096.0*t66*t78-2187.0/4096.0*t109-2187.0/4096.0*t66*t82-2187.0/4096.0*t101-2187.0/4096.0*t102-2187.0/4096.0*t103-2187.0/4096.0*t71*t78-2187.0/4096.0*t112-2187.0/4096.0*t71*t82;
1626  values[8] = 2187.0/4096.0*t116*t120+2187.0/4096.0*t123+2187.0/4096.0*t116*t124+2187.0/4096.0*t127+2187.0/4096.0*t128+2187.0/4096.0*t129+2187.0/4096.0*t130*t120+2187.0/4096.0*t132+2187.0/4096.0*t130*t124;
1627  values[9] = -6561.0/4096.0*t135*t120-6561.0/4096.0*t137-6561.0/4096.0*t135*t124-6561.0/4096.0*t127-6561.0/4096.0*t128-6561.0/4096.0*t129-6561.0/4096.0*t139*t120-6561.0/4096.0*t141-6561.0/4096.0*t139*t124;
1628  values[10] = 6561.0/4096.0*t144*t120+6561.0/4096.0*t146+6561.0/4096.0*t144*t124+6561.0/4096.0*t149+6561.0/4096.0*t150+6561.0/4096.0*t151+6561.0/4096.0*t152*t120+6561.0/4096.0*t154+6561.0/4096.0*t152*t124;
1629  values[11] = -2187.0/4096.0*t157*t120-2187.0/4096.0*t159-2187.0/4096.0*t157*t124-2187.0/4096.0*t149-2187.0/4096.0*t150-2187.0/4096.0*t151-2187.0/4096.0*t161*t120-2187.0/4096.0*t163-2187.0/4096.0*t161*t124;
1630  values[12] = -729.0/4096.0*t116*t168-729.0/4096.0*t171-729.0/4096.0*t116*t172-729.0/4096.0*t174-729.0/4096.0*t175-729.0/4096.0*t176-729.0/4096.0*t130*t168-729.0/4096.0*t178-729.0/4096.0*t130*t172;
1631  values[13] = 2187.0/4096.0*t135*t168+2187.0/4096.0*t182+2187.0/4096.0*t135*t172+2187.0/4096.0*t174+2187.0/4096.0*t175+2187.0/4096.0*t176+2187.0/4096.0*t139*t168+2187.0/4096.0*t185+2187.0/4096.0*t139*t172;
1632  values[14] = -2187.0/4096.0*t144*t168-2187.0/4096.0*t189-2187.0/4096.0*t144*t172-2187.0/4096.0*t191-2187.0/4096.0*t192-2187.0/4096.0*t193-2187.0/4096.0*t152*t168-2187.0/4096.0*t195-2187.0/4096.0*t152*t172;
1633  values[15] = 729.0/4096.0*t157*t168+729.0/4096.0*t199+729.0/4096.0*t157*t172+729.0/4096.0*t191+729.0/4096.0*t192+729.0/4096.0*t193+729.0/4096.0*t161*t168+729.0/4096.0*t202+729.0/4096.0*t161*t172;
1634  values[16] = 2187.0/4096.0*t5*t207+2187.0/4096.0*t17+2187.0/4096.0*t5*t210+2187.0/4096.0*t212+2187.0/4096.0*t25+2187.0/4096.0*t213+2187.0/4096.0*t28*t207+2187.0/4096.0*t30+2187.0/4096.0*t28*t210;
1635  values[17] = -6561.0/4096.0*t35*t207-6561.0/4096.0*t37-6561.0/4096.0*t35*t210-6561.0/4096.0*t212-6561.0/4096.0*t25-6561.0/4096.0*t213-6561.0/4096.0*t40*t207-6561.0/4096.0*t42-6561.0/4096.0*t40*t210;
1636  values[18] = 6561.0/4096.0*t48*t207+6561.0/4096.0*t50+6561.0/4096.0*t48*t210+6561.0/4096.0*t224+6561.0/4096.0*t56+6561.0/4096.0*t225+6561.0/4096.0*t59*t207+6561.0/4096.0*t61+6561.0/4096.0*t59*t210;
1637  values[19] = -2187.0/4096.0*t66*t207-2187.0/4096.0*t68-2187.0/4096.0*t66*t210-2187.0/4096.0*t224-2187.0/4096.0*t56-2187.0/4096.0*t225-2187.0/4096.0*t71*t207-2187.0/4096.0*t73-2187.0/4096.0*t71*t210;
1638  values[20] = -6561.0/4096.0*t5*t234-6561.0/4096.0*t81-6561.0/4096.0*t5*t236-6561.0/4096.0*t238-6561.0/4096.0*t85-6561.0/4096.0*t239-6561.0/4096.0*t28*t234-6561.0/4096.0*t88-6561.0/4096.0*t28*t236;
1639  values[21] = 19683.0/4096.0*t35*t234+19683.0/4096.0*t92+19683.0/4096.0*t35*t236+19683.0/4096.0*t238+19683.0/4096.0*t85+19683.0/4096.0*t239+19683.0/4096.0*t40*t234+19683.0/4096.0*t95+19683.0/4096.0*t40*t236;
1640  values[22] = -19683.0/4096.0*t48*t234-19683.0/4096.0*t99-19683.0/4096.0*t48*t236-19683.0/4096.0*t250-19683.0/4096.0*t102-19683.0/4096.0*t251-19683.0/4096.0*t59*t234-19683.0/4096.0*t105-19683.0/4096.0*t59*t236;
1641  values[23] = 6561.0/4096.0*t66*t234+6561.0/4096.0*t109+6561.0/4096.0*t66*t236+6561.0/4096.0*t250+6561.0/4096.0*t102+6561.0/4096.0*t251+6561.0/4096.0*t71*t234+6561.0/4096.0*t112+6561.0/4096.0*t71*t236;
1642  values[24] = -6561.0/4096.0*t116*t260-6561.0/4096.0*t123-6561.0/4096.0*t116*t262-6561.0/4096.0*t264-6561.0/4096.0*t128-6561.0/4096.0*t265-6561.0/4096.0*t130*t260-6561.0/4096.0*t132-6561.0/4096.0*t130*t262;
1643  values[25] = 19683.0/4096.0*t135*t260+19683.0/4096.0*t137+19683.0/4096.0*t135*t262+19683.0/4096.0*t264+19683.0/4096.0*t128+19683.0/4096.0*t265+19683.0/4096.0*t139*t260+19683.0/4096.0*t141+19683.0/4096.0*t139*t262;
1644  values[26] = -19683.0/4096.0*t144*t260-19683.0/4096.0*t146-19683.0/4096.0*t144*t262-19683.0/4096.0*t276-19683.0/4096.0*t150-19683.0/4096.0*t277-19683.0/4096.0*t152*t260-19683.0/4096.0*t154-19683.0/4096.0*t152*t262;
1645  values[27] = 6561.0/4096.0*t157*t260+6561.0/4096.0*t159+6561.0/4096.0*t157*t262+6561.0/4096.0*t276+6561.0/4096.0*t150+6561.0/4096.0*t277+6561.0/4096.0*t161*t260+6561.0/4096.0*t163+6561.0/4096.0*t161*t262;
1646  values[28] = 2187.0/4096.0*t116*t286+2187.0/4096.0*t171+2187.0/4096.0*t116*t288+2187.0/4096.0*t290+2187.0/4096.0*t175+2187.0/4096.0*t291+2187.0/4096.0*t130*t286+2187.0/4096.0*t178+2187.0/4096.0*t130*t288;
1647  values[29] = -6561.0/4096.0*t135*t286-6561.0/4096.0*t182-6561.0/4096.0*t135*t288-6561.0/4096.0*t290-6561.0/4096.0*t175-6561.0/4096.0*t291-6561.0/4096.0*t139*t286-6561.0/4096.0*t185-6561.0/4096.0*t139*t288;
1648  values[30] = 6561.0/4096.0*t144*t286+6561.0/4096.0*t189+6561.0/4096.0*t144*t288+6561.0/4096.0*t302+6561.0/4096.0*t192+6561.0/4096.0*t303+6561.0/4096.0*t152*t286+6561.0/4096.0*t195+6561.0/4096.0*t152*t288;
1649  values[31] = -2187.0/4096.0*t157*t286-2187.0/4096.0*t199-2187.0/4096.0*t157*t288-2187.0/4096.0*t302-2187.0/4096.0*t192-2187.0/4096.0*t303-2187.0/4096.0*t161*t286-2187.0/4096.0*t202-2187.0/4096.0*t161*t288;
1650  values[32] = -2187.0/4096.0*t5*t315-2187.0/4096.0*t320-2187.0/4096.0*t5*t322-2187.0/4096.0*t324-2187.0/4096.0*t325-2187.0/4096.0*t326-2187.0/4096.0*t28*t315-2187.0/4096.0*t328-2187.0/4096.0*t28*t322;
1651  values[33] = 6561.0/4096.0*t35*t315+6561.0/4096.0*t332+6561.0/4096.0*t35*t322+6561.0/4096.0*t324+6561.0/4096.0*t325+6561.0/4096.0*t326+6561.0/4096.0*t40*t315+6561.0/4096.0*t335+6561.0/4096.0*t40*t322;
1652  values[34] = -6561.0/4096.0*t48*t315-6561.0/4096.0*t339-6561.0/4096.0*t48*t322-6561.0/4096.0*t341-6561.0/4096.0*t342-6561.0/4096.0*t343-6561.0/4096.0*t59*t315-6561.0/4096.0*t345-6561.0/4096.0*t59*t322;
1653  values[35] = 2187.0/4096.0*t66*t315+2187.0/4096.0*t349+2187.0/4096.0*t66*t322+2187.0/4096.0*t341+2187.0/4096.0*t342+2187.0/4096.0*t343+2187.0/4096.0*t71*t315+2187.0/4096.0*t352+2187.0/4096.0*t71*t322;
1654  values[36] = 6561.0/4096.0*t5*t355+6561.0/4096.0*t358+6561.0/4096.0*t5*t359+6561.0/4096.0*t361+6561.0/4096.0*t362+6561.0/4096.0*t363+6561.0/4096.0*t28*t355+6561.0/4096.0*t365+6561.0/4096.0*t28*t359;
1655  values[37] = -19683.0/4096.0*t35*t355-19683.0/4096.0*t369-19683.0/4096.0*t35*t359-19683.0/4096.0*t361-19683.0/4096.0*t362-19683.0/4096.0*t363-19683.0/4096.0*t40*t355-19683.0/4096.0*t372-19683.0/4096.0*t40*t359;
1656  values[38] = 19683.0/4096.0*t48*t355+19683.0/4096.0*t376+19683.0/4096.0*t48*t359+19683.0/4096.0*t378+19683.0/4096.0*t379+19683.0/4096.0*t380+19683.0/4096.0*t59*t355+19683.0/4096.0*t382+19683.0/4096.0*t59*t359;
1657  values[39] = -6561.0/4096.0*t66*t355-6561.0/4096.0*t386-6561.0/4096.0*t66*t359-6561.0/4096.0*t378-6561.0/4096.0*t379-6561.0/4096.0*t380-6561.0/4096.0*t71*t355-6561.0/4096.0*t389-6561.0/4096.0*t71*t359;
1658  values[40] = 6561.0/4096.0*t116*t392+6561.0/4096.0*t395+6561.0/4096.0*t116*t396+6561.0/4096.0*t398+6561.0/4096.0*t399+6561.0/4096.0*t400+6561.0/4096.0*t130*t392+6561.0/4096.0*t402+6561.0/4096.0*t130*t396;
1659  values[41] = -19683.0/4096.0*t135*t392-19683.0/4096.0*t406-19683.0/4096.0*t135*t396-19683.0/4096.0*t398-19683.0/4096.0*t399-19683.0/4096.0*t400-19683.0/4096.0*t139*t392-19683.0/4096.0*t409-19683.0/4096.0*t139*t396;
1660  values[42] = 19683.0/4096.0*t144*t392+19683.0/4096.0*t413+19683.0/4096.0*t144*t396+19683.0/4096.0*t415+19683.0/4096.0*t416+19683.0/4096.0*t417+19683.0/4096.0*t152*t392+19683.0/4096.0*t419+19683.0/4096.0*t152*t396;
1661  values[43] = -6561.0/4096.0*t157*t392-6561.0/4096.0*t423-6561.0/4096.0*t157*t396-6561.0/4096.0*t415-6561.0/4096.0*t416-6561.0/4096.0*t417-6561.0/4096.0*t161*t392-6561.0/4096.0*t426-6561.0/4096.0*t161*t396;
1662  values[44] = -2187.0/4096.0*t116*t429-2187.0/4096.0*t432-2187.0/4096.0*t116*t433-2187.0/4096.0*t435-2187.0/4096.0*t436-2187.0/4096.0*t437-2187.0/4096.0*t130*t429-2187.0/4096.0*t439-2187.0/4096.0*t130*t433;
1663  values[45] = 6561.0/4096.0*t135*t429+6561.0/4096.0*t443+6561.0/4096.0*t135*t433+6561.0/4096.0*t435+6561.0/4096.0*t436+6561.0/4096.0*t437+6561.0/4096.0*t139*t429+6561.0/4096.0*t446+6561.0/4096.0*t139*t433;
1664  values[46] = -6561.0/4096.0*t144*t429-6561.0/4096.0*t450-6561.0/4096.0*t144*t433-6561.0/4096.0*t452-6561.0/4096.0*t453-6561.0/4096.0*t454-6561.0/4096.0*t152*t429-6561.0/4096.0*t456-6561.0/4096.0*t152*t433;
1665  values[47] = 2187.0/4096.0*t157*t429+2187.0/4096.0*t460+2187.0/4096.0*t157*t433+2187.0/4096.0*t452+2187.0/4096.0*t453+2187.0/4096.0*t454+2187.0/4096.0*t161*t429+2187.0/4096.0*t463+2187.0/4096.0*t161*t433;
1666  values[48] = 729.0/4096.0*t5*t468+729.0/4096.0*t320+729.0/4096.0*t5*t471+729.0/4096.0*t473+729.0/4096.0*t325+729.0/4096.0*t474+729.0/4096.0*t28*t468+729.0/4096.0*t328+729.0/4096.0*t28*t471;
1667  values[49] = -2187.0/4096.0*t35*t468-2187.0/4096.0*t332-2187.0/4096.0*t35*t471-2187.0/4096.0*t473-2187.0/4096.0*t325-2187.0/4096.0*t474-2187.0/4096.0*t40*t468-2187.0/4096.0*t335-2187.0/4096.0*t40*t471;
1668  values[50] = 2187.0/4096.0*t48*t468+2187.0/4096.0*t339+2187.0/4096.0*t48*t471+2187.0/4096.0*t485+2187.0/4096.0*t342+2187.0/4096.0*t486+2187.0/4096.0*t59*t468+2187.0/4096.0*t345+2187.0/4096.0*t59*t471;
1669  values[51] = -729.0/4096.0*t66*t468-729.0/4096.0*t349-729.0/4096.0*t66*t471-729.0/4096.0*t485-729.0/4096.0*t342-729.0/4096.0*t486-729.0/4096.0*t71*t468-729.0/4096.0*t352-729.0/4096.0*t71*t471;
1670  values[52] = -2187.0/4096.0*t5*t495-2187.0/4096.0*t358-2187.0/4096.0*t5*t497-2187.0/4096.0*t499-2187.0/4096.0*t362-2187.0/4096.0*t500-2187.0/4096.0*t28*t495-2187.0/4096.0*t365-2187.0/4096.0*t28*t497;
1671  values[53] = 6561.0/4096.0*t35*t495+6561.0/4096.0*t369+6561.0/4096.0*t35*t497+6561.0/4096.0*t499+6561.0/4096.0*t362+6561.0/4096.0*t500+6561.0/4096.0*t40*t495+6561.0/4096.0*t372+6561.0/4096.0*t40*t497;
1672  values[54] = -6561.0/4096.0*t48*t495-6561.0/4096.0*t376-6561.0/4096.0*t48*t497-6561.0/4096.0*t511-6561.0/4096.0*t379-6561.0/4096.0*t512-6561.0/4096.0*t59*t495-6561.0/4096.0*t382-6561.0/4096.0*t59*t497;
1673  values[55] = 2187.0/4096.0*t66*t495+2187.0/4096.0*t386+2187.0/4096.0*t66*t497+2187.0/4096.0*t511+2187.0/4096.0*t379+2187.0/4096.0*t512+2187.0/4096.0*t71*t495+2187.0/4096.0*t389+2187.0/4096.0*t71*t497;
1674  values[56] = -2187.0/4096.0*t116*t521-2187.0/4096.0*t395-2187.0/4096.0*t116*t523-2187.0/4096.0*t525-2187.0/4096.0*t399-2187.0/4096.0*t526-2187.0/4096.0*t130*t521-2187.0/4096.0*t402-2187.0/4096.0*t130*t523;
1675  values[57] = 6561.0/4096.0*t135*t521+6561.0/4096.0*t406+6561.0/4096.0*t135*t523+6561.0/4096.0*t525+6561.0/4096.0*t399+6561.0/4096.0*t526+6561.0/4096.0*t139*t521+6561.0/4096.0*t409+6561.0/4096.0*t139*t523;
1676  values[58] = -6561.0/4096.0*t144*t521-6561.0/4096.0*t413-6561.0/4096.0*t144*t523-6561.0/4096.0*t537-6561.0/4096.0*t416-6561.0/4096.0*t538-6561.0/4096.0*t152*t521-6561.0/4096.0*t419-6561.0/4096.0*t152*t523;
1677  values[59] = 2187.0/4096.0*t157*t521+2187.0/4096.0*t423+2187.0/4096.0*t157*t523+2187.0/4096.0*t537+2187.0/4096.0*t416+2187.0/4096.0*t538+2187.0/4096.0*t161*t521+2187.0/4096.0*t426+2187.0/4096.0*t161*t523;
1678  values[60] = 729.0/4096.0*t116*t547+729.0/4096.0*t432+729.0/4096.0*t116*t549+729.0/4096.0*t551+729.0/4096.0*t436+729.0/4096.0*t552+729.0/4096.0*t130*t547+729.0/4096.0*t439+729.0/4096.0*t130*t549;
1679  values[61] = -2187.0/4096.0*t135*t547-2187.0/4096.0*t443-2187.0/4096.0*t135*t549-2187.0/4096.0*t551-2187.0/4096.0*t436-2187.0/4096.0*t552-2187.0/4096.0*t139*t547-2187.0/4096.0*t446-2187.0/4096.0*t139*t549;
1680  values[62] = 2187.0/4096.0*t144*t547+2187.0/4096.0*t450+2187.0/4096.0*t144*t549+2187.0/4096.0*t563+2187.0/4096.0*t453+2187.0/4096.0*t564+2187.0/4096.0*t152*t547+2187.0/4096.0*t456+2187.0/4096.0*t152*t549;
1681  values[63] = -729.0/4096.0*t157*t547-729.0/4096.0*t460-729.0/4096.0*t157*t549-729.0/4096.0*t563-729.0/4096.0*t453-729.0/4096.0*t564-729.0/4096.0*t161*t547-729.0/4096.0*t463-729.0/4096.0*t161*t549;
1682 }
1683 
1684 static void C_H_Q3_3D_DeriveEtaEta(double xi, double eta, double zeta,
1685  double *values)
1686 {
1687  double t1, t4, t5, t6, t7, t8, t10, t11, t12, t13, t14, t15, t16, t18;
1688  double t19, t20, t21, t25, t26, t28, t30, t33, t34, t35, t37, t41, t42;
1689  double t44, t46, t47, t48, t57, t58, t59, t60, t61, t62, t63, t65, t66;
1690  double t67, t68, t70, t72, t74, t76, t78, t80, t82, t83, t84, t94, t95;
1691  double t96, t97, t99, t100, t102, t104, t106, t108, t110, t112, t114;
1692  double t123, t124, t125, t127, t128, t130, t132, t134, t136, t138, t140;
1693  double t142, t151, t152, t154, t155, t156, t157, t158, t159, t161, t162;
1694  double t163, t165, t167, t169, t171, t173, t175, t177, t178, t187, t188;
1695  double t189, t190, t191, t193, t194, t195, t197, t199, t201, t203, t205;
1696  double t207, t209, t210, t220, t221, t222, t223, t225, t226, t228, t230;
1697  double t232, t234, t236, t238, t240, t249, t250, t251, t253, t254, t256;
1698  double t258, t260, t262, t264, t266, t268;
1699 
1700  t1 = xi-1.0;
1701  t4 = xi-1.0/3.0;
1702  t5 = t1*(xi+1.0/3.0)*t4;
1703  t6 = eta-1.0/3.0;
1704  t7 = zeta-1.0;
1705  t8 = t6*t7;
1706  t10 = zeta-1.0/3.0;
1707  t11 = (zeta+1.0/3.0)*t10;
1708  t12 = t8*t11;
1709  t13 = t5*t12;
1710  t14 = eta+1.0/3.0;
1711  t15 = t14*t7;
1712  t16 = t15*t11;
1713  t18 = eta-1.0;
1714  t19 = t18*t7;
1715  t20 = t19*t11;
1716  t21 = t5*t20;
1717  t25 = t1*(xi+1.0)*t4;
1718  t26 = t25*t12;
1719  t28 = t25*t20;
1720  t30 = -xi-1.0;
1721  t33 = -xi-1.0/3.0;
1722  t34 = t30*(-xi+1.0)*t33;
1723  t35 = t34*t12;
1724  t37 = t34*t20;
1725  t41 = t30*(-xi+1.0/3.0)*t33;
1726  t42 = t41*t12;
1727  t44 = t41*t20;
1728  t46 = eta+1.0;
1729  t47 = t46*t7;
1730  t48 = t47*t11;
1731  t57 = -eta-1.0/3.0;
1732  t58 = t57*t7;
1733  t59 = t58*t11;
1734  t60 = t5*t59;
1735  t61 = -eta+1.0;
1736  t62 = t61*t7;
1737  t63 = t62*t11;
1738  t65 = -eta-1.0;
1739  t66 = t65*t7;
1740  t67 = t66*t11;
1741  t68 = t5*t67;
1742  t70 = t25*t59;
1743  t72 = t25*t67;
1744  t74 = t34*t59;
1745  t76 = t34*t67;
1746  t78 = t41*t59;
1747  t80 = t41*t67;
1748  t82 = -eta+1.0/3.0;
1749  t83 = t82*t7;
1750  t84 = t83*t11;
1751  t94 = (zeta+1.0)*t10;
1752  t95 = t8*t94;
1753  t96 = t5*t95;
1754  t97 = t15*t94;
1755  t99 = t19*t94;
1756  t100 = t5*t99;
1757  t102 = t25*t95;
1758  t104 = t25*t99;
1759  t106 = t34*t95;
1760  t108 = t34*t99;
1761  t110 = t41*t95;
1762  t112 = t41*t99;
1763  t114 = t47*t94;
1764  t123 = t58*t94;
1765  t124 = t5*t123;
1766  t125 = t62*t94;
1767  t127 = t66*t94;
1768  t128 = t5*t127;
1769  t130 = t25*t123;
1770  t132 = t25*t127;
1771  t134 = t34*t123;
1772  t136 = t34*t127;
1773  t138 = t41*t123;
1774  t140 = t41*t127;
1775  t142 = t83*t94;
1776  t151 = -zeta-1.0;
1777  t152 = t6*t151;
1778  t154 = -zeta-1.0/3.0;
1779  t155 = (-zeta+1.0)*t154;
1780  t156 = t152*t155;
1781  t157 = t5*t156;
1782  t158 = t14*t151;
1783  t159 = t158*t155;
1784  t161 = t18*t151;
1785  t162 = t161*t155;
1786  t163 = t5*t162;
1787  t165 = t25*t156;
1788  t167 = t25*t162;
1789  t169 = t34*t156;
1790  t171 = t34*t162;
1791  t173 = t41*t156;
1792  t175 = t41*t162;
1793  t177 = t46*t151;
1794  t178 = t177*t155;
1795  t187 = t57*t151;
1796  t188 = t187*t155;
1797  t189 = t5*t188;
1798  t190 = t61*t151;
1799  t191 = t190*t155;
1800  t193 = t65*t151;
1801  t194 = t193*t155;
1802  t195 = t5*t194;
1803  t197 = t25*t188;
1804  t199 = t25*t194;
1805  t201 = t34*t188;
1806  t203 = t34*t194;
1807  t205 = t41*t188;
1808  t207 = t41*t194;
1809  t209 = t82*t151;
1810  t210 = t209*t155;
1811  t220 = (-zeta+1.0/3.0)*t154;
1812  t221 = t152*t220;
1813  t222 = t5*t221;
1814  t223 = t158*t220;
1815  t225 = t161*t220;
1816  t226 = t5*t225;
1817  t228 = t25*t221;
1818  t230 = t25*t225;
1819  t232 = t34*t221;
1820  t234 = t34*t225;
1821  t236 = t41*t221;
1822  t238 = t41*t225;
1823  t240 = t177*t220;
1824  t249 = t187*t220;
1825  t250 = t5*t249;
1826  t251 = t190*t220;
1827  t253 = t193*t220;
1828  t254 = t5*t253;
1829  t256 = t25*t249;
1830  t258 = t25*t253;
1831  t260 = t34*t249;
1832  t262 = t34*t253;
1833  t264 = t41*t249;
1834  t266 = t41*t253;
1835  t268 = t209*t220;
1836 
1837  values[0] = -729.0/2048.0*t13-729.0/2048.0*t5*t16-729.0/2048.0*t21;
1838  values[1] = 2187.0/2048.0*t26+2187.0/2048.0*t25*t16+2187.0/2048.0*t28;
1839  values[2] = 2187.0/2048.0*t35+2187.0/2048.0*t34*t16+2187.0/2048.0*t37;
1840  values[3] = -729.0/2048.0*t42-729.0/2048.0*t41*t16-729.0/2048.0*t44;
1841  values[4] = 2187.0/2048.0*t13+2187.0/2048.0*t5*t48+2187.0/2048.0*t21;
1842  values[5] = -6561.0/2048.0*t26-6561.0/2048.0*t25*t48-6561.0/2048.0*t28;
1843  values[6] = -6561.0/2048.0*t35-6561.0/2048.0*t34*t48-6561.0/2048.0*t37;
1844  values[7] = 2187.0/2048.0*t42+2187.0/2048.0*t41*t48+2187.0/2048.0*t44;
1845  values[8] = 2187.0/2048.0*t60+2187.0/2048.0*t5*t63+2187.0/2048.0*t68;
1846  values[9] = -6561.0/2048.0*t70-6561.0/2048.0*t25*t63-6561.0/2048.0*t72;
1847  values[10] = -6561.0/2048.0*t74-6561.0/2048.0*t34*t63-6561.0/2048.0*t76;
1848  values[11] = 2187.0/2048.0*t78+2187.0/2048.0*t41*t63+2187.0/2048.0*t80;
1849  values[12] = -729.0/2048.0*t60-729.0/2048.0*t5*t84-729.0/2048.0*t68;
1850  values[13] = 2187.0/2048.0*t70+2187.0/2048.0*t25*t84+2187.0/2048.0*t72;
1851  values[14] = 2187.0/2048.0*t74+2187.0/2048.0*t34*t84+2187.0/2048.0*t76;
1852  values[15] = -729.0/2048.0*t78-729.0/2048.0*t41*t84-729.0/2048.0*t80;
1853  values[16] = 2187.0/2048.0*t96+2187.0/2048.0*t5*t97+2187.0/2048.0*t100;
1854  values[17] = -6561.0/2048.0*t102-6561.0/2048.0*t25*t97-6561.0/2048.0*t104;
1855  values[18] = -6561.0/2048.0*t106-6561.0/2048.0*t34*t97-6561.0/2048.0*t108;
1856  values[19] = 2187.0/2048.0*t110+2187.0/2048.0*t41*t97+2187.0/2048.0*t112;
1857  values[20] = -6561.0/2048.0*t96-6561.0/2048.0*t5*t114-6561.0/2048.0*t100;
1858  values[21] = 19683.0/2048.0*t102+19683.0/2048.0*t25*t114+19683.0/2048.0*t104;
1859  values[22] = 19683.0/2048.0*t106+19683.0/2048.0*t34*t114+19683.0/2048.0*t108;
1860  values[23] = -6561.0/2048.0*t110-6561.0/2048.0*t41*t114-6561.0/2048.0*t112;
1861  values[24] = -6561.0/2048.0*t124-6561.0/2048.0*t5*t125-6561.0/2048.0*t128;
1862  values[25] = 19683.0/2048.0*t130+19683.0/2048.0*t25*t125+19683.0/2048.0*t132;
1863  values[26] = 19683.0/2048.0*t134+19683.0/2048.0*t34*t125+19683.0/2048.0*t136;
1864  values[27] = -6561.0/2048.0*t138-6561.0/2048.0*t41*t125-6561.0/2048.0*t140;
1865  values[28] = 2187.0/2048.0*t124+2187.0/2048.0*t5*t142+2187.0/2048.0*t128;
1866  values[29] = -6561.0/2048.0*t130-6561.0/2048.0*t25*t142-6561.0/2048.0*t132;
1867  values[30] = -6561.0/2048.0*t134-6561.0/2048.0*t34*t142-6561.0/2048.0*t136;
1868  values[31] = 2187.0/2048.0*t138+2187.0/2048.0*t41*t142+2187.0/2048.0*t140;
1869  values[32] = 2187.0/2048.0*t157+2187.0/2048.0*t5*t159+2187.0/2048.0*t163;
1870  values[33] = -6561.0/2048.0*t165-6561.0/2048.0*t25*t159-6561.0/2048.0*t167;
1871  values[34] = -6561.0/2048.0*t169-6561.0/2048.0*t34*t159-6561.0/2048.0*t171;
1872  values[35] = 2187.0/2048.0*t173+2187.0/2048.0*t41*t159+2187.0/2048.0*t175;
1873  values[36] = -6561.0/2048.0*t157-6561.0/2048.0*t5*t178-6561.0/2048.0*t163;
1874  values[37] = 19683.0/2048.0*t165+19683.0/2048.0*t25*t178+19683.0/2048.0*t167;
1875  values[38] = 19683.0/2048.0*t169+19683.0/2048.0*t34*t178+19683.0/2048.0*t171;
1876  values[39] = -6561.0/2048.0*t173-6561.0/2048.0*t41*t178-6561.0/2048.0*t175;
1877  values[40] = -6561.0/2048.0*t189-6561.0/2048.0*t5*t191-6561.0/2048.0*t195;
1878  values[41] = 19683.0/2048.0*t197+19683.0/2048.0*t25*t191+19683.0/2048.0*t199;
1879  values[42] = 19683.0/2048.0*t201+19683.0/2048.0*t34*t191+19683.0/2048.0*t203;
1880  values[43] = -6561.0/2048.0*t205-6561.0/2048.0*t41*t191-6561.0/2048.0*t207;
1881  values[44] = 2187.0/2048.0*t189+2187.0/2048.0*t5*t210+2187.0/2048.0*t195;
1882  values[45] = -6561.0/2048.0*t197-6561.0/2048.0*t25*t210-6561.0/2048.0*t199;
1883  values[46] = -6561.0/2048.0*t201-6561.0/2048.0*t34*t210-6561.0/2048.0*t203;
1884  values[47] = 2187.0/2048.0*t205+2187.0/2048.0*t41*t210+2187.0/2048.0*t207;
1885  values[48] = -729.0/2048.0*t222-729.0/2048.0*t5*t223-729.0/2048.0*t226;
1886  values[49] = 2187.0/2048.0*t228+2187.0/2048.0*t25*t223+2187.0/2048.0*t230;
1887  values[50] = 2187.0/2048.0*t232+2187.0/2048.0*t34*t223+2187.0/2048.0*t234;
1888  values[51] = -729.0/2048.0*t236-729.0/2048.0*t41*t223-729.0/2048.0*t238;
1889  values[52] = 2187.0/2048.0*t222+2187.0/2048.0*t5*t240+2187.0/2048.0*t226;
1890  values[53] = -6561.0/2048.0*t228-6561.0/2048.0*t25*t240-6561.0/2048.0*t230;
1891  values[54] = -6561.0/2048.0*t232-6561.0/2048.0*t34*t240-6561.0/2048.0*t234;
1892  values[55] = 2187.0/2048.0*t236+2187.0/2048.0*t41*t240+2187.0/2048.0*t238;
1893  values[56] = 2187.0/2048.0*t250+2187.0/2048.0*t5*t251+2187.0/2048.0*t254;
1894  values[57] = -6561.0/2048.0*t256-6561.0/2048.0*t25*t251-6561.0/2048.0*t258;
1895  values[58] = -6561.0/2048.0*t260-6561.0/2048.0*t34*t251-6561.0/2048.0*t262;
1896  values[59] = 2187.0/2048.0*t264+2187.0/2048.0*t41*t251+2187.0/2048.0*t266;
1897  values[60] = -729.0/2048.0*t250-729.0/2048.0*t5*t268-729.0/2048.0*t254;
1898  values[61] = 2187.0/2048.0*t256+2187.0/2048.0*t25*t268+2187.0/2048.0*t258;
1899  values[62] = 2187.0/2048.0*t260+2187.0/2048.0*t34*t268+2187.0/2048.0*t262;
1900  values[63] = -729.0/2048.0*t264-729.0/2048.0*t41*t268-729.0/2048.0*t266;
1901 }
1902 
1903 static void C_H_Q3_3D_DeriveEtaZeta(double xi, double eta, double zeta,
1904  double *values)
1905 {
1906  double t1, t4, t5, t6, t7, t8, t9, t10, t11, t12, t14, t15, t16, t17;
1907  double t18, t19, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t32;
1908  double t33, t34, t39, t41, t43, t44, t45, t47, t50, t53, t54, t56, t58;
1909  double t59, t60, t62, t67, t69, t71, t72, t73, t75, t78, t79, t80, t82;
1910  double t83, t84, t86, t87, t89, t90, t91, t95, t98, t102, t105, t109;
1911  double t112, t115, t116, t117, t118, t120, t121, t122, t124, t125, t126;
1912  double t127, t128, t129, t130, t131, t132, t133, t135, t136, t137, t141;
1913  double t143, t144, t145, t147, t151, t153, t154, t155, t157, t161, t163;
1914  double t164, t165, t167, t170, t171, t172, t174, t175, t176, t178, t179;
1915  double t181, t182, t183, t187, t190, t194, t197, t201, t204, t207, t208;
1916  double t209, t211, t212, t214, t215, t216, t217, t218, t220, t225, t226;
1917  double t232, t233, t239, t240, t244, t246, t248, t250, t268, t270, t272;
1918  double t273, t274, t275, t276, t278, t283, t284, t290, t291, t297, t298;
1919  double t302, t304, t306, t308, t326, t327, t328, t329, t331, t332, t333;
1920  double t334, t335, t336, t338, t339, t340, t341, t342, t343, t344, t346;
1921  double t347, t348, t352, t354, t355, t356, t358, t362, t364, t365, t366;
1922  double t368, t372, t374, t375, t376, t378, t381, t383, t384, t385, t387;
1923  double t389, t390, t391, t395, t398, t402, t405, t409, t412, t415, t417;
1924  double t418, t419, t421, t422, t423, t424, t425, t426, t427, t429, t430;
1925  double t431, t435, t437, t438, t439, t441, t445, t447, t448, t449, t451;
1926  double t455, t457, t458, t459, t461, t464, t466, t467, t468, t470, t472;
1927  double t473, t474, t478, t481, t485, t488, t492, t495, t498, t499, t500;
1928  double t502, t503, t505, t506, t507, t508, t509, t511, t516, t517, t523;
1929  double t524, t530, t531, t535, t537, t539, t541, t559, t561, t563, t564;
1930  double t565, t566, t567, t569, t574, t575, t581, t582, t588, t589, t593;
1931  double t595, t597, t599;
1932 
1933  t1 = xi-1.0;
1934  t4 = xi-1.0/3.0;
1935  t5 = t1*(xi+1.0/3.0)*t4;
1936  t6 = eta+1.0/3.0;
1937  t7 = eta-1.0/3.0;
1938  t8 = t6*t7;
1939  t9 = zeta+1.0/3.0;
1940  t10 = zeta-1.0/3.0;
1941  t11 = t9*t10;
1942  t12 = t8*t11;
1943  t14 = zeta-1.0;
1944  t15 = t14*t10;
1945  t16 = t8*t15;
1946  t17 = t5*t16;
1947  t18 = t14*t9;
1948  t19 = t8*t18;
1949  t21 = eta-1.0;
1950  t22 = t21*t7;
1951  t23 = t22*t11;
1952  t24 = t5*t23;
1953  t25 = t22*t15;
1954  t26 = t5*t25;
1955  t27 = t22*t18;
1956  t28 = t5*t27;
1957  t29 = t21*t6;
1958  t30 = t29*t11;
1959  t32 = t29*t15;
1960  t33 = t5*t32;
1961  t34 = t29*t18;
1962  t39 = t1*(xi+1.0)*t4;
1963  t41 = t39*t16;
1964  t43 = t39*t23;
1965  t44 = t39*t25;
1966  t45 = t39*t27;
1967  t47 = t39*t32;
1968  t50 = -xi-1.0;
1969  t53 = -xi-1.0/3.0;
1970  t54 = t50*(-xi+1.0)*t53;
1971  t56 = t54*t16;
1972  t58 = t54*t23;
1973  t59 = t54*t25;
1974  t60 = t54*t27;
1975  t62 = t54*t32;
1976  t67 = t50*(-xi+1.0/3.0)*t53;
1977  t69 = t67*t16;
1978  t71 = t67*t23;
1979  t72 = t67*t25;
1980  t73 = t67*t27;
1981  t75 = t67*t32;
1982  t78 = eta+1.0;
1983  t79 = t78*t7;
1984  t80 = t79*t11;
1985  t82 = t79*t15;
1986  t83 = t5*t82;
1987  t84 = t79*t18;
1988  t86 = t21*t78;
1989  t87 = t86*t11;
1990  t89 = t86*t15;
1991  t90 = t5*t89;
1992  t91 = t86*t18;
1993  t95 = t39*t82;
1994  t98 = t39*t89;
1995  t102 = t54*t82;
1996  t105 = t54*t89;
1997  t109 = t67*t82;
1998  t112 = t67*t89;
1999  t115 = -eta+1.0;
2000  t116 = -eta-1.0/3.0;
2001  t117 = t115*t116;
2002  t118 = t117*t11;
2003  t120 = t117*t15;
2004  t121 = t5*t120;
2005  t122 = t117*t18;
2006  t124 = -eta-1.0;
2007  t125 = t124*t116;
2008  t126 = t125*t11;
2009  t127 = t5*t126;
2010  t128 = t125*t15;
2011  t129 = t5*t128;
2012  t130 = t125*t18;
2013  t131 = t5*t130;
2014  t132 = t124*t115;
2015  t133 = t132*t11;
2016  t135 = t132*t15;
2017  t136 = t5*t135;
2018  t137 = t132*t18;
2019  t141 = t39*t120;
2020  t143 = t39*t126;
2021  t144 = t39*t128;
2022  t145 = t39*t130;
2023  t147 = t39*t135;
2024  t151 = t54*t120;
2025  t153 = t54*t126;
2026  t154 = t54*t128;
2027  t155 = t54*t130;
2028  t157 = t54*t135;
2029  t161 = t67*t120;
2030  t163 = t67*t126;
2031  t164 = t67*t128;
2032  t165 = t67*t130;
2033  t167 = t67*t135;
2034  t170 = -eta+1.0/3.0;
2035  t171 = t170*t116;
2036  t172 = t171*t11;
2037  t174 = t171*t15;
2038  t175 = t5*t174;
2039  t176 = t171*t18;
2040  t178 = t124*t170;
2041  t179 = t178*t11;
2042  t181 = t178*t15;
2043  t182 = t5*t181;
2044  t183 = t178*t18;
2045  t187 = t39*t174;
2046  t190 = t39*t181;
2047  t194 = t54*t174;
2048  t197 = t54*t181;
2049  t201 = t67*t174;
2050  t204 = t67*t181;
2051  t207 = zeta+1.0;
2052  t208 = t207*t10;
2053  t209 = t8*t208;
2054  t211 = t14*t207;
2055  t212 = t8*t211;
2056  t214 = t22*t208;
2057  t215 = t5*t214;
2058  t216 = t22*t211;
2059  t217 = t5*t216;
2060  t218 = t29*t208;
2061  t220 = t29*t211;
2062  t225 = t39*t214;
2063  t226 = t39*t216;
2064  t232 = t54*t214;
2065  t233 = t54*t216;
2066  t239 = t67*t214;
2067  t240 = t67*t216;
2068  t244 = t79*t208;
2069  t246 = t79*t211;
2070  t248 = t86*t208;
2071  t250 = t86*t211;
2072  t268 = t117*t208;
2073  t270 = t117*t211;
2074  t272 = t125*t208;
2075  t273 = t5*t272;
2076  t274 = t125*t211;
2077  t275 = t5*t274;
2078  t276 = t132*t208;
2079  t278 = t132*t211;
2080  t283 = t39*t272;
2081  t284 = t39*t274;
2082  t290 = t54*t272;
2083  t291 = t54*t274;
2084  t297 = t67*t272;
2085  t298 = t67*t274;
2086  t302 = t171*t208;
2087  t304 = t171*t211;
2088  t306 = t178*t208;
2089  t308 = t178*t211;
2090  t326 = -zeta+1.0;
2091  t327 = -zeta-1.0/3.0;
2092  t328 = t326*t327;
2093  t329 = t8*t328;
2094  t331 = -zeta-1.0;
2095  t332 = t331*t327;
2096  t333 = t8*t332;
2097  t334 = t5*t333;
2098  t335 = t331*t326;
2099  t336 = t8*t335;
2100  t338 = t22*t328;
2101  t339 = t5*t338;
2102  t340 = t22*t332;
2103  t341 = t5*t340;
2104  t342 = t22*t335;
2105  t343 = t5*t342;
2106  t344 = t29*t328;
2107  t346 = t29*t332;
2108  t347 = t5*t346;
2109  t348 = t29*t335;
2110  t352 = t39*t333;
2111  t354 = t39*t338;
2112  t355 = t39*t340;
2113  t356 = t39*t342;
2114  t358 = t39*t346;
2115  t362 = t54*t333;
2116  t364 = t54*t338;
2117  t365 = t54*t340;
2118  t366 = t54*t342;
2119  t368 = t54*t346;
2120  t372 = t67*t333;
2121  t374 = t67*t338;
2122  t375 = t67*t340;
2123  t376 = t67*t342;
2124  t378 = t67*t346;
2125  t381 = t79*t328;
2126  t383 = t79*t332;
2127  t384 = t5*t383;
2128  t385 = t79*t335;
2129  t387 = t86*t328;
2130  t389 = t86*t332;
2131  t390 = t5*t389;
2132  t391 = t86*t335;
2133  t395 = t39*t383;
2134  t398 = t39*t389;
2135  t402 = t54*t383;
2136  t405 = t54*t389;
2137  t409 = t67*t383;
2138  t412 = t67*t389;
2139  t415 = t117*t328;
2140  t417 = t117*t332;
2141  t418 = t5*t417;
2142  t419 = t117*t335;
2143  t421 = t125*t328;
2144  t422 = t5*t421;
2145  t423 = t125*t332;
2146  t424 = t5*t423;
2147  t425 = t125*t335;
2148  t426 = t5*t425;
2149  t427 = t132*t328;
2150  t429 = t132*t332;
2151  t430 = t5*t429;
2152  t431 = t132*t335;
2153  t435 = t39*t417;
2154  t437 = t39*t421;
2155  t438 = t39*t423;
2156  t439 = t39*t425;
2157  t441 = t39*t429;
2158  t445 = t54*t417;
2159  t447 = t54*t421;
2160  t448 = t54*t423;
2161  t449 = t54*t425;
2162  t451 = t54*t429;
2163  t455 = t67*t417;
2164  t457 = t67*t421;
2165  t458 = t67*t423;
2166  t459 = t67*t425;
2167  t461 = t67*t429;
2168  t464 = t171*t328;
2169  t466 = t171*t332;
2170  t467 = t5*t466;
2171  t468 = t171*t335;
2172  t470 = t178*t328;
2173  t472 = t178*t332;
2174  t473 = t5*t472;
2175  t474 = t178*t335;
2176  t478 = t39*t466;
2177  t481 = t39*t472;
2178  t485 = t54*t466;
2179  t488 = t54*t472;
2180  t492 = t67*t466;
2181  t495 = t67*t472;
2182  t498 = -zeta+1.0/3.0;
2183  t499 = t498*t327;
2184  t500 = t8*t499;
2185  t502 = t331*t498;
2186  t503 = t8*t502;
2187  t505 = t22*t499;
2188  t506 = t5*t505;
2189  t507 = t22*t502;
2190  t508 = t5*t507;
2191  t509 = t29*t499;
2192  t511 = t29*t502;
2193  t516 = t39*t505;
2194  t517 = t39*t507;
2195  t523 = t54*t505;
2196  t524 = t54*t507;
2197  t530 = t67*t505;
2198  t531 = t67*t507;
2199  t535 = t79*t499;
2200  t537 = t79*t502;
2201  t539 = t86*t499;
2202  t541 = t86*t502;
2203  t559 = t117*t499;
2204  t561 = t117*t502;
2205  t563 = t125*t499;
2206  t564 = t5*t563;
2207  t565 = t125*t502;
2208  t566 = t5*t565;
2209  t567 = t132*t499;
2210  t569 = t132*t502;
2211  t574 = t39*t563;
2212  t575 = t39*t565;
2213  t581 = t54*t563;
2214  t582 = t54*t565;
2215  t588 = t67*t563;
2216  t589 = t67*t565;
2217  t593 = t171*t499;
2218  t595 = t171*t502;
2219  t597 = t178*t499;
2220  t599 = t178*t502;
2221 
2222  values[0] = -729.0/4096.0*t5*t12-729.0/4096.0*t17-729.0/4096.0*t5*t19-729.0/4096.0*t24-729.0/4096.0*t26-729.0/4096.0*t28-729.0/4096.0*t5*t30-729.0/4096.0*t33-729.0/4096.0*t5*t34;
2223  values[1] = 2187.0/4096.0*t39*t12+2187.0/4096.0*t41+2187.0/4096.0*t39*t19+2187.0/4096.0*t43+2187.0/4096.0*t44+2187.0/4096.0*t45+2187.0/4096.0*t39*t30+2187.0/4096.0*t47+2187.0/4096.0*t39*t34;
2224  values[2] = 2187.0/4096.0*t54*t12+2187.0/4096.0*t56+2187.0/4096.0*t54*t19+2187.0/4096.0*t58+2187.0/4096.0*t59+2187.0/4096.0*t60+2187.0/4096.0*t54*t30+2187.0/4096.0*t62+2187.0/4096.0*t54*t34;
2225  values[3] = -729.0/4096.0*t67*t12-729.0/4096.0*t69-729.0/4096.0*t67*t19-729.0/4096.0*t71-729.0/4096.0*t72-729.0/4096.0*t73-729.0/4096.0*t67*t30-729.0/4096.0*t75-729.0/4096.0*t67*t34;
2226  values[4] = 2187.0/4096.0*t5*t80+2187.0/4096.0*t83+2187.0/4096.0*t5*t84+2187.0/4096.0*t24+2187.0/4096.0*t26+2187.0/4096.0*t28+2187.0/4096.0*t5*t87+2187.0/4096.0*t90+2187.0/4096.0*t5*t91;
2227  values[5] = -6561.0/4096.0*t39*t80-6561.0/4096.0*t95-6561.0/4096.0*t39*t84-6561.0/4096.0*t43-6561.0/4096.0*t44-6561.0/4096.0*t45-6561.0/4096.0*t39*t87-6561.0/4096.0*t98-6561.0/4096.0*t39*t91;
2228  values[6] = -6561.0/4096.0*t54*t80-6561.0/4096.0*t102-6561.0/4096.0*t54*t84-6561.0/4096.0*t58-6561.0/4096.0*t59-6561.0/4096.0*t60-6561.0/4096.0*t54*t87-6561.0/4096.0*t105-6561.0/4096.0*t54*t91;
2229  values[7] = 2187.0/4096.0*t67*t80+2187.0/4096.0*t109+2187.0/4096.0*t67*t84+2187.0/4096.0*t71+2187.0/4096.0*t72+2187.0/4096.0*t73+2187.0/4096.0*t67*t87+2187.0/4096.0*t112+2187.0/4096.0*t67*t91;
2230  values[8] = -2187.0/4096.0*t5*t118-2187.0/4096.0*t121-2187.0/4096.0*t5*t122-2187.0/4096.0*t127-2187.0/4096.0*t129-2187.0/4096.0*t131-2187.0/4096.0*t5*t133-2187.0/4096.0*t136-2187.0/4096.0*t5*t137;
2231  values[9] = 6561.0/4096.0*t39*t118+6561.0/4096.0*t141+6561.0/4096.0*t39*t122+6561.0/4096.0*t143+6561.0/4096.0*t144+6561.0/4096.0*t145+6561.0/4096.0*t39*t133+6561.0/4096.0*t147+6561.0/4096.0*t39*t137;
2232  values[10] = 6561.0/4096.0*t54*t118+6561.0/4096.0*t151+6561.0/4096.0*t54*t122+6561.0/4096.0*t153+6561.0/4096.0*t154+6561.0/4096.0*t155+6561.0/4096.0*t54*t133+6561.0/4096.0*t157+6561.0/4096.0*t54*t137;
2233  values[11] = -2187.0/4096.0*t67*t118-2187.0/4096.0*t161-2187.0/4096.0*t67*t122-2187.0/4096.0*t163-2187.0/4096.0*t164-2187.0/4096.0*t165-2187.0/4096.0*t67*t133-2187.0/4096.0*t167-2187.0/4096.0*t67*t137;
2234  values[12] = 729.0/4096.0*t5*t172+729.0/4096.0*t175+729.0/4096.0*t5*t176+729.0/4096.0*t127+729.0/4096.0*t129+729.0/4096.0*t131+729.0/4096.0*t5*t179+729.0/4096.0*t182+729.0/4096.0*t5*t183;
2235  values[13] = -2187.0/4096.0*t39*t172-2187.0/4096.0*t187-2187.0/4096.0*t39*t176-2187.0/4096.0*t143-2187.0/4096.0*t144-2187.0/4096.0*t145-2187.0/4096.0*t39*t179-2187.0/4096.0*t190-2187.0/4096.0*t39*t183;
2236  values[14] = -2187.0/4096.0*t54*t172-2187.0/4096.0*t194-2187.0/4096.0*t54*t176-2187.0/4096.0*t153-2187.0/4096.0*t154-2187.0/4096.0*t155-2187.0/4096.0*t54*t179-2187.0/4096.0*t197-2187.0/4096.0*t54*t183;
2237  values[15] = 729.0/4096.0*t67*t172+729.0/4096.0*t201+729.0/4096.0*t67*t176+729.0/4096.0*t163+729.0/4096.0*t164+729.0/4096.0*t165+729.0/4096.0*t67*t179+729.0/4096.0*t204+729.0/4096.0*t67*t183;
2238  values[16] = 2187.0/4096.0*t5*t209+2187.0/4096.0*t17+2187.0/4096.0*t5*t212+2187.0/4096.0*t215+2187.0/4096.0*t26+2187.0/4096.0*t217+2187.0/4096.0*t5*t218+2187.0/4096.0*t33+2187.0/4096.0*t5*t220;
2239  values[17] = -6561.0/4096.0*t39*t209-6561.0/4096.0*t41-6561.0/4096.0*t39*t212-6561.0/4096.0*t225-6561.0/4096.0*t44-6561.0/4096.0*t226-6561.0/4096.0*t39*t218-6561.0/4096.0*t47-6561.0/4096.0*t39*t220;
2240  values[18] = -6561.0/4096.0*t54*t209-6561.0/4096.0*t56-6561.0/4096.0*t54*t212-6561.0/4096.0*t232-6561.0/4096.0*t59-6561.0/4096.0*t233-6561.0/4096.0*t54*t218-6561.0/4096.0*t62-6561.0/4096.0*t54*t220;
2241  values[19] = 2187.0/4096.0*t67*t209+2187.0/4096.0*t69+2187.0/4096.0*t67*t212+2187.0/4096.0*t239+2187.0/4096.0*t72+2187.0/4096.0*t240+2187.0/4096.0*t67*t218+2187.0/4096.0*t75+2187.0/4096.0*t67*t220;
2242  values[20] = -6561.0/4096.0*t5*t244-6561.0/4096.0*t83-6561.0/4096.0*t5*t246-6561.0/4096.0*t215-6561.0/4096.0*t26-6561.0/4096.0*t217-6561.0/4096.0*t5*t248-6561.0/4096.0*t90-6561.0/4096.0*t5*t250;
2243  values[21] = 19683.0/4096.0*t39*t244+19683.0/4096.0*t95+19683.0/4096.0*t39*t246+19683.0/4096.0*t225+19683.0/4096.0*t44+19683.0/4096.0*t226+19683.0/4096.0*t39*t248+19683.0/4096.0*t98+19683.0/4096.0*t39*t250;
2244  values[22] = 19683.0/4096.0*t54*t244+19683.0/4096.0*t102+19683.0/4096.0*t54*t246+19683.0/4096.0*t232+19683.0/4096.0*t59+19683.0/4096.0*t233+19683.0/4096.0*t54*t248+19683.0/4096.0*t105+19683.0/4096.0*t54*t250;
2245  values[23] = -6561.0/4096.0*t67*t244-6561.0/4096.0*t109-6561.0/4096.0*t67*t246-6561.0/4096.0*t239-6561.0/4096.0*t72-6561.0/4096.0*t240-6561.0/4096.0*t67*t248-6561.0/4096.0*t112-6561.0/4096.0*t67*t250;
2246  values[24] = 6561.0/4096.0*t5*t268+6561.0/4096.0*t121+6561.0/4096.0*t5*t270+6561.0/4096.0*t273+6561.0/4096.0*t129+6561.0/4096.0*t275+6561.0/4096.0*t5*t276+6561.0/4096.0*t136+6561.0/4096.0*t5*t278;
2247  values[25] = -19683.0/4096.0*t39*t268-19683.0/4096.0*t141-19683.0/4096.0*t39*t270-19683.0/4096.0*t283-19683.0/4096.0*t144-19683.0/4096.0*t284-19683.0/4096.0*t39*t276-19683.0/4096.0*t147-19683.0/4096.0*t39*t278;
2248  values[26] = -19683.0/4096.0*t54*t268-19683.0/4096.0*t151-19683.0/4096.0*t54*t270-19683.0/4096.0*t290-19683.0/4096.0*t154-19683.0/4096.0*t291-19683.0/4096.0*t54*t276-19683.0/4096.0*t157-19683.0/4096.0*t54*t278;
2249  values[27] = 6561.0/4096.0*t67*t268+6561.0/4096.0*t161+6561.0/4096.0*t67*t270+6561.0/4096.0*t297+6561.0/4096.0*t164+6561.0/4096.0*t298+6561.0/4096.0*t67*t276+6561.0/4096.0*t167+6561.0/4096.0*t67*t278;
2250  values[28] = -2187.0/4096.0*t5*t302-2187.0/4096.0*t175-2187.0/4096.0*t5*t304-2187.0/4096.0*t273-2187.0/4096.0*t129-2187.0/4096.0*t275-2187.0/4096.0*t5*t306-2187.0/4096.0*t182-2187.0/4096.0*t5*t308;
2251  values[29] = 6561.0/4096.0*t39*t302+6561.0/4096.0*t187+6561.0/4096.0*t39*t304+6561.0/4096.0*t283+6561.0/4096.0*t144+6561.0/4096.0*t284+6561.0/4096.0*t39*t306+6561.0/4096.0*t190+6561.0/4096.0*t39*t308;
2252  values[30] = 6561.0/4096.0*t54*t302+6561.0/4096.0*t194+6561.0/4096.0*t54*t304+6561.0/4096.0*t290+6561.0/4096.0*t154+6561.0/4096.0*t291+6561.0/4096.0*t54*t306+6561.0/4096.0*t197+6561.0/4096.0*t54*t308;
2253  values[31] = -2187.0/4096.0*t67*t302-2187.0/4096.0*t201-2187.0/4096.0*t67*t304-2187.0/4096.0*t297-2187.0/4096.0*t164-2187.0/4096.0*t298-2187.0/4096.0*t67*t306-2187.0/4096.0*t204-2187.0/4096.0*t67*t308;
2254  values[32] = -2187.0/4096.0*t5*t329-2187.0/4096.0*t334-2187.0/4096.0*t5*t336-2187.0/4096.0*t339-2187.0/4096.0*t341-2187.0/4096.0*t343-2187.0/4096.0*t5*t344-2187.0/4096.0*t347-2187.0/4096.0*t5*t348;
2255  values[33] = 6561.0/4096.0*t39*t329+6561.0/4096.0*t352+6561.0/4096.0*t39*t336+6561.0/4096.0*t354+6561.0/4096.0*t355+6561.0/4096.0*t356+6561.0/4096.0*t39*t344+6561.0/4096.0*t358+6561.0/4096.0*t39*t348;
2256  values[34] = 6561.0/4096.0*t54*t329+6561.0/4096.0*t362+6561.0/4096.0*t54*t336+6561.0/4096.0*t364+6561.0/4096.0*t365+6561.0/4096.0*t366+6561.0/4096.0*t54*t344+6561.0/4096.0*t368+6561.0/4096.0*t54*t348;
2257  values[35] = -2187.0/4096.0*t67*t329-2187.0/4096.0*t372-2187.0/4096.0*t67*t336-2187.0/4096.0*t374-2187.0/4096.0*t375-2187.0/4096.0*t376-2187.0/4096.0*t67*t344-2187.0/4096.0*t378-2187.0/4096.0*t67*t348;
2258  values[36] = 6561.0/4096.0*t5*t381+6561.0/4096.0*t384+6561.0/4096.0*t5*t385+6561.0/4096.0*t339+6561.0/4096.0*t341+6561.0/4096.0*t343+6561.0/4096.0*t5*t387+6561.0/4096.0*t390+6561.0/4096.0*t5*t391;
2259  values[37] = -19683.0/4096.0*t39*t381-19683.0/4096.0*t395-19683.0/4096.0*t39*t385-19683.0/4096.0*t354-19683.0/4096.0*t355-19683.0/4096.0*t356-19683.0/4096.0*t39*t387-19683.0/4096.0*t398-19683.0/4096.0*t39*t391;
2260  values[38] = -19683.0/4096.0*t54*t381-19683.0/4096.0*t402-19683.0/4096.0*t54*t385-19683.0/4096.0*t364-19683.0/4096.0*t365-19683.0/4096.0*t366-19683.0/4096.0*t54*t387-19683.0/4096.0*t405-19683.0/4096.0*t54*t391;
2261  values[39] = 6561.0/4096.0*t67*t381+6561.0/4096.0*t409+6561.0/4096.0*t67*t385+6561.0/4096.0*t374+6561.0/4096.0*t375+6561.0/4096.0*t376+6561.0/4096.0*t67*t387+6561.0/4096.0*t412+6561.0/4096.0*t67*t391;
2262  values[40] = -6561.0/4096.0*t5*t415-6561.0/4096.0*t418-6561.0/4096.0*t5*t419-6561.0/4096.0*t422-6561.0/4096.0*t424-6561.0/4096.0*t426-6561.0/4096.0*t5*t427-6561.0/4096.0*t430-6561.0/4096.0*t5*t431;
2263  values[41] = 19683.0/4096.0*t39*t415+19683.0/4096.0*t435+19683.0/4096.0*t39*t419+19683.0/4096.0*t437+19683.0/4096.0*t438+19683.0/4096.0*t439+19683.0/4096.0*t39*t427+19683.0/4096.0*t441+19683.0/4096.0*t39*t431;
2264  values[42] = 19683.0/4096.0*t54*t415+19683.0/4096.0*t445+19683.0/4096.0*t54*t419+19683.0/4096.0*t447+19683.0/4096.0*t448+19683.0/4096.0*t449+19683.0/4096.0*t54*t427+19683.0/4096.0*t451+19683.0/4096.0*t54*t431;
2265  values[43] = -6561.0/4096.0*t67*t415-6561.0/4096.0*t455-6561.0/4096.0*t67*t419-6561.0/4096.0*t457-6561.0/4096.0*t458-6561.0/4096.0*t459-6561.0/4096.0*t67*t427-6561.0/4096.0*t461-6561.0/4096.0*t67*t431;
2266  values[44] = 2187.0/4096.0*t5*t464+2187.0/4096.0*t467+2187.0/4096.0*t5*t468+2187.0/4096.0*t422+2187.0/4096.0*t424+2187.0/4096.0*t426+2187.0/4096.0*t5*t470+2187.0/4096.0*t473+2187.0/4096.0*t5*t474;
2267  values[45] = -6561.0/4096.0*t39*t464-6561.0/4096.0*t478-6561.0/4096.0*t39*t468-6561.0/4096.0*t437-6561.0/4096.0*t438-6561.0/4096.0*t439-6561.0/4096.0*t39*t470-6561.0/4096.0*t481-6561.0/4096.0*t39*t474;
2268  values[46] = -6561.0/4096.0*t54*t464-6561.0/4096.0*t485-6561.0/4096.0*t54*t468-6561.0/4096.0*t447-6561.0/4096.0*t448-6561.0/4096.0*t449-6561.0/4096.0*t54*t470-6561.0/4096.0*t488-6561.0/4096.0*t54*t474;
2269  values[47] = 2187.0/4096.0*t67*t464+2187.0/4096.0*t492+2187.0/4096.0*t67*t468+2187.0/4096.0*t457+2187.0/4096.0*t458+2187.0/4096.0*t459+2187.0/4096.0*t67*t470+2187.0/4096.0*t495+2187.0/4096.0*t67*t474;
2270  values[48] = 729.0/4096.0*t5*t500+729.0/4096.0*t334+729.0/4096.0*t5*t503+729.0/4096.0*t506+729.0/4096.0*t341+729.0/4096.0*t508+729.0/4096.0*t5*t509+729.0/4096.0*t347+729.0/4096.0*t5*t511;
2271  values[49] = -2187.0/4096.0*t39*t500-2187.0/4096.0*t352-2187.0/4096.0*t39*t503-2187.0/4096.0*t516-2187.0/4096.0*t355-2187.0/4096.0*t517-2187.0/4096.0*t39*t509-2187.0/4096.0*t358-2187.0/4096.0*t39*t511;
2272  values[50] = -2187.0/4096.0*t54*t500-2187.0/4096.0*t362-2187.0/4096.0*t54*t503-2187.0/4096.0*t523-2187.0/4096.0*t365-2187.0/4096.0*t524-2187.0/4096.0*t54*t509-2187.0/4096.0*t368-2187.0/4096.0*t54*t511;
2273  values[51] = 729.0/4096.0*t67*t500+729.0/4096.0*t372+729.0/4096.0*t67*t503+729.0/4096.0*t530+729.0/4096.0*t375+729.0/4096.0*t531+729.0/4096.0*t67*t509+729.0/4096.0*t378+729.0/4096.0*t67*t511;
2274  values[52] = -2187.0/4096.0*t5*t535-2187.0/4096.0*t384-2187.0/4096.0*t5*t537-2187.0/4096.0*t506-2187.0/4096.0*t341-2187.0/4096.0*t508-2187.0/4096.0*t5*t539-2187.0/4096.0*t390-2187.0/4096.0*t5*t541;
2275  values[53] = 6561.0/4096.0*t39*t535+6561.0/4096.0*t395+6561.0/4096.0*t39*t537+6561.0/4096.0*t516+6561.0/4096.0*t355+6561.0/4096.0*t517+6561.0/4096.0*t39*t539+6561.0/4096.0*t398+6561.0/4096.0*t39*t541;
2276  values[54] = 6561.0/4096.0*t54*t535+6561.0/4096.0*t402+6561.0/4096.0*t54*t537+6561.0/4096.0*t523+6561.0/4096.0*t365+6561.0/4096.0*t524+6561.0/4096.0*t54*t539+6561.0/4096.0*t405+6561.0/4096.0*t54*t541;
2277  values[55] = -2187.0/4096.0*t67*t535-2187.0/4096.0*t409-2187.0/4096.0*t67*t537-2187.0/4096.0*t530-2187.0/4096.0*t375-2187.0/4096.0*t531-2187.0/4096.0*t67*t539-2187.0/4096.0*t412-2187.0/4096.0*t67*t541;
2278  values[56] = 2187.0/4096.0*t5*t559+2187.0/4096.0*t418+2187.0/4096.0*t5*t561+2187.0/4096.0*t564+2187.0/4096.0*t424+2187.0/4096.0*t566+2187.0/4096.0*t5*t567+2187.0/4096.0*t430+2187.0/4096.0*t5*t569;
2279  values[57] = -6561.0/4096.0*t39*t559-6561.0/4096.0*t435-6561.0/4096.0*t39*t561-6561.0/4096.0*t574-6561.0/4096.0*t438-6561.0/4096.0*t575-6561.0/4096.0*t39*t567-6561.0/4096.0*t441-6561.0/4096.0*t39*t569;
2280  values[58] = -6561.0/4096.0*t54*t559-6561.0/4096.0*t445-6561.0/4096.0*t54*t561-6561.0/4096.0*t581-6561.0/4096.0*t448-6561.0/4096.0*t582-6561.0/4096.0*t54*t567-6561.0/4096.0*t451-6561.0/4096.0*t54*t569;
2281  values[59] = 2187.0/4096.0*t67*t559+2187.0/4096.0*t455+2187.0/4096.0*t67*t561+2187.0/4096.0*t588+2187.0/4096.0*t458+2187.0/4096.0*t589+2187.0/4096.0*t67*t567+2187.0/4096.0*t461+2187.0/4096.0*t67*t569;
2282  values[60] = -729.0/4096.0*t5*t593-729.0/4096.0*t467-729.0/4096.0*t5*t595-729.0/4096.0*t564-729.0/4096.0*t424-729.0/4096.0*t566-729.0/4096.0*t5*t597-729.0/4096.0*t473-729.0/4096.0*t5*t599;
2283  values[61] = 2187.0/4096.0*t39*t593+2187.0/4096.0*t478+2187.0/4096.0*t39*t595+2187.0/4096.0*t574+2187.0/4096.0*t438+2187.0/4096.0*t575+2187.0/4096.0*t39*t597+2187.0/4096.0*t481+2187.0/4096.0*t39*t599;
2284  values[62] = 2187.0/4096.0*t54*t593+2187.0/4096.0*t485+2187.0/4096.0*t54*t595+2187.0/4096.0*t581+2187.0/4096.0*t448+2187.0/4096.0*t582+2187.0/4096.0*t54*t597+2187.0/4096.0*t488+2187.0/4096.0*t54*t599;
2285  values[63] = -729.0/4096.0*t67*t593-729.0/4096.0*t492-729.0/4096.0*t67*t595-729.0/4096.0*t588-729.0/4096.0*t458-729.0/4096.0*t589-729.0/4096.0*t67*t597-729.0/4096.0*t495-729.0/4096.0*t67*t599;
2286 }
2287 
2288 static void C_H_Q3_3D_DeriveZetaZeta(double xi, double eta, double zeta,
2289  double *values)
2290 {
2291  double t1, t4, t5, t6, t8, t9, t10, t11, t12, t13, t14, t15, t16, t18;
2292  double t19, t20, t21, t25, t26, t28, t30, t33, t34, t35, t37, t41, t42;
2293  double t44, t47, t48, t49, t50, t52, t53, t55, t57, t59, t61, t63, t65;
2294  double t67, t69, t70, t71, t72, t73, t74, t75, t77, t78, t79, t81, t83;
2295  double t85, t87, t89, t91, t94, t95, t96, t97, t99, t100, t102, t104;
2296  double t106, t108, t110, t112, t114, t115, t116, t125, t134, t135, t144;
2297  double t153, t154, t155, t156, t157, t158, t159, t161, t162, t163, t164;
2298  double t166, t168, t170, t172, t174, t176, t178, t179, t180, t182, t183;
2299  double t185, t187, t189, t191, t193, t195, t197, t198, t199, t200, t201;
2300  double t203, t204, t205, t207, t209, t211, t213, t215, t217, t219, t220;
2301  double t221, t223, t224, t226, t228, t230, t232, t234, t236, t238, t239;
2302  double t240, t249, t258, t259, t268;
2303 
2304  t1 = xi-1.0;
2305  t4 = xi-1.0/3.0;
2306  t5 = t1*(xi+1.0/3.0)*t4;
2307  t6 = eta-1.0;
2308  t8 = t6*(eta+1.0/3.0);
2309  t9 = eta-1.0/3.0;
2310  t10 = zeta-1.0/3.0;
2311  t11 = t9*t10;
2312  t12 = t8*t11;
2313  t13 = t5*t12;
2314  t14 = zeta+1.0/3.0;
2315  t15 = t9*t14;
2316  t16 = t8*t15;
2317  t18 = zeta-1.0;
2318  t19 = t9*t18;
2319  t20 = t8*t19;
2320  t21 = t5*t20;
2321  t25 = t1*(xi+1.0)*t4;
2322  t26 = t25*t12;
2323  t28 = t25*t20;
2324  t30 = -xi-1.0;
2325  t33 = -xi-1.0/3.0;
2326  t34 = t30*(-xi+1.0)*t33;
2327  t35 = t34*t12;
2328  t37 = t34*t20;
2329  t41 = t30*(-xi+1.0/3.0)*t33;
2330  t42 = t41*t12;
2331  t44 = t41*t20;
2332  t47 = t6*(eta+1.0);
2333  t48 = t47*t11;
2334  t49 = t5*t48;
2335  t50 = t47*t15;
2336  t52 = t47*t19;
2337  t53 = t5*t52;
2338  t55 = t25*t48;
2339  t57 = t25*t52;
2340  t59 = t34*t48;
2341  t61 = t34*t52;
2342  t63 = t41*t48;
2343  t65 = t41*t52;
2344  t67 = -eta-1.0;
2345  t69 = t67*(-eta+1.0);
2346  t70 = -eta-1.0/3.0;
2347  t71 = t70*t10;
2348  t72 = t69*t71;
2349  t73 = t5*t72;
2350  t74 = t70*t14;
2351  t75 = t69*t74;
2352  t77 = t70*t18;
2353  t78 = t69*t77;
2354  t79 = t5*t78;
2355  t81 = t25*t72;
2356  t83 = t25*t78;
2357  t85 = t34*t72;
2358  t87 = t34*t78;
2359  t89 = t41*t72;
2360  t91 = t41*t78;
2361  t94 = t67*(-eta+1.0/3.0);
2362  t95 = t94*t71;
2363  t96 = t5*t95;
2364  t97 = t94*t74;
2365  t99 = t94*t77;
2366  t100 = t5*t99;
2367  t102 = t25*t95;
2368  t104 = t25*t99;
2369  t106 = t34*t95;
2370  t108 = t34*t99;
2371  t110 = t41*t95;
2372  t112 = t41*t99;
2373  t114 = zeta+1.0;
2374  t115 = t9*t114;
2375  t116 = t8*t115;
2376  t125 = t47*t115;
2377  t134 = t70*t114;
2378  t135 = t69*t134;
2379  t144 = t94*t134;
2380  t153 = -zeta-1.0/3.0;
2381  t154 = t9*t153;
2382  t155 = t8*t154;
2383  t156 = t5*t155;
2384  t157 = -zeta+1.0;
2385  t158 = t9*t157;
2386  t159 = t8*t158;
2387  t161 = -zeta-1.0;
2388  t162 = t9*t161;
2389  t163 = t8*t162;
2390  t164 = t5*t163;
2391  t166 = t25*t155;
2392  t168 = t25*t163;
2393  t170 = t34*t155;
2394  t172 = t34*t163;
2395  t174 = t41*t155;
2396  t176 = t41*t163;
2397  t178 = t47*t154;
2398  t179 = t5*t178;
2399  t180 = t47*t158;
2400  t182 = t47*t162;
2401  t183 = t5*t182;
2402  t185 = t25*t178;
2403  t187 = t25*t182;
2404  t189 = t34*t178;
2405  t191 = t34*t182;
2406  t193 = t41*t178;
2407  t195 = t41*t182;
2408  t197 = t70*t153;
2409  t198 = t69*t197;
2410  t199 = t5*t198;
2411  t200 = t70*t157;
2412  t201 = t69*t200;
2413  t203 = t70*t161;
2414  t204 = t69*t203;
2415  t205 = t5*t204;
2416  t207 = t25*t198;
2417  t209 = t25*t204;
2418  t211 = t34*t198;
2419  t213 = t34*t204;
2420  t215 = t41*t198;
2421  t217 = t41*t204;
2422  t219 = t94*t197;
2423  t220 = t5*t219;
2424  t221 = t94*t200;
2425  t223 = t94*t203;
2426  t224 = t5*t223;
2427  t226 = t25*t219;
2428  t228 = t25*t223;
2429  t230 = t34*t219;
2430  t232 = t34*t223;
2431  t234 = t41*t219;
2432  t236 = t41*t223;
2433  t238 = -zeta+1.0/3.0;
2434  t239 = t9*t238;
2435  t240 = t8*t239;
2436  t249 = t47*t239;
2437  t258 = t70*t238;
2438  t259 = t69*t258;
2439  t268 = t94*t258;
2440 
2441  values[0] = -729.0/2048.0*t13-729.0/2048.0*t5*t16-729.0/2048.0*t21;
2442  values[1] = 2187.0/2048.0*t26+2187.0/2048.0*t25*t16+2187.0/2048.0*t28;
2443  values[2] = 2187.0/2048.0*t35+2187.0/2048.0*t34*t16+2187.0/2048.0*t37;
2444  values[3] = -729.0/2048.0*t42-729.0/2048.0*t41*t16-729.0/2048.0*t44;
2445  values[4] = 2187.0/2048.0*t49+2187.0/2048.0*t5*t50+2187.0/2048.0*t53;
2446  values[5] = -6561.0/2048.0*t55-6561.0/2048.0*t25*t50-6561.0/2048.0*t57;
2447  values[6] = -6561.0/2048.0*t59-6561.0/2048.0*t34*t50-6561.0/2048.0*t61;
2448  values[7] = 2187.0/2048.0*t63+2187.0/2048.0*t41*t50+2187.0/2048.0*t65;
2449  values[8] = 2187.0/2048.0*t73+2187.0/2048.0*t5*t75+2187.0/2048.0*t79;
2450  values[9] = -6561.0/2048.0*t81-6561.0/2048.0*t25*t75-6561.0/2048.0*t83;
2451  values[10] = -6561.0/2048.0*t85-6561.0/2048.0*t34*t75-6561.0/2048.0*t87;
2452  values[11] = 2187.0/2048.0*t89+2187.0/2048.0*t41*t75+2187.0/2048.0*t91;
2453  values[12] = -729.0/2048.0*t96-729.0/2048.0*t5*t97-729.0/2048.0*t100;
2454  values[13] = 2187.0/2048.0*t102+2187.0/2048.0*t25*t97+2187.0/2048.0*t104;
2455  values[14] = 2187.0/2048.0*t106+2187.0/2048.0*t34*t97+2187.0/2048.0*t108;
2456  values[15] = -729.0/2048.0*t110-729.0/2048.0*t41*t97-729.0/2048.0*t112;
2457  values[16] = 2187.0/2048.0*t13+2187.0/2048.0*t5*t116+2187.0/2048.0*t21;
2458  values[17] = -6561.0/2048.0*t26-6561.0/2048.0*t25*t116-6561.0/2048.0*t28;
2459  values[18] = -6561.0/2048.0*t35-6561.0/2048.0*t34*t116-6561.0/2048.0*t37;
2460  values[19] = 2187.0/2048.0*t42+2187.0/2048.0*t41*t116+2187.0/2048.0*t44;
2461  values[20] = -6561.0/2048.0*t49-6561.0/2048.0*t5*t125-6561.0/2048.0*t53;
2462  values[21] = 19683.0/2048.0*t55+19683.0/2048.0*t25*t125+19683.0/2048.0*t57;
2463  values[22] = 19683.0/2048.0*t59+19683.0/2048.0*t34*t125+19683.0/2048.0*t61;
2464  values[23] = -6561.0/2048.0*t63-6561.0/2048.0*t41*t125-6561.0/2048.0*t65;
2465  values[24] = -6561.0/2048.0*t73-6561.0/2048.0*t5*t135-6561.0/2048.0*t79;
2466  values[25] = 19683.0/2048.0*t81+19683.0/2048.0*t25*t135+19683.0/2048.0*t83;
2467  values[26] = 19683.0/2048.0*t85+19683.0/2048.0*t34*t135+19683.0/2048.0*t87;
2468  values[27] = -6561.0/2048.0*t89-6561.0/2048.0*t41*t135-6561.0/2048.0*t91;
2469  values[28] = 2187.0/2048.0*t96+2187.0/2048.0*t5*t144+2187.0/2048.0*t100;
2470  values[29] = -6561.0/2048.0*t102-6561.0/2048.0*t25*t144-6561.0/2048.0*t104;
2471  values[30] = -6561.0/2048.0*t106-6561.0/2048.0*t34*t144-6561.0/2048.0*t108;
2472  values[31] = 2187.0/2048.0*t110+2187.0/2048.0*t41*t144+2187.0/2048.0*t112;
2473  values[32] = 2187.0/2048.0*t156+2187.0/2048.0*t5*t159+2187.0/2048.0*t164;
2474  values[33] = -6561.0/2048.0*t166-6561.0/2048.0*t25*t159-6561.0/2048.0*t168;
2475  values[34] = -6561.0/2048.0*t170-6561.0/2048.0*t34*t159-6561.0/2048.0*t172;
2476  values[35] = 2187.0/2048.0*t174+2187.0/2048.0*t41*t159+2187.0/2048.0*t176;
2477  values[36] = -6561.0/2048.0*t179-6561.0/2048.0*t5*t180-6561.0/2048.0*t183;
2478  values[37] = 19683.0/2048.0*t185+19683.0/2048.0*t25*t180+19683.0/2048.0*t187;
2479  values[38] = 19683.0/2048.0*t189+19683.0/2048.0*t34*t180+19683.0/2048.0*t191;
2480  values[39] = -6561.0/2048.0*t193-6561.0/2048.0*t41*t180-6561.0/2048.0*t195;
2481  values[40] = -6561.0/2048.0*t199-6561.0/2048.0*t5*t201-6561.0/2048.0*t205;
2482  values[41] = 19683.0/2048.0*t207+19683.0/2048.0*t25*t201+19683.0/2048.0*t209;
2483  values[42] = 19683.0/2048.0*t211+19683.0/2048.0*t34*t201+19683.0/2048.0*t213;
2484  values[43] = -6561.0/2048.0*t215-6561.0/2048.0*t41*t201-6561.0/2048.0*t217;
2485  values[44] = 2187.0/2048.0*t220+2187.0/2048.0*t5*t221+2187.0/2048.0*t224;
2486  values[45] = -6561.0/2048.0*t226-6561.0/2048.0*t25*t221-6561.0/2048.0*t228;
2487  values[46] = -6561.0/2048.0*t230-6561.0/2048.0*t34*t221-6561.0/2048.0*t232;
2488  values[47] = 2187.0/2048.0*t234+2187.0/2048.0*t41*t221+2187.0/2048.0*t236;
2489  values[48] = -729.0/2048.0*t156-729.0/2048.0*t5*t240-729.0/2048.0*t164;
2490  values[49] = 2187.0/2048.0*t166+2187.0/2048.0*t25*t240+2187.0/2048.0*t168;
2491  values[50] = 2187.0/2048.0*t170+2187.0/2048.0*t34*t240+2187.0/2048.0*t172;
2492  values[51] = -729.0/2048.0*t174-729.0/2048.0*t41*t240-729.0/2048.0*t176;
2493  values[52] = 2187.0/2048.0*t179+2187.0/2048.0*t5*t249+2187.0/2048.0*t183;
2494  values[53] = -6561.0/2048.0*t185-6561.0/2048.0*t25*t249-6561.0/2048.0*t187;
2495  values[54] = -6561.0/2048.0*t189-6561.0/2048.0*t34*t249-6561.0/2048.0*t191;
2496  values[55] = 2187.0/2048.0*t193+2187.0/2048.0*t41*t249+2187.0/2048.0*t195;
2497  values[56] = 2187.0/2048.0*t199+2187.0/2048.0*t5*t259+2187.0/2048.0*t205;
2498  values[57] = -6561.0/2048.0*t207-6561.0/2048.0*t25*t259-6561.0/2048.0*t209;
2499  values[58] = -6561.0/2048.0*t211-6561.0/2048.0*t34*t259-6561.0/2048.0*t213;
2500  values[59] = 2187.0/2048.0*t215+2187.0/2048.0*t41*t259+2187.0/2048.0*t217;
2501  values[60] = -729.0/2048.0*t220-729.0/2048.0*t5*t268-729.0/2048.0*t224;
2502  values[61] = 2187.0/2048.0*t226+2187.0/2048.0*t25*t268+2187.0/2048.0*t228;
2503  values[62] = 2187.0/2048.0*t230+2187.0/2048.0*t34*t268+2187.0/2048.0*t232;
2504  values[63] = -729.0/2048.0*t234-729.0/2048.0*t41*t268-729.0/2048.0*t236;
2505 }
2506 
2507 TBaseFunct3D *BF_C_H_Q3_3D_Obj =
2508 new TBaseFunct3D(64, BF_C_H_Q3_3D, BFUnitHexahedron,
2509  C_H_Q3_3D_Funct, C_H_Q3_3D_DeriveXi,
2510  C_H_Q3_3D_DeriveEta, C_H_Q3_3D_DeriveZeta,
2511  C_H_Q3_3D_DeriveXiXi, C_H_Q3_3D_DeriveXiEta,
2512  C_H_Q3_3D_DeriveXiZeta, C_H_Q3_3D_DeriveEtaEta,
2513  C_H_Q3_3D_DeriveEtaZeta, C_H_Q3_3D_DeriveZetaZeta,
2514  3, 3,
2515  0, NULL);
Definition: BaseFunct3D.h:27