~ubuntu-branches/ubuntu/natty/ffc/natty
» Revision
8
: test/regression/references/ElementRestriction.h
« back to all changes in this revision
Viewing changes to test/regression/references/ElementRestriction.h
- browse files at revision 8
- compare with another revision
- download diff
- download tarball
- view history from revision 8
- Committer: Bazaar Package Importer
- Author(s): Johannes Ring
- Date: 2010-07-01 19:54:32 UTC
- mfrom: (1.1.5 upstream)
- Revision ID: james.westby@ubuntu.com-20100701195432-xz3gw5nprdj79jcb
Tags: 0.9.3-1
* New upstream release.
* debian/control:
- Minor fix in Vcs fields.
- Bump Standards-Version to 3.9.0 (no changes needed).
- Update version for python-ufc, python-fiat, and python-ufl in
Depends field.
* Switch to dpkg-source 3.0 (quilt) format.
* Update debian/copyright and debian/copyright_hints.
* debian/control:
- Minor fix in Vcs fields.
- Bump Standards-Version to 3.9.0 (no changes needed).
- Update version for python-ufc, python-fiat, and python-ufl in
Depends field.
* Switch to dpkg-source 3.0 (quilt) format.
* Update debian/copyright and debian/copyright_hints.
- files added:
- bench/MassH1_2D_1.ufl
- bench/results
- debian/source
- files removed:
- bench/NavierStokes.form
- files modified:
- ChangeLog
added
removed
test/regression/references/ElementRestriction.h
1
// This code conforms with the UFC specification version 1.4
2
// and was automatically generated by FFC version 0.9.2.
3
//
4
// This code was generated with the following parameters:
5
//
6
// cache_dir: ''
7
// convert_exceptions_to_warnings: True
8
// cpp_optimize: False
9
// epsilon: 1e-14
10
// form_postfix: True
11
// format: 'ufc'
12
// log_level: 10
13
// log_prefix: ''
14
// optimize: False
15
// output_dir: '.'
16
// precision: '8'
17
// quadrature_degree: 'auto'
18
// quadrature_rule: 'auto'
19
// representation: 'auto'
20
// split: False
21
22
#ifndef __ELEMENTRESTRICTION_H
23
#define __ELEMENTRESTRICTION_H
24
25
#include <cmath>
26
#include <stdexcept>
27
#include <fstream>
28
#include <ufc.h>
29
30
/// This class defines the interface for a finite element.
31
32
class elementrestriction_finite_element_0: public ufc::finite_element
33
{
34
public:
35
36
/// Constructor
37
elementrestriction_finite_element_0() : ufc::finite_element()
38
{
39
// Do nothing
40
}
41
42
/// Destructor
43
virtual ~elementrestriction_finite_element_0()
44
{
45
// Do nothing
46
}
47
48
/// Return a string identifying the finite element
49
virtual const char* signature() const
50
{
51
return "ElementRestriction(FiniteElement('Lagrange', Cell('triangle', 1, Space(2)), 4), Cell('interval', 1, Space(1)))";
52
}
53
54
/// Return the cell shape
55
virtual ufc::shape cell_shape() const
56
{
57
return ufc::triangle;
58
}
59
60
/// Return the dimension of the finite element function space
61
virtual unsigned int space_dimension() const
62
{
63
return 12;
64
}
65
66
/// Return the rank of the value space
67
virtual unsigned int value_rank() const
68
{
69
return 0;
70
}
71
72
/// Return the dimension of the value space for axis i
73
virtual unsigned int value_dimension(unsigned int i) const
74
{
75
return 1;
76
}
77
78
/// Evaluate basis function i at given point in cell
79
virtual void evaluate_basis(unsigned int i,
80
double* values,
81
const double* coordinates,
82
const ufc::cell& c) const
83
{
84
// Extract vertex coordinates
85
const double * const * x = c.coordinates;
86
87
// Compute Jacobian of affine map from reference cell
88
const double J_00 = x[1][0] - x[0][0];
89
const double J_01 = x[2][0] - x[0][0];
90
const double J_10 = x[1][1] - x[0][1];
91
const double J_11 = x[2][1] - x[0][1];
92
93
// Compute determinant of Jacobian
94
double detJ = J_00*J_11 - J_01*J_10;
95
96
// Compute inverse of Jacobian
97
98
// Compute constants
99
const double C0 = x[1][0] + x[2][0];
100
const double C1 = x[1][1] + x[2][1];
101
102
// Get coordinates and map to the reference (FIAT) element
103
double X = (J_01*(C1 - 2.0*coordinates[1]) + J_11*(2.0*coordinates[0] - C0)) / detJ;
104
double Y = (J_00*(2.0*coordinates[1] - C1) + J_10*(C0 - 2.0*coordinates[0])) / detJ;
105
106
// Reset values.
107
*values = 0.00000000;
108
109
// Map degree of freedom to element degree of freedom
110
const unsigned int dof = i;
111
112
// Array of basisvalues.
113
double basisvalues[15] = {0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000};
114
115
// Declare helper variables.
116
unsigned int rr = 0;
117
unsigned int ss = 0;
118
unsigned int tt = 0;
119
double tmp5 = 0.00000000;
120
double tmp6 = 0.00000000;
121
double tmp7 = 0.00000000;
122
double tmp0 = (1.00000000 + Y + 2.00000000*X)/2.00000000;
123
double tmp1 = (1.00000000 - Y)/2.00000000;
124
double tmp2 = tmp1*tmp1;
125
126
// Compute basisvalues.
127
basisvalues[0] = 1.00000000;
128
basisvalues[1] = tmp0;
129
for (unsigned int r = 1; r < 4; r++)
130
{
131
rr = (r + 1)*((r + 1) + 1)/2;
132
ss = r*(r + 1)/2;
133
tt = (r - 1)*((r - 1) + 1)/2;
134
tmp5 = (1.00000000 + 2.00000000*r)/(1.00000000 + r);
135
basisvalues[rr] = (basisvalues[ss]*tmp0*tmp5 - basisvalues[tt]*tmp2*r/(1.00000000 + r));
136
}// end loop over 'r'
137
for (unsigned int r = 0; r < 4; r++)
138
{
139
rr = (r + 1)*(r + 1 + 1)/2 + 1;
140
ss = r*(r + 1)/2;
141
basisvalues[rr] = basisvalues[ss]*(0.50000000 + r + Y*(1.50000000 + r));
142
}// end loop over 'r'
143
for (unsigned int r = 0; r < 3; r++)
144
{
145
for (unsigned int s = 1; s < 4 - r; s++)
146
{
147
rr = (r + s + 1)*(r + s + 1 + 1)/2 + s + 1;
148
ss = (r + s)*(r + s + 1)/2 + s;
149
tt = (r + s - 1)*(r + s - 1 + 1)/2 + s - 1;
150
tmp5 = (2.00000000 + 2.00000000*r + 2.00000000*s)*(3.00000000 + 2.00000000*r + 2.00000000*s)/(2.00000000*(1.00000000 + s)*(2.00000000 + s + 2.00000000*r));
151
tmp6 = (1.00000000 + 4.00000000*r*r + 4.00000000*r)*(2.00000000 + 2.00000000*r + 2.00000000*s)/(2.00000000*(1.00000000 + 2.00000000*r + 2.00000000*s)*(1.00000000 + s)*(2.00000000 + s + 2.00000000*r));
152
tmp7 = (1.00000000 + s + 2.00000000*r)*(3.00000000 + 2.00000000*r + 2.00000000*s)*s/((1.00000000 + 2.00000000*r + 2.00000000*s)*(1.00000000 + s)*(2.00000000 + s + 2.00000000*r));
153
basisvalues[rr] = (basisvalues[ss]*(tmp6 + Y*tmp5) - basisvalues[tt]*tmp7);
154
}// end loop over 's'
155
}// end loop over 'r'
156
for (unsigned int r = 0; r < 5; r++)
157
{
158
for (unsigned int s = 0; s < 5 - r; s++)
159
{
160
rr = (r + s)*(r + s + 1)/2 + s;
161
basisvalues[rr] *= std::sqrt((0.50000000 + r)*(1.00000000 + r + s));
162
}// end loop over 's'
163
}// end loop over 'r'
164
165
// Table(s) of coefficients.
166
static const double coefficients0[12][15] = \
167
{{0.00000000, -0.04123930, -0.02380952, 0.02898003, 0.02244783, 0.01296026, -0.03959426, -0.03346326, -0.02592053, -0.01496522, 0.03212473, 0.02833134, 0.02394436, 0.01854722, 0.01070824},
168
{0.00000000, 0.04123930, -0.02380952, 0.02898003, -0.02244783, 0.01296026, 0.03959426, -0.03346326, 0.02592053, -0.01496522, 0.03212473, -0.02833134, 0.02394436, -0.01854722, 0.01070824},
169
{0.00000000, 0.00000000, 0.04761905, 0.00000000, 0.00000000, 0.03888079, 0.00000000, 0.00000000, 0.00000000, 0.05986089, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.05354121},
170
{0.12570787, 0.13196578, -0.02539683, 0.13910414, -0.07183307, 0.03110463, 0.06335081, 0.02677060, -0.06220926, 0.04788871, 0.00000000, 0.05666269, -0.08380525, 0.08346248, -0.05354121},
171
{-0.03142697, 0.01099715, 0.00634921, 0.00000000, 0.18856181, -0.16329932, 0.00000000, 0.09369712, 0.00000000, -0.04190262, 0.00000000, 0.00000000, 0.08380525, -0.13910414, 0.10708242},
172
{0.12570787, 0.04398859, 0.12698413, 0.00000000, 0.03591653, 0.15552316, 0.00000000, 0.00000000, 0.10368211, -0.01197218, 0.00000000, 0.00000000, 0.00000000, 0.09273609, -0.10708242},
173
{0.12570787, -0.13196578, -0.02539683, 0.13910414, 0.07183307, 0.03110463, -0.06335081, 0.02677060, 0.06220926, 0.04788871, 0.00000000, -0.05666269, -0.08380525, -0.08346248, -0.05354121},
174
{-0.03142697, -0.01099715, 0.00634921, 0.00000000, -0.18856181, -0.16329932, 0.00000000, 0.09369712, 0.00000000, -0.04190262, 0.00000000, 0.00000000, 0.08380525, 0.13910414, 0.10708242},
175
{0.12570787, -0.04398859, 0.12698413, 0.00000000, -0.03591653, 0.15552316, 0.00000000, 0.00000000, -0.10368211, -0.01197218, 0.00000000, 0.00000000, 0.00000000, -0.09273609, -0.10708242},
176
{0.12570787, -0.08797718, -0.10158730, 0.09273609, 0.10774960, 0.07257747, 0.07918852, -0.01338530, -0.05184105, -0.04190262, -0.12849890, -0.05666269, -0.01197218, 0.00927361, 0.01070824},
177
{-0.03142697, 0.00000000, -0.01269841, -0.24343225, 0.00000000, 0.05443311, 0.00000000, 0.09369712, 0.00000000, -0.04190262, 0.19274835, 0.00000000, -0.02394436, 0.00000000, 0.01070824},
178
{0.12570787, 0.08797718, -0.10158730, 0.09273609, -0.10774960, 0.07257747, -0.07918852, -0.01338530, 0.05184105, -0.04190262, -0.12849890, 0.05666269, -0.01197218, -0.00927361, 0.01070824}};
179
180
// Compute value(s).
181
for (unsigned int r = 0; r < 15; r++)
182
{
183
*values += coefficients0[dof][r]*basisvalues[r];
184
}// end loop over 'r'
185
}
186
187
/// Evaluate all basis functions at given point in cell
188
virtual void evaluate_basis_all(double* values,
189
const double* coordinates,
190
const ufc::cell& c) const
191
{
192
// Helper variable to hold values of a single dof.
193
double dof_values = 0.00000000;
194
195
// Loop dofs and call evaluate_basis.
196
for (unsigned int r = 0; r < 12; r++)
197
{
198
evaluate_basis(r, &dof_values, coordinates, c);
199
values[r] = dof_values;
200
}// end loop over 'r'
201
}
202
203
/// Evaluate order n derivatives of basis function i at given point in cell
204
virtual void evaluate_basis_derivatives(unsigned int i,
205
unsigned int n,
206
double* values,
207
const double* coordinates,
208
const ufc::cell& c) const
209
{
210
// Extract vertex coordinates
211
const double * const * x = c.coordinates;
212
213
// Compute Jacobian of affine map from reference cell
214
const double J_00 = x[1][0] - x[0][0];
215
const double J_01 = x[2][0] - x[0][0];
216
const double J_10 = x[1][1] - x[0][1];
217
const double J_11 = x[2][1] - x[0][1];
218
219
// Compute determinant of Jacobian
220
double detJ = J_00*J_11 - J_01*J_10;
221
222
// Compute inverse of Jacobian
223
const double K_00 = J_11 / detJ;
224
const double K_01 = -J_01 / detJ;
225
const double K_10 = -J_10 / detJ;
226
const double K_11 = J_00 / detJ;
227
228
// Compute constants
229
const double C0 = x[1][0] + x[2][0];
230
const double C1 = x[1][1] + x[2][1];
231
232
// Get coordinates and map to the reference (FIAT) element
233
double X = (J_01*(C1 - 2.0*coordinates[1]) + J_11*(2.0*coordinates[0] - C0)) / detJ;
234
double Y = (J_00*(2.0*coordinates[1] - C1) + J_10*(C0 - 2.0*coordinates[0])) / detJ;
235
236
// Compute number of derivatives.
237
unsigned int num_derivatives = 1;
238
for (unsigned int r = 0; r < n; r++)
239
{
240
num_derivatives *= 2;
241
}// end loop over 'r'
242
243
// Declare pointer to two dimensional array that holds combinations of derivatives and initialise
244
unsigned int **combinations = new unsigned int *[num_derivatives];
245
for (unsigned int row = 0; row < num_derivatives; row++)
246
{
247
combinations[row] = new unsigned int [n];
248
for (unsigned int col = 0; col < n; col++)
249
combinations[row][col] = 0;
250
}
251
252
// Generate combinations of derivatives
253
for (unsigned int row = 1; row < num_derivatives; row++)
254
{
255
for (unsigned int num = 0; num < row; num++)
256
{
257
for (unsigned int col = n-1; col+1 > 0; col--)
258
{
259
if (combinations[row][col] + 1 > 1)
260
combinations[row][col] = 0;
261
else
262
{
263
combinations[row][col] += 1;
264
break;
265
}
266
}
267
}
268
}
269
270
// Compute inverse of Jacobian
271
const double Jinv[2][2] = {{K_00, K_01}, {K_10, K_11}};
272
273
// Declare transformation matrix
274
// Declare pointer to two dimensional array and initialise
275
double **transform = new double *[num_derivatives];
276
277
for (unsigned int j = 0; j < num_derivatives; j++)
278
{
279
transform[j] = new double [num_derivatives];
280
for (unsigned int k = 0; k < num_derivatives; k++)
281
transform[j][k] = 1;
282
}
283
284
// Construct transformation matrix
285
for (unsigned int row = 0; row < num_derivatives; row++)
286
{
287
for (unsigned int col = 0; col < num_derivatives; col++)
288
{
289
for (unsigned int k = 0; k < n; k++)
290
transform[row][col] *= Jinv[combinations[col][k]][combinations[row][k]];
291
}
292
}
293
294
// Reset values. Assuming that values is always an array.
295
for (unsigned int r = 0; r < num_derivatives; r++)
296
{
297
values[r] = 0.00000000;
298
}// end loop over 'r'
299
300
// Map degree of freedom to element degree of freedom
301
const unsigned int dof = i;
302
303
// Array of basisvalues.
304
double basisvalues[15] = {0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000};
305
306
// Declare helper variables.
307
unsigned int rr = 0;
308
unsigned int ss = 0;
309
unsigned int tt = 0;
310
double tmp5 = 0.00000000;
311
double tmp6 = 0.00000000;
312
double tmp7 = 0.00000000;
313
double tmp0 = (1.00000000 + Y + 2.00000000*X)/2.00000000;
314
double tmp1 = (1.00000000 - Y)/2.00000000;
315
double tmp2 = tmp1*tmp1;
316
317
// Compute basisvalues.
318
basisvalues[0] = 1.00000000;
319
basisvalues[1] = tmp0;
320
for (unsigned int r = 1; r < 4; r++)
321
{
322
rr = (r + 1)*((r + 1) + 1)/2;
323
ss = r*(r + 1)/2;
324
tt = (r - 1)*((r - 1) + 1)/2;
325
tmp5 = (1.00000000 + 2.00000000*r)/(1.00000000 + r);
326
basisvalues[rr] = (basisvalues[ss]*tmp0*tmp5 - basisvalues[tt]*tmp2*r/(1.00000000 + r));
327
}// end loop over 'r'
328
for (unsigned int r = 0; r < 4; r++)
329
{
330
rr = (r + 1)*(r + 1 + 1)/2 + 1;
331
ss = r*(r + 1)/2;
332
basisvalues[rr] = basisvalues[ss]*(0.50000000 + r + Y*(1.50000000 + r));
333
}// end loop over 'r'
334
for (unsigned int r = 0; r < 3; r++)
335
{
336
for (unsigned int s = 1; s < 4 - r; s++)
337
{
338
rr = (r + s + 1)*(r + s + 1 + 1)/2 + s + 1;
339
ss = (r + s)*(r + s + 1)/2 + s;
340
tt = (r + s - 1)*(r + s - 1 + 1)/2 + s - 1;
341
tmp5 = (2.00000000 + 2.00000000*r + 2.00000000*s)*(3.00000000 + 2.00000000*r + 2.00000000*s)/(2.00000000*(1.00000000 + s)*(2.00000000 + s + 2.00000000*r));
342
tmp6 = (1.00000000 + 4.00000000*r*r + 4.00000000*r)*(2.00000000 + 2.00000000*r + 2.00000000*s)/(2.00000000*(1.00000000 + 2.00000000*r + 2.00000000*s)*(1.00000000 + s)*(2.00000000 + s + 2.00000000*r));
343
tmp7 = (1.00000000 + s + 2.00000000*r)*(3.00000000 + 2.00000000*r + 2.00000000*s)*s/((1.00000000 + 2.00000000*r + 2.00000000*s)*(1.00000000 + s)*(2.00000000 + s + 2.00000000*r));
344
basisvalues[rr] = (basisvalues[ss]*(tmp6 + Y*tmp5) - basisvalues[tt]*tmp7);
345
}// end loop over 's'
346
}// end loop over 'r'
347
for (unsigned int r = 0; r < 5; r++)
348
{
349
for (unsigned int s = 0; s < 5 - r; s++)
350
{
351
rr = (r + s)*(r + s + 1)/2 + s;
352
basisvalues[rr] *= std::sqrt((0.50000000 + r)*(1.00000000 + r + s));
353
}// end loop over 's'
354
}// end loop over 'r'
355
356
// Table(s) of coefficients.
357
static const double coefficients0[12][15] = \
358
{{0.00000000, -0.04123930, -0.02380952, 0.02898003, 0.02244783, 0.01296026, -0.03959426, -0.03346326, -0.02592053, -0.01496522, 0.03212473, 0.02833134, 0.02394436, 0.01854722, 0.01070824},
359
{0.00000000, 0.04123930, -0.02380952, 0.02898003, -0.02244783, 0.01296026, 0.03959426, -0.03346326, 0.02592053, -0.01496522, 0.03212473, -0.02833134, 0.02394436, -0.01854722, 0.01070824},
360
{0.00000000, 0.00000000, 0.04761905, 0.00000000, 0.00000000, 0.03888079, 0.00000000, 0.00000000, 0.00000000, 0.05986089, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.05354121},
361
{0.12570787, 0.13196578, -0.02539683, 0.13910414, -0.07183307, 0.03110463, 0.06335081, 0.02677060, -0.06220926, 0.04788871, 0.00000000, 0.05666269, -0.08380525, 0.08346248, -0.05354121},
362
{-0.03142697, 0.01099715, 0.00634921, 0.00000000, 0.18856181, -0.16329932, 0.00000000, 0.09369712, 0.00000000, -0.04190262, 0.00000000, 0.00000000, 0.08380525, -0.13910414, 0.10708242},
363
{0.12570787, 0.04398859, 0.12698413, 0.00000000, 0.03591653, 0.15552316, 0.00000000, 0.00000000, 0.10368211, -0.01197218, 0.00000000, 0.00000000, 0.00000000, 0.09273609, -0.10708242},
364
{0.12570787, -0.13196578, -0.02539683, 0.13910414, 0.07183307, 0.03110463, -0.06335081, 0.02677060, 0.06220926, 0.04788871, 0.00000000, -0.05666269, -0.08380525, -0.08346248, -0.05354121},
365
{-0.03142697, -0.01099715, 0.00634921, 0.00000000, -0.18856181, -0.16329932, 0.00000000, 0.09369712, 0.00000000, -0.04190262, 0.00000000, 0.00000000, 0.08380525, 0.13910414, 0.10708242},
366
{0.12570787, -0.04398859, 0.12698413, 0.00000000, -0.03591653, 0.15552316, 0.00000000, 0.00000000, -0.10368211, -0.01197218, 0.00000000, 0.00000000, 0.00000000, -0.09273609, -0.10708242},
367
{0.12570787, -0.08797718, -0.10158730, 0.09273609, 0.10774960, 0.07257747, 0.07918852, -0.01338530, -0.05184105, -0.04190262, -0.12849890, -0.05666269, -0.01197218, 0.00927361, 0.01070824},
368
{-0.03142697, 0.00000000, -0.01269841, -0.24343225, 0.00000000, 0.05443311, 0.00000000, 0.09369712, 0.00000000, -0.04190262, 0.19274835, 0.00000000, -0.02394436, 0.00000000, 0.01070824},
369
{0.12570787, 0.08797718, -0.10158730, 0.09273609, -0.10774960, 0.07257747, -0.07918852, -0.01338530, 0.05184105, -0.04190262, -0.12849890, 0.05666269, -0.01197218, -0.00927361, 0.01070824}};
370
371
// Tables of derivatives of the polynomial base (transpose).
372
static const double dmats0[15][15] = \
373
{{0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
374
{4.89897949, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
375
{0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
376
{0.00000000, 9.48683298, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
377
{4.00000000, 0.00000000, 7.07106781, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
378
{0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
379
{5.29150262, 0.00000000, -2.99332591, 13.66260102, 0.00000000, 0.61101009, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
380
{0.00000000, 4.38178046, 0.00000000, 0.00000000, 12.52198067, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
381
{3.46410162, 0.00000000, 7.83836718, 0.00000000, 0.00000000, 8.40000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
382
{0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
383
{0.00000000, 10.95445115, 0.00000000, 0.00000000, -3.83325939, 0.00000000, 17.74823935, 0.00000000, 0.55328334, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
384
{4.73286383, 0.00000000, 3.34664011, 4.36435780, 0.00000000, -5.07468038, 0.00000000, 17.00840129, 0.00000000, 1.52127766, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
385
{0.00000000, 2.44948974, 0.00000000, 0.00000000, 9.14285714, 0.00000000, 0.00000000, 0.00000000, 14.84614978, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
386
{3.09838668, 0.00000000, 7.66811581, 0.00000000, 0.00000000, 10.73312629, 0.00000000, 0.00000000, 0.00000000, 9.29516003, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
387
{0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000}};
388
389
static const double dmats1[15][15] = \
390
{{0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
391
{2.44948974, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
392
{4.24264069, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
393
{2.58198890, 4.74341649, -0.91287093, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
394
{2.00000000, 6.12372436, 3.53553391, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
395
{-2.30940108, 0.00000000, 8.16496581, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
396
{2.64575131, 5.18459256, -1.49666295, 6.83130051, -1.05830052, 0.30550505, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
397
{2.23606798, 2.19089023, 2.52982213, 8.08290377, 6.26099034, -1.80739223, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
398
{1.73205081, -5.09116882, 3.91918359, 0.00000000, 9.69948452, 4.20000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
399
{5.00000000, 0.00000000, -2.82842712, 0.00000000, 0.00000000, 12.12435565, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
400
{2.68328157, 5.47722558, -1.89736660, 7.42307489, -1.91662969, 0.66394000, 8.87411967, -1.07142857, 0.27664167, -0.09583148, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
401
{2.36643191, 2.89827535, 1.67332005, 2.18217890, 5.74704893, -2.53734019, 10.06230590, 8.50420064, -2.19577516, 0.76063883, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
402
{2.00000000, 1.22474487, 3.53553391, -7.37711114, 4.57142857, 1.64957220, 0.00000000, 11.49977817, 7.42307489, -2.57142857, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
403
{1.54919334, 6.64078309, 3.83405790, 0.00000000, -6.19677335, 5.36656315, 0.00000000, 0.00000000, 13.41640786, 4.64758002, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
404
{-3.57770876, 0.00000000, 8.85437745, 0.00000000, 0.00000000, -3.09838668, 0.00000000, 0.00000000, 0.00000000, 16.09968944, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000}};
405
406
// Compute reference derivatives.
407
// Declare pointer to array of derivatives on FIAT element.
408
double *derivatives = new double[num_derivatives];
409
for (unsigned int r = 0; r < num_derivatives; r++)
410
{
411
derivatives[r] = 0.00000000;
412
}// end loop over 'r'
413
414
// Declare derivative matrix (of polynomial basis).
415
double dmats[15][15] = \
416
{{1.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
417
{0.00000000, 1.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
418
{0.00000000, 0.00000000, 1.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
419
{0.00000000, 0.00000000, 0.00000000, 1.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
420
{0.00000000, 0.00000000, 0.00000000, 0.00000000, 1.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
421
{0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 1.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
422
{0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 1.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
423
{0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 1.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
424
{0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 1.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
425
{0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 1.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
426
{0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 1.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
427
{0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 1.00000000, 0.00000000, 0.00000000, 0.00000000},
428
{0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 1.00000000, 0.00000000, 0.00000000},
429
{0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 1.00000000, 0.00000000},
430
{0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 1.00000000}};
431
432
// Declare (auxiliary) derivative matrix (of polynomial basis).
433
double dmats_old[15][15] = \
434
{{1.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
435
{0.00000000, 1.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
436
{0.00000000, 0.00000000, 1.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
437
{0.00000000, 0.00000000, 0.00000000, 1.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
438
{0.00000000, 0.00000000, 0.00000000, 0.00000000, 1.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
439
{0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 1.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
440
{0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 1.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
441
{0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 1.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
442
{0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 1.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
443
{0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 1.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
444
{0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 1.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000},
445
{0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 1.00000000, 0.00000000, 0.00000000, 0.00000000},
446
{0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 1.00000000, 0.00000000, 0.00000000},
447
{0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 1.00000000, 0.00000000},
448
{0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 1.00000000}};
449
450
// Loop possible derivatives.
451
for (unsigned int r = 0; r < num_derivatives; r++)
452
{
453
// Resetting dmats values to compute next derivative.
454
for (unsigned int t = 0; t < 15; t++)
455
{
456
for (unsigned int u = 0; u < 15; u++)
457
{
458
dmats[t][u] = 0.00000000;
459
if (t == u)
460
{
461
dmats[t][u] = 1.00000000;
462
}
463
464
}// end loop over 'u'
465
}// end loop over 't'
466
467
// Looping derivative order to generate dmats.
468
for (unsigned int s = 0; s < n; s++)
469
{
470
// Updating dmats_old with new values and resetting dmats.
471
for (unsigned int t = 0; t < 15; t++)
472
{
473
for (unsigned int u = 0; u < 15; u++)
474
{
475
dmats_old[t][u] = dmats[t][u];
476
dmats[t][u] = 0.00000000;
477
}// end loop over 'u'
478
}// end loop over 't'
479
480
// Update dmats using an inner product.
481
if (combinations[r][s] == 0)
482
{
483
for (unsigned int t = 0; t < 15; t++)
484
{
485
for (unsigned int u = 0; u < 15; u++)
486
{
487
for (unsigned int tu = 0; tu < 15; tu++)
488
{
489
dmats[t][u] += dmats0[t][tu]*dmats_old[tu][u];
490
}// end loop over 'tu'
491
}// end loop over 'u'
492
}// end loop over 't'
493
}
494
495
if (combinations[r][s] == 1)
496
{
497
for (unsigned int t = 0; t < 15; t++)
498
{
499
for (unsigned int u = 0; u < 15; u++)
500
{
501
for (unsigned int tu = 0; tu < 15; tu++)
502
{
503
dmats[t][u] += dmats1[t][tu]*dmats_old[tu][u];
504
}// end loop over 'tu'
505
}// end loop over 'u'
506
}// end loop over 't'
507
}
508
509
}// end loop over 's'
510
for (unsigned int s = 0; s < 15; s++)
511
{
512
for (unsigned int t = 0; t < 15; t++)
513
{
514
derivatives[r] += coefficients0[dof][s]*dmats[s][t]*basisvalues[t];
515
}// end loop over 't'
516
}// end loop over 's'
517
}// end loop over 'r'
518
519
// Transform derivatives back to physical element
520
for (unsigned int r = 0; r < num_derivatives; r++)
521
{
522
for (unsigned int s = 0; s < num_derivatives; s++)
523
{
524
values[r] += transform[r][s]*derivatives[s];
525
}// end loop over 's'
526
}// end loop over 'r'
527
528
// Delete pointer to array of derivatives on FIAT element
529
delete [] derivatives;
530
531
// Delete pointer to array of combinations of derivatives and transform
532
for (unsigned int r = 0; r < num_derivatives; r++)
533
{
534
delete [] combinations[r];
535
}// end loop over 'r'
536
delete [] combinations;
537
for (unsigned int r = 0; r < num_derivatives; r++)
538
{
539
delete [] transform[r];
540
}// end loop over 'r'
541
delete [] transform;
542
}
543
544
/// Evaluate order n derivatives of all basis functions at given point in cell
545
virtual void evaluate_basis_derivatives_all(unsigned int n,
546
double* values,
547
const double* coordinates,
548
const ufc::cell& c) const
549
{
550
// Compute number of derivatives.
551
unsigned int num_derivatives = 1;
552
for (unsigned int r = 0; r < n; r++)
553
{
554
num_derivatives *= 2;
555
}// end loop over 'r'
556
557
// Helper variable to hold values of a single dof.
558
double *dof_values = new double[num_derivatives];
559
for (unsigned int r = 0; r < num_derivatives; r++)
560
{
561
dof_values[r] = 0.00000000;
562
}// end loop over 'r'
563
564
// Loop dofs and call evaluate_basis_derivatives.
565
for (unsigned int r = 0; r < 12; r++)
566
{
567
evaluate_basis_derivatives(r, n, dof_values, coordinates, c);
568
for (unsigned int s = 0; s < num_derivatives; s++)
569
{
570
values[r*num_derivatives + s] = dof_values[s];
571
}// end loop over 's'
572
}// end loop over 'r'
573
574
// Delete pointer.
575
delete [] dof_values;
576
}
577
578
/// Evaluate linear functional for dof i on the function f
579
virtual double evaluate_dof(unsigned int i,
580
const ufc::function& f,
581
const ufc::cell& c) const
582
{
583
// Declare variables for result of evaluation.
584
double vals[1];
585
586
// Declare variable for physical coordinates.
587
double y[2];
588
const double * const * x = c.coordinates;
589
switch (i)
590
{
591
case 0:
592
{
593
y[0] = x[0][0];
594
y[1] = x[0][1];
595
f.evaluate(vals, y, c);
596
return vals[0];
597
break;
598
}
599
case 1:
600
{
601
y[0] = x[1][0];
602
y[1] = x[1][1];
603
f.evaluate(vals, y, c);
604
return vals[0];
605
break;
606
}
607
case 2:
608
{
609
y[0] = x[2][0];
610
y[1] = x[2][1];
611
f.evaluate(vals, y, c);
612
return vals[0];
613
break;
614
}
615
case 3:
616
{
617
y[0] = 0.75000000*x[1][0] + 0.25000000*x[2][0];
618
y[1] = 0.75000000*x[1][1] + 0.25000000*x[2][1];
619
f.evaluate(vals, y, c);
620
return vals[0];
621
break;
622
}
623
case 4:
624
{
625
y[0] = 0.50000000*x[1][0] + 0.50000000*x[2][0];
626
y[1] = 0.50000000*x[1][1] + 0.50000000*x[2][1];
627
f.evaluate(vals, y, c);
628
return vals[0];
629
break;
630
}
631
case 5:
632
{
633
y[0] = 0.25000000*x[1][0] + 0.75000000*x[2][0];
634
y[1] = 0.25000000*x[1][1] + 0.75000000*x[2][1];
635
f.evaluate(vals, y, c);
636
return vals[0];
637
break;
638
}
639
case 6:
640
{
641
y[0] = 0.75000000*x[0][0] + 0.25000000*x[2][0];
642
y[1] = 0.75000000*x[0][1] + 0.25000000*x[2][1];
643
f.evaluate(vals, y, c);
644
return vals[0];
645
break;
646
}
647
case 7:
648
{
649
y[0] = 0.50000000*x[0][0] + 0.50000000*x[2][0];
650
y[1] = 0.50000000*x[0][1] + 0.50000000*x[2][1];
651
f.evaluate(vals, y, c);
652
return vals[0];
653
break;
654
}
655
case 8:
656
{
657
y[0] = 0.25000000*x[0][0] + 0.75000000*x[2][0];
658
y[1] = 0.25000000*x[0][1] + 0.75000000*x[2][1];
659
f.evaluate(vals, y, c);
660
return vals[0];
661
break;
662
}
663
case 9:
664
{
665
y[0] = 0.75000000*x[0][0] + 0.25000000*x[1][0];
666
y[1] = 0.75000000*x[0][1] + 0.25000000*x[1][1];
667
f.evaluate(vals, y, c);
668
return vals[0];
669
break;
670
}
671
case 10:
672
{
673
y[0] = 0.50000000*x[0][0] + 0.50000000*x[1][0];
674
y[1] = 0.50000000*x[0][1] + 0.50000000*x[1][1];
675
f.evaluate(vals, y, c);
676
return vals[0];
677
break;
678
}
679
case 11:
680
{
681
y[0] = 0.25000000*x[0][0] + 0.75000000*x[1][0];
682
y[1] = 0.25000000*x[0][1] + 0.75000000*x[1][1];
683
f.evaluate(vals, y, c);
684
return vals[0];
685
break;
686
}
687
}
688
689
return 0.00000000;
690
}
691
692
/// Evaluate linear functionals for all dofs on the function f
693
virtual void evaluate_dofs(double* values,
694
const ufc::function& f,
695
const ufc::cell& c) const
696
{
697
// Declare variables for result of evaluation.
698
double vals[1];
699
700
// Declare variable for physical coordinates.
701
double y[2];
702
const double * const * x = c.coordinates;
703
y[0] = x[0][0];
704
y[1] = x[0][1];
705
f.evaluate(vals, y, c);
706
values[0] = vals[0];
707
y[0] = x[1][0];
708
y[1] = x[1][1];
709
f.evaluate(vals, y, c);
710
values[1] = vals[0];
711
y[0] = x[2][0];
712
y[1] = x[2][1];
713
f.evaluate(vals, y, c);
714
values[2] = vals[0];
715
y[0] = 0.75000000*x[1][0] + 0.25000000*x[2][0];
716
y[1] = 0.75000000*x[1][1] + 0.25000000*x[2][1];
717
f.evaluate(vals, y, c);
718
values[3] = vals[0];
719
y[0] = 0.50000000*x[1][0] + 0.50000000*x[2][0];
720
y[1] = 0.50000000*x[1][1] + 0.50000000*x[2][1];
721
f.evaluate(vals, y, c);
722
values[4] = vals[0];
723
y[0] = 0.25000000*x[1][0] + 0.75000000*x[2][0];
724
y[1] = 0.25000000*x[1][1] + 0.75000000*x[2][1];
725
f.evaluate(vals, y, c);
726
values[5] = vals[0];
727
y[0] = 0.75000000*x[0][0] + 0.25000000*x[2][0];
728
y[1] = 0.75000000*x[0][1] + 0.25000000*x[2][1];
729
f.evaluate(vals, y, c);
730
values[6] = vals[0];
731
y[0] = 0.50000000*x[0][0] + 0.50000000*x[2][0];
732
y[1] = 0.50000000*x[0][1] + 0.50000000*x[2][1];
733
f.evaluate(vals, y, c);
734
values[7] = vals[0];
735
y[0] = 0.25000000*x[0][0] + 0.75000000*x[2][0];
736
y[1] = 0.25000000*x[0][1] + 0.75000000*x[2][1];
737
f.evaluate(vals, y, c);
738
values[8] = vals[0];
739
y[0] = 0.75000000*x[0][0] + 0.25000000*x[1][0];
740
y[1] = 0.75000000*x[0][1] + 0.25000000*x[1][1];
741
f.evaluate(vals, y, c);
742
values[9] = vals[0];
743
y[0] = 0.50000000*x[0][0] + 0.50000000*x[1][0];
744
y[1] = 0.50000000*x[0][1] + 0.50000000*x[1][1];
745
f.evaluate(vals, y, c);
746
values[10] = vals[0];
747
y[0] = 0.25000000*x[0][0] + 0.75000000*x[1][0];
748
y[1] = 0.25000000*x[0][1] + 0.75000000*x[1][1];
749
f.evaluate(vals, y, c);
750
values[11] = vals[0];
751
}
752
753
/// Interpolate vertex values from dof values
754
virtual void interpolate_vertex_values(double* vertex_values,
755
const double* dof_values,
756
const ufc::cell& c) const
757
{
758
// Evaluate function and change variables
759
vertex_values[0] = dof_values[0];
760
vertex_values[1] = dof_values[1];
761
vertex_values[2] = dof_values[2];
762
}
763
764
/// Return the number of sub elements (for a mixed element)
765
virtual unsigned int num_sub_elements() const
766
{
767
return 0;
768
}
769
770
/// Create a new finite element for sub element i (for a mixed element)
771
virtual ufc::finite_element* create_sub_element(unsigned int i) const
772
{
773
return 0;
774
}
775
776
};
777
778
/// This class defines the interface for a local-to-global mapping of
779
/// degrees of freedom (dofs).
780
781
class elementrestriction_dof_map_0: public ufc::dof_map
782
{
783
private:
784
785
unsigned int _global_dimension;
786
public:
787
788
/// Constructor
789
elementrestriction_dof_map_0() : ufc::dof_map()
790
{
791
_global_dimension = 0;
792
}
793
794
/// Destructor
795
virtual ~elementrestriction_dof_map_0()
796
{
797
// Do nothing
798
}
799
800
/// Return a string identifying the dof map
801
virtual const char* signature() const
802
{
803
return "FFC dofmap for ElementRestriction(FiniteElement('Lagrange', Cell('triangle', 1, Space(2)), 4), Cell('interval', 1, Space(1)))";
804
}
805
806
/// Return true iff mesh entities of topological dimension d are needed
807
virtual bool needs_mesh_entities(unsigned int d) const
808
{
809
switch (d)
810
{
811
case 0:
812
{
813
return true;
814
break;
815
}
816
case 1:
817
{
818
return true;
819
break;
820
}
821
case 2:
822
{
823
return false;
824
break;
825
}
826
}
827
828
return false;
829
}
830
831
/// Initialize dof map for mesh (return true iff init_cell() is needed)
832
virtual bool init_mesh(const ufc::mesh& m)
833
{
834
_global_dimension = m.num_entities[0] + 3.00000000*m.num_entities[1];
835
return false;
836
}
837
838
/// Initialize dof map for given cell
839
virtual void init_cell(const ufc::mesh& m,
840
const ufc::cell& c)
841
{
842
// Do nothing
843
}
844
845
/// Finish initialization of dof map for cells
846
virtual void init_cell_finalize()
847
{
848
// Do nothing
849
}
850
851
/// Return the dimension of the global finite element function space
852
virtual unsigned int global_dimension() const
853
{
854
return _global_dimension;
855
}
856
857
/// Return the dimension of the local finite element function space for a cell
858
virtual unsigned int local_dimension(const ufc::cell& c) const
859
{
860
return 12;
861
}
862
863
/// Return the maximum dimension of the local finite element function space
864
virtual unsigned int max_local_dimension() const
865
{
866
return 12;
867
}
868
869
// Return the geometric dimension of the coordinates this dof map provides
870
virtual unsigned int geometric_dimension() const
871
{
872
return 2;
873
}
874
875
/// Return the number of dofs on each cell facet
876
virtual unsigned int num_facet_dofs() const
877
{
878
return 5;
879
}
880
881
/// Return the number of dofs associated with each cell entity of dimension d
882
virtual unsigned int num_entity_dofs(unsigned int d) const
883
{
884
switch (d)
885
{
886
case 0:
887
{
888
return 1;
889
break;
890
}
891
case 1:
892
{
893
return 3;
894
break;
895
}
896
case 2:
897
{
898
return 0;
899
break;
900
}
901
}
902
903
return 0;
904
}
905
906
/// Tabulate the local-to-global mapping of dofs on a cell
907
virtual void tabulate_dofs(unsigned int* dofs,
908
const ufc::mesh& m,
909
const ufc::cell& c) const
910
{
911
unsigned int offset = 0;
912
dofs[0] = offset + c.entity_indices[0][0];
913
dofs[1] = offset + c.entity_indices[0][1];
914
dofs[2] = offset + c.entity_indices[0][2];
915
offset += m.num_entities[0];
916
dofs[3] = offset + 3*c.entity_indices[1][0];
917
dofs[4] = offset + 3*c.entity_indices[1][0] + 1;
918
dofs[5] = offset + 3*c.entity_indices[1][0] + 2;
919
dofs[6] = offset + 3*c.entity_indices[1][1];
920
dofs[7] = offset + 3*c.entity_indices[1][1] + 1;
921
dofs[8] = offset + 3*c.entity_indices[1][1] + 2;
922
dofs[9] = offset + 3*c.entity_indices[1][2];
923
dofs[10] = offset + 3*c.entity_indices[1][2] + 1;
924
dofs[11] = offset + 3*c.entity_indices[1][2] + 2;
925
offset += 3*m.num_entities[1];
926
}
927
928
/// Tabulate the local-to-local mapping from facet dofs to cell dofs
929
virtual void tabulate_facet_dofs(unsigned int* dofs,
930
unsigned int facet) const
931
{
932
switch (facet)
933
{
934
case 0:
935
{
936
dofs[0] = 1;
937
dofs[1] = 2;
938
dofs[2] = 3;
939
dofs[3] = 4;
940
dofs[4] = 5;
941
break;
942
}
943
case 1:
944
{
945
dofs[0] = 0;
946
dofs[1] = 2;
947
dofs[2] = 6;
948
dofs[3] = 7;
949
dofs[4] = 8;
950
break;
951
}
952
case 2:
953
{
954
dofs[0] = 0;
955
dofs[1] = 1;
956
dofs[2] = 9;
957
dofs[3] = 10;
958
dofs[4] = 11;
959
break;
960
}
961
}
962
963
}
964
965
/// Tabulate the local-to-local mapping of dofs on entity (d, i)
966
virtual void tabulate_entity_dofs(unsigned int* dofs,
967
unsigned int d, unsigned int i) const
968
{
969
if (d > 2)
970
{
971
std::cerr << "*** FFC warning: " << "d is larger than dimension (2)" << std::endl;
972
}
973
974
switch (d)
975
{
976
case 0:
977
{
978
if (i > 2)
979
{
980
std::cerr << "*** FFC warning: " << "i is larger than number of entities (2)" << std::endl;
981
}
982
983
switch (i)
984
{
985
case 0:
986
{
987
dofs[0] = 0;
988
break;
989
}
990
case 1:
991
{
992
dofs[0] = 1;
993
break;
994
}
995
case 2:
996
{
997
dofs[0] = 2;
998
break;
999
}
1000
}
1001
1002
break;
1003
}
1004
case 1:
1005
{
1006
if (i > 2)
1007
{
1008
std::cerr << "*** FFC warning: " << "i is larger than number of entities (2)" << std::endl;
1009
}
1010
1011
switch (i)
1012
{
1013
case 0:
1014
{
1015
dofs[0] = 3;
1016
dofs[1] = 4;
1017
dofs[2] = 5;
1018
break;
1019
}
1020
case 1:
1021
{
1022
dofs[0] = 6;
1023
dofs[1] = 7;
1024
dofs[2] = 8;
1025
break;
1026
}
1027
case 2:
1028
{
1029
dofs[0] = 9;
1030
dofs[1] = 10;
1031
dofs[2] = 11;
1032
break;
1033
}
1034
}
1035
1036
break;
1037
}
1038
case 2:
1039
{
1040
1041
break;
1042
}
1043
}
1044
1045
}
1046
1047
/// Tabulate the coordinates of all dofs on a cell
1048
virtual void tabulate_coordinates(double** coordinates,
1049
const ufc::cell& c) const
1050
{
1051
const double * const * x = c.coordinates;
1052
1053
coordinates[0][0] = x[0][0];
1054
coordinates[0][1] = x[0][1];
1055
coordinates[1][0] = x[1][0];
1056
coordinates[1][1] = x[1][1];
1057
coordinates[2][0] = x[2][0];
1058
coordinates[2][1] = x[2][1];
1059
coordinates[3][0] = 0.75000000*x[1][0] + 0.25000000*x[2][0];
1060
coordinates[3][1] = 0.75000000*x[1][1] + 0.25000000*x[2][1];
1061
coordinates[4][0] = 0.50000000*x[1][0] + 0.50000000*x[2][0];
1062
coordinates[4][1] = 0.50000000*x[1][1] + 0.50000000*x[2][1];
1063
coordinates[5][0] = 0.25000000*x[1][0] + 0.75000000*x[2][0];
1064
coordinates[5][1] = 0.25000000*x[1][1] + 0.75000000*x[2][1];
1065
coordinates[6][0] = 0.75000000*x[0][0] + 0.25000000*x[2][0];
1066
coordinates[6][1] = 0.75000000*x[0][1] + 0.25000000*x[2][1];
1067
coordinates[7][0] = 0.50000000*x[0][0] + 0.50000000*x[2][0];
1068
coordinates[7][1] = 0.50000000*x[0][1] + 0.50000000*x[2][1];
1069
coordinates[8][0] = 0.25000000*x[0][0] + 0.75000000*x[2][0];
1070
coordinates[8][1] = 0.25000000*x[0][1] + 0.75000000*x[2][1];
1071
coordinates[9][0] = 0.75000000*x[0][0] + 0.25000000*x[1][0];
1072
coordinates[9][1] = 0.75000000*x[0][1] + 0.25000000*x[1][1];
1073
coordinates[10][0] = 0.50000000*x[0][0] + 0.50000000*x[1][0];
1074
coordinates[10][1] = 0.50000000*x[0][1] + 0.50000000*x[1][1];
1075
coordinates[11][0] = 0.25000000*x[0][0] + 0.75000000*x[1][0];
1076
coordinates[11][1] = 0.25000000*x[0][1] + 0.75000000*x[1][1];
1077
}
1078
1079
/// Return the number of sub dof maps (for a mixed element)
1080
virtual unsigned int num_sub_dof_maps() const
1081
{
1082
return 0;
1083
}
1084
1085
/// Create a new dof_map for sub dof map i (for a mixed element)
1086
virtual ufc::dof_map* create_sub_dof_map(unsigned int i) const
1087
{
1088
return 0;
1089
}
1090
1091
};
1092
1093
/// This class defines the interface for the tabulation of the
1094
/// exterior facet tensor corresponding to the local contribution to
1095
/// a form from the integral over an exterior facet.
1096
1097
class elementrestriction_exterior_facet_integral_0_0: public ufc::exterior_facet_integral
1098
{
1099
public:
1100
1101
/// Constructor
1102
elementrestriction_exterior_facet_integral_0_0() : ufc::exterior_facet_integral()
1103
{
1104
// Do nothing
1105
}
1106
1107
/// Destructor
1108
virtual ~elementrestriction_exterior_facet_integral_0_0()
1109
{
1110
// Do nothing
1111
}
1112
1113
/// Tabulate the tensor for the contribution from a local exterior facet
1114
virtual void tabulate_tensor(double* A,
1115
const double * const * w,
1116
const ufc::cell& c,
1117
unsigned int facet) const
1118
{
1119
// Number of operations (multiply-add pairs) for Jacobian data: 9
1120
// Number of operations (multiply-add pairs) for geometry tensor: 0
1121
// Number of operations (multiply-add pairs) for tensor contraction: 37
1122
// Total number of operations (multiply-add pairs): 46
1123
1124
// Extract vertex coordinates
1125
const double * const * x = c.coordinates;
1126
1127
// Compute Jacobian of affine map from reference cell
1128
1129
// Compute determinant of Jacobian
1130
1131
// Compute inverse of Jacobian
1132
1133
// Get vertices on edge
1134
static unsigned int edge_vertices[3][2] = {{1, 2}, {0, 2}, {0, 1}};
1135
const unsigned int v0 = edge_vertices[facet][0];
1136
const unsigned int v1 = edge_vertices[facet][1];
1137
1138
// Compute scale factor (length of edge scaled by length of reference interval)
1139
const double dx0 = x[v1][0] - x[v0][0];
1140
const double dx1 = x[v1][1] - x[v0][1];
1141
const double det = std::sqrt(dx0*dx0 + dx1*dx1);
1142
1143
// Compute geometry tensor
1144
const double G0_ = det;
1145
1146
// Compute element tensor
1147
switch (facet)
1148
{
1149
case 0:
1150
{
1151
A[0] = 0.00000000;
1152
A[1] = 0.00000000;
1153
A[2] = 0.00000000;
1154
A[3] = 0.00000000;
1155
A[4] = 0.00000000;
1156
A[5] = 0.00000000;
1157
A[6] = 0.00000000;
1158
A[7] = 0.00000000;
1159
A[8] = 0.00000000;
1160
A[9] = 0.00000000;
1161
A[10] = 0.00000000;
1162
A[11] = 0.00000000;
1163
A[12] = 0.00000000;
1164
A[13] = 0.05149912*G0_;
1165
A[14] = -0.00511464*G0_;
1166
A[15] = 0.05220459*G0_;
1167
A[16] = -0.03068783*G0_;
1168
A[17] = 0.00987654*G0_;
1169
A[18] = 0.00000000;
1170
A[19] = 0.00000000;
1171
A[20] = 0.00000000;
1172
A[21] = 0.00000000;
1173
A[22] = 0.00000000;
1174
A[23] = 0.00000000;
1175
A[24] = 0.00000000;
1176
A[25] = -0.00511464*G0_;
1177
A[26] = 0.05149912*G0_;
1178
A[27] = 0.00987654*G0_;
1179
A[28] = -0.03068783*G0_;
1180
A[29] = 0.05220459*G0_;
1181
A[30] = 0.00000000;
1182
A[31] = 0.00000000;
1183
A[32] = 0.00000000;
1184
A[33] = 0.00000000;
1185
A[34] = 0.00000000;
1186
A[35] = 0.00000000;
1187
A[36] = 0.00000000;
1188
A[37] = 0.05220459*G0_;
1189
A[38] = 0.00987654*G0_;
1190
A[39] = 0.31604938*G0_;
1191
A[40] = -0.06772487*G0_;
1192
A[41] = 0.04514991*G0_;
1193
A[42] = 0.00000000;
1194
A[43] = 0.00000000;
1195
A[44] = 0.00000000;
1196
A[45] = 0.00000000;
1197
A[46] = 0.00000000;
1198
A[47] = 0.00000000;
1199
A[48] = 0.00000000;
1200
A[49] = -0.03068783*G0_;
1201
A[50] = -0.03068783*G0_;
1202
A[51] = -0.06772487*G0_;
1203
A[52] = 0.33015873*G0_;
1204
A[53] = -0.06772487*G0_;
1205
A[54] = 0.00000000;
1206
A[55] = 0.00000000;
1207
A[56] = 0.00000000;
1208
A[57] = 0.00000000;
1209
A[58] = 0.00000000;
1210
A[59] = 0.00000000;
1211
A[60] = 0.00000000;
1212
A[61] = 0.00987654*G0_;
1213
A[62] = 0.05220459*G0_;
1214
A[63] = 0.04514991*G0_;
1215
A[64] = -0.06772487*G0_;
1216
A[65] = 0.31604938*G0_;
1217
A[66] = 0.00000000;
1218
A[67] = 0.00000000;
1219
A[68] = 0.00000000;
1220
A[69] = 0.00000000;
1221
A[70] = 0.00000000;
1222
A[71] = 0.00000000;
1223
A[72] = 0.00000000;
1224
A[73] = 0.00000000;
1225
A[74] = 0.00000000;
1226
A[75] = 0.00000000;
1227
A[76] = 0.00000000;
1228
A[77] = 0.00000000;
1229
A[78] = 0.00000000;
1230
A[79] = 0.00000000;
1231
A[80] = 0.00000000;
1232
A[81] = 0.00000000;
1233
A[82] = 0.00000000;
1234
A[83] = 0.00000000;
1235
A[84] = 0.00000000;
1236
A[85] = 0.00000000;
1237
A[86] = 0.00000000;
1238
A[87] = 0.00000000;
1239
A[88] = 0.00000000;
1240
A[89] = 0.00000000;
1241
A[90] = 0.00000000;
1242
A[91] = 0.00000000;
1243
A[92] = 0.00000000;
1244
A[93] = 0.00000000;
1245
A[94] = 0.00000000;
1246
A[95] = 0.00000000;
1247
A[96] = 0.00000000;
1248
A[97] = 0.00000000;
1249
A[98] = 0.00000000;
1250
A[99] = 0.00000000;
1251
A[100] = 0.00000000;
1252
A[101] = 0.00000000;
1253
A[102] = 0.00000000;
1254
A[103] = 0.00000000;
1255
A[104] = 0.00000000;
1256
A[105] = 0.00000000;
1257
A[106] = 0.00000000;
1258
A[107] = 0.00000000;
1259
A[108] = 0.00000000;
1260
A[109] = 0.00000000;
1261
A[110] = 0.00000000;
1262
A[111] = 0.00000000;
1263
A[112] = 0.00000000;
1264
A[113] = 0.00000000;
1265
A[114] = 0.00000000;
1266
A[115] = 0.00000000;
1267
A[116] = 0.00000000;
1268
A[117] = 0.00000000;
1269
A[118] = 0.00000000;
1270
A[119] = 0.00000000;
1271
A[120] = 0.00000000;
1272
A[121] = 0.00000000;
1273
A[122] = 0.00000000;
1274
A[123] = 0.00000000;
1275
A[124] = 0.00000000;
1276
A[125] = 0.00000000;
1277
A[126] = 0.00000000;
1278
A[127] = 0.00000000;
1279
A[128] = 0.00000000;
1280
A[129] = 0.00000000;
1281
A[130] = 0.00000000;
1282
A[131] = 0.00000000;
1283
A[132] = 0.00000000;
1284
A[133] = 0.00000000;
1285
A[134] = 0.00000000;
1286
A[135] = 0.00000000;
1287
A[136] = 0.00000000;
1288
A[137] = 0.00000000;
1289
A[138] = 0.00000000;
1290
A[139] = 0.00000000;
1291
A[140] = 0.00000000;
1292
A[141] = 0.00000000;
1293
A[142] = 0.00000000;
1294
A[143] = 0.00000000;
1295
break;
1296
}
1297
case 1:
1298
{
1299
A[0] = 0.05149912*G0_;
1300
A[1] = 0.00000000;
1301
A[2] = -0.00511464*G0_;
1302
A[3] = 0.00000000;
1303
A[4] = 0.00000000;
1304
A[5] = 0.00000000;
1305
A[6] = 0.05220459*G0_;
1306
A[7] = -0.03068783*G0_;
1307
A[8] = 0.00987654*G0_;
1308
A[9] = 0.00000000;
1309
A[10] = 0.00000000;
1310
A[11] = 0.00000000;
1311
A[12] = 0.00000000;
1312
A[13] = 0.00000000;
1313
A[14] = 0.00000000;
1314
A[15] = 0.00000000;
1315
A[16] = 0.00000000;
1316
A[17] = 0.00000000;
1317
A[18] = 0.00000000;
1318
A[19] = 0.00000000;
1319
A[20] = 0.00000000;
1320
A[21] = 0.00000000;
1321
A[22] = 0.00000000;
1322
A[23] = 0.00000000;
1323
A[24] = -0.00511464*G0_;
1324
A[25] = 0.00000000;
1325
A[26] = 0.05149912*G0_;
1326
A[27] = 0.00000000;
1327
A[28] = 0.00000000;
1328
A[29] = 0.00000000;
1329
A[30] = 0.00987654*G0_;
1330
A[31] = -0.03068783*G0_;
1331
A[32] = 0.05220459*G0_;
1332
A[33] = 0.00000000;
1333
A[34] = 0.00000000;
1334
A[35] = 0.00000000;
1335
A[36] = 0.00000000;
1336
A[37] = 0.00000000;
1337
A[38] = 0.00000000;
1338
A[39] = 0.00000000;
1339
A[40] = 0.00000000;
1340
A[41] = 0.00000000;
1341
A[42] = 0.00000000;
1342
A[43] = 0.00000000;
1343
A[44] = 0.00000000;
1344
A[45] = 0.00000000;
1345
A[46] = 0.00000000;
1346
A[47] = 0.00000000;
1347
A[48] = 0.00000000;
1348
A[49] = 0.00000000;
1349
A[50] = 0.00000000;
1350
A[51] = 0.00000000;
1351
A[52] = 0.00000000;
1352
A[53] = 0.00000000;
1353
A[54] = 0.00000000;
1354
A[55] = 0.00000000;
1355
A[56] = 0.00000000;
1356
A[57] = 0.00000000;
1357
A[58] = 0.00000000;
1358
A[59] = 0.00000000;
1359
A[60] = 0.00000000;
1360
A[61] = 0.00000000;
1361
A[62] = 0.00000000;
1362
A[63] = 0.00000000;
1363
A[64] = 0.00000000;
1364
A[65] = 0.00000000;
1365
A[66] = 0.00000000;
1366
A[67] = 0.00000000;
1367
A[68] = 0.00000000;
1368
A[69] = 0.00000000;
1369
A[70] = 0.00000000;
1370
A[71] = 0.00000000;
1371
A[72] = 0.05220459*G0_;
1372
A[73] = 0.00000000;
1373
A[74] = 0.00987654*G0_;
1374
A[75] = 0.00000000;
1375
A[76] = 0.00000000;
1376
A[77] = 0.00000000;
1377
A[78] = 0.31604938*G0_;
1378
A[79] = -0.06772487*G0_;
1379
A[80] = 0.04514991*G0_;
1380
A[81] = 0.00000000;
1381
A[82] = 0.00000000;
1382
A[83] = 0.00000000;
1383
A[84] = -0.03068783*G0_;
1384
A[85] = 0.00000000;
1385
A[86] = -0.03068783*G0_;
1386
A[87] = 0.00000000;
1387
A[88] = 0.00000000;
1388
A[89] = 0.00000000;
1389
A[90] = -0.06772487*G0_;
1390
A[91] = 0.33015873*G0_;
1391
A[92] = -0.06772487*G0_;
1392
A[93] = 0.00000000;
1393
A[94] = 0.00000000;
1394
A[95] = 0.00000000;
1395
A[96] = 0.00987654*G0_;
1396
A[97] = 0.00000000;
1397
A[98] = 0.05220459*G0_;
1398
A[99] = 0.00000000;
1399
A[100] = 0.00000000;
1400
A[101] = 0.00000000;
1401
A[102] = 0.04514991*G0_;
1402
A[103] = -0.06772487*G0_;
1403
A[104] = 0.31604938*G0_;
1404
A[105] = 0.00000000;
1405
A[106] = 0.00000000;
1406
A[107] = 0.00000000;
1407
A[108] = 0.00000000;
1408
A[109] = 0.00000000;
1409
A[110] = 0.00000000;
1410
A[111] = 0.00000000;
1411
A[112] = 0.00000000;
1412
A[113] = 0.00000000;
1413
A[114] = 0.00000000;
1414
A[115] = 0.00000000;
1415
A[116] = 0.00000000;
1416
A[117] = 0.00000000;
1417
A[118] = 0.00000000;
1418
A[119] = 0.00000000;
1419
A[120] = 0.00000000;
1420
A[121] = 0.00000000;
1421
A[122] = 0.00000000;
1422
A[123] = 0.00000000;
1423
A[124] = 0.00000000;
1424
A[125] = 0.00000000;
1425
A[126] = 0.00000000;
1426
A[127] = 0.00000000;
1427
A[128] = 0.00000000;
1428
A[129] = 0.00000000;
1429
A[130] = 0.00000000;
1430
A[131] = 0.00000000;
1431
A[132] = 0.00000000;
1432
A[133] = 0.00000000;
1433
A[134] = 0.00000000;
1434
A[135] = 0.00000000;
1435
A[136] = 0.00000000;
1436
A[137] = 0.00000000;
1437
A[138] = 0.00000000;
1438
A[139] = 0.00000000;
1439
A[140] = 0.00000000;
1440
A[141] = 0.00000000;
1441
A[142] = 0.00000000;
1442
A[143] = 0.00000000;
1443
break;
1444
}
1445
case 2:
1446
{
1447
A[0] = 0.05149912*G0_;
1448
A[1] = -0.00511464*G0_;
1449
A[2] = 0.00000000;
1450
A[3] = 0.00000000;
1451
A[4] = 0.00000000;
1452
A[5] = 0.00000000;
1453
A[6] = 0.00000000;
1454
A[7] = 0.00000000;
1455
A[8] = 0.00000000;
1456
A[9] = 0.05220459*G0_;
1457
A[10] = -0.03068783*G0_;
1458
A[11] = 0.00987654*G0_;
1459
A[12] = -0.00511464*G0_;
1460
A[13] = 0.05149912*G0_;
1461
A[14] = 0.00000000;
1462
A[15] = 0.00000000;
1463
A[16] = 0.00000000;
1464
A[17] = 0.00000000;
1465
A[18] = 0.00000000;
1466
A[19] = 0.00000000;
1467
A[20] = 0.00000000;
1468
A[21] = 0.00987654*G0_;
1469
A[22] = -0.03068783*G0_;
1470
A[23] = 0.05220459*G0_;
1471
A[24] = 0.00000000;
1472
A[25] = 0.00000000;
1473
A[26] = 0.00000000;
1474
A[27] = 0.00000000;
1475
A[28] = 0.00000000;
1476
A[29] = 0.00000000;
1477
A[30] = 0.00000000;
1478
A[31] = 0.00000000;
1479
A[32] = 0.00000000;
1480
A[33] = 0.00000000;
1481
A[34] = 0.00000000;
1482
A[35] = 0.00000000;
1483
A[36] = 0.00000000;
1484
A[37] = 0.00000000;
1485
A[38] = 0.00000000;
1486
A[39] = 0.00000000;
1487
A[40] = 0.00000000;
1488
A[41] = 0.00000000;
1489
A[42] = 0.00000000;
1490
A[43] = 0.00000000;
1491
A[44] = 0.00000000;
1492
A[45] = 0.00000000;
1493
A[46] = 0.00000000;
1494
A[47] = 0.00000000;
1495
A[48] = 0.00000000;
1496
A[49] = 0.00000000;
1497
A[50] = 0.00000000;
1498
A[51] = 0.00000000;
1499
A[52] = 0.00000000;
1500
A[53] = 0.00000000;
1501
A[54] = 0.00000000;
1502
A[55] = 0.00000000;
1503
A[56] = 0.00000000;
1504
A[57] = 0.00000000;
1505
A[58] = 0.00000000;
1506
A[59] = 0.00000000;
1507
A[60] = 0.00000000;
1508
A[61] = 0.00000000;
1509
A[62] = 0.00000000;
1510
A[63] = 0.00000000;
1511
A[64] = 0.00000000;
1512
A[65] = 0.00000000;
1513
A[66] = 0.00000000;
1514
A[67] = 0.00000000;
1515
A[68] = 0.00000000;
1516
A[69] = 0.00000000;
1517
A[70] = 0.00000000;
1518
A[71] = 0.00000000;
1519
A[72] = 0.00000000;
1520
A[73] = 0.00000000;
1521
A[74] = 0.00000000;
1522
A[75] = 0.00000000;
1523
A[76] = 0.00000000;
1524
A[77] = 0.00000000;
1525
A[78] = 0.00000000;
1526
A[79] = 0.00000000;
1527
A[80] = 0.00000000;
1528
A[81] = 0.00000000;
1529
A[82] = 0.00000000;
1530
A[83] = 0.00000000;
1531
A[84] = 0.00000000;
1532
A[85] = 0.00000000;
1533
A[86] = 0.00000000;
1534
A[87] = 0.00000000;
1535
A[88] = 0.00000000;
1536
A[89] = 0.00000000;
1537
A[90] = 0.00000000;
1538
A[91] = 0.00000000;
1539
A[92] = 0.00000000;
1540
A[93] = 0.00000000;
1541
A[94] = 0.00000000;
1542
A[95] = 0.00000000;
1543
A[96] = 0.00000000;
1544
A[97] = 0.00000000;
1545
A[98] = 0.00000000;
1546
A[99] = 0.00000000;
1547
A[100] = 0.00000000;
1548
A[101] = 0.00000000;
1549
A[102] = 0.00000000;
1550
A[103] = 0.00000000;
1551
A[104] = 0.00000000;
1552
A[105] = 0.00000000;
1553
A[106] = 0.00000000;
1554
A[107] = 0.00000000;
1555
A[108] = 0.05220459*G0_;
1556
A[109] = 0.00987654*G0_;
1557
A[110] = 0.00000000;
1558
A[111] = 0.00000000;
1559
A[112] = 0.00000000;
1560
A[113] = 0.00000000;
1561
A[114] = 0.00000000;
1562
A[115] = 0.00000000;
1563
A[116] = 0.00000000;
1564
A[117] = 0.31604938*G0_;
1565
A[118] = -0.06772487*G0_;
1566
A[119] = 0.04514991*G0_;
1567
A[120] = -0.03068783*G0_;
1568
A[121] = -0.03068783*G0_;
1569
A[122] = 0.00000000;
1570
A[123] = 0.00000000;
1571
A[124] = 0.00000000;
1572
A[125] = 0.00000000;
1573
A[126] = 0.00000000;
1574
A[127] = 0.00000000;
1575
A[128] = 0.00000000;
1576
A[129] = -0.06772487*G0_;
1577
A[130] = 0.33015873*G0_;
1578
A[131] = -0.06772487*G0_;
1579
A[132] = 0.00987654*G0_;
1580
A[133] = 0.05220459*G0_;
1581
A[134] = 0.00000000;
1582
A[135] = 0.00000000;
1583
A[136] = 0.00000000;
1584
A[137] = 0.00000000;
1585
A[138] = 0.00000000;
1586
A[139] = 0.00000000;
1587
A[140] = 0.00000000;
1588
A[141] = 0.04514991*G0_;
1589
A[142] = -0.06772487*G0_;
1590
A[143] = 0.31604938*G0_;
1591
break;
1592
}
1593
}
1594
1595
}
1596
1597
};
1598
1599
/// This class defines the interface for the tabulation of the
1600
/// interior facet tensor corresponding to the local contribution to
1601
/// a form from the integral over an interior facet.
1602
1603
class elementrestriction_interior_facet_integral_0_0: public ufc::interior_facet_integral
1604
{
1605
public:
1606
1607
/// Constructor
1608
elementrestriction_interior_facet_integral_0_0() : ufc::interior_facet_integral()
1609
{
1610
// Do nothing
1611
}
1612
1613
/// Destructor
1614
virtual ~elementrestriction_interior_facet_integral_0_0()
1615
{
1616
// Do nothing
1617
}
1618
1619
/// Tabulate the tensor for the contribution from a local interior facet
1620
virtual void tabulate_tensor(double* A,
1621
const double * const * w,
1622
const ufc::cell& c0,
1623
const ufc::cell& c1,
1624
unsigned int facet0,
1625
unsigned int facet1) const
1626
{
1627
// Number of operations (multiply-add pairs) for Jacobian data: 12
1628
// Number of operations (multiply-add pairs) for geometry tensor: 0
1629
// Number of operations (multiply-add pairs) for tensor contraction: 450
1630
// Total number of operations (multiply-add pairs): 462
1631
1632
// Extract vertex coordinates
1633
const double * const * x0 = c0.coordinates;
1634
1635
// Compute Jacobian of affine map from reference cell
1636
1637
// Compute determinant of Jacobian
1638
1639
// Compute inverse of Jacobian
1640
1641
// Compute Jacobian of affine map from reference cell
1642
1643
// Compute determinant of Jacobian
1644
1645
// Compute inverse of Jacobian
1646
1647
// Get vertices on edge
1648
static unsigned int edge_vertices[3][2] = {{1, 2}, {0, 2}, {0, 1}};
1649
const unsigned int v0 = edge_vertices[facet0][0];
1650
const unsigned int v1 = edge_vertices[facet0][1];
1651
1652
// Compute scale factor (length of edge scaled by length of reference interval)
1653
const double dx0 = x0[v1][0] - x0[v0][0];
1654
const double dx1 = x0[v1][1] - x0[v0][1];
1655
const double det = std::sqrt(dx0*dx0 + dx1*dx1);
1656
1657
// Compute geometry tensor
1658
const double G0_ = det;
1659
const double G1_ = det;
1660
const double G2_ = det;
1661
const double G3_ = det;
1662
1663
// Compute element tensor
1664
switch (facet0)
1665
{
1666
case 0:
1667
{
1668
switch (facet1)
1669
{
1670
case 0:
1671
{
1672
A[0] = 0.00000000;
1673
A[1] = 0.00000000;
1674
A[2] = 0.00000000;
1675
A[3] = 0.00000000;
1676
A[4] = 0.00000000;
1677
A[5] = 0.00000000;
1678
A[6] = 0.00000000;
1679
A[7] = 0.00000000;
1680
A[8] = 0.00000000;
1681
A[9] = 0.00000000;
1682
A[10] = 0.00000000;
1683
A[11] = 0.00000000;
1684
A[12] = 0.00000000;
1685
A[13] = 0.00000000;
1686
A[14] = 0.00000000;
1687
A[15] = 0.00000000;
1688
A[16] = 0.00000000;
1689
A[17] = 0.00000000;
1690
A[18] = 0.00000000;
1691
A[19] = 0.00000000;
1692
A[20] = 0.00000000;
1693
A[21] = 0.00000000;
1694
A[22] = 0.00000000;
1695
A[23] = 0.00000000;
1696
A[24] = 0.00000000;
1697
A[25] = 0.01287478*G3_;
1698
A[26] = -0.00127866*G3_;
1699
A[27] = 0.01305115*G3_;
1700
A[28] = -0.00767196*G3_;
1701
A[29] = 0.00246914*G3_;
1702
A[30] = 0.00000000;
1703
A[31] = 0.00000000;
1704
A[32] = 0.00000000;
1705
A[33] = 0.00000000;
1706
A[34] = 0.00000000;
1707
A[35] = 0.00000000;
1708
A[36] = 0.00000000;
1709
A[37] = 0.01287478*G2_;
1710
A[38] = -0.00127866*G2_;
1711
A[39] = 0.01305115*G2_;
1712
A[40] = -0.00767196*G2_;
1713
A[41] = 0.00246914*G2_;
1714
A[42] = 0.00000000;
1715
A[43] = 0.00000000;
1716
A[44] = 0.00000000;
1717
A[45] = 0.00000000;
1718
A[46] = 0.00000000;
1719
A[47] = 0.00000000;
1720
A[48] = 0.00000000;
1721
A[49] = -0.00127866*G3_;
1722
A[50] = 0.01287478*G3_;
1723
A[51] = 0.00246914*G3_;
1724
A[52] = -0.00767196*G3_;
1725
A[53] = 0.01305115*G3_;
1726
A[54] = 0.00000000;
1727
A[55] = 0.00000000;
1728
A[56] = 0.00000000;
1729
A[57] = 0.00000000;
1730
A[58] = 0.00000000;
1731
A[59] = 0.00000000;
1732
A[60] = 0.00000000;
1733
A[61] = -0.00127866*G2_;
1734
A[62] = 0.01287478*G2_;
1735
A[63] = 0.00246914*G2_;
1736
A[64] = -0.00767196*G2_;
1737
A[65] = 0.01305115*G2_;
1738
A[66] = 0.00000000;
1739
A[67] = 0.00000000;
1740
A[68] = 0.00000000;
1741
A[69] = 0.00000000;
1742
A[70] = 0.00000000;
1743
A[71] = 0.00000000;
1744
A[72] = 0.00000000;
1745
A[73] = 0.01305115*G3_;
1746
A[74] = 0.00246914*G3_;
1747
A[75] = 0.07901235*G3_;
1748
A[76] = -0.01693122*G3_;
1749
A[77] = 0.01128748*G3_;
1750
A[78] = 0.00000000;
1751
A[79] = 0.00000000;
1752
A[80] = 0.00000000;
1753
A[81] = 0.00000000;
1754
A[82] = 0.00000000;
1755
A[83] = 0.00000000;
1756
A[84] = 0.00000000;
1757
A[85] = 0.01305115*G2_;
1758
A[86] = 0.00246914*G2_;
1759
A[87] = 0.07901235*G2_;
1760
A[88] = -0.01693122*G2_;
1761
A[89] = 0.01128748*G2_;
1762
A[90] = 0.00000000;
1763
A[91] = 0.00000000;
1764
A[92] = 0.00000000;
1765
A[93] = 0.00000000;
1766
A[94] = 0.00000000;
1767
A[95] = 0.00000000;
1768
A[96] = 0.00000000;
1769
A[97] = -0.00767196*G3_;
1770
A[98] = -0.00767196*G3_;
1771
A[99] = -0.01693122*G3_;
1772
A[100] = 0.08253968*G3_;
1773
A[101] = -0.01693122*G3_;
1774
A[102] = 0.00000000;
1775
A[103] = 0.00000000;
1776
A[104] = 0.00000000;
1777
A[105] = 0.00000000;
1778
A[106] = 0.00000000;
1779
A[107] = 0.00000000;
1780
A[108] = 0.00000000;
1781
A[109] = -0.00767196*G2_;
1782
A[110] = -0.00767196*G2_;
1783
A[111] = -0.01693122*G2_;
1784
A[112] = 0.08253968*G2_;
1785
A[113] = -0.01693122*G2_;
1786
A[114] = 0.00000000;
1787
A[115] = 0.00000000;
1788
A[116] = 0.00000000;
1789
A[117] = 0.00000000;
1790
A[118] = 0.00000000;
1791
A[119] = 0.00000000;
1792
A[120] = 0.00000000;
1793
A[121] = 0.00246914*G3_;
1794
A[122] = 0.01305115*G3_;
1795
A[123] = 0.01128748*G3_;
1796
A[124] = -0.01693122*G3_;
1797
A[125] = 0.07901235*G3_;
1798
A[126] = 0.00000000;
1799
A[127] = 0.00000000;
1800
A[128] = 0.00000000;
1801
A[129] = 0.00000000;
1802
A[130] = 0.00000000;
1803
A[131] = 0.00000000;
1804
A[132] = 0.00000000;
1805
A[133] = 0.00246914*G2_;
1806
A[134] = 0.01305115*G2_;
1807
A[135] = 0.01128748*G2_;
1808
A[136] = -0.01693122*G2_;
1809
A[137] = 0.07901235*G2_;
1810
A[138] = 0.00000000;
1811
A[139] = 0.00000000;
1812
A[140] = 0.00000000;
1813
A[141] = 0.00000000;
1814
A[142] = 0.00000000;
1815
A[143] = 0.00000000;
1816
A[144] = 0.00000000;
1817
A[145] = 0.00000000;
1818
A[146] = 0.00000000;
1819
A[147] = 0.00000000;
1820
A[148] = 0.00000000;
1821
A[149] = 0.00000000;
1822
A[150] = 0.00000000;
1823
A[151] = 0.00000000;
1824
A[152] = 0.00000000;
1825
A[153] = 0.00000000;
1826
A[154] = 0.00000000;
1827
A[155] = 0.00000000;
1828
A[156] = 0.00000000;
1829
A[157] = 0.00000000;
1830
A[158] = 0.00000000;
1831
A[159] = 0.00000000;
1832
A[160] = 0.00000000;
1833
A[161] = 0.00000000;
1834
A[162] = 0.00000000;
1835
A[163] = 0.00000000;
1836
A[164] = 0.00000000;
1837
A[165] = 0.00000000;
1838
A[166] = 0.00000000;
1839
A[167] = 0.00000000;
1840
A[168] = 0.00000000;
1841
A[169] = 0.00000000;
1842
A[170] = 0.00000000;
1843
A[171] = 0.00000000;
1844
A[172] = 0.00000000;
1845
A[173] = 0.00000000;
1846
A[174] = 0.00000000;
1847
A[175] = 0.00000000;
1848
A[176] = 0.00000000;
1849
A[177] = 0.00000000;
1850
A[178] = 0.00000000;
1851
A[179] = 0.00000000;
1852
A[180] = 0.00000000;
1853
A[181] = 0.00000000;
1854
A[182] = 0.00000000;
1855
A[183] = 0.00000000;
1856
A[184] = 0.00000000;
1857
A[185] = 0.00000000;
1858
A[186] = 0.00000000;
1859
A[187] = 0.00000000;
1860
A[188] = 0.00000000;
1861
A[189] = 0.00000000;
1862
A[190] = 0.00000000;
1863
A[191] = 0.00000000;
1864
A[192] = 0.00000000;
1865
A[193] = 0.00000000;
1866
A[194] = 0.00000000;
1867
A[195] = 0.00000000;
1868
A[196] = 0.00000000;
1869
A[197] = 0.00000000;
1870
A[198] = 0.00000000;
1871
A[199] = 0.00000000;
1872
A[200] = 0.00000000;
1873
A[201] = 0.00000000;
1874
A[202] = 0.00000000;
1875
A[203] = 0.00000000;
1876
A[204] = 0.00000000;
1877
A[205] = 0.00000000;
1878
A[206] = 0.00000000;
1879
A[207] = 0.00000000;
1880
A[208] = 0.00000000;
1881
A[209] = 0.00000000;
1882
A[210] = 0.00000000;
1883
A[211] = 0.00000000;
1884
A[212] = 0.00000000;
1885
A[213] = 0.00000000;
1886
A[214] = 0.00000000;
1887
A[215] = 0.00000000;
1888
A[216] = 0.00000000;
1889
A[217] = 0.00000000;
1890
A[218] = 0.00000000;
1891
A[219] = 0.00000000;
1892
A[220] = 0.00000000;
1893
A[221] = 0.00000000;
1894
A[222] = 0.00000000;
1895
A[223] = 0.00000000;
1896
A[224] = 0.00000000;
1897
A[225] = 0.00000000;
1898
A[226] = 0.00000000;
1899
A[227] = 0.00000000;
1900
A[228] = 0.00000000;
1901
A[229] = 0.00000000;
1902
A[230] = 0.00000000;
1903
A[231] = 0.00000000;
1904
A[232] = 0.00000000;
1905
A[233] = 0.00000000;
1906
A[234] = 0.00000000;
1907
A[235] = 0.00000000;
1908
A[236] = 0.00000000;
1909
A[237] = 0.00000000;
1910
A[238] = 0.00000000;
1911
A[239] = 0.00000000;
1912
A[240] = 0.00000000;
1913
A[241] = 0.00000000;
1914
A[242] = 0.00000000;
1915
A[243] = 0.00000000;
1916
A[244] = 0.00000000;
1917
A[245] = 0.00000000;
1918
A[246] = 0.00000000;
1919
A[247] = 0.00000000;
1920
A[248] = 0.00000000;
1921
A[249] = 0.00000000;
1922
A[250] = 0.00000000;
1923
A[251] = 0.00000000;
1924
A[252] = 0.00000000;
1925
A[253] = 0.00000000;
1926
A[254] = 0.00000000;
1927
A[255] = 0.00000000;
1928
A[256] = 0.00000000;
1929
A[257] = 0.00000000;
1930
A[258] = 0.00000000;
1931
A[259] = 0.00000000;
1932
A[260] = 0.00000000;
1933
A[261] = 0.00000000;
1934
A[262] = 0.00000000;
1935
A[263] = 0.00000000;
1936
A[264] = 0.00000000;
1937
A[265] = 0.00000000;
1938
A[266] = 0.00000000;
1939
A[267] = 0.00000000;
1940
A[268] = 0.00000000;
1941
A[269] = 0.00000000;
1942
A[270] = 0.00000000;
1943
A[271] = 0.00000000;
1944
A[272] = 0.00000000;
1945
A[273] = 0.00000000;
1946
A[274] = 0.00000000;
1947
A[275] = 0.00000000;
1948
A[276] = 0.00000000;
1949
A[277] = 0.00000000;
1950
A[278] = 0.00000000;
1951
A[279] = 0.00000000;
1952
A[280] = 0.00000000;
1953
A[281] = 0.00000000;
1954
A[282] = 0.00000000;
1955
A[283] = 0.00000000;
1956
A[284] = 0.00000000;
1957
A[285] = 0.00000000;
1958
A[286] = 0.00000000;
1959
A[287] = 0.00000000;
1960
A[288] = 0.00000000;
1961
A[289] = 0.00000000;
1962
A[290] = 0.00000000;
1963
A[291] = 0.00000000;
1964
A[292] = 0.00000000;
1965
A[293] = 0.00000000;
1966
A[294] = 0.00000000;
1967
A[295] = 0.00000000;
1968
A[296] = 0.00000000;
1969
A[297] = 0.00000000;
1970
A[298] = 0.00000000;
1971
A[299] = 0.00000000;
1972
A[300] = 0.00000000;
1973
A[301] = 0.00000000;
1974
A[302] = 0.00000000;
1975
A[303] = 0.00000000;
1976
A[304] = 0.00000000;
1977
A[305] = 0.00000000;
1978
A[306] = 0.00000000;
1979
A[307] = 0.00000000;
1980
A[308] = 0.00000000;
1981
A[309] = 0.00000000;
1982
A[310] = 0.00000000;
1983
A[311] = 0.00000000;
1984
A[312] = 0.00000000;
1985
A[313] = 0.01287478*G1_;
1986
A[314] = -0.00127866*G1_;
1987
A[315] = 0.01305115*G1_;
1988
A[316] = -0.00767196*G1_;
1989
A[317] = 0.00246914*G1_;
1990
A[318] = 0.00000000;
1991
A[319] = 0.00000000;
1992
A[320] = 0.00000000;
1993
A[321] = 0.00000000;
1994
A[322] = 0.00000000;
1995
A[323] = 0.00000000;
1996
A[324] = 0.00000000;
1997
A[325] = 0.01287478*G0_;
1998
A[326] = -0.00127866*G0_;
1999
A[327] = 0.01305115*G0_;
2000
A[328] = -0.00767196*G0_;
2001
A[329] = 0.00246914*G0_;
2002
A[330] = 0.00000000;
2003
A[331] = 0.00000000;
2004
A[332] = 0.00000000;
2005
A[333] = 0.00000000;
2006
A[334] = 0.00000000;
2007
A[335] = 0.00000000;
2008
A[336] = 0.00000000;
2009
A[337] = -0.00127866*G1_;
2010
A[338] = 0.01287478*G1_;
2011
A[339] = 0.00246914*G1_;
2012
A[340] = -0.00767196*G1_;
2013
A[341] = 0.01305115*G1_;
2014
A[342] = 0.00000000;
2015
A[343] = 0.00000000;
2016
A[344] = 0.00000000;
2017
A[345] = 0.00000000;
2018
A[346] = 0.00000000;
2019
A[347] = 0.00000000;
2020
A[348] = 0.00000000;
2021
A[349] = -0.00127866*G0_;
2022
A[350] = 0.01287478*G0_;
2023
A[351] = 0.00246914*G0_;
2024
A[352] = -0.00767196*G0_;
2025
A[353] = 0.01305115*G0_;
2026
A[354] = 0.00000000;
2027
A[355] = 0.00000000;
2028
A[356] = 0.00000000;
2029
A[357] = 0.00000000;
2030
A[358] = 0.00000000;
2031
A[359] = 0.00000000;
2032
A[360] = 0.00000000;
2033
A[361] = 0.01305115*G1_;
2034
A[362] = 0.00246914*G1_;
2035
A[363] = 0.07901235*G1_;
2036
A[364] = -0.01693122*G1_;
2037
A[365] = 0.01128748*G1_;
2038
A[366] = 0.00000000;
2039
A[367] = 0.00000000;
2040
A[368] = 0.00000000;
2041
A[369] = 0.00000000;
2042
A[370] = 0.00000000;
2043
A[371] = 0.00000000;
2044
A[372] = 0.00000000;
2045
A[373] = 0.01305115*G0_;
2046
A[374] = 0.00246914*G0_;
2047
A[375] = 0.07901235*G0_;
2048
A[376] = -0.01693122*G0_;
2049
A[377] = 0.01128748*G0_;
2050
A[378] = 0.00000000;
2051
A[379] = 0.00000000;
2052
A[380] = 0.00000000;
2053
A[381] = 0.00000000;
2054
A[382] = 0.00000000;
2055
A[383] = 0.00000000;
2056
A[384] = 0.00000000;
2057
A[385] = -0.00767196*G1_;
2058
A[386] = -0.00767196*G1_;
2059
A[387] = -0.01693122*G1_;
2060
A[388] = 0.08253968*G1_;
2061
A[389] = -0.01693122*G1_;
2062
A[390] = 0.00000000;
2063
A[391] = 0.00000000;
2064
A[392] = 0.00000000;
2065
A[393] = 0.00000000;
2066
A[394] = 0.00000000;
2067
A[395] = 0.00000000;
2068
A[396] = 0.00000000;
2069
A[397] = -0.00767196*G0_;
2070
A[398] = -0.00767196*G0_;
2071
A[399] = -0.01693122*G0_;
2072
A[400] = 0.08253968*G0_;
2073
A[401] = -0.01693122*G0_;
2074
A[402] = 0.00000000;
2075
A[403] = 0.00000000;
2076
A[404] = 0.00000000;
2077
A[405] = 0.00000000;
2078
A[406] = 0.00000000;
2079
A[407] = 0.00000000;
2080
A[408] = 0.00000000;
2081
A[409] = 0.00246914*G1_;
2082
A[410] = 0.01305115*G1_;
2083
A[411] = 0.01128748*G1_;
2084
A[412] = -0.01693122*G1_;
2085
A[413] = 0.07901235*G1_;
2086
A[414] = 0.00000000;
2087
A[415] = 0.00000000;
2088
A[416] = 0.00000000;
2089
A[417] = 0.00000000;
2090
A[418] = 0.00000000;
2091
A[419] = 0.00000000;
2092
A[420] = 0.00000000;
2093
A[421] = 0.00246914*G0_;
2094
A[422] = 0.01305115*G0_;
2095
A[423] = 0.01128748*G0_;
2096
A[424] = -0.01693122*G0_;
2097
A[425] = 0.07901235*G0_;
2098
A[426] = 0.00000000;
2099
A[427] = 0.00000000;
2100
A[428] = 0.00000000;
2101
A[429] = 0.00000000;
2102
A[430] = 0.00000000;
2103
A[431] = 0.00000000;
2104
A[432] = 0.00000000;
2105
A[433] = 0.00000000;
2106
A[434] = 0.00000000;
2107
A[435] = 0.00000000;
2108
A[436] = 0.00000000;
2109
A[437] = 0.00000000;
2110
A[438] = 0.00000000;
2111
A[439] = 0.00000000;
2112
A[440] = 0.00000000;
2113
A[441] = 0.00000000;
2114
A[442] = 0.00000000;
2115
A[443] = 0.00000000;
2116
A[444] = 0.00000000;
2117
A[445] = 0.00000000;
2118
A[446] = 0.00000000;
2119
A[447] = 0.00000000;
2120
A[448] = 0.00000000;
2121
A[449] = 0.00000000;
2122
A[450] = 0.00000000;
2123
A[451] = 0.00000000;
2124
A[452] = 0.00000000;
2125
A[453] = 0.00000000;
2126
A[454] = 0.00000000;
2127
A[455] = 0.00000000;
2128
A[456] = 0.00000000;
2129
A[457] = 0.00000000;
2130
A[458] = 0.00000000;
2131
A[459] = 0.00000000;
2132
A[460] = 0.00000000;
2133
A[461] = 0.00000000;
2134
A[462] = 0.00000000;
2135
A[463] = 0.00000000;
2136
A[464] = 0.00000000;
2137
A[465] = 0.00000000;
2138
A[466] = 0.00000000;
2139
A[467] = 0.00000000;
2140
A[468] = 0.00000000;
2141
A[469] = 0.00000000;
2142
A[470] = 0.00000000;
2143
A[471] = 0.00000000;
2144
A[472] = 0.00000000;
2145
A[473] = 0.00000000;
2146
A[474] = 0.00000000;
2147
A[475] = 0.00000000;
2148
A[476] = 0.00000000;
2149
A[477] = 0.00000000;
2150
A[478] = 0.00000000;
2151
A[479] = 0.00000000;
2152
A[480] = 0.00000000;
2153
A[481] = 0.00000000;
2154
A[482] = 0.00000000;
2155
A[483] = 0.00000000;
2156
A[484] = 0.00000000;
2157
A[485] = 0.00000000;
2158
A[486] = 0.00000000;
2159
A[487] = 0.00000000;
2160
A[488] = 0.00000000;
2161
A[489] = 0.00000000;
2162
A[490] = 0.00000000;
2163
A[491] = 0.00000000;
2164
A[492] = 0.00000000;
2165
A[493] = 0.00000000;
2166
A[494] = 0.00000000;
2167
A[495] = 0.00000000;
2168
A[496] = 0.00000000;
2169
A[497] = 0.00000000;
2170
A[498] = 0.00000000;
2171
A[499] = 0.00000000;
2172
A[500] = 0.00000000;
2173
A[501] = 0.00000000;
2174
A[502] = 0.00000000;
2175
A[503] = 0.00000000;
2176
A[504] = 0.00000000;
2177
A[505] = 0.00000000;
2178
A[506] = 0.00000000;
2179
A[507] = 0.00000000;
2180
A[508] = 0.00000000;
2181
A[509] = 0.00000000;
2182
A[510] = 0.00000000;
2183
A[511] = 0.00000000;
2184
A[512] = 0.00000000;
2185
A[513] = 0.00000000;
2186
A[514] = 0.00000000;
2187
A[515] = 0.00000000;
2188
A[516] = 0.00000000;
2189
A[517] = 0.00000000;
2190
A[518] = 0.00000000;
2191
A[519] = 0.00000000;
2192
A[520] = 0.00000000;
2193
A[521] = 0.00000000;
2194
A[522] = 0.00000000;
2195
A[523] = 0.00000000;
2196
A[524] = 0.00000000;
2197
A[525] = 0.00000000;
2198
A[526] = 0.00000000;
2199
A[527] = 0.00000000;
2200
A[528] = 0.00000000;
2201
A[529] = 0.00000000;
2202
A[530] = 0.00000000;
2203
A[531] = 0.00000000;
2204
A[532] = 0.00000000;
2205
A[533] = 0.00000000;
2206
A[534] = 0.00000000;
2207
A[535] = 0.00000000;
2208
A[536] = 0.00000000;
2209
A[537] = 0.00000000;
2210
A[538] = 0.00000000;
2211
A[539] = 0.00000000;
2212
A[540] = 0.00000000;
2213
A[541] = 0.00000000;
2214
A[542] = 0.00000000;
2215
A[543] = 0.00000000;
2216
A[544] = 0.00000000;
2217
A[545] = 0.00000000;
2218
A[546] = 0.00000000;
2219
A[547] = 0.00000000;
2220
A[548] = 0.00000000;
2221
A[549] = 0.00000000;
2222
A[550] = 0.00000000;
2223
A[551] = 0.00000000;
2224
A[552] = 0.00000000;
2225
A[553] = 0.00000000;
2226
A[554] = 0.00000000;
2227
A[555] = 0.00000000;
2228
A[556] = 0.00000000;
2229
A[557] = 0.00000000;
2230
A[558] = 0.00000000;
2231
A[559] = 0.00000000;
2232
A[560] = 0.00000000;
2233
A[561] = 0.00000000;
2234
A[562] = 0.00000000;
2235
A[563] = 0.00000000;
2236
A[564] = 0.00000000;
2237
A[565] = 0.00000000;
2238
A[566] = 0.00000000;
2239
A[567] = 0.00000000;
2240
A[568] = 0.00000000;
2241
A[569] = 0.00000000;
2242
A[570] = 0.00000000;
2243
A[571] = 0.00000000;
2244
A[572] = 0.00000000;
2245
A[573] = 0.00000000;
2246
A[574] = 0.00000000;
2247
A[575] = 0.00000000;
2248
break;
2249
}
2250
case 1:
2251
{
2252
A[0] = 0.00000000;
2253
A[1] = 0.00000000;
2254
A[2] = 0.00000000;
2255
A[3] = 0.00000000;
2256
A[4] = 0.00000000;
2257
A[5] = 0.00000000;
2258
A[6] = 0.00000000;
2259
A[7] = 0.00000000;
2260
A[8] = 0.00000000;
2261
A[9] = 0.00000000;
2262
A[10] = 0.00000000;
2263
A[11] = 0.00000000;
2264
A[12] = 0.00000000;
2265
A[13] = 0.00000000;
2266
A[14] = 0.00000000;
2267
A[15] = 0.00000000;
2268
A[16] = 0.00000000;
2269
A[17] = 0.00000000;
2270
A[18] = 0.00000000;
2271
A[19] = 0.00000000;
2272
A[20] = 0.00000000;
2273
A[21] = 0.00000000;
2274
A[22] = 0.00000000;
2275
A[23] = 0.00000000;
2276
A[24] = 0.00000000;
2277
A[25] = 0.01287478*G3_;
2278
A[26] = -0.00127866*G3_;
2279
A[27] = 0.01305115*G3_;
2280
A[28] = -0.00767196*G3_;
2281
A[29] = 0.00246914*G3_;
2282
A[30] = 0.00000000;
2283
A[31] = 0.00000000;
2284
A[32] = 0.00000000;
2285
A[33] = 0.00000000;
2286
A[34] = 0.00000000;
2287
A[35] = 0.00000000;
2288
A[36] = 0.01287478*G2_;
2289
A[37] = 0.00000000;
2290
A[38] = -0.00127866*G2_;
2291
A[39] = 0.00000000;
2292
A[40] = 0.00000000;
2293
A[41] = 0.00000000;
2294
A[42] = 0.01305115*G2_;
2295
A[43] = -0.00767196*G2_;
2296
A[44] = 0.00246914*G2_;
2297
A[45] = 0.00000000;
2298
A[46] = 0.00000000;
2299
A[47] = 0.00000000;
2300
A[48] = 0.00000000;
2301
A[49] = -0.00127866*G3_;
2302
A[50] = 0.01287478*G3_;
2303
A[51] = 0.00246914*G3_;
2304
A[52] = -0.00767196*G3_;
2305
A[53] = 0.01305115*G3_;
2306
A[54] = 0.00000000;
2307
A[55] = 0.00000000;
2308
A[56] = 0.00000000;
2309
A[57] = 0.00000000;
2310
A[58] = 0.00000000;
2311
A[59] = 0.00000000;
2312
A[60] = -0.00127866*G2_;
2313
A[61] = 0.00000000;
2314
A[62] = 0.01287478*G2_;
2315
A[63] = 0.00000000;
2316
A[64] = 0.00000000;
2317
A[65] = 0.00000000;
2318
A[66] = 0.00246914*G2_;
2319
A[67] = -0.00767196*G2_;
2320
A[68] = 0.01305115*G2_;
2321
A[69] = 0.00000000;
2322
A[70] = 0.00000000;
2323
A[71] = 0.00000000;
2324
A[72] = 0.00000000;
2325
A[73] = 0.01305115*G3_;
2326
A[74] = 0.00246914*G3_;
2327
A[75] = 0.07901235*G3_;
2328
A[76] = -0.01693122*G3_;
2329
A[77] = 0.01128748*G3_;
2330
A[78] = 0.00000000;
2331
A[79] = 0.00000000;
2332
A[80] = 0.00000000;
2333
A[81] = 0.00000000;
2334
A[82] = 0.00000000;
2335
A[83] = 0.00000000;
2336
A[84] = 0.01305115*G2_;
2337
A[85] = 0.00000000;
2338
A[86] = 0.00246914*G2_;
2339
A[87] = 0.00000000;
2340
A[88] = 0.00000000;
2341
A[89] = 0.00000000;
2342
A[90] = 0.07901235*G2_;
2343
A[91] = -0.01693122*G2_;
2344
A[92] = 0.01128748*G2_;
2345
A[93] = 0.00000000;
2346
A[94] = 0.00000000;
2347
A[95] = 0.00000000;
2348
A[96] = 0.00000000;
2349
A[97] = -0.00767196*G3_;
2350
A[98] = -0.00767196*G3_;
2351
A[99] = -0.01693122*G3_;
2352
A[100] = 0.08253968*G3_;
2353
A[101] = -0.01693122*G3_;
2354
A[102] = 0.00000000;
2355
A[103] = 0.00000000;
2356
A[104] = 0.00000000;
2357
A[105] = 0.00000000;
2358
A[106] = 0.00000000;
2359
A[107] = 0.00000000;
2360
A[108] = -0.00767196*G2_;
2361
A[109] = 0.00000000;
2362
A[110] = -0.00767196*G2_;
2363
A[111] = 0.00000000;
2364
A[112] = 0.00000000;
2365
A[113] = 0.00000000;
2366
A[114] = -0.01693122*G2_;
2367
A[115] = 0.08253968*G2_;
2368
A[116] = -0.01693122*G2_;
2369
A[117] = 0.00000000;
2370
A[118] = 0.00000000;
2371
A[119] = 0.00000000;
2372
A[120] = 0.00000000;
2373
A[121] = 0.00246914*G3_;
2374
A[122] = 0.01305115*G3_;
2375
A[123] = 0.01128748*G3_;
2376
A[124] = -0.01693122*G3_;
2377
A[125] = 0.07901235*G3_;
2378
A[126] = 0.00000000;
2379
A[127] = 0.00000000;
2380
A[128] = 0.00000000;
2381
A[129] = 0.00000000;
2382
A[130] = 0.00000000;
2383
A[131] = 0.00000000;
2384
A[132] = 0.00246914*G2_;
2385
A[133] = 0.00000000;
2386
A[134] = 0.01305115*G2_;
2387
A[135] = 0.00000000;
2388
A[136] = 0.00000000;
2389
A[137] = 0.00000000;
2390
A[138] = 0.01128748*G2_;
2391
A[139] = -0.01693122*G2_;
2392
A[140] = 0.07901235*G2_;
2393
A[141] = 0.00000000;
2394
A[142] = 0.00000000;
2395
A[143] = 0.00000000;
2396
A[144] = 0.00000000;
2397
A[145] = 0.00000000;
2398
A[146] = 0.00000000;
2399
A[147] = 0.00000000;
2400
A[148] = 0.00000000;
2401
A[149] = 0.00000000;
2402
A[150] = 0.00000000;
2403
A[151] = 0.00000000;
2404
A[152] = 0.00000000;
2405
A[153] = 0.00000000;
2406
A[154] = 0.00000000;
2407
A[155] = 0.00000000;
2408
A[156] = 0.00000000;
2409
A[157] = 0.00000000;
2410
A[158] = 0.00000000;
2411
A[159] = 0.00000000;
2412
A[160] = 0.00000000;
2413
A[161] = 0.00000000;
2414
A[162] = 0.00000000;
2415
A[163] = 0.00000000;
2416
A[164] = 0.00000000;
2417
A[165] = 0.00000000;
2418
A[166] = 0.00000000;
2419
A[167] = 0.00000000;
2420
A[168] = 0.00000000;
2421
A[169] = 0.00000000;
2422
A[170] = 0.00000000;
2423
A[171] = 0.00000000;
2424
A[172] = 0.00000000;
2425
A[173] = 0.00000000;
2426
A[174] = 0.00000000;
2427
A[175] = 0.00000000;
2428
A[176] = 0.00000000;
2429
A[177] = 0.00000000;
2430
A[178] = 0.00000000;
2431
A[179] = 0.00000000;
2432
A[180] = 0.00000000;
2433
A[181] = 0.00000000;
2434
A[182] = 0.00000000;
2435
A[183] = 0.00000000;
2436
A[184] = 0.00000000;
2437
A[185] = 0.00000000;
2438
A[186] = 0.00000000;
2439
A[187] = 0.00000000;
2440
A[188] = 0.00000000;
2441
A[189] = 0.00000000;
2442
A[190] = 0.00000000;
2443
A[191] = 0.00000000;
2444
A[192] = 0.00000000;
2445
A[193] = 0.00000000;
2446
A[194] = 0.00000000;
2447
A[195] = 0.00000000;
2448
A[196] = 0.00000000;
2449
A[197] = 0.00000000;
2450
A[198] = 0.00000000;
2451
A[199] = 0.00000000;
2452
A[200] = 0.00000000;
2453
A[201] = 0.00000000;
2454
A[202] = 0.00000000;
2455
A[203] = 0.00000000;
2456
A[204] = 0.00000000;
2457
A[205] = 0.00000000;
2458
A[206] = 0.00000000;
2459
A[207] = 0.00000000;
2460
A[208] = 0.00000000;
2461
A[209] = 0.00000000;
2462
A[210] = 0.00000000;
2463
A[211] = 0.00000000;
2464
A[212] = 0.00000000;
2465
A[213] = 0.00000000;
2466
A[214] = 0.00000000;
2467
A[215] = 0.00000000;
2468
A[216] = 0.00000000;
2469
A[217] = 0.00000000;
2470
A[218] = 0.00000000;
2471
A[219] = 0.00000000;
2472
A[220] = 0.00000000;
2473
A[221] = 0.00000000;
2474
A[222] = 0.00000000;
2475
A[223] = 0.00000000;
2476
A[224] = 0.00000000;
2477
A[225] = 0.00000000;
2478
A[226] = 0.00000000;
2479
A[227] = 0.00000000;
2480
A[228] = 0.00000000;
2481
A[229] = 0.00000000;
2482
A[230] = 0.00000000;
2483
A[231] = 0.00000000;
2484
A[232] = 0.00000000;
2485
A[233] = 0.00000000;
2486
A[234] = 0.00000000;
2487
A[235] = 0.00000000;
2488
A[236] = 0.00000000;
2489
A[237] = 0.00000000;
2490
A[238] = 0.00000000;
2491
A[239] = 0.00000000;
2492
A[240] = 0.00000000;
2493
A[241] = 0.00000000;
2494
A[242] = 0.00000000;
2495
A[243] = 0.00000000;
2496
A[244] = 0.00000000;
2497
A[245] = 0.00000000;
2498
A[246] = 0.00000000;
2499
A[247] = 0.00000000;
2500
A[248] = 0.00000000;
2501
A[249] = 0.00000000;
2502
A[250] = 0.00000000;
2503
A[251] = 0.00000000;
2504
A[252] = 0.00000000;
2505
A[253] = 0.00000000;
2506
A[254] = 0.00000000;
2507
A[255] = 0.00000000;
2508
A[256] = 0.00000000;
2509
A[257] = 0.00000000;
2510
A[258] = 0.00000000;
2511
A[259] = 0.00000000;
2512
A[260] = 0.00000000;
2513
A[261] = 0.00000000;
2514
A[262] = 0.00000000;
2515
A[263] = 0.00000000;
2516
A[264] = 0.00000000;
2517
A[265] = 0.00000000;
2518
A[266] = 0.00000000;
2519
A[267] = 0.00000000;
2520
A[268] = 0.00000000;
2521
A[269] = 0.00000000;
2522
A[270] = 0.00000000;
2523
A[271] = 0.00000000;
2524
A[272] = 0.00000000;
2525
A[273] = 0.00000000;
2526
A[274] = 0.00000000;
2527
A[275] = 0.00000000;
2528
A[276] = 0.00000000;
2529
A[277] = 0.00000000;
2530
A[278] = 0.00000000;
2531
A[279] = 0.00000000;
2532
A[280] = 0.00000000;
2533
A[281] = 0.00000000;
2534
A[282] = 0.00000000;
2535
A[283] = 0.00000000;
2536
A[284] = 0.00000000;
2537
A[285] = 0.00000000;
2538
A[286] = 0.00000000;
2539
A[287] = 0.00000000;
2540
A[288] = 0.00000000;
2541
A[289] = 0.01287478*G1_;
2542
A[290] = -0.00127866*G1_;
2543
A[291] = 0.01305115*G1_;
2544
A[292] = -0.00767196*G1_;
2545
A[293] = 0.00246914*G1_;
2546
A[294] = 0.00000000;
2547
A[295] = 0.00000000;
2548
A[296] = 0.00000000;
2549
A[297] = 0.00000000;
2550
A[298] = 0.00000000;
2551
A[299] = 0.00000000;
2552
A[300] = 0.01287478*G0_;
2553
A[301] = 0.00000000;
2554
A[302] = -0.00127866*G0_;
2555
A[303] = 0.00000000;
2556
A[304] = 0.00000000;
2557
A[305] = 0.00000000;
2558
A[306] = 0.01305115*G0_;
2559
A[307] = -0.00767196*G0_;
2560
A[308] = 0.00246914*G0_;
2561
A[309] = 0.00000000;
2562
A[310] = 0.00000000;
2563
A[311] = 0.00000000;
2564
A[312] = 0.00000000;
2565
A[313] = 0.00000000;
2566
A[314] = 0.00000000;
2567
A[315] = 0.00000000;
2568
A[316] = 0.00000000;
2569
A[317] = 0.00000000;
2570
A[318] = 0.00000000;
2571
A[319] = 0.00000000;
2572
A[320] = 0.00000000;
2573
A[321] = 0.00000000;
2574
A[322] = 0.00000000;
2575
A[323] = 0.00000000;
2576
A[324] = 0.00000000;
2577
A[325] = 0.00000000;
2578
A[326] = 0.00000000;
2579
A[327] = 0.00000000;
2580
A[328] = 0.00000000;
2581
A[329] = 0.00000000;
2582
A[330] = 0.00000000;
2583
A[331] = 0.00000000;
2584
A[332] = 0.00000000;
2585
A[333] = 0.00000000;
2586
A[334] = 0.00000000;
2587
A[335] = 0.00000000;
2588
A[336] = 0.00000000;
2589
A[337] = -0.00127866*G1_;
2590
A[338] = 0.01287478*G1_;
2591
A[339] = 0.00246914*G1_;
2592
A[340] = -0.00767196*G1_;
2593
A[341] = 0.01305115*G1_;
2594
A[342] = 0.00000000;
2595
A[343] = 0.00000000;
2596
A[344] = 0.00000000;
2597
A[345] = 0.00000000;
2598
A[346] = 0.00000000;
2599
A[347] = 0.00000000;
2600
A[348] = -0.00127866*G0_;
2601
A[349] = 0.00000000;
2602
A[350] = 0.01287478*G0_;
2603
A[351] = 0.00000000;
2604
A[352] = 0.00000000;
2605
A[353] = 0.00000000;
2606
A[354] = 0.00246914*G0_;
2607
A[355] = -0.00767196*G0_;
2608
A[356] = 0.01305115*G0_;
2609
A[357] = 0.00000000;
2610
A[358] = 0.00000000;
2611
A[359] = 0.00000000;
2612
A[360] = 0.00000000;
2613
A[361] = 0.00000000;
2614
A[362] = 0.00000000;
2615
A[363] = 0.00000000;
2616
A[364] = 0.00000000;
2617
A[365] = 0.00000000;
2618
A[366] = 0.00000000;
2619
A[367] = 0.00000000;
2620
A[368] = 0.00000000;
2621
A[369] = 0.00000000;
2622
A[370] = 0.00000000;
2623
A[371] = 0.00000000;
2624
A[372] = 0.00000000;
2625
A[373] = 0.00000000;
2626
A[374] = 0.00000000;
2627
A[375] = 0.00000000;
2628
A[376] = 0.00000000;
2629
A[377] = 0.00000000;
2630
A[378] = 0.00000000;
2631
A[379] = 0.00000000;
2632
A[380] = 0.00000000;
2633
A[381] = 0.00000000;
2634
A[382] = 0.00000000;
2635
A[383] = 0.00000000;
2636
A[384] = 0.00000000;
2637
A[385] = 0.00000000;
2638
A[386] = 0.00000000;
2639
A[387] = 0.00000000;
2640
A[388] = 0.00000000;
2641
A[389] = 0.00000000;
2642
A[390] = 0.00000000;
2643
A[391] = 0.00000000;
2644
A[392] = 0.00000000;
2645
A[393] = 0.00000000;
2646
A[394] = 0.00000000;
2647
A[395] = 0.00000000;
2648
A[396] = 0.00000000;
2649
A[397] = 0.00000000;
2650
A[398] = 0.00000000;
2651
A[399] = 0.00000000;
2652
A[400] = 0.00000000;
2653
A[401] = 0.00000000;
2654
A[402] = 0.00000000;
2655
A[403] = 0.00000000;
2656
A[404] = 0.00000000;
2657
A[405] = 0.00000000;
2658
A[406] = 0.00000000;
2659
A[407] = 0.00000000;
2660
A[408] = 0.00000000;
2661
A[409] = 0.00000000;
2662
A[410] = 0.00000000;
2663
A[411] = 0.00000000;
2664
A[412] = 0.00000000;
2665
A[413] = 0.00000000;
2666
A[414] = 0.00000000;
2667
A[415] = 0.00000000;
2668
A[416] = 0.00000000;
2669
A[417] = 0.00000000;
2670
A[418] = 0.00000000;
2671
A[419] = 0.00000000;
2672
A[420] = 0.00000000;
2673
A[421] = 0.00000000;
2674
A[422] = 0.00000000;
2675
A[423] = 0.00000000;
2676
A[424] = 0.00000000;
2677
A[425] = 0.00000000;
2678
A[426] = 0.00000000;
2679
A[427] = 0.00000000;
2680
A[428] = 0.00000000;
2681
A[429] = 0.00000000;
2682
A[430] = 0.00000000;
2683
A[431] = 0.00000000;
2684
A[432] = 0.00000000;
2685
A[433] = 0.01305115*G1_;
2686
A[434] = 0.00246914*G1_;
2687
A[435] = 0.07901235*G1_;
2688
A[436] = -0.01693122*G1_;
2689
A[437] = 0.01128748*G1_;
2690
A[438] = 0.00000000;
2691
A[439] = 0.00000000;
2692
A[440] = 0.00000000;
2693
A[441] = 0.00000000;
2694
A[442] = 0.00000000;
2695
A[443] = 0.00000000;
2696
A[444] = 0.01305115*G0_;
2697
A[445] = 0.00000000;
2698
A[446] = 0.00246914*G0_;
2699
A[447] = 0.00000000;
2700
A[448] = 0.00000000;
2701
A[449] = 0.00000000;
2702
A[450] = 0.07901235*G0_;
2703
A[451] = -0.01693122*G0_;
2704
A[452] = 0.01128748*G0_;
2705
A[453] = 0.00000000;
2706
A[454] = 0.00000000;
2707
A[455] = 0.00000000;
2708
A[456] = 0.00000000;
2709
A[457] = -0.00767196*G1_;
2710
A[458] = -0.00767196*G1_;
2711
A[459] = -0.01693122*G1_;
2712
A[460] = 0.08253968*G1_;
2713
A[461] = -0.01693122*G1_;
2714
A[462] = 0.00000000;
2715
A[463] = 0.00000000;
2716
A[464] = 0.00000000;
2717
A[465] = 0.00000000;
2718
A[466] = 0.00000000;
2719
A[467] = 0.00000000;
2720
A[468] = -0.00767196*G0_;
2721
A[469] = 0.00000000;
2722
A[470] = -0.00767196*G0_;
2723
A[471] = 0.00000000;
2724
A[472] = 0.00000000;
2725
A[473] = 0.00000000;
2726
A[474] = -0.01693122*G0_;
2727
A[475] = 0.08253968*G0_;
2728
A[476] = -0.01693122*G0_;
2729
A[477] = 0.00000000;
2730
A[478] = 0.00000000;
2731
A[479] = 0.00000000;
2732
A[480] = 0.00000000;
2733
A[481] = 0.00246914*G1_;
2734
A[482] = 0.01305115*G1_;
2735
A[483] = 0.01128748*G1_;
2736
A[484] = -0.01693122*G1_;
2737
A[485] = 0.07901235*G1_;
2738
A[486] = 0.00000000;
2739
A[487] = 0.00000000;
2740
A[488] = 0.00000000;
2741
A[489] = 0.00000000;
2742
A[490] = 0.00000000;
2743
A[491] = 0.00000000;
2744
A[492] = 0.00246914*G0_;
2745
A[493] = 0.00000000;
2746
A[494] = 0.01305115*G0_;
2747
A[495] = 0.00000000;
2748
A[496] = 0.00000000;
2749
A[497] = 0.00000000;
2750
A[498] = 0.01128748*G0_;
2751
A[499] = -0.01693122*G0_;
2752
A[500] = 0.07901235*G0_;
2753
A[501] = 0.00000000;
2754
A[502] = 0.00000000;
2755
A[503] = 0.00000000;
2756
A[504] = 0.00000000;
2757
A[505] = 0.00000000;
2758
A[506] = 0.00000000;
2759
A[507] = 0.00000000;
2760
A[508] = 0.00000000;
2761
A[509] = 0.00000000;
2762
A[510] = 0.00000000;
2763
A[511] = 0.00000000;
2764
A[512] = 0.00000000;
2765
A[513] = 0.00000000;
2766
A[514] = 0.00000000;
2767
A[515] = 0.00000000;
2768
A[516] = 0.00000000;
2769
A[517] = 0.00000000;
2770
A[518] = 0.00000000;
2771
A[519] = 0.00000000;
2772
A[520] = 0.00000000;
2773
A[521] = 0.00000000;
2774
A[522] = 0.00000000;
2775
A[523] = 0.00000000;
2776
A[524] = 0.00000000;
2777
A[525] = 0.00000000;
2778
A[526] = 0.00000000;
2779
A[527] = 0.00000000;
2780
A[528] = 0.00000000;
2781
A[529] = 0.00000000;
2782
A[530] = 0.00000000;
2783
A[531] = 0.00000000;
2784
A[532] = 0.00000000;
2785
A[533] = 0.00000000;
2786
A[534] = 0.00000000;
2787
A[535] = 0.00000000;
2788
A[536] = 0.00000000;
2789
A[537] = 0.00000000;
2790
A[538] = 0.00000000;
2791
A[539] = 0.00000000;
2792
A[540] = 0.00000000;
2793
A[541] = 0.00000000;
2794
A[542] = 0.00000000;
2795
A[543] = 0.00000000;
2796
A[544] = 0.00000000;
2797
A[545] = 0.00000000;
2798
A[546] = 0.00000000;
2799
A[547] = 0.00000000;
2800
A[548] = 0.00000000;
2801
A[549] = 0.00000000;
2802
A[550] = 0.00000000;
2803
A[551] = 0.00000000;
2804
A[552] = 0.00000000;
2805
A[553] = 0.00000000;
2806
A[554] = 0.00000000;
2807
A[555] = 0.00000000;
2808
A[556] = 0.00000000;
2809
A[557] = 0.00000000;
2810
A[558] = 0.00000000;
2811
A[559] = 0.00000000;
2812
A[560] = 0.00000000;
2813
A[561] = 0.00000000;
2814
A[562] = 0.00000000;
2815
A[563] = 0.00000000;
2816
A[564] = 0.00000000;
2817
A[565] = 0.00000000;
2818
A[566] = 0.00000000;
2819
A[567] = 0.00000000;
2820
A[568] = 0.00000000;
2821
A[569] = 0.00000000;
2822
A[570] = 0.00000000;
2823
A[571] = 0.00000000;
2824
A[572] = 0.00000000;
2825
A[573] = 0.00000000;
2826
A[574] = 0.00000000;
2827
A[575] = 0.00000000;
2828
break;
2829
}
2830
case 2:
2831
{
2832
A[0] = 0.00000000;
2833
A[1] = 0.00000000;
2834
A[2] = 0.00000000;
2835
A[3] = 0.00000000;
2836
A[4] = 0.00000000;
2837
A[5] = 0.00000000;
2838
A[6] = 0.00000000;
2839
A[7] = 0.00000000;
2840
A[8] = 0.00000000;
2841
A[9] = 0.00000000;
2842
A[10] = 0.00000000;
2843
A[11] = 0.00000000;
2844
A[12] = 0.00000000;
2845
A[13] = 0.00000000;
2846
A[14] = 0.00000000;
2847
A[15] = 0.00000000;
2848
A[16] = 0.00000000;
2849
A[17] = 0.00000000;
2850
A[18] = 0.00000000;
2851
A[19] = 0.00000000;
2852
A[20] = 0.00000000;
2853
A[21] = 0.00000000;
2854
A[22] = 0.00000000;
2855
A[23] = 0.00000000;
2856
A[24] = 0.00000000;
2857
A[25] = 0.01287478*G3_;
2858
A[26] = -0.00127866*G3_;
2859
A[27] = 0.01305115*G3_;
2860
A[28] = -0.00767196*G3_;
2861
A[29] = 0.00246914*G3_;
2862
A[30] = 0.00000000;
2863
A[31] = 0.00000000;
2864
A[32] = 0.00000000;
2865
A[33] = 0.00000000;
2866
A[34] = 0.00000000;
2867
A[35] = 0.00000000;
2868
A[36] = 0.01287478*G2_;
2869
A[37] = -0.00127866*G2_;
2870
A[38] = 0.00000000;
2871
A[39] = 0.00000000;
2872
A[40] = 0.00000000;
2873
A[41] = 0.00000000;
2874
A[42] = 0.00000000;
2875
A[43] = 0.00000000;
2876
A[44] = 0.00000000;
2877
A[45] = 0.01305115*G2_;
2878
A[46] = -0.00767196*G2_;
2879
A[47] = 0.00246914*G2_;
2880
A[48] = 0.00000000;
2881
A[49] = -0.00127866*G3_;
2882
A[50] = 0.01287478*G3_;
2883
A[51] = 0.00246914*G3_;
2884
A[52] = -0.00767196*G3_;
2885
A[53] = 0.01305115*G3_;
2886
A[54] = 0.00000000;
2887
A[55] = 0.00000000;
2888
A[56] = 0.00000000;
2889
A[57] = 0.00000000;
2890
A[58] = 0.00000000;
2891
A[59] = 0.00000000;
2892
A[60] = -0.00127866*G2_;
2893
A[61] = 0.01287478*G2_;
2894
A[62] = 0.00000000;
2895
A[63] = 0.00000000;
2896
A[64] = 0.00000000;
2897
A[65] = 0.00000000;
2898
A[66] = 0.00000000;
2899
A[67] = 0.00000000;
2900
A[68] = 0.00000000;
2901
A[69] = 0.00246914*G2_;
2902
A[70] = -0.00767196*G2_;
2903
A[71] = 0.01305115*G2_;
2904
A[72] = 0.00000000;
2905
A[73] = 0.01305115*G3_;
2906
A[74] = 0.00246914*G3_;
2907
A[75] = 0.07901235*G3_;
2908
A[76] = -0.01693122*G3_;
2909
A[77] = 0.01128748*G3_;
2910
A[78] = 0.00000000;
2911
A[79] = 0.00000000;
2912
A[80] = 0.00000000;
2913
A[81] = 0.00000000;
2914
A[82] = 0.00000000;
2915
A[83] = 0.00000000;
2916
A[84] = 0.01305115*G2_;
2917
A[85] = 0.00246914*G2_;
2918
A[86] = 0.00000000;
2919
A[87] = 0.00000000;
2920
A[88] = 0.00000000;
2921
A[89] = 0.00000000;
2922
A[90] = 0.00000000;
2923
A[91] = 0.00000000;
2924
A[92] = 0.00000000;
2925
A[93] = 0.07901235*G2_;
2926
A[94] = -0.01693122*G2_;
2927
A[95] = 0.01128748*G2_;
2928
A[96] = 0.00000000;
2929
A[97] = -0.00767196*G3_;
2930
A[98] = -0.00767196*G3_;
2931
A[99] = -0.01693122*G3_;
2932
A[100] = 0.08253968*G3_;
2933
A[101] = -0.01693122*G3_;
2934
A[102] = 0.00000000;
2935
A[103] = 0.00000000;
2936
A[104] = 0.00000000;
2937
A[105] = 0.00000000;
2938
A[106] = 0.00000000;
2939
A[107] = 0.00000000;
2940
A[108] = -0.00767196*G2_;
2941
A[109] = -0.00767196*G2_;
2942
A[110] = 0.00000000;
2943
A[111] = 0.00000000;
2944
A[112] = 0.00000000;
2945
A[113] = 0.00000000;
2946
A[114] = 0.00000000;
2947
A[115] = 0.00000000;
2948
A[116] = 0.00000000;
2949
A[117] = -0.01693122*G2_;
2950
A[118] = 0.08253968*G2_;
2951
A[119] = -0.01693122*G2_;
2952
A[120] = 0.00000000;
2953
A[121] = 0.00246914*G3_;
2954
A[122] = 0.01305115*G3_;
2955
A[123] = 0.01128748*G3_;
2956
A[124] = -0.01693122*G3_;
2957
A[125] = 0.07901235*G3_;
2958
A[126] = 0.00000000;
2959
A[127] = 0.00000000;
2960
A[128] = 0.00000000;
2961
A[129] = 0.00000000;
2962
A[130] = 0.00000000;
2963
A[131] = 0.00000000;
2964
A[132] = 0.00246914*G2_;
2965
A[133] = 0.01305115*G2_;
2966
A[134] = 0.00000000;
2967
A[135] = 0.00000000;
2968
A[136] = 0.00000000;
2969
A[137] = 0.00000000;
2970
A[138] = 0.00000000;
2971
A[139] = 0.00000000;
2972
A[140] = 0.00000000;
2973
A[141] = 0.01128748*G2_;
2974
A[142] = -0.01693122*G2_;
2975
A[143] = 0.07901235*G2_;
2976
A[144] = 0.00000000;
2977
A[145] = 0.00000000;
2978
A[146] = 0.00000000;
2979
A[147] = 0.00000000;
2980
A[148] = 0.00000000;
2981
A[149] = 0.00000000;
2982
A[150] = 0.00000000;
2983
A[151] = 0.00000000;
2984
A[152] = 0.00000000;
2985
A[153] = 0.00000000;
2986
A[154] = 0.00000000;
2987
A[155] = 0.00000000;
2988
A[156] = 0.00000000;
2989
A[157] = 0.00000000;
2990
A[158] = 0.00000000;
2991
A[159] = 0.00000000;
2992
A[160] = 0.00000000;
2993
A[161] = 0.00000000;
2994
A[162] = 0.00000000;
2995
A[163] = 0.00000000;
2996
A[164] = 0.00000000;
2997
A[165] = 0.00000000;
2998
A[166] = 0.00000000;
2999
A[167] = 0.00000000;
3000
A[168] = 0.00000000;
3001
A[169] = 0.00000000;
3002
A[170] = 0.00000000;
3003
A[171] = 0.00000000;
3004
A[172] = 0.00000000;
3005
A[173] = 0.00000000;
3006
A[174] = 0.00000000;
3007
A[175] = 0.00000000;
3008
A[176] = 0.00000000;
3009
A[177] = 0.00000000;
3010
A[178] = 0.00000000;
3011
A[179] = 0.00000000;
3012
A[180] = 0.00000000;
3013
A[181] = 0.00000000;
3014
A[182] = 0.00000000;
3015
A[183] = 0.00000000;
3016
A[184] = 0.00000000;
3017
A[185] = 0.00000000;
3018
A[186] = 0.00000000;
3019
A[187] = 0.00000000;
3020
A[188] = 0.00000000;
3021
A[189] = 0.00000000;
3022
A[190] = 0.00000000;
3023
A[191] = 0.00000000;
3024
A[192] = 0.00000000;
3025
A[193] = 0.00000000;
3026
A[194] = 0.00000000;
3027
A[195] = 0.00000000;
3028
A[196] = 0.00000000;
3029
A[197] = 0.00000000;
3030
A[198] = 0.00000000;
3031
A[199] = 0.00000000;
3032
A[200] = 0.00000000;
3033
A[201] = 0.00000000;
3034
A[202] = 0.00000000;
3035
A[203] = 0.00000000;
3036
A[204] = 0.00000000;
3037
A[205] = 0.00000000;
3038
A[206] = 0.00000000;
3039
A[207] = 0.00000000;
3040
A[208] = 0.00000000;
3041
A[209] = 0.00000000;
3042
A[210] = 0.00000000;
3043
A[211] = 0.00000000;
3044
A[212] = 0.00000000;
3045
A[213] = 0.00000000;
3046
A[214] = 0.00000000;
3047
A[215] = 0.00000000;
3048
A[216] = 0.00000000;
3049
A[217] = 0.00000000;
3050
A[218] = 0.00000000;
3051
A[219] = 0.00000000;
3052
A[220] = 0.00000000;
3053
A[221] = 0.00000000;
3054
A[222] = 0.00000000;
3055
A[223] = 0.00000000;
3056
A[224] = 0.00000000;
3057
A[225] = 0.00000000;
3058
A[226] = 0.00000000;
3059
A[227] = 0.00000000;
3060
A[228] = 0.00000000;
3061
A[229] = 0.00000000;
3062
A[230] = 0.00000000;
3063
A[231] = 0.00000000;
3064
A[232] = 0.00000000;
3065
A[233] = 0.00000000;
3066
A[234] = 0.00000000;
3067
A[235] = 0.00000000;
3068
A[236] = 0.00000000;
3069
A[237] = 0.00000000;
3070
A[238] = 0.00000000;
3071
A[239] = 0.00000000;
3072
A[240] = 0.00000000;
3073
A[241] = 0.00000000;
3074
A[242] = 0.00000000;
3075
A[243] = 0.00000000;
3076
A[244] = 0.00000000;
3077
A[245] = 0.00000000;
3078
A[246] = 0.00000000;
3079
A[247] = 0.00000000;
3080
A[248] = 0.00000000;
3081
A[249] = 0.00000000;
3082
A[250] = 0.00000000;
3083
A[251] = 0.00000000;
3084
A[252] = 0.00000000;
3085
A[253] = 0.00000000;
3086
A[254] = 0.00000000;
3087
A[255] = 0.00000000;
3088
A[256] = 0.00000000;
3089
A[257] = 0.00000000;
3090
A[258] = 0.00000000;
3091
A[259] = 0.00000000;
3092
A[260] = 0.00000000;
3093
A[261] = 0.00000000;
3094
A[262] = 0.00000000;
3095
A[263] = 0.00000000;
3096
A[264] = 0.00000000;
3097
A[265] = 0.00000000;
3098
A[266] = 0.00000000;
3099
A[267] = 0.00000000;
3100
A[268] = 0.00000000;
3101
A[269] = 0.00000000;
3102
A[270] = 0.00000000;
3103
A[271] = 0.00000000;
3104
A[272] = 0.00000000;
3105
A[273] = 0.00000000;
3106
A[274] = 0.00000000;
3107
A[275] = 0.00000000;
3108
A[276] = 0.00000000;
3109
A[277] = 0.00000000;
3110
A[278] = 0.00000000;
3111
A[279] = 0.00000000;
3112
A[280] = 0.00000000;
3113
A[281] = 0.00000000;
3114
A[282] = 0.00000000;
3115
A[283] = 0.00000000;
3116
A[284] = 0.00000000;
3117
A[285] = 0.00000000;
3118
A[286] = 0.00000000;
3119
A[287] = 0.00000000;
3120
A[288] = 0.00000000;
3121
A[289] = 0.01287478*G1_;
3122
A[290] = -0.00127866*G1_;
3123
A[291] = 0.01305115*G1_;
3124
A[292] = -0.00767196*G1_;
3125
A[293] = 0.00246914*G1_;
3126
A[294] = 0.00000000;
3127
A[295] = 0.00000000;
3128
A[296] = 0.00000000;
3129
A[297] = 0.00000000;
3130
A[298] = 0.00000000;
3131
A[299] = 0.00000000;
3132
A[300] = 0.01287478*G0_;
3133
A[301] = -0.00127866*G0_;
3134
A[302] = 0.00000000;
3135
A[303] = 0.00000000;
3136
A[304] = 0.00000000;
3137
A[305] = 0.00000000;
3138
A[306] = 0.00000000;
3139
A[307] = 0.00000000;
3140
A[308] = 0.00000000;
3141
A[309] = 0.01305115*G0_;
3142
A[310] = -0.00767196*G0_;
3143
A[311] = 0.00246914*G0_;
3144
A[312] = 0.00000000;
3145
A[313] = -0.00127866*G1_;
3146
A[314] = 0.01287478*G1_;
3147
A[315] = 0.00246914*G1_;
3148
A[316] = -0.00767196*G1_;
3149
A[317] = 0.01305115*G1_;
3150
A[318] = 0.00000000;
3151
A[319] = 0.00000000;
3152
A[320] = 0.00000000;
3153
A[321] = 0.00000000;
3154
A[322] = 0.00000000;
3155
A[323] = 0.00000000;
3156
A[324] = -0.00127866*G0_;
3157
A[325] = 0.01287478*G0_;
3158
A[326] = 0.00000000;
3159
A[327] = 0.00000000;
3160
A[328] = 0.00000000;
3161
A[329] = 0.00000000;
3162
A[330] = 0.00000000;
3163
A[331] = 0.00000000;
3164
A[332] = 0.00000000;
3165
A[333] = 0.00246914*G0_;
3166
A[334] = -0.00767196*G0_;
3167
A[335] = 0.01305115*G0_;
3168
A[336] = 0.00000000;
3169
A[337] = 0.00000000;
3170
A[338] = 0.00000000;
3171
A[339] = 0.00000000;
3172
A[340] = 0.00000000;
3173
A[341] = 0.00000000;
3174
A[342] = 0.00000000;
3175
A[343] = 0.00000000;
3176
A[344] = 0.00000000;
3177
A[345] = 0.00000000;
3178
A[346] = 0.00000000;
3179
A[347] = 0.00000000;
3180
A[348] = 0.00000000;
3181
A[349] = 0.00000000;
3182
A[350] = 0.00000000;
3183
A[351] = 0.00000000;
3184
A[352] = 0.00000000;
3185
A[353] = 0.00000000;
3186
A[354] = 0.00000000;
3187
A[355] = 0.00000000;
3188
A[356] = 0.00000000;
3189
A[357] = 0.00000000;
3190
A[358] = 0.00000000;
3191
A[359] = 0.00000000;
3192
A[360] = 0.00000000;
3193
A[361] = 0.00000000;
3194
A[362] = 0.00000000;
3195
A[363] = 0.00000000;
3196
A[364] = 0.00000000;
3197
A[365] = 0.00000000;
3198
A[366] = 0.00000000;
3199
A[367] = 0.00000000;
3200
A[368] = 0.00000000;
3201
A[369] = 0.00000000;
3202
A[370] = 0.00000000;
3203
A[371] = 0.00000000;
3204
A[372] = 0.00000000;
3205
A[373] = 0.00000000;
3206
A[374] = 0.00000000;
3207
A[375] = 0.00000000;
3208
A[376] = 0.00000000;
3209
A[377] = 0.00000000;
3210
A[378] = 0.00000000;
3211
A[379] = 0.00000000;
3212
A[380] = 0.00000000;
3213
A[381] = 0.00000000;
3214
A[382] = 0.00000000;
3215
A[383] = 0.00000000;
3216
A[384] = 0.00000000;
3217
A[385] = 0.00000000;
3218
A[386] = 0.00000000;
3219
A[387] = 0.00000000;
3220
A[388] = 0.00000000;
3221
A[389] = 0.00000000;
3222
A[390] = 0.00000000;
3223
A[391] = 0.00000000;
3224
A[392] = 0.00000000;
3225
A[393] = 0.00000000;
3226
A[394] = 0.00000000;
3227
A[395] = 0.00000000;
3228
A[396] = 0.00000000;
3229
A[397] = 0.00000000;
3230
A[398] = 0.00000000;
3231
A[399] = 0.00000000;
3232
A[400] = 0.00000000;
3233
A[401] = 0.00000000;
3234
A[402] = 0.00000000;
3235
A[403] = 0.00000000;
3236
A[404] = 0.00000000;
3237
A[405] = 0.00000000;
3238
A[406] = 0.00000000;
3239
A[407] = 0.00000000;
3240
A[408] = 0.00000000;
3241
A[409] = 0.00000000;
3242
A[410] = 0.00000000;
3243
A[411] = 0.00000000;
3244
A[412] = 0.00000000;
3245
A[413] = 0.00000000;
3246
A[414] = 0.00000000;
3247
A[415] = 0.00000000;
3248
A[416] = 0.00000000;
3249
A[417] = 0.00000000;
3250
A[418] = 0.00000000;
3251
A[419] = 0.00000000;
3252
A[420] = 0.00000000;
3253
A[421] = 0.00000000;
3254
A[422] = 0.00000000;
3255
A[423] = 0.00000000;
3256
A[424] = 0.00000000;
3257
A[425] = 0.00000000;
3258
A[426] = 0.00000000;
3259
A[427] = 0.00000000;
3260
A[428] = 0.00000000;
3261
A[429] = 0.00000000;
3262
A[430] = 0.00000000;
3263
A[431] = 0.00000000;
3264
A[432] = 0.00000000;
3265
A[433] = 0.00000000;
3266
A[434] = 0.00000000;
3267
A[435] = 0.00000000;
3268
A[436] = 0.00000000;
3269
A[437] = 0.00000000;
3270
A[438] = 0.00000000;
3271
A[439] = 0.00000000;
3272
A[440] = 0.00000000;
3273
A[441] = 0.00000000;
3274
A[442] = 0.00000000;
3275
A[443] = 0.00000000;
3276
A[444] = 0.00000000;
3277
A[445] = 0.00000000;
3278
A[446] = 0.00000000;
3279
A[447] = 0.00000000;
3280
A[448] = 0.00000000;
3281
A[449] = 0.00000000;
3282
A[450] = 0.00000000;
3283
A[451] = 0.00000000;
3284
A[452] = 0.00000000;
3285
A[453] = 0.00000000;
3286
A[454] = 0.00000000;
3287
A[455] = 0.00000000;
3288
A[456] = 0.00000000;
3289
A[457] = 0.00000000;
3290
A[458] = 0.00000000;
3291
A[459] = 0.00000000;
3292
A[460] = 0.00000000;
3293
A[461] = 0.00000000;
3294
A[462] = 0.00000000;
3295
A[463] = 0.00000000;
3296
A[464] = 0.00000000;
3297
A[465] = 0.00000000;
3298
A[466] = 0.00000000;
3299
A[467] = 0.00000000;
3300
A[468] = 0.00000000;
3301
A[469] = 0.00000000;
3302
A[470] = 0.00000000;
3303
A[471] = 0.00000000;
3304
A[472] = 0.00000000;
3305
A[473] = 0.00000000;
3306
A[474] = 0.00000000;
3307
A[475] = 0.00000000;
3308
A[476] = 0.00000000;
3309
A[477] = 0.00000000;
3310
A[478] = 0.00000000;
3311
A[479] = 0.00000000;
3312
A[480] = 0.00000000;
3313
A[481] = 0.00000000;
3314
A[482] = 0.00000000;
3315
A[483] = 0.00000000;
3316
A[484] = 0.00000000;
3317
A[485] = 0.00000000;
3318
A[486] = 0.00000000;
3319
A[487] = 0.00000000;
3320
A[488] = 0.00000000;
3321
A[489] = 0.00000000;
3322
A[490] = 0.00000000;
3323
A[491] = 0.00000000;
3324
A[492] = 0.00000000;
3325
A[493] = 0.00000000;
3326
A[494] = 0.00000000;
3327
A[495] = 0.00000000;
3328
A[496] = 0.00000000;
3329
A[497] = 0.00000000;
3330
A[498] = 0.00000000;
3331
A[499] = 0.00000000;
3332
A[500] = 0.00000000;
3333
A[501] = 0.00000000;
3334
A[502] = 0.00000000;
3335
A[503] = 0.00000000;
3336
A[504] = 0.00000000;
3337
A[505] = 0.01305115*G1_;
3338
A[506] = 0.00246914*G1_;
3339
A[507] = 0.07901235*G1_;
3340
A[508] = -0.01693122*G1_;
3341
A[509] = 0.01128748*G1_;
3342
A[510] = 0.00000000;
3343
A[511] = 0.00000000;
3344
A[512] = 0.00000000;
3345
A[513] = 0.00000000;
3346
A[514] = 0.00000000;
3347
A[515] = 0.00000000;
3348
A[516] = 0.01305115*G0_;
3349
A[517] = 0.00246914*G0_;
3350
A[518] = 0.00000000;
3351
A[519] = 0.00000000;
3352
A[520] = 0.00000000;
3353
A[521] = 0.00000000;
3354
A[522] = 0.00000000;
3355
A[523] = 0.00000000;
3356
A[524] = 0.00000000;
3357
A[525] = 0.07901235*G0_;
3358
A[526] = -0.01693122*G0_;
3359
A[527] = 0.01128748*G0_;
3360
A[528] = 0.00000000;
3361
A[529] = -0.00767196*G1_;
3362
A[530] = -0.00767196*G1_;
3363
A[531] = -0.01693122*G1_;
3364
A[532] = 0.08253968*G1_;
3365
A[533] = -0.01693122*G1_;
3366
A[534] = 0.00000000;
3367
A[535] = 0.00000000;
3368
A[536] = 0.00000000;
3369
A[537] = 0.00000000;
3370
A[538] = 0.00000000;
3371
A[539] = 0.00000000;
3372
A[540] = -0.00767196*G0_;
3373
A[541] = -0.00767196*G0_;
3374
A[542] = 0.00000000;
3375
A[543] = 0.00000000;
3376
A[544] = 0.00000000;
3377
A[545] = 0.00000000;
3378
A[546] = 0.00000000;
3379
A[547] = 0.00000000;
3380
A[548] = 0.00000000;
3381
A[549] = -0.01693122*G0_;
3382
A[550] = 0.08253968*G0_;
3383
A[551] = -0.01693122*G0_;
3384
A[552] = 0.00000000;
3385
A[553] = 0.00246914*G1_;
3386
A[554] = 0.01305115*G1_;
3387
A[555] = 0.01128748*G1_;
3388
A[556] = -0.01693122*G1_;
3389
A[557] = 0.07901235*G1_;
3390
A[558] = 0.00000000;
3391
A[559] = 0.00000000;
3392
A[560] = 0.00000000;
3393
A[561] = 0.00000000;
3394
A[562] = 0.00000000;
3395
A[563] = 0.00000000;
3396
A[564] = 0.00246914*G0_;
3397
A[565] = 0.01305115*G0_;
3398
A[566] = 0.00000000;
3399
A[567] = 0.00000000;
3400
A[568] = 0.00000000;
3401
A[569] = 0.00000000;
3402
A[570] = 0.00000000;
3403
A[571] = 0.00000000;
3404
A[572] = 0.00000000;
3405
A[573] = 0.01128748*G0_;
3406
A[574] = -0.01693122*G0_;
3407
A[575] = 0.07901235*G0_;
3408
break;
3409
}
3410
}
3411
3412
break;
3413
}
3414
case 1:
3415
{
3416
switch (facet1)
3417
{
3418
case 0:
3419
{
3420
A[0] = 0.01287478*G3_;
3421
A[1] = 0.00000000;
3422
A[2] = -0.00127866*G3_;
3423
A[3] = 0.00000000;
3424
A[4] = 0.00000000;
3425
A[5] = 0.00000000;
3426
A[6] = 0.01305115*G3_;
3427
A[7] = -0.00767196*G3_;
3428
A[8] = 0.00246914*G3_;
3429
A[9] = 0.00000000;
3430
A[10] = 0.00000000;
3431
A[11] = 0.00000000;
3432
A[12] = 0.00000000;
3433
A[13] = 0.01287478*G2_;
3434
A[14] = -0.00127866*G2_;
3435
A[15] = 0.01305115*G2_;
3436
A[16] = -0.00767196*G2_;
3437
A[17] = 0.00246914*G2_;
3438
A[18] = 0.00000000;
3439
A[19] = 0.00000000;
3440
A[20] = 0.00000000;
3441
A[21] = 0.00000000;
3442
A[22] = 0.00000000;
3443
A[23] = 0.00000000;
3444
A[24] = 0.00000000;
3445
A[25] = 0.00000000;
3446
A[26] = 0.00000000;
3447
A[27] = 0.00000000;
3448
A[28] = 0.00000000;
3449
A[29] = 0.00000000;
3450
A[30] = 0.00000000;
3451
A[31] = 0.00000000;
3452
A[32] = 0.00000000;
3453
A[33] = 0.00000000;
3454
A[34] = 0.00000000;
3455
A[35] = 0.00000000;
3456
A[36] = 0.00000000;
3457
A[37] = 0.00000000;
3458
A[38] = 0.00000000;
3459
A[39] = 0.00000000;
3460
A[40] = 0.00000000;
3461
A[41] = 0.00000000;
3462
A[42] = 0.00000000;
3463
A[43] = 0.00000000;
3464
A[44] = 0.00000000;
3465
A[45] = 0.00000000;
3466
A[46] = 0.00000000;
3467
A[47] = 0.00000000;
3468
A[48] = -0.00127866*G3_;
3469
A[49] = 0.00000000;
3470
A[50] = 0.01287478*G3_;
3471
A[51] = 0.00000000;
3472
A[52] = 0.00000000;
3473
A[53] = 0.00000000;
3474
A[54] = 0.00246914*G3_;
3475
A[55] = -0.00767196*G3_;
3476
A[56] = 0.01305115*G3_;
3477
A[57] = 0.00000000;
3478
A[58] = 0.00000000;
3479
A[59] = 0.00000000;
3480
A[60] = 0.00000000;
3481
A[61] = -0.00127866*G2_;
3482
A[62] = 0.01287478*G2_;
3483
A[63] = 0.00246914*G2_;
3484
A[64] = -0.00767196*G2_;
3485
A[65] = 0.01305115*G2_;
3486
A[66] = 0.00000000;
3487
A[67] = 0.00000000;
3488
A[68] = 0.00000000;
3489
A[69] = 0.00000000;
3490
A[70] = 0.00000000;
3491
A[71] = 0.00000000;
3492
A[72] = 0.00000000;
3493
A[73] = 0.00000000;
3494
A[74] = 0.00000000;
3495
A[75] = 0.00000000;
3496
A[76] = 0.00000000;
3497
A[77] = 0.00000000;
3498
A[78] = 0.00000000;
3499
A[79] = 0.00000000;
3500
A[80] = 0.00000000;
3501
A[81] = 0.00000000;
3502
A[82] = 0.00000000;
3503
A[83] = 0.00000000;
3504
A[84] = 0.00000000;
3505
A[85] = 0.00000000;
3506
A[86] = 0.00000000;
3507
A[87] = 0.00000000;
3508
A[88] = 0.00000000;
3509
A[89] = 0.00000000;
3510
A[90] = 0.00000000;
3511
A[91] = 0.00000000;
3512
A[92] = 0.00000000;
3513
A[93] = 0.00000000;
3514
A[94] = 0.00000000;
3515
A[95] = 0.00000000;
3516
A[96] = 0.00000000;
3517
A[97] = 0.00000000;
3518
A[98] = 0.00000000;
3519
A[99] = 0.00000000;
3520
A[100] = 0.00000000;
3521
A[101] = 0.00000000;
3522
A[102] = 0.00000000;
3523
A[103] = 0.00000000;
3524
A[104] = 0.00000000;
3525
A[105] = 0.00000000;
3526
A[106] = 0.00000000;
3527
A[107] = 0.00000000;
3528
A[108] = 0.00000000;
3529
A[109] = 0.00000000;
3530
A[110] = 0.00000000;
3531
A[111] = 0.00000000;
3532
A[112] = 0.00000000;
3533
A[113] = 0.00000000;
3534
A[114] = 0.00000000;
3535
A[115] = 0.00000000;
3536
A[116] = 0.00000000;
3537
A[117] = 0.00000000;
3538
A[118] = 0.00000000;
3539
A[119] = 0.00000000;
3540
A[120] = 0.00000000;
3541
A[121] = 0.00000000;
3542
A[122] = 0.00000000;
3543
A[123] = 0.00000000;
3544
A[124] = 0.00000000;
3545
A[125] = 0.00000000;
3546
A[126] = 0.00000000;
3547
A[127] = 0.00000000;
3548
A[128] = 0.00000000;
3549
A[129] = 0.00000000;
3550
A[130] = 0.00000000;
3551
A[131] = 0.00000000;
3552
A[132] = 0.00000000;
3553
A[133] = 0.00000000;
3554
A[134] = 0.00000000;
3555
A[135] = 0.00000000;
3556
A[136] = 0.00000000;
3557
A[137] = 0.00000000;
3558
A[138] = 0.00000000;
3559
A[139] = 0.00000000;
3560
A[140] = 0.00000000;
3561
A[141] = 0.00000000;
3562
A[142] = 0.00000000;
3563
A[143] = 0.00000000;
3564
A[144] = 0.01305115*G3_;
3565
A[145] = 0.00000000;
3566
A[146] = 0.00246914*G3_;
3567
A[147] = 0.00000000;
3568
A[148] = 0.00000000;
3569
A[149] = 0.00000000;
3570
A[150] = 0.07901235*G3_;
3571
A[151] = -0.01693122*G3_;
3572
A[152] = 0.01128748*G3_;
3573
A[153] = 0.00000000;
3574
A[154] = 0.00000000;
3575
A[155] = 0.00000000;
3576
A[156] = 0.00000000;
3577
A[157] = 0.01305115*G2_;
3578
A[158] = 0.00246914*G2_;
3579
A[159] = 0.07901235*G2_;
3580
A[160] = -0.01693122*G2_;
3581
A[161] = 0.01128748*G2_;
3582
A[162] = 0.00000000;
3583
A[163] = 0.00000000;
3584
A[164] = 0.00000000;
3585
A[165] = 0.00000000;
3586
A[166] = 0.00000000;
3587
A[167] = 0.00000000;
3588
A[168] = -0.00767196*G3_;
3589
A[169] = 0.00000000;
3590
A[170] = -0.00767196*G3_;
3591
A[171] = 0.00000000;
3592
A[172] = 0.00000000;
3593
A[173] = 0.00000000;
3594
A[174] = -0.01693122*G3_;
3595
A[175] = 0.08253968*G3_;
3596
A[176] = -0.01693122*G3_;
3597
A[177] = 0.00000000;
3598
A[178] = 0.00000000;
3599
A[179] = 0.00000000;
3600
A[180] = 0.00000000;
3601
A[181] = -0.00767196*G2_;
3602
A[182] = -0.00767196*G2_;
3603
A[183] = -0.01693122*G2_;
3604
A[184] = 0.08253968*G2_;
3605
A[185] = -0.01693122*G2_;
3606
A[186] = 0.00000000;
3607
A[187] = 0.00000000;
3608
A[188] = 0.00000000;
3609
A[189] = 0.00000000;
3610
A[190] = 0.00000000;
3611
A[191] = 0.00000000;
3612
A[192] = 0.00246914*G3_;
3613
A[193] = 0.00000000;
3614
A[194] = 0.01305115*G3_;
3615
A[195] = 0.00000000;
3616
A[196] = 0.00000000;
3617
A[197] = 0.00000000;
3618
A[198] = 0.01128748*G3_;
3619
A[199] = -0.01693122*G3_;
3620
A[200] = 0.07901235*G3_;
3621
A[201] = 0.00000000;
3622
A[202] = 0.00000000;
3623
A[203] = 0.00000000;
3624
A[204] = 0.00000000;
3625
A[205] = 0.00246914*G2_;
3626
A[206] = 0.01305115*G2_;
3627
A[207] = 0.01128748*G2_;
3628
A[208] = -0.01693122*G2_;
3629
A[209] = 0.07901235*G2_;
3630
A[210] = 0.00000000;
3631
A[211] = 0.00000000;
3632
A[212] = 0.00000000;
3633
A[213] = 0.00000000;
3634
A[214] = 0.00000000;
3635
A[215] = 0.00000000;
3636
A[216] = 0.00000000;
3637
A[217] = 0.00000000;
3638
A[218] = 0.00000000;
3639
A[219] = 0.00000000;
3640
A[220] = 0.00000000;
3641
A[221] = 0.00000000;
3642
A[222] = 0.00000000;
3643
A[223] = 0.00000000;
3644
A[224] = 0.00000000;
3645
A[225] = 0.00000000;
3646
A[226] = 0.00000000;
3647
A[227] = 0.00000000;
3648
A[228] = 0.00000000;
3649
A[229] = 0.00000000;
3650
A[230] = 0.00000000;
3651
A[231] = 0.00000000;
3652
A[232] = 0.00000000;
3653
A[233] = 0.00000000;
3654
A[234] = 0.00000000;
3655
A[235] = 0.00000000;
3656
A[236] = 0.00000000;
3657
A[237] = 0.00000000;
3658
A[238] = 0.00000000;
3659
A[239] = 0.00000000;
3660
A[240] = 0.00000000;
3661
A[241] = 0.00000000;
3662
A[242] = 0.00000000;
3663
A[243] = 0.00000000;
3664
A[244] = 0.00000000;
3665
A[245] = 0.00000000;
3666
A[246] = 0.00000000;
3667
A[247] = 0.00000000;
3668
A[248] = 0.00000000;
3669
A[249] = 0.00000000;
3670
A[250] = 0.00000000;
3671
A[251] = 0.00000000;
3672
A[252] = 0.00000000;
3673
A[253] = 0.00000000;
3674
A[254] = 0.00000000;
3675
A[255] = 0.00000000;
3676
A[256] = 0.00000000;
3677
A[257] = 0.00000000;
3678
A[258] = 0.00000000;
3679
A[259] = 0.00000000;
3680
A[260] = 0.00000000;
3681
A[261] = 0.00000000;
3682
A[262] = 0.00000000;
3683
A[263] = 0.00000000;
3684
A[264] = 0.00000000;
3685
A[265] = 0.00000000;
3686
A[266] = 0.00000000;
3687
A[267] = 0.00000000;
3688
A[268] = 0.00000000;
3689
A[269] = 0.00000000;
3690
A[270] = 0.00000000;
3691
A[271] = 0.00000000;
3692
A[272] = 0.00000000;
3693
A[273] = 0.00000000;
3694
A[274] = 0.00000000;
3695
A[275] = 0.00000000;
3696
A[276] = 0.00000000;
3697
A[277] = 0.00000000;
3698
A[278] = 0.00000000;
3699
A[279] = 0.00000000;
3700
A[280] = 0.00000000;
3701
A[281] = 0.00000000;
3702
A[282] = 0.00000000;
3703
A[283] = 0.00000000;
3704
A[284] = 0.00000000;
3705
A[285] = 0.00000000;
3706
A[286] = 0.00000000;
3707
A[287] = 0.00000000;
3708
A[288] = 0.00000000;
3709
A[289] = 0.00000000;
3710
A[290] = 0.00000000;
3711
A[291] = 0.00000000;
3712
A[292] = 0.00000000;
3713
A[293] = 0.00000000;
3714
A[294] = 0.00000000;
3715
A[295] = 0.00000000;
3716
A[296] = 0.00000000;
3717
A[297] = 0.00000000;
3718
A[298] = 0.00000000;
3719
A[299] = 0.00000000;
3720
A[300] = 0.00000000;
3721
A[301] = 0.00000000;
3722
A[302] = 0.00000000;
3723
A[303] = 0.00000000;
3724
A[304] = 0.00000000;
3725
A[305] = 0.00000000;
3726
A[306] = 0.00000000;
3727
A[307] = 0.00000000;
3728
A[308] = 0.00000000;
3729
A[309] = 0.00000000;
3730
A[310] = 0.00000000;
3731
A[311] = 0.00000000;
3732
A[312] = 0.01287478*G1_;
3733
A[313] = 0.00000000;
3734
A[314] = -0.00127866*G1_;
3735
A[315] = 0.00000000;
3736
A[316] = 0.00000000;
3737
A[317] = 0.00000000;
3738
A[318] = 0.01305115*G1_;
3739
A[319] = -0.00767196*G1_;
3740
A[320] = 0.00246914*G1_;
3741
A[321] = 0.00000000;
3742
A[322] = 0.00000000;
3743
A[323] = 0.00000000;
3744
A[324] = 0.00000000;
3745
A[325] = 0.01287478*G0_;
3746
A[326] = -0.00127866*G0_;
3747
A[327] = 0.01305115*G0_;
3748
A[328] = -0.00767196*G0_;
3749
A[329] = 0.00246914*G0_;
3750
A[330] = 0.00000000;
3751
A[331] = 0.00000000;
3752
A[332] = 0.00000000;
3753
A[333] = 0.00000000;
3754
A[334] = 0.00000000;
3755
A[335] = 0.00000000;
3756
A[336] = -0.00127866*G1_;
3757
A[337] = 0.00000000;
3758
A[338] = 0.01287478*G1_;
3759
A[339] = 0.00000000;
3760
A[340] = 0.00000000;
3761
A[341] = 0.00000000;
3762
A[342] = 0.00246914*G1_;
3763
A[343] = -0.00767196*G1_;
3764
A[344] = 0.01305115*G1_;
3765
A[345] = 0.00000000;
3766
A[346] = 0.00000000;
3767
A[347] = 0.00000000;
3768
A[348] = 0.00000000;
3769
A[349] = -0.00127866*G0_;
3770
A[350] = 0.01287478*G0_;
3771
A[351] = 0.00246914*G0_;
3772
A[352] = -0.00767196*G0_;
3773
A[353] = 0.01305115*G0_;
3774
A[354] = 0.00000000;
3775
A[355] = 0.00000000;
3776
A[356] = 0.00000000;
3777
A[357] = 0.00000000;
3778
A[358] = 0.00000000;
3779
A[359] = 0.00000000;
3780
A[360] = 0.01305115*G1_;
3781
A[361] = 0.00000000;
3782
A[362] = 0.00246914*G1_;
3783
A[363] = 0.00000000;
3784
A[364] = 0.00000000;
3785
A[365] = 0.00000000;
3786
A[366] = 0.07901235*G1_;
3787
A[367] = -0.01693122*G1_;
3788
A[368] = 0.01128748*G1_;
3789
A[369] = 0.00000000;
3790
A[370] = 0.00000000;
3791
A[371] = 0.00000000;
3792
A[372] = 0.00000000;
3793
A[373] = 0.01305115*G0_;
3794
A[374] = 0.00246914*G0_;
3795
A[375] = 0.07901235*G0_;
3796
A[376] = -0.01693122*G0_;
3797
A[377] = 0.01128748*G0_;
3798
A[378] = 0.00000000;
3799
A[379] = 0.00000000;
3800
A[380] = 0.00000000;
3801
A[381] = 0.00000000;
3802
A[382] = 0.00000000;
3803
A[383] = 0.00000000;
3804
A[384] = -0.00767196*G1_;
3805
A[385] = 0.00000000;
3806
A[386] = -0.00767196*G1_;
3807
A[387] = 0.00000000;
3808
A[388] = 0.00000000;
3809
A[389] = 0.00000000;
3810
A[390] = -0.01693122*G1_;
3811
A[391] = 0.08253968*G1_;
3812
A[392] = -0.01693122*G1_;
3813
A[393] = 0.00000000;
3814
A[394] = 0.00000000;
3815
A[395] = 0.00000000;
3816
A[396] = 0.00000000;
3817
A[397] = -0.00767196*G0_;
3818
A[398] = -0.00767196*G0_;
3819
A[399] = -0.01693122*G0_;
3820
A[400] = 0.08253968*G0_;
3821
A[401] = -0.01693122*G0_;
3822
A[402] = 0.00000000;
3823
A[403] = 0.00000000;
3824
A[404] = 0.00000000;
3825
A[405] = 0.00000000;
3826
A[406] = 0.00000000;
3827
A[407] = 0.00000000;
3828
A[408] = 0.00246914*G1_;
3829
A[409] = 0.00000000;
3830
A[410] = 0.01305115*G1_;
3831
A[411] = 0.00000000;
3832
A[412] = 0.00000000;
3833
A[413] = 0.00000000;
3834
A[414] = 0.01128748*G1_;
3835
A[415] = -0.01693122*G1_;
3836
A[416] = 0.07901235*G1_;
3837
A[417] = 0.00000000;
3838
A[418] = 0.00000000;
3839
A[419] = 0.00000000;
3840
A[420] = 0.00000000;
3841
A[421] = 0.00246914*G0_;
3842
A[422] = 0.01305115*G0_;
3843
A[423] = 0.01128748*G0_;
3844
A[424] = -0.01693122*G0_;
3845
A[425] = 0.07901235*G0_;
3846
A[426] = 0.00000000;
3847
A[427] = 0.00000000;
3848
A[428] = 0.00000000;
3849
A[429] = 0.00000000;
3850
A[430] = 0.00000000;
3851
A[431] = 0.00000000;
3852
A[432] = 0.00000000;
3853
A[433] = 0.00000000;
3854
A[434] = 0.00000000;
3855
A[435] = 0.00000000;
3856
A[436] = 0.00000000;
3857
A[437] = 0.00000000;
3858
A[438] = 0.00000000;
3859
A[439] = 0.00000000;
3860
A[440] = 0.00000000;
3861
A[441] = 0.00000000;
3862
A[442] = 0.00000000;
3863
A[443] = 0.00000000;
3864
A[444] = 0.00000000;
3865
A[445] = 0.00000000;
3866
A[446] = 0.00000000;
3867
A[447] = 0.00000000;
3868
A[448] = 0.00000000;
3869
A[449] = 0.00000000;
3870
A[450] = 0.00000000;
3871
A[451] = 0.00000000;
3872
A[452] = 0.00000000;
3873
A[453] = 0.00000000;
3874
A[454] = 0.00000000;
3875
A[455] = 0.00000000;
3876
A[456] = 0.00000000;
3877
A[457] = 0.00000000;
3878
A[458] = 0.00000000;
3879
A[459] = 0.00000000;
3880
A[460] = 0.00000000;
3881
A[461] = 0.00000000;
3882
A[462] = 0.00000000;
3883
A[463] = 0.00000000;
3884
A[464] = 0.00000000;
3885
A[465] = 0.00000000;
3886
A[466] = 0.00000000;
3887
A[467] = 0.00000000;
3888
A[468] = 0.00000000;
3889
A[469] = 0.00000000;
3890
A[470] = 0.00000000;
3891
A[471] = 0.00000000;
3892
A[472] = 0.00000000;
3893
A[473] = 0.00000000;
3894
A[474] = 0.00000000;
3895
A[475] = 0.00000000;
3896
A[476] = 0.00000000;
3897
A[477] = 0.00000000;
3898
A[478] = 0.00000000;
3899
A[479] = 0.00000000;
3900
A[480] = 0.00000000;
3901
A[481] = 0.00000000;
3902
A[482] = 0.00000000;
3903
A[483] = 0.00000000;
3904
A[484] = 0.00000000;
3905
A[485] = 0.00000000;
3906
A[486] = 0.00000000;
3907
A[487] = 0.00000000;
3908
A[488] = 0.00000000;
3909
A[489] = 0.00000000;
3910
A[490] = 0.00000000;
3911
A[491] = 0.00000000;
3912
A[492] = 0.00000000;
3913
A[493] = 0.00000000;
3914
A[494] = 0.00000000;
3915
A[495] = 0.00000000;
3916
A[496] = 0.00000000;
3917
A[497] = 0.00000000;
3918
A[498] = 0.00000000;
3919
A[499] = 0.00000000;
3920
A[500] = 0.00000000;
3921
A[501] = 0.00000000;
3922
A[502] = 0.00000000;
3923
A[503] = 0.00000000;
3924
A[504] = 0.00000000;
3925
A[505] = 0.00000000;
3926
A[506] = 0.00000000;
3927
A[507] = 0.00000000;
3928
A[508] = 0.00000000;
3929
A[509] = 0.00000000;
3930
A[510] = 0.00000000;
3931
A[511] = 0.00000000;
3932
A[512] = 0.00000000;
3933
A[513] = 0.00000000;
3934
A[514] = 0.00000000;
3935
A[515] = 0.00000000;
3936
A[516] = 0.00000000;
3937
A[517] = 0.00000000;
3938
A[518] = 0.00000000;
3939
A[519] = 0.00000000;
3940
A[520] = 0.00000000;
3941
A[521] = 0.00000000;
3942
A[522] = 0.00000000;
3943
A[523] = 0.00000000;
3944
A[524] = 0.00000000;
3945
A[525] = 0.00000000;
3946
A[526] = 0.00000000;
3947
A[527] = 0.00000000;
3948
A[528] = 0.00000000;
3949
A[529] = 0.00000000;
3950
A[530] = 0.00000000;
3951
A[531] = 0.00000000;
3952
A[532] = 0.00000000;
3953
A[533] = 0.00000000;
3954
A[534] = 0.00000000;
3955
A[535] = 0.00000000;
3956
A[536] = 0.00000000;
3957
A[537] = 0.00000000;
3958
A[538] = 0.00000000;
3959
A[539] = 0.00000000;
3960
A[540] = 0.00000000;
3961
A[541] = 0.00000000;
3962
A[542] = 0.00000000;
3963
A[543] = 0.00000000;
3964
A[544] = 0.00000000;
3965
A[545] = 0.00000000;
3966
A[546] = 0.00000000;
3967
A[547] = 0.00000000;
3968
A[548] = 0.00000000;
3969
A[549] = 0.00000000;
3970
A[550] = 0.00000000;
3971
A[551] = 0.00000000;
3972
A[552] = 0.00000000;
3973
A[553] = 0.00000000;
3974
A[554] = 0.00000000;
3975
A[555] = 0.00000000;
3976
A[556] = 0.00000000;
3977
A[557] = 0.00000000;
3978
A[558] = 0.00000000;
3979
A[559] = 0.00000000;
3980
A[560] = 0.00000000;
3981
A[561] = 0.00000000;
3982
A[562] = 0.00000000;
3983
A[563] = 0.00000000;
3984
A[564] = 0.00000000;
3985
A[565] = 0.00000000;
3986
A[566] = 0.00000000;
3987
A[567] = 0.00000000;
3988
A[568] = 0.00000000;
3989
A[569] = 0.00000000;
3990
A[570] = 0.00000000;
3991
A[571] = 0.00000000;
3992
A[572] = 0.00000000;
3993
A[573] = 0.00000000;
3994
A[574] = 0.00000000;
3995
A[575] = 0.00000000;
3996
break;
3997
}
3998
case 1:
3999
{
4000
A[0] = 0.01287478*G3_;
4001
A[1] = 0.00000000;
4002
A[2] = -0.00127866*G3_;
4003
A[3] = 0.00000000;
4004
A[4] = 0.00000000;
4005
A[5] = 0.00000000;
4006
A[6] = 0.01305115*G3_;
4007
A[7] = -0.00767196*G3_;
4008
A[8] = 0.00246914*G3_;
4009
A[9] = 0.00000000;
4010
A[10] = 0.00000000;
4011
A[11] = 0.00000000;
4012
A[12] = 0.01287478*G2_;
4013
A[13] = 0.00000000;
4014
A[14] = -0.00127866*G2_;
4015
A[15] = 0.00000000;
4016
A[16] = 0.00000000;
4017
A[17] = 0.00000000;
4018
A[18] = 0.01305115*G2_;
4019
A[19] = -0.00767196*G2_;
4020
A[20] = 0.00246914*G2_;
4021
A[21] = 0.00000000;
4022
A[22] = 0.00000000;
4023
A[23] = 0.00000000;
4024
A[24] = 0.00000000;
4025
A[25] = 0.00000000;
4026
A[26] = 0.00000000;
4027
A[27] = 0.00000000;
4028
A[28] = 0.00000000;
4029
A[29] = 0.00000000;
4030
A[30] = 0.00000000;
4031
A[31] = 0.00000000;
4032
A[32] = 0.00000000;
4033
A[33] = 0.00000000;
4034
A[34] = 0.00000000;
4035
A[35] = 0.00000000;
4036
A[36] = 0.00000000;
4037
A[37] = 0.00000000;
4038
A[38] = 0.00000000;
4039
A[39] = 0.00000000;
4040
A[40] = 0.00000000;
4041
A[41] = 0.00000000;
4042
A[42] = 0.00000000;
4043
A[43] = 0.00000000;
4044
A[44] = 0.00000000;
4045
A[45] = 0.00000000;
4046
A[46] = 0.00000000;
4047
A[47] = 0.00000000;
4048
A[48] = -0.00127866*G3_;
4049
A[49] = 0.00000000;
4050
A[50] = 0.01287478*G3_;
4051
A[51] = 0.00000000;
4052
A[52] = 0.00000000;
4053
A[53] = 0.00000000;
4054
A[54] = 0.00246914*G3_;
4055
A[55] = -0.00767196*G3_;
4056
A[56] = 0.01305115*G3_;
4057
A[57] = 0.00000000;
4058
A[58] = 0.00000000;
4059
A[59] = 0.00000000;
4060
A[60] = -0.00127866*G2_;
4061
A[61] = 0.00000000;
4062
A[62] = 0.01287478*G2_;
4063
A[63] = 0.00000000;
4064
A[64] = 0.00000000;
4065
A[65] = 0.00000000;
4066
A[66] = 0.00246914*G2_;
4067
A[67] = -0.00767196*G2_;
4068
A[68] = 0.01305115*G2_;
4069
A[69] = 0.00000000;
4070
A[70] = 0.00000000;
4071
A[71] = 0.00000000;
4072
A[72] = 0.00000000;
4073
A[73] = 0.00000000;
4074
A[74] = 0.00000000;
4075
A[75] = 0.00000000;
4076
A[76] = 0.00000000;
4077
A[77] = 0.00000000;
4078
A[78] = 0.00000000;
4079
A[79] = 0.00000000;
4080
A[80] = 0.00000000;
4081
A[81] = 0.00000000;
4082
A[82] = 0.00000000;
4083
A[83] = 0.00000000;
4084
A[84] = 0.00000000;
4085
A[85] = 0.00000000;
4086
A[86] = 0.00000000;
4087
A[87] = 0.00000000;
4088
A[88] = 0.00000000;
4089
A[89] = 0.00000000;
4090
A[90] = 0.00000000;
4091
A[91] = 0.00000000;
4092
A[92] = 0.00000000;
4093
A[93] = 0.00000000;
4094
A[94] = 0.00000000;
4095
A[95] = 0.00000000;
4096
A[96] = 0.00000000;
4097
A[97] = 0.00000000;
4098
A[98] = 0.00000000;
4099
A[99] = 0.00000000;
4100
A[100] = 0.00000000;
4101
A[101] = 0.00000000;
4102
A[102] = 0.00000000;
4103
A[103] = 0.00000000;
4104
A[104] = 0.00000000;
4105
A[105] = 0.00000000;
4106
A[106] = 0.00000000;
4107
A[107] = 0.00000000;
4108
A[108] = 0.00000000;
4109
A[109] = 0.00000000;
4110
A[110] = 0.00000000;
4111
A[111] = 0.00000000;
4112
A[112] = 0.00000000;
4113
A[113] = 0.00000000;
4114
A[114] = 0.00000000;
4115
A[115] = 0.00000000;
4116
A[116] = 0.00000000;
4117
A[117] = 0.00000000;
4118
A[118] = 0.00000000;
4119
A[119] = 0.00000000;
4120
A[120] = 0.00000000;
4121
A[121] = 0.00000000;
4122
A[122] = 0.00000000;
4123
A[123] = 0.00000000;
4124
A[124] = 0.00000000;
4125
A[125] = 0.00000000;
4126
A[126] = 0.00000000;
4127
A[127] = 0.00000000;
4128
A[128] = 0.00000000;
4129
A[129] = 0.00000000;
4130
A[130] = 0.00000000;
4131
A[131] = 0.00000000;
4132
A[132] = 0.00000000;
4133
A[133] = 0.00000000;
4134
A[134] = 0.00000000;
4135
A[135] = 0.00000000;
4136
A[136] = 0.00000000;
4137
A[137] = 0.00000000;
4138
A[138] = 0.00000000;
4139
A[139] = 0.00000000;
4140
A[140] = 0.00000000;
4141
A[141] = 0.00000000;
4142
A[142] = 0.00000000;
4143
A[143] = 0.00000000;
4144
A[144] = 0.01305115*G3_;
4145
A[145] = 0.00000000;
4146
A[146] = 0.00246914*G3_;
4147
A[147] = 0.00000000;
4148
A[148] = 0.00000000;
4149
A[149] = 0.00000000;
4150
A[150] = 0.07901235*G3_;
4151
A[151] = -0.01693122*G3_;
4152
A[152] = 0.01128748*G3_;
4153
A[153] = 0.00000000;
4154
A[154] = 0.00000000;
4155
A[155] = 0.00000000;
4156
A[156] = 0.01305115*G2_;
4157
A[157] = 0.00000000;
4158
A[158] = 0.00246914*G2_;
4159
A[159] = 0.00000000;
4160
A[160] = 0.00000000;
4161
A[161] = 0.00000000;
4162
A[162] = 0.07901235*G2_;
4163
A[163] = -0.01693122*G2_;
4164
A[164] = 0.01128748*G2_;
4165
A[165] = 0.00000000;
4166
A[166] = 0.00000000;
4167
A[167] = 0.00000000;
4168
A[168] = -0.00767196*G3_;
4169
A[169] = 0.00000000;
4170
A[170] = -0.00767196*G3_;
4171
A[171] = 0.00000000;
4172
A[172] = 0.00000000;
4173
A[173] = 0.00000000;
4174
A[174] = -0.01693122*G3_;
4175
A[175] = 0.08253968*G3_;
4176
A[176] = -0.01693122*G3_;
4177
A[177] = 0.00000000;
4178
A[178] = 0.00000000;
4179
A[179] = 0.00000000;
4180
A[180] = -0.00767196*G2_;
4181
A[181] = 0.00000000;
4182
A[182] = -0.00767196*G2_;
4183
A[183] = 0.00000000;
4184
A[184] = 0.00000000;
4185
A[185] = 0.00000000;
4186
A[186] = -0.01693122*G2_;
4187
A[187] = 0.08253968*G2_;
4188
A[188] = -0.01693122*G2_;
4189
A[189] = 0.00000000;
4190
A[190] = 0.00000000;
4191
A[191] = 0.00000000;
4192
A[192] = 0.00246914*G3_;
4193
A[193] = 0.00000000;
4194
A[194] = 0.01305115*G3_;
4195
A[195] = 0.00000000;
4196
A[196] = 0.00000000;
4197
A[197] = 0.00000000;
4198
A[198] = 0.01128748*G3_;
4199
A[199] = -0.01693122*G3_;
4200
A[200] = 0.07901235*G3_;
4201
A[201] = 0.00000000;
4202
A[202] = 0.00000000;
4203
A[203] = 0.00000000;
4204
A[204] = 0.00246914*G2_;
4205
A[205] = 0.00000000;
4206
A[206] = 0.01305115*G2_;
4207
A[207] = 0.00000000;
4208
A[208] = 0.00000000;
4209
A[209] = 0.00000000;
4210
A[210] = 0.01128748*G2_;
4211
A[211] = -0.01693122*G2_;
4212
A[212] = 0.07901235*G2_;
4213
A[213] = 0.00000000;
4214
A[214] = 0.00000000;
4215
A[215] = 0.00000000;
4216
A[216] = 0.00000000;
4217
A[217] = 0.00000000;
4218
A[218] = 0.00000000;
4219
A[219] = 0.00000000;
4220
A[220] = 0.00000000;
4221
A[221] = 0.00000000;
4222
A[222] = 0.00000000;
4223
A[223] = 0.00000000;
4224
A[224] = 0.00000000;
4225
A[225] = 0.00000000;
4226
A[226] = 0.00000000;
4227
A[227] = 0.00000000;
4228
A[228] = 0.00000000;
4229
A[229] = 0.00000000;
4230
A[230] = 0.00000000;
4231
A[231] = 0.00000000;
4232
A[232] = 0.00000000;
4233
A[233] = 0.00000000;
4234
A[234] = 0.00000000;
4235
A[235] = 0.00000000;
4236
A[236] = 0.00000000;
4237
A[237] = 0.00000000;
4238
A[238] = 0.00000000;
4239
A[239] = 0.00000000;
4240
A[240] = 0.00000000;
4241
A[241] = 0.00000000;
4242
A[242] = 0.00000000;
4243
A[243] = 0.00000000;
4244
A[244] = 0.00000000;
4245
A[245] = 0.00000000;
4246
A[246] = 0.00000000;
4247
A[247] = 0.00000000;
4248
A[248] = 0.00000000;
4249
A[249] = 0.00000000;
4250
A[250] = 0.00000000;
4251
A[251] = 0.00000000;
4252
A[252] = 0.00000000;
4253
A[253] = 0.00000000;
4254
A[254] = 0.00000000;
4255
A[255] = 0.00000000;
4256
A[256] = 0.00000000;
4257
A[257] = 0.00000000;
4258
A[258] = 0.00000000;
4259
A[259] = 0.00000000;
4260
A[260] = 0.00000000;
4261
A[261] = 0.00000000;
4262
A[262] = 0.00000000;
4263
A[263] = 0.00000000;
4264
A[264] = 0.00000000;
4265
A[265] = 0.00000000;
4266
A[266] = 0.00000000;
4267
A[267] = 0.00000000;
4268
A[268] = 0.00000000;
4269
A[269] = 0.00000000;
4270
A[270] = 0.00000000;
4271
A[271] = 0.00000000;
4272
A[272] = 0.00000000;
4273
A[273] = 0.00000000;
4274
A[274] = 0.00000000;
4275
A[275] = 0.00000000;
4276
A[276] = 0.00000000;
4277
A[277] = 0.00000000;
4278
A[278] = 0.00000000;
4279
A[279] = 0.00000000;
4280
A[280] = 0.00000000;
4281
A[281] = 0.00000000;
4282
A[282] = 0.00000000;
4283
A[283] = 0.00000000;
4284
A[284] = 0.00000000;
4285
A[285] = 0.00000000;
4286
A[286] = 0.00000000;
4287
A[287] = 0.00000000;
4288
A[288] = 0.01287478*G1_;
4289
A[289] = 0.00000000;
4290
A[290] = -0.00127866*G1_;
4291
A[291] = 0.00000000;
4292
A[292] = 0.00000000;
4293
A[293] = 0.00000000;
4294
A[294] = 0.01305115*G1_;
4295
A[295] = -0.00767196*G1_;
4296
A[296] = 0.00246914*G1_;
4297
A[297] = 0.00000000;
4298
A[298] = 0.00000000;
4299
A[299] = 0.00000000;
4300
A[300] = 0.01287478*G0_;
4301
A[301] = 0.00000000;
4302
A[302] = -0.00127866*G0_;
4303
A[303] = 0.00000000;
4304
A[304] = 0.00000000;
4305
A[305] = 0.00000000;
4306
A[306] = 0.01305115*G0_;
4307
A[307] = -0.00767196*G0_;
4308
A[308] = 0.00246914*G0_;
4309
A[309] = 0.00000000;
4310
A[310] = 0.00000000;
4311
A[311] = 0.00000000;
4312
A[312] = 0.00000000;
4313
A[313] = 0.00000000;
4314
A[314] = 0.00000000;
4315
A[315] = 0.00000000;
4316
A[316] = 0.00000000;
4317
A[317] = 0.00000000;
4318
A[318] = 0.00000000;
4319
A[319] = 0.00000000;
4320
A[320] = 0.00000000;
4321
A[321] = 0.00000000;
4322
A[322] = 0.00000000;
4323
A[323] = 0.00000000;
4324
A[324] = 0.00000000;
4325
A[325] = 0.00000000;
4326
A[326] = 0.00000000;
4327
A[327] = 0.00000000;
4328
A[328] = 0.00000000;
4329
A[329] = 0.00000000;
4330
A[330] = 0.00000000;
4331
A[331] = 0.00000000;
4332
A[332] = 0.00000000;
4333
A[333] = 0.00000000;
4334
A[334] = 0.00000000;
4335
A[335] = 0.00000000;
4336
A[336] = -0.00127866*G1_;
4337
A[337] = 0.00000000;
4338
A[338] = 0.01287478*G1_;
4339
A[339] = 0.00000000;
4340
A[340] = 0.00000000;
4341
A[341] = 0.00000000;
4342
A[342] = 0.00246914*G1_;
4343
A[343] = -0.00767196*G1_;
4344
A[344] = 0.01305115*G1_;
4345
A[345] = 0.00000000;
4346
A[346] = 0.00000000;
4347
A[347] = 0.00000000;
4348
A[348] = -0.00127866*G0_;
4349
A[349] = 0.00000000;
4350
A[350] = 0.01287478*G0_;
4351
A[351] = 0.00000000;
4352
A[352] = 0.00000000;
4353
A[353] = 0.00000000;
4354
A[354] = 0.00246914*G0_;
4355
A[355] = -0.00767196*G0_;
4356
A[356] = 0.01305115*G0_;
4357
A[357] = 0.00000000;
4358
A[358] = 0.00000000;
4359
A[359] = 0.00000000;
4360
A[360] = 0.00000000;
4361
A[361] = 0.00000000;
4362
A[362] = 0.00000000;
4363
A[363] = 0.00000000;
4364
A[364] = 0.00000000;
4365
A[365] = 0.00000000;
4366
A[366] = 0.00000000;
4367
A[367] = 0.00000000;
4368
A[368] = 0.00000000;
4369
A[369] = 0.00000000;
4370
A[370] = 0.00000000;
4371
A[371] = 0.00000000;
4372
A[372] = 0.00000000;
4373
A[373] = 0.00000000;
4374
A[374] = 0.00000000;
4375
A[375] = 0.00000000;
4376
A[376] = 0.00000000;
4377
A[377] = 0.00000000;
4378
A[378] = 0.00000000;
4379
A[379] = 0.00000000;
4380
A[380] = 0.00000000;
4381
A[381] = 0.00000000;
4382
A[382] = 0.00000000;
4383
A[383] = 0.00000000;
4384
A[384] = 0.00000000;
4385
A[385] = 0.00000000;
4386
A[386] = 0.00000000;
4387
A[387] = 0.00000000;
4388
A[388] = 0.00000000;
4389
A[389] = 0.00000000;
4390
A[390] = 0.00000000;
4391
A[391] = 0.00000000;
4392
A[392] = 0.00000000;
4393
A[393] = 0.00000000;
4394
A[394] = 0.00000000;
4395
A[395] = 0.00000000;
4396
A[396] = 0.00000000;
4397
A[397] = 0.00000000;
4398
A[398] = 0.00000000;
4399
A[399] = 0.00000000;
4400
A[400] = 0.00000000;
4401
A[401] = 0.00000000;
4402
A[402] = 0.00000000;
4403
A[403] = 0.00000000;
4404
A[404] = 0.00000000;
4405
A[405] = 0.00000000;
4406
A[406] = 0.00000000;
4407
A[407] = 0.00000000;
4408
A[408] = 0.00000000;
4409
A[409] = 0.00000000;
4410
A[410] = 0.00000000;
4411
A[411] = 0.00000000;
4412
A[412] = 0.00000000;
4413
A[413] = 0.00000000;
4414
A[414] = 0.00000000;
4415
A[415] = 0.00000000;
4416
A[416] = 0.00000000;
4417
A[417] = 0.00000000;
4418
A[418] = 0.00000000;
4419
A[419] = 0.00000000;
4420
A[420] = 0.00000000;
4421
A[421] = 0.00000000;
4422
A[422] = 0.00000000;
4423
A[423] = 0.00000000;
4424
A[424] = 0.00000000;
4425
A[425] = 0.00000000;
4426
A[426] = 0.00000000;
4427
A[427] = 0.00000000;
4428
A[428] = 0.00000000;
4429
A[429] = 0.00000000;
4430
A[430] = 0.00000000;
4431
A[431] = 0.00000000;
4432
A[432] = 0.01305115*G1_;
4433
A[433] = 0.00000000;
4434
A[434] = 0.00246914*G1_;
4435
A[435] = 0.00000000;
4436
A[436] = 0.00000000;
4437
A[437] = 0.00000000;
4438
A[438] = 0.07901235*G1_;
4439
A[439] = -0.01693122*G1_;
4440
A[440] = 0.01128748*G1_;
4441
A[441] = 0.00000000;
4442
A[442] = 0.00000000;
4443
A[443] = 0.00000000;
4444
A[444] = 0.01305115*G0_;
4445
A[445] = 0.00000000;
4446
A[446] = 0.00246914*G0_;
4447
A[447] = 0.00000000;
4448
A[448] = 0.00000000;
4449
A[449] = 0.00000000;
4450
A[450] = 0.07901235*G0_;
4451
A[451] = -0.01693122*G0_;
4452
A[452] = 0.01128748*G0_;
4453
A[453] = 0.00000000;
4454
A[454] = 0.00000000;
4455
A[455] = 0.00000000;
4456
A[456] = -0.00767196*G1_;
4457
A[457] = 0.00000000;
4458
A[458] = -0.00767196*G1_;
4459
A[459] = 0.00000000;
4460
A[460] = 0.00000000;
4461
A[461] = 0.00000000;
4462
A[462] = -0.01693122*G1_;
4463
A[463] = 0.08253968*G1_;
4464
A[464] = -0.01693122*G1_;
4465
A[465] = 0.00000000;
4466
A[466] = 0.00000000;
4467
A[467] = 0.00000000;
4468
A[468] = -0.00767196*G0_;
4469
A[469] = 0.00000000;
4470
A[470] = -0.00767196*G0_;
4471
A[471] = 0.00000000;
4472
A[472] = 0.00000000;
4473
A[473] = 0.00000000;
4474
A[474] = -0.01693122*G0_;
4475
A[475] = 0.08253968*G0_;
4476
A[476] = -0.01693122*G0_;
4477
A[477] = 0.00000000;
4478
A[478] = 0.00000000;
4479
A[479] = 0.00000000;
4480
A[480] = 0.00246914*G1_;
4481
A[481] = 0.00000000;
4482
A[482] = 0.01305115*G1_;
4483
A[483] = 0.00000000;
4484
A[484] = 0.00000000;
4485
A[485] = 0.00000000;
4486
A[486] = 0.01128748*G1_;
4487
A[487] = -0.01693122*G1_;
4488
A[488] = 0.07901235*G1_;
4489
A[489] = 0.00000000;
4490
A[490] = 0.00000000;
4491
A[491] = 0.00000000;
4492
A[492] = 0.00246914*G0_;
4493
A[493] = 0.00000000;
4494
A[494] = 0.01305115*G0_;
4495
A[495] = 0.00000000;
4496
A[496] = 0.00000000;
4497
A[497] = 0.00000000;
4498
A[498] = 0.01128748*G0_;
4499
A[499] = -0.01693122*G0_;
4500
A[500] = 0.07901235*G0_;
4501
A[501] = 0.00000000;
4502
A[502] = 0.00000000;
4503
A[503] = 0.00000000;
4504
A[504] = 0.00000000;
4505
A[505] = 0.00000000;
4506
A[506] = 0.00000000;
4507
A[507] = 0.00000000;
4508
A[508] = 0.00000000;
4509
A[509] = 0.00000000;
4510
A[510] = 0.00000000;
4511
A[511] = 0.00000000;
4512
A[512] = 0.00000000;
4513
A[513] = 0.00000000;
4514
A[514] = 0.00000000;
4515
A[515] = 0.00000000;
4516
A[516] = 0.00000000;
4517
A[517] = 0.00000000;
4518
A[518] = 0.00000000;
4519
A[519] = 0.00000000;
4520
A[520] = 0.00000000;
4521
A[521] = 0.00000000;
4522
A[522] = 0.00000000;
4523
A[523] = 0.00000000;
4524
A[524] = 0.00000000;
4525
A[525] = 0.00000000;
4526
A[526] = 0.00000000;
4527
A[527] = 0.00000000;
4528
A[528] = 0.00000000;
4529
A[529] = 0.00000000;
4530
A[530] = 0.00000000;
4531
A[531] = 0.00000000;
4532
A[532] = 0.00000000;
4533
A[533] = 0.00000000;
4534
A[534] = 0.00000000;
4535
A[535] = 0.00000000;
4536
A[536] = 0.00000000;
4537
A[537] = 0.00000000;
4538
A[538] = 0.00000000;
4539
A[539] = 0.00000000;
4540
A[540] = 0.00000000;
4541
A[541] = 0.00000000;
4542
A[542] = 0.00000000;
4543
A[543] = 0.00000000;
4544
A[544] = 0.00000000;
4545
A[545] = 0.00000000;
4546
A[546] = 0.00000000;
4547
A[547] = 0.00000000;
4548
A[548] = 0.00000000;
4549
A[549] = 0.00000000;
4550
A[550] = 0.00000000;
4551
A[551] = 0.00000000;
4552
A[552] = 0.00000000;
4553
A[553] = 0.00000000;
4554
A[554] = 0.00000000;
4555
A[555] = 0.00000000;
4556
A[556] = 0.00000000;
4557
A[557] = 0.00000000;
4558
A[558] = 0.00000000;
4559
A[559] = 0.00000000;
4560
A[560] = 0.00000000;
4561
A[561] = 0.00000000;
4562
A[562] = 0.00000000;
4563
A[563] = 0.00000000;
4564
A[564] = 0.00000000;
4565
A[565] = 0.00000000;
4566
A[566] = 0.00000000;
4567
A[567] = 0.00000000;
4568
A[568] = 0.00000000;
4569
A[569] = 0.00000000;
4570
A[570] = 0.00000000;
4571
A[571] = 0.00000000;
4572
A[572] = 0.00000000;
4573
A[573] = 0.00000000;
4574
A[574] = 0.00000000;
4575
A[575] = 0.00000000;
4576
break;
4577
}
4578
case 2:
4579
{
4580
A[0] = 0.01287478*G3_;
4581
A[1] = 0.00000000;
4582
A[2] = -0.00127866*G3_;
4583
A[3] = 0.00000000;
4584
A[4] = 0.00000000;
4585
A[5] = 0.00000000;
4586
A[6] = 0.01305115*G3_;
4587
A[7] = -0.00767196*G3_;
4588
A[8] = 0.00246914*G3_;
4589
A[9] = 0.00000000;
4590
A[10] = 0.00000000;
4591
A[11] = 0.00000000;
4592
A[12] = 0.01287478*G2_;
4593
A[13] = -0.00127866*G2_;
4594
A[14] = 0.00000000;
4595
A[15] = 0.00000000;
4596
A[16] = 0.00000000;
4597
A[17] = 0.00000000;
4598
A[18] = 0.00000000;
4599
A[19] = 0.00000000;
4600
A[20] = 0.00000000;
4601
A[21] = 0.01305115*G2_;
4602
A[22] = -0.00767196*G2_;
4603
A[23] = 0.00246914*G2_;
4604
A[24] = 0.00000000;
4605
A[25] = 0.00000000;
4606
A[26] = 0.00000000;
4607
A[27] = 0.00000000;
4608
A[28] = 0.00000000;
4609
A[29] = 0.00000000;
4610
A[30] = 0.00000000;
4611
A[31] = 0.00000000;
4612
A[32] = 0.00000000;
4613
A[33] = 0.00000000;
4614
A[34] = 0.00000000;
4615
A[35] = 0.00000000;
4616
A[36] = 0.00000000;
4617
A[37] = 0.00000000;
4618
A[38] = 0.00000000;
4619
A[39] = 0.00000000;
4620
A[40] = 0.00000000;
4621
A[41] = 0.00000000;
4622
A[42] = 0.00000000;
4623
A[43] = 0.00000000;
4624
A[44] = 0.00000000;
4625
A[45] = 0.00000000;
4626
A[46] = 0.00000000;
4627
A[47] = 0.00000000;
4628
A[48] = -0.00127866*G3_;
4629
A[49] = 0.00000000;
4630
A[50] = 0.01287478*G3_;
4631
A[51] = 0.00000000;
4632
A[52] = 0.00000000;
4633
A[53] = 0.00000000;
4634
A[54] = 0.00246914*G3_;
4635
A[55] = -0.00767196*G3_;
4636
A[56] = 0.01305115*G3_;
4637
A[57] = 0.00000000;
4638
A[58] = 0.00000000;
4639
A[59] = 0.00000000;
4640
A[60] = -0.00127866*G2_;
4641
A[61] = 0.01287478*G2_;
4642
A[62] = 0.00000000;
4643
A[63] = 0.00000000;
4644
A[64] = 0.00000000;
4645
A[65] = 0.00000000;
4646
A[66] = 0.00000000;
4647
A[67] = 0.00000000;
4648
A[68] = 0.00000000;
4649
A[69] = 0.00246914*G2_;
4650
A[70] = -0.00767196*G2_;
4651
A[71] = 0.01305115*G2_;
4652
A[72] = 0.00000000;
4653
A[73] = 0.00000000;
4654
A[74] = 0.00000000;
4655
A[75] = 0.00000000;
4656
A[76] = 0.00000000;
4657
A[77] = 0.00000000;
4658
A[78] = 0.00000000;
4659
A[79] = 0.00000000;
4660
A[80] = 0.00000000;
4661
A[81] = 0.00000000;
4662
A[82] = 0.00000000;
4663
A[83] = 0.00000000;
4664
A[84] = 0.00000000;
4665
A[85] = 0.00000000;
4666
A[86] = 0.00000000;
4667
A[87] = 0.00000000;
4668
A[88] = 0.00000000;
4669
A[89] = 0.00000000;
4670
A[90] = 0.00000000;
4671
A[91] = 0.00000000;
4672
A[92] = 0.00000000;
4673
A[93] = 0.00000000;
4674
A[94] = 0.00000000;
4675
A[95] = 0.00000000;
4676
A[96] = 0.00000000;
4677
A[97] = 0.00000000;
4678
A[98] = 0.00000000;
4679
A[99] = 0.00000000;
4680
A[100] = 0.00000000;
4681
A[101] = 0.00000000;
4682
A[102] = 0.00000000;
4683
A[103] = 0.00000000;
4684
A[104] = 0.00000000;
4685
A[105] = 0.00000000;
4686
A[106] = 0.00000000;
4687
A[107] = 0.00000000;
4688
A[108] = 0.00000000;
4689
A[109] = 0.00000000;
4690
A[110] = 0.00000000;
4691
A[111] = 0.00000000;
4692
A[112] = 0.00000000;
4693
A[113] = 0.00000000;
4694
A[114] = 0.00000000;
4695
A[115] = 0.00000000;
4696
A[116] = 0.00000000;
4697
A[117] = 0.00000000;
4698
A[118] = 0.00000000;
4699
A[119] = 0.00000000;
4700
A[120] = 0.00000000;
4701
A[121] = 0.00000000;
4702
A[122] = 0.00000000;
4703
A[123] = 0.00000000;
4704
A[124] = 0.00000000;
4705
A[125] = 0.00000000;
4706
A[126] = 0.00000000;
4707
A[127] = 0.00000000;
4708
A[128] = 0.00000000;
4709
A[129] = 0.00000000;
4710
A[130] = 0.00000000;
4711
A[131] = 0.00000000;
4712
A[132] = 0.00000000;
4713
A[133] = 0.00000000;
4714
A[134] = 0.00000000;
4715
A[135] = 0.00000000;
4716
A[136] = 0.00000000;
4717
A[137] = 0.00000000;
4718
A[138] = 0.00000000;
4719
A[139] = 0.00000000;
4720
A[140] = 0.00000000;
4721
A[141] = 0.00000000;
4722
A[142] = 0.00000000;
4723
A[143] = 0.00000000;
4724
A[144] = 0.01305115*G3_;
4725
A[145] = 0.00000000;
4726
A[146] = 0.00246914*G3_;
4727
A[147] = 0.00000000;
4728
A[148] = 0.00000000;
4729
A[149] = 0.00000000;
4730
A[150] = 0.07901235*G3_;
4731
A[151] = -0.01693122*G3_;
4732
A[152] = 0.01128748*G3_;
4733
A[153] = 0.00000000;
4734
A[154] = 0.00000000;
4735
A[155] = 0.00000000;
4736
A[156] = 0.01305115*G2_;
4737
A[157] = 0.00246914*G2_;
4738
A[158] = 0.00000000;
4739
A[159] = 0.00000000;
4740
A[160] = 0.00000000;
4741
A[161] = 0.00000000;
4742
A[162] = 0.00000000;
4743
A[163] = 0.00000000;
4744
A[164] = 0.00000000;
4745
A[165] = 0.07901235*G2_;
4746
A[166] = -0.01693122*G2_;
4747
A[167] = 0.01128748*G2_;
4748
A[168] = -0.00767196*G3_;
4749
A[169] = 0.00000000;
4750
A[170] = -0.00767196*G3_;
4751
A[171] = 0.00000000;
4752
A[172] = 0.00000000;
4753
A[173] = 0.00000000;
4754
A[174] = -0.01693122*G3_;
4755
A[175] = 0.08253968*G3_;
4756
A[176] = -0.01693122*G3_;
4757
A[177] = 0.00000000;
4758
A[178] = 0.00000000;
4759
A[179] = 0.00000000;
4760
A[180] = -0.00767196*G2_;
4761
A[181] = -0.00767196*G2_;
4762
A[182] = 0.00000000;
4763
A[183] = 0.00000000;
4764
A[184] = 0.00000000;
4765
A[185] = 0.00000000;
4766
A[186] = 0.00000000;
4767
A[187] = 0.00000000;
4768
A[188] = 0.00000000;
4769
A[189] = -0.01693122*G2_;
4770
A[190] = 0.08253968*G2_;
4771
A[191] = -0.01693122*G2_;
4772
A[192] = 0.00246914*G3_;
4773
A[193] = 0.00000000;
4774
A[194] = 0.01305115*G3_;
4775
A[195] = 0.00000000;
4776
A[196] = 0.00000000;
4777
A[197] = 0.00000000;
4778
A[198] = 0.01128748*G3_;
4779
A[199] = -0.01693122*G3_;
4780
A[200] = 0.07901235*G3_;
4781
A[201] = 0.00000000;
4782
A[202] = 0.00000000;
4783
A[203] = 0.00000000;
4784
A[204] = 0.00246914*G2_;
4785
A[205] = 0.01305115*G2_;
4786
A[206] = 0.00000000;
4787
A[207] = 0.00000000;
4788
A[208] = 0.00000000;
4789
A[209] = 0.00000000;
4790
A[210] = 0.00000000;
4791
A[211] = 0.00000000;
4792
A[212] = 0.00000000;
4793
A[213] = 0.01128748*G2_;
4794
A[214] = -0.01693122*G2_;
4795
A[215] = 0.07901235*G2_;
4796
A[216] = 0.00000000;
4797
A[217] = 0.00000000;
4798
A[218] = 0.00000000;
4799
A[219] = 0.00000000;
4800
A[220] = 0.00000000;
4801
A[221] = 0.00000000;
4802
A[222] = 0.00000000;
4803
A[223] = 0.00000000;
4804
A[224] = 0.00000000;
4805
A[225] = 0.00000000;
4806
A[226] = 0.00000000;
4807
A[227] = 0.00000000;
4808
A[228] = 0.00000000;
4809
A[229] = 0.00000000;
4810
A[230] = 0.00000000;
4811
A[231] = 0.00000000;
4812
A[232] = 0.00000000;
4813
A[233] = 0.00000000;
4814
A[234] = 0.00000000;
4815
A[235] = 0.00000000;
4816
A[236] = 0.00000000;
4817
A[237] = 0.00000000;
4818
A[238] = 0.00000000;
4819
A[239] = 0.00000000;
4820
A[240] = 0.00000000;
4821
A[241] = 0.00000000;
4822
A[242] = 0.00000000;
4823
A[243] = 0.00000000;
4824
A[244] = 0.00000000;
4825
A[245] = 0.00000000;
4826
A[246] = 0.00000000;
4827
A[247] = 0.00000000;
4828
A[248] = 0.00000000;
4829
A[249] = 0.00000000;
4830
A[250] = 0.00000000;
4831
A[251] = 0.00000000;
4832
A[252] = 0.00000000;
4833
A[253] = 0.00000000;
4834
A[254] = 0.00000000;
4835
A[255] = 0.00000000;
4836
A[256] = 0.00000000;
4837
A[257] = 0.00000000;
4838
A[258] = 0.00000000;
4839
A[259] = 0.00000000;
4840
A[260] = 0.00000000;
4841
A[261] = 0.00000000;
4842
A[262] = 0.00000000;
4843
A[263] = 0.00000000;
4844
A[264] = 0.00000000;
4845
A[265] = 0.00000000;
4846
A[266] = 0.00000000;
4847
A[267] = 0.00000000;
4848
A[268] = 0.00000000;
4849
A[269] = 0.00000000;
4850
A[270] = 0.00000000;
4851
A[271] = 0.00000000;
4852
A[272] = 0.00000000;
4853
A[273] = 0.00000000;
4854
A[274] = 0.00000000;
4855
A[275] = 0.00000000;
4856
A[276] = 0.00000000;
4857
A[277] = 0.00000000;
4858
A[278] = 0.00000000;
4859
A[279] = 0.00000000;
4860
A[280] = 0.00000000;
4861
A[281] = 0.00000000;
4862
A[282] = 0.00000000;
4863
A[283] = 0.00000000;
4864
A[284] = 0.00000000;
4865
A[285] = 0.00000000;
4866
A[286] = 0.00000000;
4867
A[287] = 0.00000000;
4868
A[288] = 0.01287478*G1_;
4869
A[289] = 0.00000000;
4870
A[290] = -0.00127866*G1_;
4871
A[291] = 0.00000000;
4872
A[292] = 0.00000000;
4873
A[293] = 0.00000000;
4874
A[294] = 0.01305115*G1_;
4875
A[295] = -0.00767196*G1_;
4876
A[296] = 0.00246914*G1_;
4877
A[297] = 0.00000000;
4878
A[298] = 0.00000000;
4879
A[299] = 0.00000000;
4880
A[300] = 0.01287478*G0_;
4881
A[301] = -0.00127866*G0_;
4882
A[302] = 0.00000000;
4883
A[303] = 0.00000000;
4884
A[304] = 0.00000000;
4885
A[305] = 0.00000000;
4886
A[306] = 0.00000000;
4887
A[307] = 0.00000000;
4888
A[308] = 0.00000000;
4889
A[309] = 0.01305115*G0_;
4890
A[310] = -0.00767196*G0_;
4891
A[311] = 0.00246914*G0_;
4892
A[312] = -0.00127866*G1_;
4893
A[313] = 0.00000000;
4894
A[314] = 0.01287478*G1_;
4895
A[315] = 0.00000000;
4896
A[316] = 0.00000000;
4897
A[317] = 0.00000000;
4898
A[318] = 0.00246914*G1_;
4899
A[319] = -0.00767196*G1_;
4900
A[320] = 0.01305115*G1_;
4901
A[321] = 0.00000000;
4902
A[322] = 0.00000000;
4903
A[323] = 0.00000000;
4904
A[324] = -0.00127866*G0_;
4905
A[325] = 0.01287478*G0_;
4906
A[326] = 0.00000000;
4907
A[327] = 0.00000000;
4908
A[328] = 0.00000000;
4909
A[329] = 0.00000000;
4910
A[330] = 0.00000000;
4911
A[331] = 0.00000000;
4912
A[332] = 0.00000000;
4913
A[333] = 0.00246914*G0_;
4914
A[334] = -0.00767196*G0_;
4915
A[335] = 0.01305115*G0_;
4916
A[336] = 0.00000000;
4917
A[337] = 0.00000000;
4918
A[338] = 0.00000000;
4919
A[339] = 0.00000000;
4920
A[340] = 0.00000000;
4921
A[341] = 0.00000000;
4922
A[342] = 0.00000000;
4923
A[343] = 0.00000000;
4924
A[344] = 0.00000000;
4925
A[345] = 0.00000000;
4926
A[346] = 0.00000000;
4927
A[347] = 0.00000000;
4928
A[348] = 0.00000000;
4929
A[349] = 0.00000000;
4930
A[350] = 0.00000000;
4931
A[351] = 0.00000000;
4932
A[352] = 0.00000000;
4933
A[353] = 0.00000000;
4934
A[354] = 0.00000000;
4935
A[355] = 0.00000000;
4936
A[356] = 0.00000000;
4937
A[357] = 0.00000000;
4938
A[358] = 0.00000000;
4939
A[359] = 0.00000000;
4940
A[360] = 0.00000000;
4941
A[361] = 0.00000000;
4942
A[362] = 0.00000000;
4943
A[363] = 0.00000000;
4944
A[364] = 0.00000000;
4945
A[365] = 0.00000000;
4946
A[366] = 0.00000000;
4947
A[367] = 0.00000000;
4948
A[368] = 0.00000000;
4949
A[369] = 0.00000000;
4950
A[370] = 0.00000000;
4951
A[371] = 0.00000000;
4952
A[372] = 0.00000000;
4953
A[373] = 0.00000000;
4954
A[374] = 0.00000000;
4955
A[375] = 0.00000000;
4956
A[376] = 0.00000000;
4957
A[377] = 0.00000000;
4958
A[378] = 0.00000000;
4959
A[379] = 0.00000000;
4960
A[380] = 0.00000000;
4961
A[381] = 0.00000000;
4962
A[382] = 0.00000000;
4963
A[383] = 0.00000000;
4964
A[384] = 0.00000000;
4965
A[385] = 0.00000000;
4966
A[386] = 0.00000000;
4967
A[387] = 0.00000000;
4968
A[388] = 0.00000000;
4969
A[389] = 0.00000000;
4970
A[390] = 0.00000000;
4971
A[391] = 0.00000000;
4972
A[392] = 0.00000000;
4973
A[393] = 0.00000000;
4974
A[394] = 0.00000000;
4975
A[395] = 0.00000000;
4976
A[396] = 0.00000000;
4977
A[397] = 0.00000000;
4978
A[398] = 0.00000000;
4979
A[399] = 0.00000000;
4980
A[400] = 0.00000000;
4981
A[401] = 0.00000000;
4982
A[402] = 0.00000000;
4983
A[403] = 0.00000000;
4984
A[404] = 0.00000000;
4985
A[405] = 0.00000000;
4986
A[406] = 0.00000000;
4987
A[407] = 0.00000000;
4988
A[408] = 0.00000000;
4989
A[409] = 0.00000000;
4990
A[410] = 0.00000000;
4991
A[411] = 0.00000000;
4992
A[412] = 0.00000000;
4993
A[413] = 0.00000000;
4994
A[414] = 0.00000000;
4995
A[415] = 0.00000000;
4996
A[416] = 0.00000000;
4997
A[417] = 0.00000000;
4998
A[418] = 0.00000000;
4999
A[419] = 0.00000000;
5000
A[420] = 0.00000000;
5001
A[421] = 0.00000000;
5002
A[422] = 0.00000000;
5003
A[423] = 0.00000000;
5004
A[424] = 0.00000000;
5005
A[425] = 0.00000000;
5006
A[426] = 0.00000000;
5007
A[427] = 0.00000000;
5008
A[428] = 0.00000000;
5009
A[429] = 0.00000000;
5010
A[430] = 0.00000000;
5011
A[431] = 0.00000000;
5012
A[432] = 0.00000000;
5013
A[433] = 0.00000000;
5014
A[434] = 0.00000000;
5015
A[435] = 0.00000000;
5016
A[436] = 0.00000000;
5017
A[437] = 0.00000000;
5018
A[438] = 0.00000000;
5019
A[439] = 0.00000000;
5020
A[440] = 0.00000000;
5021
A[441] = 0.00000000;
5022
A[442] = 0.00000000;
5023
A[443] = 0.00000000;
5024
A[444] = 0.00000000;
5025
A[445] = 0.00000000;
5026
A[446] = 0.00000000;
5027
A[447] = 0.00000000;
5028
A[448] = 0.00000000;
5029
A[449] = 0.00000000;
5030
A[450] = 0.00000000;
5031
A[451] = 0.00000000;
5032
A[452] = 0.00000000;
5033
A[453] = 0.00000000;
5034
A[454] = 0.00000000;
5035
A[455] = 0.00000000;
5036
A[456] = 0.00000000;
5037
A[457] = 0.00000000;
5038
A[458] = 0.00000000;
5039
A[459] = 0.00000000;
5040
A[460] = 0.00000000;
5041
A[461] = 0.00000000;
5042
A[462] = 0.00000000;
5043
A[463] = 0.00000000;
5044
A[464] = 0.00000000;
5045
A[465] = 0.00000000;
5046
A[466] = 0.00000000;
5047
A[467] = 0.00000000;
5048
A[468] = 0.00000000;
5049
A[469] = 0.00000000;
5050
A[470] = 0.00000000;
5051
A[471] = 0.00000000;
5052
A[472] = 0.00000000;
5053
A[473] = 0.00000000;
5054
A[474] = 0.00000000;
5055
A[475] = 0.00000000;
5056
A[476] = 0.00000000;
5057
A[477] = 0.00000000;
5058
A[478] = 0.00000000;
5059
A[479] = 0.00000000;
5060
A[480] = 0.00000000;
5061
A[481] = 0.00000000;
5062
A[482] = 0.00000000;
5063
A[483] = 0.00000000;
5064
A[484] = 0.00000000;
5065
A[485] = 0.00000000;
5066
A[486] = 0.00000000;
5067
A[487] = 0.00000000;
5068
A[488] = 0.00000000;
5069
A[489] = 0.00000000;
5070
A[490] = 0.00000000;
5071
A[491] = 0.00000000;
5072
A[492] = 0.00000000;
5073
A[493] = 0.00000000;
5074
A[494] = 0.00000000;
5075
A[495] = 0.00000000;
5076
A[496] = 0.00000000;
5077
A[497] = 0.00000000;
5078
A[498] = 0.00000000;
5079
A[499] = 0.00000000;
5080
A[500] = 0.00000000;
5081
A[501] = 0.00000000;
5082
A[502] = 0.00000000;
5083
A[503] = 0.00000000;
5084
A[504] = 0.01305115*G1_;
5085
A[505] = 0.00000000;
5086
A[506] = 0.00246914*G1_;
5087
A[507] = 0.00000000;
5088
A[508] = 0.00000000;
5089
A[509] = 0.00000000;
5090
A[510] = 0.07901235*G1_;
5091
A[511] = -0.01693122*G1_;
5092
A[512] = 0.01128748*G1_;
5093
A[513] = 0.00000000;
5094
A[514] = 0.00000000;
5095
A[515] = 0.00000000;
5096
A[516] = 0.01305115*G0_;
5097
A[517] = 0.00246914*G0_;
5098
A[518] = 0.00000000;
5099
A[519] = 0.00000000;
5100
A[520] = 0.00000000;
5101
A[521] = 0.00000000;
5102
A[522] = 0.00000000;
5103
A[523] = 0.00000000;
5104
A[524] = 0.00000000;
5105
A[525] = 0.07901235*G0_;
5106
A[526] = -0.01693122*G0_;
5107
A[527] = 0.01128748*G0_;
5108
A[528] = -0.00767196*G1_;
5109
A[529] = 0.00000000;
5110
A[530] = -0.00767196*G1_;
5111
A[531] = 0.00000000;
5112
A[532] = 0.00000000;
5113
A[533] = 0.00000000;
5114
A[534] = -0.01693122*G1_;
5115
A[535] = 0.08253968*G1_;
5116
A[536] = -0.01693122*G1_;
5117
A[537] = 0.00000000;
5118
A[538] = 0.00000000;
5119
A[539] = 0.00000000;
5120
A[540] = -0.00767196*G0_;
5121
A[541] = -0.00767196*G0_;
5122
A[542] = 0.00000000;
5123
A[543] = 0.00000000;
5124
A[544] = 0.00000000;
5125
A[545] = 0.00000000;
5126
A[546] = 0.00000000;
5127
A[547] = 0.00000000;
5128
A[548] = 0.00000000;
5129
A[549] = -0.01693122*G0_;
5130
A[550] = 0.08253968*G0_;
5131
A[551] = -0.01693122*G0_;
5132
A[552] = 0.00246914*G1_;
5133
A[553] = 0.00000000;
5134
A[554] = 0.01305115*G1_;
5135
A[555] = 0.00000000;
5136
A[556] = 0.00000000;
5137
A[557] = 0.00000000;
5138
A[558] = 0.01128748*G1_;
5139
A[559] = -0.01693122*G1_;
5140
A[560] = 0.07901235*G1_;
5141
A[561] = 0.00000000;
5142
A[562] = 0.00000000;
5143
A[563] = 0.00000000;
5144
A[564] = 0.00246914*G0_;
5145
A[565] = 0.01305115*G0_;
5146
A[566] = 0.00000000;
5147
A[567] = 0.00000000;
5148
A[568] = 0.00000000;
5149
A[569] = 0.00000000;
5150
A[570] = 0.00000000;
5151
A[571] = 0.00000000;
5152
A[572] = 0.00000000;
5153
A[573] = 0.01128748*G0_;
5154
A[574] = -0.01693122*G0_;
5155
A[575] = 0.07901235*G0_;
5156
break;
5157
}
5158
}
5159
5160
break;
5161
}
5162
case 2:
5163
{
5164
switch (facet1)
5165
{
5166
case 0:
5167
{
5168
A[0] = 0.01287478*G3_;
5169
A[1] = -0.00127866*G3_;
5170
A[2] = 0.00000000;
5171
A[3] = 0.00000000;
5172
A[4] = 0.00000000;
5173
A[5] = 0.00000000;
5174
A[6] = 0.00000000;
5175
A[7] = 0.00000000;
5176
A[8] = 0.00000000;
5177
A[9] = 0.01305115*G3_;
5178
A[10] = -0.00767196*G3_;
5179
A[11] = 0.00246914*G3_;
5180
A[12] = 0.00000000;
5181
A[13] = 0.01287478*G2_;
5182
A[14] = -0.00127866*G2_;
5183
A[15] = 0.01305115*G2_;
5184
A[16] = -0.00767196*G2_;
5185
A[17] = 0.00246914*G2_;
5186
A[18] = 0.00000000;
5187
A[19] = 0.00000000;
5188
A[20] = 0.00000000;
5189
A[21] = 0.00000000;
5190
A[22] = 0.00000000;
5191
A[23] = 0.00000000;
5192
A[24] = -0.00127866*G3_;
5193
A[25] = 0.01287478*G3_;
5194
A[26] = 0.00000000;
5195
A[27] = 0.00000000;
5196
A[28] = 0.00000000;
5197
A[29] = 0.00000000;
5198
A[30] = 0.00000000;
5199
A[31] = 0.00000000;
5200
A[32] = 0.00000000;
5201
A[33] = 0.00246914*G3_;
5202
A[34] = -0.00767196*G3_;
5203
A[35] = 0.01305115*G3_;
5204
A[36] = 0.00000000;
5205
A[37] = -0.00127866*G2_;
5206
A[38] = 0.01287478*G2_;
5207
A[39] = 0.00246914*G2_;
5208
A[40] = -0.00767196*G2_;
5209
A[41] = 0.01305115*G2_;
5210
A[42] = 0.00000000;
5211
A[43] = 0.00000000;
5212
A[44] = 0.00000000;
5213
A[45] = 0.00000000;
5214
A[46] = 0.00000000;
5215
A[47] = 0.00000000;
5216
A[48] = 0.00000000;
5217
A[49] = 0.00000000;
5218
A[50] = 0.00000000;
5219
A[51] = 0.00000000;
5220
A[52] = 0.00000000;
5221
A[53] = 0.00000000;
5222
A[54] = 0.00000000;
5223
A[55] = 0.00000000;
5224
A[56] = 0.00000000;
5225
A[57] = 0.00000000;
5226
A[58] = 0.00000000;
5227
A[59] = 0.00000000;
5228
A[60] = 0.00000000;
5229
A[61] = 0.00000000;
5230
A[62] = 0.00000000;
5231
A[63] = 0.00000000;
5232
A[64] = 0.00000000;
5233
A[65] = 0.00000000;
5234
A[66] = 0.00000000;
5235
A[67] = 0.00000000;
5236
A[68] = 0.00000000;
5237
A[69] = 0.00000000;
5238
A[70] = 0.00000000;
5239
A[71] = 0.00000000;
5240
A[72] = 0.00000000;
5241
A[73] = 0.00000000;
5242
A[74] = 0.00000000;
5243
A[75] = 0.00000000;
5244
A[76] = 0.00000000;
5245
A[77] = 0.00000000;
5246
A[78] = 0.00000000;
5247
A[79] = 0.00000000;
5248
A[80] = 0.00000000;
5249
A[81] = 0.00000000;
5250
A[82] = 0.00000000;
5251
A[83] = 0.00000000;
5252
A[84] = 0.00000000;
5253
A[85] = 0.00000000;
5254
A[86] = 0.00000000;
5255
A[87] = 0.00000000;
5256
A[88] = 0.00000000;
5257
A[89] = 0.00000000;
5258
A[90] = 0.00000000;
5259
A[91] = 0.00000000;
5260
A[92] = 0.00000000;
5261
A[93] = 0.00000000;
5262
A[94] = 0.00000000;
5263
A[95] = 0.00000000;
5264
A[96] = 0.00000000;
5265
A[97] = 0.00000000;
5266
A[98] = 0.00000000;
5267
A[99] = 0.00000000;
5268
A[100] = 0.00000000;
5269
A[101] = 0.00000000;
5270
A[102] = 0.00000000;
5271
A[103] = 0.00000000;
5272
A[104] = 0.00000000;
5273
A[105] = 0.00000000;
5274
A[106] = 0.00000000;
5275
A[107] = 0.00000000;
5276
A[108] = 0.00000000;
5277
A[109] = 0.00000000;
5278
A[110] = 0.00000000;
5279
A[111] = 0.00000000;
5280
A[112] = 0.00000000;
5281
A[113] = 0.00000000;
5282
A[114] = 0.00000000;
5283
A[115] = 0.00000000;
5284
A[116] = 0.00000000;
5285
A[117] = 0.00000000;
5286
A[118] = 0.00000000;
5287
A[119] = 0.00000000;
5288
A[120] = 0.00000000;
5289
A[121] = 0.00000000;
5290
A[122] = 0.00000000;
5291
A[123] = 0.00000000;
5292
A[124] = 0.00000000;
5293
A[125] = 0.00000000;
5294
A[126] = 0.00000000;
5295
A[127] = 0.00000000;
5296
A[128] = 0.00000000;
5297
A[129] = 0.00000000;
5298
A[130] = 0.00000000;
5299
A[131] = 0.00000000;
5300
A[132] = 0.00000000;
5301
A[133] = 0.00000000;
5302
A[134] = 0.00000000;
5303
A[135] = 0.00000000;
5304
A[136] = 0.00000000;
5305
A[137] = 0.00000000;
5306
A[138] = 0.00000000;
5307
A[139] = 0.00000000;
5308
A[140] = 0.00000000;
5309
A[141] = 0.00000000;
5310
A[142] = 0.00000000;
5311
A[143] = 0.00000000;
5312
A[144] = 0.00000000;
5313
A[145] = 0.00000000;
5314
A[146] = 0.00000000;
5315
A[147] = 0.00000000;
5316
A[148] = 0.00000000;
5317
A[149] = 0.00000000;
5318
A[150] = 0.00000000;
5319
A[151] = 0.00000000;
5320
A[152] = 0.00000000;
5321
A[153] = 0.00000000;
5322
A[154] = 0.00000000;
5323
A[155] = 0.00000000;
5324
A[156] = 0.00000000;
5325
A[157] = 0.00000000;
5326
A[158] = 0.00000000;
5327
A[159] = 0.00000000;
5328
A[160] = 0.00000000;
5329
A[161] = 0.00000000;
5330
A[162] = 0.00000000;
5331
A[163] = 0.00000000;
5332
A[164] = 0.00000000;
5333
A[165] = 0.00000000;
5334
A[166] = 0.00000000;
5335
A[167] = 0.00000000;
5336
A[168] = 0.00000000;
5337
A[169] = 0.00000000;
5338
A[170] = 0.00000000;
5339
A[171] = 0.00000000;
5340
A[172] = 0.00000000;
5341
A[173] = 0.00000000;
5342
A[174] = 0.00000000;
5343
A[175] = 0.00000000;
5344
A[176] = 0.00000000;
5345
A[177] = 0.00000000;
5346
A[178] = 0.00000000;
5347
A[179] = 0.00000000;
5348
A[180] = 0.00000000;
5349
A[181] = 0.00000000;
5350
A[182] = 0.00000000;
5351
A[183] = 0.00000000;
5352
A[184] = 0.00000000;
5353
A[185] = 0.00000000;
5354
A[186] = 0.00000000;
5355
A[187] = 0.00000000;
5356
A[188] = 0.00000000;
5357
A[189] = 0.00000000;
5358
A[190] = 0.00000000;
5359
A[191] = 0.00000000;
5360
A[192] = 0.00000000;
5361
A[193] = 0.00000000;
5362
A[194] = 0.00000000;
5363
A[195] = 0.00000000;
5364
A[196] = 0.00000000;
5365
A[197] = 0.00000000;
5366
A[198] = 0.00000000;
5367
A[199] = 0.00000000;
5368
A[200] = 0.00000000;
5369
A[201] = 0.00000000;
5370
A[202] = 0.00000000;
5371
A[203] = 0.00000000;
5372
A[204] = 0.00000000;
5373
A[205] = 0.00000000;
5374
A[206] = 0.00000000;
5375
A[207] = 0.00000000;
5376
A[208] = 0.00000000;
5377
A[209] = 0.00000000;
5378
A[210] = 0.00000000;
5379
A[211] = 0.00000000;
5380
A[212] = 0.00000000;
5381
A[213] = 0.00000000;
5382
A[214] = 0.00000000;
5383
A[215] = 0.00000000;
5384
A[216] = 0.01305115*G3_;
5385
A[217] = 0.00246914*G3_;
5386
A[218] = 0.00000000;
5387
A[219] = 0.00000000;
5388
A[220] = 0.00000000;
5389
A[221] = 0.00000000;
5390
A[222] = 0.00000000;
5391
A[223] = 0.00000000;
5392
A[224] = 0.00000000;
5393
A[225] = 0.07901235*G3_;
5394
A[226] = -0.01693122*G3_;
5395
A[227] = 0.01128748*G3_;
5396
A[228] = 0.00000000;
5397
A[229] = 0.01305115*G2_;
5398
A[230] = 0.00246914*G2_;
5399
A[231] = 0.07901235*G2_;
5400
A[232] = -0.01693122*G2_;
5401
A[233] = 0.01128748*G2_;
5402
A[234] = 0.00000000;
5403
A[235] = 0.00000000;
5404
A[236] = 0.00000000;
5405
A[237] = 0.00000000;
5406
A[238] = 0.00000000;
5407
A[239] = 0.00000000;
5408
A[240] = -0.00767196*G3_;
5409
A[241] = -0.00767196*G3_;
5410
A[242] = 0.00000000;
5411
A[243] = 0.00000000;
5412
A[244] = 0.00000000;
5413
A[245] = 0.00000000;
5414
A[246] = 0.00000000;
5415
A[247] = 0.00000000;
5416
A[248] = 0.00000000;
5417
A[249] = -0.01693122*G3_;
5418
A[250] = 0.08253968*G3_;
5419
A[251] = -0.01693122*G3_;
5420
A[252] = 0.00000000;
5421
A[253] = -0.00767196*G2_;
5422
A[254] = -0.00767196*G2_;
5423
A[255] = -0.01693122*G2_;
5424
A[256] = 0.08253968*G2_;
5425
A[257] = -0.01693122*G2_;
5426
A[258] = 0.00000000;
5427
A[259] = 0.00000000;
5428
A[260] = 0.00000000;
5429
A[261] = 0.00000000;
5430
A[262] = 0.00000000;
5431
A[263] = 0.00000000;
5432
A[264] = 0.00246914*G3_;
5433
A[265] = 0.01305115*G3_;
5434
A[266] = 0.00000000;
5435
A[267] = 0.00000000;
5436
A[268] = 0.00000000;
5437
A[269] = 0.00000000;
5438
A[270] = 0.00000000;
5439
A[271] = 0.00000000;
5440
A[272] = 0.00000000;
5441
A[273] = 0.01128748*G3_;
5442
A[274] = -0.01693122*G3_;
5443
A[275] = 0.07901235*G3_;
5444
A[276] = 0.00000000;
5445
A[277] = 0.00246914*G2_;
5446
A[278] = 0.01305115*G2_;
5447
A[279] = 0.01128748*G2_;
5448
A[280] = -0.01693122*G2_;
5449
A[281] = 0.07901235*G2_;
5450
A[282] = 0.00000000;
5451
A[283] = 0.00000000;
5452
A[284] = 0.00000000;
5453
A[285] = 0.00000000;
5454
A[286] = 0.00000000;
5455
A[287] = 0.00000000;
5456
A[288] = 0.00000000;
5457
A[289] = 0.00000000;
5458
A[290] = 0.00000000;
5459
A[291] = 0.00000000;
5460
A[292] = 0.00000000;
5461
A[293] = 0.00000000;
5462
A[294] = 0.00000000;
5463
A[295] = 0.00000000;
5464
A[296] = 0.00000000;
5465
A[297] = 0.00000000;
5466
A[298] = 0.00000000;
5467
A[299] = 0.00000000;
5468
A[300] = 0.00000000;
5469
A[301] = 0.00000000;
5470
A[302] = 0.00000000;
5471
A[303] = 0.00000000;
5472
A[304] = 0.00000000;
5473
A[305] = 0.00000000;
5474
A[306] = 0.00000000;
5475
A[307] = 0.00000000;
5476
A[308] = 0.00000000;
5477
A[309] = 0.00000000;
5478
A[310] = 0.00000000;
5479
A[311] = 0.00000000;
5480
A[312] = 0.01287478*G1_;
5481
A[313] = -0.00127866*G1_;
5482
A[314] = 0.00000000;
5483
A[315] = 0.00000000;
5484
A[316] = 0.00000000;
5485
A[317] = 0.00000000;
5486
A[318] = 0.00000000;
5487
A[319] = 0.00000000;
5488
A[320] = 0.00000000;
5489
A[321] = 0.01305115*G1_;
5490
A[322] = -0.00767196*G1_;
5491
A[323] = 0.00246914*G1_;
5492
A[324] = 0.00000000;
5493
A[325] = 0.01287478*G0_;
5494
A[326] = -0.00127866*G0_;
5495
A[327] = 0.01305115*G0_;
5496
A[328] = -0.00767196*G0_;
5497
A[329] = 0.00246914*G0_;
5498
A[330] = 0.00000000;
5499
A[331] = 0.00000000;
5500
A[332] = 0.00000000;
5501
A[333] = 0.00000000;
5502
A[334] = 0.00000000;
5503
A[335] = 0.00000000;
5504
A[336] = -0.00127866*G1_;
5505
A[337] = 0.01287478*G1_;
5506
A[338] = 0.00000000;
5507
A[339] = 0.00000000;
5508
A[340] = 0.00000000;
5509
A[341] = 0.00000000;
5510
A[342] = 0.00000000;
5511
A[343] = 0.00000000;
5512
A[344] = 0.00000000;
5513
A[345] = 0.00246914*G1_;
5514
A[346] = -0.00767196*G1_;
5515
A[347] = 0.01305115*G1_;
5516
A[348] = 0.00000000;
5517
A[349] = -0.00127866*G0_;
5518
A[350] = 0.01287478*G0_;
5519
A[351] = 0.00246914*G0_;
5520
A[352] = -0.00767196*G0_;
5521
A[353] = 0.01305115*G0_;
5522
A[354] = 0.00000000;
5523
A[355] = 0.00000000;
5524
A[356] = 0.00000000;
5525
A[357] = 0.00000000;
5526
A[358] = 0.00000000;
5527
A[359] = 0.00000000;
5528
A[360] = 0.01305115*G1_;
5529
A[361] = 0.00246914*G1_;
5530
A[362] = 0.00000000;
5531
A[363] = 0.00000000;
5532
A[364] = 0.00000000;
5533
A[365] = 0.00000000;
5534
A[366] = 0.00000000;
5535
A[367] = 0.00000000;
5536
A[368] = 0.00000000;
5537
A[369] = 0.07901235*G1_;
5538
A[370] = -0.01693122*G1_;
5539
A[371] = 0.01128748*G1_;
5540
A[372] = 0.00000000;
5541
A[373] = 0.01305115*G0_;
5542
A[374] = 0.00246914*G0_;
5543
A[375] = 0.07901235*G0_;
5544
A[376] = -0.01693122*G0_;
5545
A[377] = 0.01128748*G0_;
5546
A[378] = 0.00000000;
5547
A[379] = 0.00000000;
5548
A[380] = 0.00000000;
5549
A[381] = 0.00000000;
5550
A[382] = 0.00000000;
5551
A[383] = 0.00000000;
5552
A[384] = -0.00767196*G1_;
5553
A[385] = -0.00767196*G1_;
5554
A[386] = 0.00000000;
5555
A[387] = 0.00000000;
5556
A[388] = 0.00000000;
5557
A[389] = 0.00000000;
5558
A[390] = 0.00000000;
5559
A[391] = 0.00000000;
5560
A[392] = 0.00000000;
5561
A[393] = -0.01693122*G1_;
5562
A[394] = 0.08253968*G1_;
5563
A[395] = -0.01693122*G1_;
5564
A[396] = 0.00000000;
5565
A[397] = -0.00767196*G0_;
5566
A[398] = -0.00767196*G0_;
5567
A[399] = -0.01693122*G0_;
5568
A[400] = 0.08253968*G0_;
5569
A[401] = -0.01693122*G0_;
5570
A[402] = 0.00000000;
5571
A[403] = 0.00000000;
5572
A[404] = 0.00000000;
5573
A[405] = 0.00000000;
5574
A[406] = 0.00000000;
5575
A[407] = 0.00000000;
5576
A[408] = 0.00246914*G1_;
5577
A[409] = 0.01305115*G1_;
5578
A[410] = 0.00000000;
5579
A[411] = 0.00000000;
5580
A[412] = 0.00000000;
5581
A[413] = 0.00000000;
5582
A[414] = 0.00000000;
5583
A[415] = 0.00000000;
5584
A[416] = 0.00000000;
5585
A[417] = 0.01128748*G1_;
5586
A[418] = -0.01693122*G1_;
5587
A[419] = 0.07901235*G1_;
5588
A[420] = 0.00000000;
5589
A[421] = 0.00246914*G0_;
5590
A[422] = 0.01305115*G0_;
5591
A[423] = 0.01128748*G0_;
5592
A[424] = -0.01693122*G0_;
5593
A[425] = 0.07901235*G0_;
5594
A[426] = 0.00000000;
5595
A[427] = 0.00000000;
5596
A[428] = 0.00000000;
5597
A[429] = 0.00000000;
5598
A[430] = 0.00000000;
5599
A[431] = 0.00000000;
5600
A[432] = 0.00000000;
5601
A[433] = 0.00000000;
5602
A[434] = 0.00000000;
5603
A[435] = 0.00000000;
5604
A[436] = 0.00000000;
5605
A[437] = 0.00000000;
5606
A[438] = 0.00000000;
5607
A[439] = 0.00000000;
5608
A[440] = 0.00000000;
5609
A[441] = 0.00000000;
5610
A[442] = 0.00000000;
5611
A[443] = 0.00000000;
5612
A[444] = 0.00000000;
5613
A[445] = 0.00000000;
5614
A[446] = 0.00000000;
5615
A[447] = 0.00000000;
5616
A[448] = 0.00000000;
5617
A[449] = 0.00000000;
5618
A[450] = 0.00000000;
5619
A[451] = 0.00000000;
5620
A[452] = 0.00000000;
5621
A[453] = 0.00000000;
5622
A[454] = 0.00000000;
5623
A[455] = 0.00000000;
5624
A[456] = 0.00000000;
5625
A[457] = 0.00000000;
5626
A[458] = 0.00000000;
5627
A[459] = 0.00000000;
5628
A[460] = 0.00000000;
5629
A[461] = 0.00000000;
5630
A[462] = 0.00000000;
5631
A[463] = 0.00000000;
5632
A[464] = 0.00000000;
5633
A[465] = 0.00000000;
5634
A[466] = 0.00000000;
5635
A[467] = 0.00000000;
5636
A[468] = 0.00000000;
5637
A[469] = 0.00000000;
5638
A[470] = 0.00000000;
5639
A[471] = 0.00000000;
5640
A[472] = 0.00000000;
5641
A[473] = 0.00000000;
5642
A[474] = 0.00000000;
5643
A[475] = 0.00000000;
5644
A[476] = 0.00000000;
5645
A[477] = 0.00000000;
5646
A[478] = 0.00000000;
5647
A[479] = 0.00000000;
5648
A[480] = 0.00000000;
5649
A[481] = 0.00000000;
5650
A[482] = 0.00000000;
5651
A[483] = 0.00000000;
5652
A[484] = 0.00000000;
5653
A[485] = 0.00000000;
5654
A[486] = 0.00000000;
5655
A[487] = 0.00000000;
5656
A[488] = 0.00000000;
5657
A[489] = 0.00000000;
5658
A[490] = 0.00000000;
5659
A[491] = 0.00000000;
5660
A[492] = 0.00000000;
5661
A[493] = 0.00000000;
5662
A[494] = 0.00000000;
5663
A[495] = 0.00000000;
5664
A[496] = 0.00000000;
5665
A[497] = 0.00000000;
5666
A[498] = 0.00000000;
5667
A[499] = 0.00000000;
5668
A[500] = 0.00000000;
5669
A[501] = 0.00000000;
5670
A[502] = 0.00000000;
5671
A[503] = 0.00000000;
5672
A[504] = 0.00000000;
5673
A[505] = 0.00000000;
5674
A[506] = 0.00000000;
5675
A[507] = 0.00000000;
5676
A[508] = 0.00000000;
5677
A[509] = 0.00000000;
5678
A[510] = 0.00000000;
5679
A[511] = 0.00000000;
5680
A[512] = 0.00000000;
5681
A[513] = 0.00000000;
5682
A[514] = 0.00000000;
5683
A[515] = 0.00000000;
5684
A[516] = 0.00000000;
5685
A[517] = 0.00000000;
5686
A[518] = 0.00000000;
5687
A[519] = 0.00000000;
5688
A[520] = 0.00000000;
5689
A[521] = 0.00000000;
5690
A[522] = 0.00000000;
5691
A[523] = 0.00000000;
5692
A[524] = 0.00000000;
5693
A[525] = 0.00000000;
5694
A[526] = 0.00000000;
5695
A[527] = 0.00000000;
5696
A[528] = 0.00000000;
5697
A[529] = 0.00000000;
5698
A[530] = 0.00000000;
5699
A[531] = 0.00000000;
5700
A[532] = 0.00000000;
5701
A[533] = 0.00000000;
5702
A[534] = 0.00000000;
5703
A[535] = 0.00000000;
5704
A[536] = 0.00000000;
5705
A[537] = 0.00000000;
5706
A[538] = 0.00000000;
5707
A[539] = 0.00000000;
5708
A[540] = 0.00000000;
5709
A[541] = 0.00000000;
5710
A[542] = 0.00000000;
5711
A[543] = 0.00000000;
5712
A[544] = 0.00000000;
5713
A[545] = 0.00000000;
5714
A[546] = 0.00000000;
5715
A[547] = 0.00000000;
5716
A[548] = 0.00000000;
5717
A[549] = 0.00000000;
5718
A[550] = 0.00000000;
5719
A[551] = 0.00000000;
5720
A[552] = 0.00000000;
5721
A[553] = 0.00000000;
5722
A[554] = 0.00000000;
5723
A[555] = 0.00000000;
5724
A[556] = 0.00000000;
5725
A[557] = 0.00000000;
5726
A[558] = 0.00000000;
5727
A[559] = 0.00000000;
5728
A[560] = 0.00000000;
5729
A[561] = 0.00000000;
5730
A[562] = 0.00000000;
5731
A[563] = 0.00000000;
5732
A[564] = 0.00000000;
5733
A[565] = 0.00000000;
5734
A[566] = 0.00000000;
5735
A[567] = 0.00000000;
5736
A[568] = 0.00000000;
5737
A[569] = 0.00000000;
5738
A[570] = 0.00000000;
5739
A[571] = 0.00000000;
5740
A[572] = 0.00000000;
5741
A[573] = 0.00000000;
5742
A[574] = 0.00000000;
5743
A[575] = 0.00000000;
5744
break;
5745
}
5746
case 1:
5747
{
5748
A[0] = 0.01287478*G3_;
5749
A[1] = -0.00127866*G3_;
5750
A[2] = 0.00000000;
5751
A[3] = 0.00000000;
5752
A[4] = 0.00000000;
5753
A[5] = 0.00000000;
5754
A[6] = 0.00000000;
5755
A[7] = 0.00000000;
5756
A[8] = 0.00000000;
5757
A[9] = 0.01305115*G3_;
5758
A[10] = -0.00767196*G3_;
5759
A[11] = 0.00246914*G3_;
5760
A[12] = 0.01287478*G2_;
5761
A[13] = 0.00000000;
5762
A[14] = -0.00127866*G2_;
5763
A[15] = 0.00000000;
5764
A[16] = 0.00000000;
5765
A[17] = 0.00000000;
5766
A[18] = 0.01305115*G2_;
5767
A[19] = -0.00767196*G2_;
5768
A[20] = 0.00246914*G2_;
5769
A[21] = 0.00000000;
5770
A[22] = 0.00000000;
5771
A[23] = 0.00000000;
5772
A[24] = -0.00127866*G3_;
5773
A[25] = 0.01287478*G3_;
5774
A[26] = 0.00000000;
5775
A[27] = 0.00000000;
5776
A[28] = 0.00000000;
5777
A[29] = 0.00000000;
5778
A[30] = 0.00000000;
5779
A[31] = 0.00000000;
5780
A[32] = 0.00000000;
5781
A[33] = 0.00246914*G3_;
5782
A[34] = -0.00767196*G3_;
5783
A[35] = 0.01305115*G3_;
5784
A[36] = -0.00127866*G2_;
5785
A[37] = 0.00000000;
5786
A[38] = 0.01287478*G2_;
5787
A[39] = 0.00000000;
5788
A[40] = 0.00000000;
5789
A[41] = 0.00000000;
5790
A[42] = 0.00246914*G2_;
5791
A[43] = -0.00767196*G2_;
5792
A[44] = 0.01305115*G2_;
5793
A[45] = 0.00000000;
5794
A[46] = 0.00000000;
5795
A[47] = 0.00000000;
5796
A[48] = 0.00000000;
5797
A[49] = 0.00000000;
5798
A[50] = 0.00000000;
5799
A[51] = 0.00000000;
5800
A[52] = 0.00000000;
5801
A[53] = 0.00000000;
5802
A[54] = 0.00000000;
5803
A[55] = 0.00000000;
5804
A[56] = 0.00000000;
5805
A[57] = 0.00000000;
5806
A[58] = 0.00000000;
5807
A[59] = 0.00000000;
5808
A[60] = 0.00000000;
5809
A[61] = 0.00000000;
5810
A[62] = 0.00000000;
5811
A[63] = 0.00000000;
5812
A[64] = 0.00000000;
5813
A[65] = 0.00000000;
5814
A[66] = 0.00000000;
5815
A[67] = 0.00000000;
5816
A[68] = 0.00000000;
5817
A[69] = 0.00000000;
5818
A[70] = 0.00000000;
5819
A[71] = 0.00000000;
5820
A[72] = 0.00000000;
5821
A[73] = 0.00000000;
5822
A[74] = 0.00000000;
5823
A[75] = 0.00000000;
5824
A[76] = 0.00000000;
5825
A[77] = 0.00000000;
5826
A[78] = 0.00000000;
5827
A[79] = 0.00000000;
5828
A[80] = 0.00000000;
5829
A[81] = 0.00000000;
5830
A[82] = 0.00000000;
5831
A[83] = 0.00000000;
5832
A[84] = 0.00000000;
5833
A[85] = 0.00000000;
5834
A[86] = 0.00000000;
5835
A[87] = 0.00000000;
5836
A[88] = 0.00000000;
5837
A[89] = 0.00000000;
5838
A[90] = 0.00000000;
5839
A[91] = 0.00000000;
5840
A[92] = 0.00000000;
5841
A[93] = 0.00000000;
5842
A[94] = 0.00000000;
5843
A[95] = 0.00000000;
5844
A[96] = 0.00000000;
5845
A[97] = 0.00000000;
5846
A[98] = 0.00000000;
5847
A[99] = 0.00000000;
5848
A[100] = 0.00000000;
5849
A[101] = 0.00000000;
5850
A[102] = 0.00000000;
5851
A[103] = 0.00000000;
5852
A[104] = 0.00000000;
5853
A[105] = 0.00000000;
5854
A[106] = 0.00000000;
5855
A[107] = 0.00000000;
5856
A[108] = 0.00000000;
5857
A[109] = 0.00000000;
5858
A[110] = 0.00000000;
5859
A[111] = 0.00000000;
5860
A[112] = 0.00000000;
5861
A[113] = 0.00000000;
5862
A[114] = 0.00000000;
5863
A[115] = 0.00000000;
5864
A[116] = 0.00000000;
5865
A[117] = 0.00000000;
5866
A[118] = 0.00000000;
5867
A[119] = 0.00000000;
5868
A[120] = 0.00000000;
5869
A[121] = 0.00000000;
5870
A[122] = 0.00000000;
5871
A[123] = 0.00000000;
5872
A[124] = 0.00000000;
5873
A[125] = 0.00000000;
5874
A[126] = 0.00000000;
5875
A[127] = 0.00000000;
5876
A[128] = 0.00000000;
5877
A[129] = 0.00000000;
5878
A[130] = 0.00000000;
5879
A[131] = 0.00000000;
5880
A[132] = 0.00000000;
5881
A[133] = 0.00000000;
5882
A[134] = 0.00000000;
5883
A[135] = 0.00000000;
5884
A[136] = 0.00000000;
5885
A[137] = 0.00000000;
5886
A[138] = 0.00000000;
5887
A[139] = 0.00000000;
5888
A[140] = 0.00000000;
5889
A[141] = 0.00000000;
5890
A[142] = 0.00000000;
5891
A[143] = 0.00000000;
5892
A[144] = 0.00000000;
5893
A[145] = 0.00000000;
5894
A[146] = 0.00000000;
5895
A[147] = 0.00000000;
5896
A[148] = 0.00000000;
5897
A[149] = 0.00000000;
5898
A[150] = 0.00000000;
5899
A[151] = 0.00000000;
5900
A[152] = 0.00000000;
5901
A[153] = 0.00000000;
5902
A[154] = 0.00000000;
5903
A[155] = 0.00000000;
5904
A[156] = 0.00000000;
5905
A[157] = 0.00000000;
5906
A[158] = 0.00000000;
5907
A[159] = 0.00000000;
5908
A[160] = 0.00000000;
5909
A[161] = 0.00000000;
5910
A[162] = 0.00000000;
5911
A[163] = 0.00000000;
5912
A[164] = 0.00000000;
5913
A[165] = 0.00000000;
5914
A[166] = 0.00000000;
5915
A[167] = 0.00000000;
5916
A[168] = 0.00000000;
5917
A[169] = 0.00000000;
5918
A[170] = 0.00000000;
5919
A[171] = 0.00000000;
5920
A[172] = 0.00000000;
5921
A[173] = 0.00000000;
5922
A[174] = 0.00000000;
5923
A[175] = 0.00000000;
5924
A[176] = 0.00000000;
5925
A[177] = 0.00000000;
5926
A[178] = 0.00000000;
5927
A[179] = 0.00000000;
5928
A[180] = 0.00000000;
5929
A[181] = 0.00000000;
5930
A[182] = 0.00000000;
5931
A[183] = 0.00000000;
5932
A[184] = 0.00000000;
5933
A[185] = 0.00000000;
5934
A[186] = 0.00000000;
5935
A[187] = 0.00000000;
5936
A[188] = 0.00000000;
5937
A[189] = 0.00000000;
5938
A[190] = 0.00000000;
5939
A[191] = 0.00000000;
5940
A[192] = 0.00000000;
5941
A[193] = 0.00000000;
5942
A[194] = 0.00000000;
5943
A[195] = 0.00000000;
5944
A[196] = 0.00000000;
5945
A[197] = 0.00000000;
5946
A[198] = 0.00000000;
5947
A[199] = 0.00000000;
5948
A[200] = 0.00000000;
5949
A[201] = 0.00000000;
5950
A[202] = 0.00000000;
5951
A[203] = 0.00000000;
5952
A[204] = 0.00000000;
5953
A[205] = 0.00000000;
5954
A[206] = 0.00000000;
5955
A[207] = 0.00000000;
5956
A[208] = 0.00000000;
5957
A[209] = 0.00000000;
5958
A[210] = 0.00000000;
5959
A[211] = 0.00000000;
5960
A[212] = 0.00000000;
5961
A[213] = 0.00000000;
5962
A[214] = 0.00000000;
5963
A[215] = 0.00000000;
5964
A[216] = 0.01305115*G3_;
5965
A[217] = 0.00246914*G3_;
5966
A[218] = 0.00000000;
5967
A[219] = 0.00000000;
5968
A[220] = 0.00000000;
5969
A[221] = 0.00000000;
5970
A[222] = 0.00000000;
5971
A[223] = 0.00000000;
5972
A[224] = 0.00000000;
5973
A[225] = 0.07901235*G3_;
5974
A[226] = -0.01693122*G3_;
5975
A[227] = 0.01128748*G3_;
5976
A[228] = 0.01305115*G2_;
5977
A[229] = 0.00000000;
5978
A[230] = 0.00246914*G2_;
5979
A[231] = 0.00000000;
5980
A[232] = 0.00000000;
5981
A[233] = 0.00000000;
5982
A[234] = 0.07901235*G2_;
5983
A[235] = -0.01693122*G2_;
5984
A[236] = 0.01128748*G2_;
5985
A[237] = 0.00000000;
5986
A[238] = 0.00000000;
5987
A[239] = 0.00000000;
5988
A[240] = -0.00767196*G3_;
5989
A[241] = -0.00767196*G3_;
5990
A[242] = 0.00000000;
5991
A[243] = 0.00000000;
5992
A[244] = 0.00000000;
5993
A[245] = 0.00000000;
5994
A[246] = 0.00000000;
5995
A[247] = 0.00000000;
5996
A[248] = 0.00000000;
5997
A[249] = -0.01693122*G3_;
5998
A[250] = 0.08253968*G3_;
5999
A[251] = -0.01693122*G3_;
6000
A[252] = -0.00767196*G2_;
6001
A[253] = 0.00000000;
6002
A[254] = -0.00767196*G2_;
6003
A[255] = 0.00000000;
6004
A[256] = 0.00000000;
6005
A[257] = 0.00000000;
6006
A[258] = -0.01693122*G2_;
6007
A[259] = 0.08253968*G2_;
6008
A[260] = -0.01693122*G2_;
6009
A[261] = 0.00000000;
6010
A[262] = 0.00000000;
6011
A[263] = 0.00000000;
6012
A[264] = 0.00246914*G3_;
6013
A[265] = 0.01305115*G3_;
6014
A[266] = 0.00000000;
6015
A[267] = 0.00000000;
6016
A[268] = 0.00000000;
6017
A[269] = 0.00000000;
6018
A[270] = 0.00000000;
6019
A[271] = 0.00000000;
6020
A[272] = 0.00000000;
6021
A[273] = 0.01128748*G3_;
6022
A[274] = -0.01693122*G3_;
6023
A[275] = 0.07901235*G3_;
6024
A[276] = 0.00246914*G2_;
6025
A[277] = 0.00000000;
6026
A[278] = 0.01305115*G2_;
6027
A[279] = 0.00000000;
6028
A[280] = 0.00000000;
6029
A[281] = 0.00000000;
6030
A[282] = 0.01128748*G2_;
6031
A[283] = -0.01693122*G2_;
6032
A[284] = 0.07901235*G2_;
6033
A[285] = 0.00000000;
6034
A[286] = 0.00000000;
6035
A[287] = 0.00000000;
6036
A[288] = 0.01287478*G1_;
6037
A[289] = -0.00127866*G1_;
6038
A[290] = 0.00000000;
6039
A[291] = 0.00000000;
6040
A[292] = 0.00000000;
6041
A[293] = 0.00000000;
6042
A[294] = 0.00000000;
6043
A[295] = 0.00000000;
6044
A[296] = 0.00000000;
6045
A[297] = 0.01305115*G1_;
6046
A[298] = -0.00767196*G1_;
6047
A[299] = 0.00246914*G1_;
6048
A[300] = 0.01287478*G0_;
6049
A[301] = 0.00000000;
6050
A[302] = -0.00127866*G0_;
6051
A[303] = 0.00000000;
6052
A[304] = 0.00000000;
6053
A[305] = 0.00000000;
6054
A[306] = 0.01305115*G0_;
6055
A[307] = -0.00767196*G0_;
6056
A[308] = 0.00246914*G0_;
6057
A[309] = 0.00000000;
6058
A[310] = 0.00000000;
6059
A[311] = 0.00000000;
6060
A[312] = 0.00000000;
6061
A[313] = 0.00000000;
6062
A[314] = 0.00000000;
6063
A[315] = 0.00000000;
6064
A[316] = 0.00000000;
6065
A[317] = 0.00000000;
6066
A[318] = 0.00000000;
6067
A[319] = 0.00000000;
6068
A[320] = 0.00000000;
6069
A[321] = 0.00000000;
6070
A[322] = 0.00000000;
6071
A[323] = 0.00000000;
6072
A[324] = 0.00000000;
6073
A[325] = 0.00000000;
6074
A[326] = 0.00000000;
6075
A[327] = 0.00000000;
6076
A[328] = 0.00000000;
6077
A[329] = 0.00000000;
6078
A[330] = 0.00000000;
6079
A[331] = 0.00000000;
6080
A[332] = 0.00000000;
6081
A[333] = 0.00000000;
6082
A[334] = 0.00000000;
6083
A[335] = 0.00000000;
6084
A[336] = -0.00127866*G1_;
6085
A[337] = 0.01287478*G1_;
6086
A[338] = 0.00000000;
6087
A[339] = 0.00000000;
6088
A[340] = 0.00000000;
6089
A[341] = 0.00000000;
6090
A[342] = 0.00000000;
6091
A[343] = 0.00000000;
6092
A[344] = 0.00000000;
6093
A[345] = 0.00246914*G1_;
6094
A[346] = -0.00767196*G1_;
6095
A[347] = 0.01305115*G1_;
6096
A[348] = -0.00127866*G0_;
6097
A[349] = 0.00000000;
6098
A[350] = 0.01287478*G0_;
6099
A[351] = 0.00000000;
6100
A[352] = 0.00000000;
6101
A[353] = 0.00000000;
6102
A[354] = 0.00246914*G0_;
6103
A[355] = -0.00767196*G0_;
6104
A[356] = 0.01305115*G0_;
6105
A[357] = 0.00000000;
6106
A[358] = 0.00000000;
6107
A[359] = 0.00000000;
6108
A[360] = 0.00000000;
6109
A[361] = 0.00000000;
6110
A[362] = 0.00000000;
6111
A[363] = 0.00000000;
6112
A[364] = 0.00000000;
6113
A[365] = 0.00000000;
6114
A[366] = 0.00000000;
6115
A[367] = 0.00000000;
6116
A[368] = 0.00000000;
6117
A[369] = 0.00000000;
6118
A[370] = 0.00000000;
6119
A[371] = 0.00000000;
6120
A[372] = 0.00000000;
6121
A[373] = 0.00000000;
6122
A[374] = 0.00000000;
6123
A[375] = 0.00000000;
6124
A[376] = 0.00000000;
6125
A[377] = 0.00000000;
6126
A[378] = 0.00000000;
6127
A[379] = 0.00000000;
6128
A[380] = 0.00000000;
6129
A[381] = 0.00000000;
6130
A[382] = 0.00000000;
6131
A[383] = 0.00000000;
6132
A[384] = 0.00000000;
6133
A[385] = 0.00000000;
6134
A[386] = 0.00000000;
6135
A[387] = 0.00000000;
6136
A[388] = 0.00000000;
6137
A[389] = 0.00000000;
6138
A[390] = 0.00000000;
6139
A[391] = 0.00000000;
6140
A[392] = 0.00000000;
6141
A[393] = 0.00000000;
6142
A[394] = 0.00000000;
6143
A[395] = 0.00000000;
6144
A[396] = 0.00000000;
6145
A[397] = 0.00000000;
6146
A[398] = 0.00000000;
6147
A[399] = 0.00000000;
6148
A[400] = 0.00000000;
6149
A[401] = 0.00000000;
6150
A[402] = 0.00000000;
6151
A[403] = 0.00000000;
6152
A[404] = 0.00000000;
6153
A[405] = 0.00000000;
6154
A[406] = 0.00000000;
6155
A[407] = 0.00000000;
6156
A[408] = 0.00000000;
6157
A[409] = 0.00000000;
6158
A[410] = 0.00000000;
6159
A[411] = 0.00000000;
6160
A[412] = 0.00000000;
6161
A[413] = 0.00000000;
6162
A[414] = 0.00000000;
6163
A[415] = 0.00000000;
6164
A[416] = 0.00000000;
6165
A[417] = 0.00000000;
6166
A[418] = 0.00000000;
6167
A[419] = 0.00000000;
6168
A[420] = 0.00000000;
6169
A[421] = 0.00000000;
6170
A[422] = 0.00000000;
6171
A[423] = 0.00000000;
6172
A[424] = 0.00000000;
6173
A[425] = 0.00000000;
6174
A[426] = 0.00000000;
6175
A[427] = 0.00000000;
6176
A[428] = 0.00000000;
6177
A[429] = 0.00000000;
6178
A[430] = 0.00000000;
6179
A[431] = 0.00000000;
6180
A[432] = 0.01305115*G1_;
6181
A[433] = 0.00246914*G1_;
6182
A[434] = 0.00000000;
6183
A[435] = 0.00000000;
6184
A[436] = 0.00000000;
6185
A[437] = 0.00000000;
6186
A[438] = 0.00000000;
6187
A[439] = 0.00000000;
6188
A[440] = 0.00000000;
6189
A[441] = 0.07901235*G1_;
6190
A[442] = -0.01693122*G1_;
6191
A[443] = 0.01128748*G1_;
6192
A[444] = 0.01305115*G0_;
6193
A[445] = 0.00000000;
6194
A[446] = 0.00246914*G0_;
6195
A[447] = 0.00000000;
6196
A[448] = 0.00000000;
6197
A[449] = 0.00000000;
6198
A[450] = 0.07901235*G0_;
6199
A[451] = -0.01693122*G0_;
6200
A[452] = 0.01128748*G0_;
6201
A[453] = 0.00000000;
6202
A[454] = 0.00000000;
6203
A[455] = 0.00000000;
6204
A[456] = -0.00767196*G1_;
6205
A[457] = -0.00767196*G1_;
6206
A[458] = 0.00000000;
6207
A[459] = 0.00000000;
6208
A[460] = 0.00000000;
6209
A[461] = 0.00000000;
6210
A[462] = 0.00000000;
6211
A[463] = 0.00000000;
6212
A[464] = 0.00000000;
6213
A[465] = -0.01693122*G1_;
6214
A[466] = 0.08253968*G1_;
6215
A[467] = -0.01693122*G1_;
6216
A[468] = -0.00767196*G0_;
6217
A[469] = 0.00000000;
6218
A[470] = -0.00767196*G0_;
6219
A[471] = 0.00000000;
6220
A[472] = 0.00000000;
6221
A[473] = 0.00000000;
6222
A[474] = -0.01693122*G0_;
6223
A[475] = 0.08253968*G0_;
6224
A[476] = -0.01693122*G0_;
6225
A[477] = 0.00000000;
6226
A[478] = 0.00000000;
6227
A[479] = 0.00000000;
6228
A[480] = 0.00246914*G1_;
6229
A[481] = 0.01305115*G1_;
6230
A[482] = 0.00000000;
6231
A[483] = 0.00000000;
6232
A[484] = 0.00000000;
6233
A[485] = 0.00000000;
6234
A[486] = 0.00000000;
6235
A[487] = 0.00000000;
6236
A[488] = 0.00000000;
6237
A[489] = 0.01128748*G1_;
6238
A[490] = -0.01693122*G1_;
6239
A[491] = 0.07901235*G1_;
6240
A[492] = 0.00246914*G0_;
6241
A[493] = 0.00000000;
6242
A[494] = 0.01305115*G0_;
6243
A[495] = 0.00000000;
6244
A[496] = 0.00000000;
6245
A[497] = 0.00000000;
6246
A[498] = 0.01128748*G0_;
6247
A[499] = -0.01693122*G0_;
6248
A[500] = 0.07901235*G0_;
6249
A[501] = 0.00000000;
6250
A[502] = 0.00000000;
6251
A[503] = 0.00000000;
6252
A[504] = 0.00000000;
6253
A[505] = 0.00000000;
6254
A[506] = 0.00000000;
6255
A[507] = 0.00000000;
6256
A[508] = 0.00000000;
6257
A[509] = 0.00000000;
6258
A[510] = 0.00000000;
6259
A[511] = 0.00000000;
6260
A[512] = 0.00000000;
6261
A[513] = 0.00000000;
6262
A[514] = 0.00000000;
6263
A[515] = 0.00000000;
6264
A[516] = 0.00000000;
6265
A[517] = 0.00000000;
6266
A[518] = 0.00000000;
6267
A[519] = 0.00000000;
6268
A[520] = 0.00000000;
6269
A[521] = 0.00000000;
6270
A[522] = 0.00000000;
6271
A[523] = 0.00000000;
6272
A[524] = 0.00000000;
6273
A[525] = 0.00000000;
6274
A[526] = 0.00000000;
6275
A[527] = 0.00000000;
6276
A[528] = 0.00000000;
6277
A[529] = 0.00000000;
6278
A[530] = 0.00000000;
6279
A[531] = 0.00000000;
6280
A[532] = 0.00000000;
6281
A[533] = 0.00000000;
6282
A[534] = 0.00000000;
6283
A[535] = 0.00000000;
6284
A[536] = 0.00000000;
6285
A[537] = 0.00000000;
6286
A[538] = 0.00000000;
6287
A[539] = 0.00000000;
6288
A[540] = 0.00000000;
6289
A[541] = 0.00000000;
6290
A[542] = 0.00000000;
6291
A[543] = 0.00000000;
6292
A[544] = 0.00000000;
6293
A[545] = 0.00000000;
6294
A[546] = 0.00000000;
6295
A[547] = 0.00000000;
6296
A[548] = 0.00000000;
6297
A[549] = 0.00000000;
6298
A[550] = 0.00000000;
6299
A[551] = 0.00000000;
6300
A[552] = 0.00000000;
6301
A[553] = 0.00000000;
6302
A[554] = 0.00000000;
6303
A[555] = 0.00000000;
6304
A[556] = 0.00000000;
6305
A[557] = 0.00000000;
6306
A[558] = 0.00000000;
6307
A[559] = 0.00000000;
6308
A[560] = 0.00000000;
6309
A[561] = 0.00000000;
6310
A[562] = 0.00000000;
6311
A[563] = 0.00000000;
6312
A[564] = 0.00000000;
6313
A[565] = 0.00000000;
6314
A[566] = 0.00000000;
6315
A[567] = 0.00000000;
6316
A[568] = 0.00000000;
6317
A[569] = 0.00000000;
6318
A[570] = 0.00000000;
6319
A[571] = 0.00000000;
6320
A[572] = 0.00000000;
6321
A[573] = 0.00000000;
6322
A[574] = 0.00000000;
6323
A[575] = 0.00000000;
6324
break;
6325
}
6326
case 2:
6327
{
6328
A[0] = 0.01287478*G3_;
6329
A[1] = -0.00127866*G3_;
6330
A[2] = 0.00000000;
6331
A[3] = 0.00000000;
6332
A[4] = 0.00000000;
6333
A[5] = 0.00000000;
6334
A[6] = 0.00000000;
6335
A[7] = 0.00000000;
6336
A[8] = 0.00000000;
6337
A[9] = 0.01305115*G3_;
6338
A[10] = -0.00767196*G3_;
6339
A[11] = 0.00246914*G3_;
6340
A[12] = 0.01287478*G2_;
6341
A[13] = -0.00127866*G2_;
6342
A[14] = 0.00000000;
6343
A[15] = 0.00000000;
6344
A[16] = 0.00000000;
6345
A[17] = 0.00000000;
6346
A[18] = 0.00000000;
6347
A[19] = 0.00000000;
6348
A[20] = 0.00000000;
6349
A[21] = 0.01305115*G2_;
6350
A[22] = -0.00767196*G2_;
6351
A[23] = 0.00246914*G2_;
6352
A[24] = -0.00127866*G3_;
6353
A[25] = 0.01287478*G3_;
6354
A[26] = 0.00000000;
6355
A[27] = 0.00000000;
6356
A[28] = 0.00000000;
6357
A[29] = 0.00000000;
6358
A[30] = 0.00000000;
6359
A[31] = 0.00000000;
6360
A[32] = 0.00000000;
6361
A[33] = 0.00246914*G3_;
6362
A[34] = -0.00767196*G3_;
6363
A[35] = 0.01305115*G3_;
6364
A[36] = -0.00127866*G2_;
6365
A[37] = 0.01287478*G2_;
6366
A[38] = 0.00000000;
6367
A[39] = 0.00000000;
6368
A[40] = 0.00000000;
6369
A[41] = 0.00000000;
6370
A[42] = 0.00000000;
6371
A[43] = 0.00000000;
6372
A[44] = 0.00000000;
6373
A[45] = 0.00246914*G2_;
6374
A[46] = -0.00767196*G2_;
6375
A[47] = 0.01305115*G2_;
6376
A[48] = 0.00000000;
6377
A[49] = 0.00000000;
6378
A[50] = 0.00000000;
6379
A[51] = 0.00000000;
6380
A[52] = 0.00000000;
6381
A[53] = 0.00000000;
6382
A[54] = 0.00000000;
6383
A[55] = 0.00000000;
6384
A[56] = 0.00000000;
6385
A[57] = 0.00000000;
6386
A[58] = 0.00000000;
6387
A[59] = 0.00000000;
6388
A[60] = 0.00000000;
6389
A[61] = 0.00000000;
6390
A[62] = 0.00000000;
6391
A[63] = 0.00000000;
6392
A[64] = 0.00000000;
6393
A[65] = 0.00000000;
6394
A[66] = 0.00000000;
6395
A[67] = 0.00000000;
6396
A[68] = 0.00000000;
6397
A[69] = 0.00000000;
6398
A[70] = 0.00000000;
6399
A[71] = 0.00000000;
6400
A[72] = 0.00000000;
6401
A[73] = 0.00000000;
6402
A[74] = 0.00000000;
6403
A[75] = 0.00000000;
6404
A[76] = 0.00000000;
6405
A[77] = 0.00000000;
6406
A[78] = 0.00000000;
6407
A[79] = 0.00000000;
6408
A[80] = 0.00000000;
6409
A[81] = 0.00000000;
6410
A[82] = 0.00000000;
6411
A[83] = 0.00000000;
6412
A[84] = 0.00000000;
6413
A[85] = 0.00000000;
6414
A[86] = 0.00000000;
6415
A[87] = 0.00000000;
6416
A[88] = 0.00000000;
6417
A[89] = 0.00000000;
6418
A[90] = 0.00000000;
6419
A[91] = 0.00000000;
6420
A[92] = 0.00000000;
6421
A[93] = 0.00000000;
6422
A[94] = 0.00000000;
6423
A[95] = 0.00000000;
6424
A[96] = 0.00000000;
6425
A[97] = 0.00000000;
6426
A[98] = 0.00000000;
6427
A[99] = 0.00000000;
6428
A[100] = 0.00000000;
6429
A[101] = 0.00000000;
6430
A[102] = 0.00000000;
6431
A[103] = 0.00000000;
6432
A[104] = 0.00000000;
6433
A[105] = 0.00000000;
6434
A[106] = 0.00000000;
6435
A[107] = 0.00000000;
6436
A[108] = 0.00000000;
6437
A[109] = 0.00000000;
6438
A[110] = 0.00000000;
6439
A[111] = 0.00000000;
6440
A[112] = 0.00000000;
6441
A[113] = 0.00000000;
6442
A[114] = 0.00000000;
6443
A[115] = 0.00000000;
6444
A[116] = 0.00000000;
6445
A[117] = 0.00000000;
6446
A[118] = 0.00000000;
6447
A[119] = 0.00000000;
6448
A[120] = 0.00000000;
6449
A[121] = 0.00000000;
6450
A[122] = 0.00000000;
6451
A[123] = 0.00000000;
6452
A[124] = 0.00000000;
6453
A[125] = 0.00000000;
6454
A[126] = 0.00000000;
6455
A[127] = 0.00000000;
6456
A[128] = 0.00000000;
6457
A[129] = 0.00000000;
6458
A[130] = 0.00000000;
6459
A[131] = 0.00000000;
6460
A[132] = 0.00000000;
6461
A[133] = 0.00000000;
6462
A[134] = 0.00000000;
6463
A[135] = 0.00000000;
6464
A[136] = 0.00000000;
6465
A[137] = 0.00000000;
6466
A[138] = 0.00000000;
6467
A[139] = 0.00000000;
6468
A[140] = 0.00000000;
6469
A[141] = 0.00000000;
6470
A[142] = 0.00000000;
6471
A[143] = 0.00000000;
6472
A[144] = 0.00000000;
6473
A[145] = 0.00000000;
6474
A[146] = 0.00000000;
6475
A[147] = 0.00000000;
6476
A[148] = 0.00000000;
6477
A[149] = 0.00000000;
6478
A[150] = 0.00000000;
6479
A[151] = 0.00000000;
6480
A[152] = 0.00000000;
6481
A[153] = 0.00000000;
6482
A[154] = 0.00000000;
6483
A[155] = 0.00000000;
6484
A[156] = 0.00000000;
6485
A[157] = 0.00000000;
6486
A[158] = 0.00000000;
6487
A[159] = 0.00000000;
6488
A[160] = 0.00000000;
6489
A[161] = 0.00000000;
6490
A[162] = 0.00000000;
6491
A[163] = 0.00000000;
6492
A[164] = 0.00000000;
6493
A[165] = 0.00000000;
6494
A[166] = 0.00000000;
6495
A[167] = 0.00000000;
6496
A[168] = 0.00000000;
6497
A[169] = 0.00000000;
6498
A[170] = 0.00000000;
6499
A[171] = 0.00000000;
6500
A[172] = 0.00000000;
6501
A[173] = 0.00000000;
6502
A[174] = 0.00000000;
6503
A[175] = 0.00000000;
6504
A[176] = 0.00000000;
6505
A[177] = 0.00000000;
6506
A[178] = 0.00000000;
6507
A[179] = 0.00000000;
6508
A[180] = 0.00000000;
6509
A[181] = 0.00000000;
6510
A[182] = 0.00000000;
6511
A[183] = 0.00000000;
6512
A[184] = 0.00000000;
6513
A[185] = 0.00000000;
6514
A[186] = 0.00000000;
6515
A[187] = 0.00000000;
6516
A[188] = 0.00000000;
6517
A[189] = 0.00000000;
6518
A[190] = 0.00000000;
6519
A[191] = 0.00000000;
6520
A[192] = 0.00000000;
6521
A[193] = 0.00000000;
6522
A[194] = 0.00000000;
6523
A[195] = 0.00000000;
6524
A[196] = 0.00000000;
6525
A[197] = 0.00000000;
6526
A[198] = 0.00000000;
6527
A[199] = 0.00000000;
6528
A[200] = 0.00000000;
6529
A[201] = 0.00000000;
6530
A[202] = 0.00000000;
6531
A[203] = 0.00000000;
6532
A[204] = 0.00000000;
6533
A[205] = 0.00000000;
6534
A[206] = 0.00000000;
6535
A[207] = 0.00000000;
6536
A[208] = 0.00000000;
6537
A[209] = 0.00000000;
6538
A[210] = 0.00000000;
6539
A[211] = 0.00000000;
6540
A[212] = 0.00000000;
6541
A[213] = 0.00000000;
6542
A[214] = 0.00000000;
6543
A[215] = 0.00000000;
6544
A[216] = 0.01305115*G3_;
6545
A[217] = 0.00246914*G3_;
6546
A[218] = 0.00000000;
6547
A[219] = 0.00000000;
6548
A[220] = 0.00000000;
6549
A[221] = 0.00000000;
6550
A[222] = 0.00000000;
6551
A[223] = 0.00000000;
6552
A[224] = 0.00000000;
6553
A[225] = 0.07901235*G3_;
6554
A[226] = -0.01693122*G3_;
6555
A[227] = 0.01128748*G3_;
6556
A[228] = 0.01305115*G2_;
6557
A[229] = 0.00246914*G2_;
6558
A[230] = 0.00000000;
6559
A[231] = 0.00000000;
6560
A[232] = 0.00000000;
6561
A[233] = 0.00000000;
6562
A[234] = 0.00000000;
6563
A[235] = 0.00000000;
6564
A[236] = 0.00000000;
6565
A[237] = 0.07901235*G2_;
6566
A[238] = -0.01693122*G2_;
6567
A[239] = 0.01128748*G2_;
6568
A[240] = -0.00767196*G3_;
6569
A[241] = -0.00767196*G3_;
6570
A[242] = 0.00000000;
6571
A[243] = 0.00000000;
6572
A[244] = 0.00000000;
6573
A[245] = 0.00000000;
6574
A[246] = 0.00000000;
6575
A[247] = 0.00000000;
6576
A[248] = 0.00000000;
6577
A[249] = -0.01693122*G3_;
6578
A[250] = 0.08253968*G3_;
6579
A[251] = -0.01693122*G3_;
6580
A[252] = -0.00767196*G2_;
6581
A[253] = -0.00767196*G2_;
6582
A[254] = 0.00000000;
6583
A[255] = 0.00000000;
6584
A[256] = 0.00000000;
6585
A[257] = 0.00000000;
6586
A[258] = 0.00000000;
6587
A[259] = 0.00000000;
6588
A[260] = 0.00000000;
6589
A[261] = -0.01693122*G2_;
6590
A[262] = 0.08253968*G2_;
6591
A[263] = -0.01693122*G2_;
6592
A[264] = 0.00246914*G3_;
6593
A[265] = 0.01305115*G3_;
6594
A[266] = 0.00000000;
6595
A[267] = 0.00000000;
6596
A[268] = 0.00000000;
6597
A[269] = 0.00000000;
6598
A[270] = 0.00000000;
6599
A[271] = 0.00000000;
6600
A[272] = 0.00000000;
6601
A[273] = 0.01128748*G3_;
6602
A[274] = -0.01693122*G3_;
6603
A[275] = 0.07901235*G3_;
6604
A[276] = 0.00246914*G2_;
6605
A[277] = 0.01305115*G2_;
6606
A[278] = 0.00000000;
6607
A[279] = 0.00000000;
6608
A[280] = 0.00000000;
6609
A[281] = 0.00000000;
6610
A[282] = 0.00000000;
6611
A[283] = 0.00000000;
6612
A[284] = 0.00000000;
6613
A[285] = 0.01128748*G2_;
6614
A[286] = -0.01693122*G2_;
6615
A[287] = 0.07901235*G2_;
6616
A[288] = 0.01287478*G1_;
6617
A[289] = -0.00127866*G1_;
6618
A[290] = 0.00000000;
6619
A[291] = 0.00000000;
6620
A[292] = 0.00000000;
6621
A[293] = 0.00000000;
6622
A[294] = 0.00000000;
6623
A[295] = 0.00000000;
6624
A[296] = 0.00000000;
6625
A[297] = 0.01305115*G1_;
6626
A[298] = -0.00767196*G1_;
6627
A[299] = 0.00246914*G1_;
6628
A[300] = 0.01287478*G0_;
6629
A[301] = -0.00127866*G0_;
6630
A[302] = 0.00000000;
6631
A[303] = 0.00000000;
6632
A[304] = 0.00000000;
6633
A[305] = 0.00000000;
6634
A[306] = 0.00000000;
6635
A[307] = 0.00000000;
6636
A[308] = 0.00000000;
6637
A[309] = 0.01305115*G0_;
6638
A[310] = -0.00767196*G0_;
6639
A[311] = 0.00246914*G0_;
6640
A[312] = -0.00127866*G1_;
6641
A[313] = 0.01287478*G1_;
6642
A[314] = 0.00000000;
6643
A[315] = 0.00000000;
6644
A[316] = 0.00000000;
6645
A[317] = 0.00000000;
6646
A[318] = 0.00000000;
6647
A[319] = 0.00000000;
6648
A[320] = 0.00000000;
6649
A[321] = 0.00246914*G1_;
6650
A[322] = -0.00767196*G1_;
6651
A[323] = 0.01305115*G1_;
6652
A[324] = -0.00127866*G0_;
6653
A[325] = 0.01287478*G0_;
6654
A[326] = 0.00000000;
6655
A[327] = 0.00000000;
6656
A[328] = 0.00000000;
6657
A[329] = 0.00000000;
6658
A[330] = 0.00000000;
6659
A[331] = 0.00000000;
6660
A[332] = 0.00000000;
6661
A[333] = 0.00246914*G0_;
6662
A[334] = -0.00767196*G0_;
6663
A[335] = 0.01305115*G0_;
6664
A[336] = 0.00000000;
6665
A[337] = 0.00000000;
6666
A[338] = 0.00000000;
6667
A[339] = 0.00000000;
6668
A[340] = 0.00000000;
6669
A[341] = 0.00000000;
6670
A[342] = 0.00000000;
6671
A[343] = 0.00000000;
6672
A[344] = 0.00000000;
6673
A[345] = 0.00000000;
6674
A[346] = 0.00000000;
6675
A[347] = 0.00000000;
6676
A[348] = 0.00000000;
6677
A[349] = 0.00000000;
6678
A[350] = 0.00000000;
6679
A[351] = 0.00000000;
6680
A[352] = 0.00000000;
6681
A[353] = 0.00000000;
6682
A[354] = 0.00000000;
6683
A[355] = 0.00000000;
6684
A[356] = 0.00000000;
6685
A[357] = 0.00000000;
6686
A[358] = 0.00000000;
6687
A[359] = 0.00000000;
6688
A[360] = 0.00000000;
6689
A[361] = 0.00000000;
6690
A[362] = 0.00000000;
6691
A[363] = 0.00000000;
6692
A[364] = 0.00000000;
6693
A[365] = 0.00000000;
6694
A[366] = 0.00000000;
6695
A[367] = 0.00000000;
6696
A[368] = 0.00000000;
6697
A[369] = 0.00000000;
6698
A[370] = 0.00000000;
6699
A[371] = 0.00000000;
6700
A[372] = 0.00000000;
6701
A[373] = 0.00000000;
6702
A[374] = 0.00000000;
6703
A[375] = 0.00000000;
6704
A[376] = 0.00000000;
6705
A[377] = 0.00000000;
6706
A[378] = 0.00000000;
6707
A[379] = 0.00000000;
6708
A[380] = 0.00000000;
6709
A[381] = 0.00000000;
6710
A[382] = 0.00000000;
6711
A[383] = 0.00000000;
6712
A[384] = 0.00000000;
6713
A[385] = 0.00000000;
6714
A[386] = 0.00000000;
6715
A[387] = 0.00000000;
6716
A[388] = 0.00000000;
6717
A[389] = 0.00000000;
6718
A[390] = 0.00000000;
6719
A[391] = 0.00000000;
6720
A[392] = 0.00000000;
6721
A[393] = 0.00000000;
6722
A[394] = 0.00000000;
6723
A[395] = 0.00000000;
6724
A[396] = 0.00000000;
6725
A[397] = 0.00000000;
6726
A[398] = 0.00000000;
6727
A[399] = 0.00000000;
6728
A[400] = 0.00000000;
6729
A[401] = 0.00000000;
6730
A[402] = 0.00000000;
6731
A[403] = 0.00000000;
6732
A[404] = 0.00000000;
6733
A[405] = 0.00000000;
6734
A[406] = 0.00000000;
6735
A[407] = 0.00000000;
6736
A[408] = 0.00000000;
6737
A[409] = 0.00000000;
6738
A[410] = 0.00000000;
6739
A[411] = 0.00000000;
6740
A[412] = 0.00000000;
6741
A[413] = 0.00000000;
6742
A[414] = 0.00000000;
6743
A[415] = 0.00000000;
6744
A[416] = 0.00000000;
6745
A[417] = 0.00000000;
6746
A[418] = 0.00000000;
6747
A[419] = 0.00000000;
6748
A[420] = 0.00000000;
6749
A[421] = 0.00000000;
6750
A[422] = 0.00000000;
6751
A[423] = 0.00000000;
6752
A[424] = 0.00000000;
6753
A[425] = 0.00000000;
6754
A[426] = 0.00000000;
6755
A[427] = 0.00000000;
6756
A[428] = 0.00000000;
6757
A[429] = 0.00000000;
6758
A[430] = 0.00000000;
6759
A[431] = 0.00000000;
6760
A[432] = 0.00000000;
6761
A[433] = 0.00000000;
6762
A[434] = 0.00000000;
6763
A[435] = 0.00000000;
6764
A[436] = 0.00000000;
6765
A[437] = 0.00000000;
6766
A[438] = 0.00000000;
6767
A[439] = 0.00000000;
6768
A[440] = 0.00000000;
6769
A[441] = 0.00000000;
6770
A[442] = 0.00000000;
6771
A[443] = 0.00000000;
6772
A[444] = 0.00000000;
6773
A[445] = 0.00000000;
6774
A[446] = 0.00000000;
6775
A[447] = 0.00000000;
6776
A[448] = 0.00000000;
6777
A[449] = 0.00000000;
6778
A[450] = 0.00000000;
6779
A[451] = 0.00000000;
6780
A[452] = 0.00000000;
6781
A[453] = 0.00000000;
6782
A[454] = 0.00000000;
6783
A[455] = 0.00000000;
6784
A[456] = 0.00000000;
6785
A[457] = 0.00000000;
6786
A[458] = 0.00000000;
6787
A[459] = 0.00000000;
6788
A[460] = 0.00000000;
6789
A[461] = 0.00000000;
6790
A[462] = 0.00000000;
6791
A[463] = 0.00000000;
6792
A[464] = 0.00000000;
6793
A[465] = 0.00000000;
6794
A[466] = 0.00000000;
6795
A[467] = 0.00000000;
6796
A[468] = 0.00000000;
6797
A[469] = 0.00000000;
6798
A[470] = 0.00000000;
6799
A[471] = 0.00000000;
6800
A[472] = 0.00000000;
6801
A[473] = 0.00000000;
6802
A[474] = 0.00000000;
6803
A[475] = 0.00000000;
6804
A[476] = 0.00000000;
6805
A[477] = 0.00000000;
6806
A[478] = 0.00000000;
6807
A[479] = 0.00000000;
6808
A[480] = 0.00000000;
6809
A[481] = 0.00000000;
6810
A[482] = 0.00000000;
6811
A[483] = 0.00000000;
6812
A[484] = 0.00000000;
6813
A[485] = 0.00000000;
6814
A[486] = 0.00000000;
6815
A[487] = 0.00000000;
6816
A[488] = 0.00000000;
6817
A[489] = 0.00000000;
6818
A[490] = 0.00000000;
6819
A[491] = 0.00000000;
6820
A[492] = 0.00000000;
6821
A[493] = 0.00000000;
6822
A[494] = 0.00000000;
6823
A[495] = 0.00000000;
6824
A[496] = 0.00000000;
6825
A[497] = 0.00000000;
6826
A[498] = 0.00000000;
6827
A[499] = 0.00000000;
6828
A[500] = 0.00000000;
6829
A[501] = 0.00000000;
6830
A[502] = 0.00000000;
6831
A[503] = 0.00000000;
6832
A[504] = 0.01305115*G1_;
6833
A[505] = 0.00246914*G1_;
6834
A[506] = 0.00000000;
6835
A[507] = 0.00000000;
6836
A[508] = 0.00000000;
6837
A[509] = 0.00000000;
6838
A[510] = 0.00000000;
6839
A[511] = 0.00000000;
6840
A[512] = 0.00000000;
6841
A[513] = 0.07901235*G1_;
6842
A[514] = -0.01693122*G1_;
6843
A[515] = 0.01128748*G1_;
6844
A[516] = 0.01305115*G0_;
6845
A[517] = 0.00246914*G0_;
6846
A[518] = 0.00000000;
6847
A[519] = 0.00000000;
6848
A[520] = 0.00000000;
6849
A[521] = 0.00000000;
6850
A[522] = 0.00000000;
6851
A[523] = 0.00000000;
6852
A[524] = 0.00000000;
6853
A[525] = 0.07901235*G0_;
6854
A[526] = -0.01693122*G0_;
6855
A[527] = 0.01128748*G0_;
6856
A[528] = -0.00767196*G1_;
6857
A[529] = -0.00767196*G1_;
6858
A[530] = 0.00000000;
6859
A[531] = 0.00000000;
6860
A[532] = 0.00000000;
6861
A[533] = 0.00000000;
6862
A[534] = 0.00000000;
6863
A[535] = 0.00000000;
6864
A[536] = 0.00000000;
6865
A[537] = -0.01693122*G1_;
6866
A[538] = 0.08253968*G1_;
6867
A[539] = -0.01693122*G1_;
6868
A[540] = -0.00767196*G0_;
6869
A[541] = -0.00767196*G0_;
6870
A[542] = 0.00000000;
6871
A[543] = 0.00000000;
6872
A[544] = 0.00000000;
6873
A[545] = 0.00000000;
6874
A[546] = 0.00000000;
6875
A[547] = 0.00000000;
6876
A[548] = 0.00000000;
6877
A[549] = -0.01693122*G0_;
6878
A[550] = 0.08253968*G0_;
6879
A[551] = -0.01693122*G0_;
6880
A[552] = 0.00246914*G1_;
6881
A[553] = 0.01305115*G1_;
6882
A[554] = 0.00000000;
6883
A[555] = 0.00000000;
6884
A[556] = 0.00000000;
6885
A[557] = 0.00000000;
6886
A[558] = 0.00000000;
6887
A[559] = 0.00000000;
6888
A[560] = 0.00000000;
6889
A[561] = 0.01128748*G1_;
6890
A[562] = -0.01693122*G1_;
6891
A[563] = 0.07901235*G1_;
6892
A[564] = 0.00246914*G0_;
6893
A[565] = 0.01305115*G0_;
6894
A[566] = 0.00000000;
6895
A[567] = 0.00000000;
6896
A[568] = 0.00000000;
6897
A[569] = 0.00000000;
6898
A[570] = 0.00000000;
6899
A[571] = 0.00000000;
6900
A[572] = 0.00000000;
6901
A[573] = 0.01128748*G0_;
6902
A[574] = -0.01693122*G0_;
6903
A[575] = 0.07901235*G0_;
6904
break;
6905
}
6906
}
6907
6908
break;
6909
}
6910
}
6911
6912
}
6913
6914
};
6915
6916
/// This class defines the interface for the assembly of the global
6917
/// tensor corresponding to a form with r + n arguments, that is, a
6918
/// mapping
6919
///
6920
/// a : V1 x V2 x ... Vr x W1 x W2 x ... x Wn -> R
6921
///
6922
/// with arguments v1, v2, ..., vr, w1, w2, ..., wn. The rank r
6923
/// global tensor A is defined by
6924
///
6925
/// A = a(V1, V2, ..., Vr, w1, w2, ..., wn),
6926
///
6927
/// where each argument Vj represents the application to the
6928
/// sequence of basis functions of Vj and w1, w2, ..., wn are given
6929
/// fixed functions (coefficients).
6930
6931
class elementrestriction_form_0: public ufc::form
6932
{
6933
public:
6934
6935
/// Constructor
6936
elementrestriction_form_0() : ufc::form()
6937
{
6938
// Do nothing
6939
}
6940
6941
/// Destructor
6942
virtual ~elementrestriction_form_0()
6943
{
6944
// Do nothing
6945
}
6946
6947
/// Return a string identifying the form
6948
virtual const char* signature() const
6949
{
6950
return "Form([Integral(Product(Product(FloatValue(0.5, (), (), {}), Sum(NegativeRestricted(Argument(ElementRestriction(FiniteElement('Lagrange', Cell('triangle', 1, Space(2)), 4), Cell('interval', 1, Space(1))), 0)), PositiveRestricted(Argument(ElementRestriction(FiniteElement('Lagrange', Cell('triangle', 1, Space(2)), 4), Cell('interval', 1, Space(1))), 0)))), Product(FloatValue(0.5, (), (), {}), Sum(NegativeRestricted(Argument(ElementRestriction(FiniteElement('Lagrange', Cell('triangle', 1, Space(2)), 4), Cell('interval', 1, Space(1))), 1)), PositiveRestricted(Argument(ElementRestriction(FiniteElement('Lagrange', Cell('triangle', 1, Space(2)), 4), Cell('interval', 1, Space(1))), 1))))), Measure('interior_facet', 0, None)), Integral(Product(Argument(ElementRestriction(FiniteElement('Lagrange', Cell('triangle', 1, Space(2)), 4), Cell('interval', 1, Space(1))), 0), Argument(ElementRestriction(FiniteElement('Lagrange', Cell('triangle', 1, Space(2)), 4), Cell('interval', 1, Space(1))), 1)), Measure('exterior_facet', 0, None))])";
6951
}
6952
6953
/// Return the rank of the global tensor (r)
6954
virtual unsigned int rank() const
6955
{
6956
return 2;
6957
}
6958
6959
/// Return the number of coefficients (n)
6960
virtual unsigned int num_coefficients() const
6961
{
6962
return 0;
6963
}
6964
6965
/// Return the number of cell integrals
6966
virtual unsigned int num_cell_integrals() const
6967
{
6968
return 0;
6969
}
6970
6971
/// Return the number of exterior facet integrals
6972
virtual unsigned int num_exterior_facet_integrals() const
6973
{
6974
return 1;
6975
}
6976
6977
/// Return the number of interior facet integrals
6978
virtual unsigned int num_interior_facet_integrals() const
6979
{
6980
return 1;
6981
}
6982
6983
/// Create a new finite element for argument function i
6984
virtual ufc::finite_element* create_finite_element(unsigned int i) const
6985
{
6986
switch (i)
6987
{
6988
case 0:
6989
{
6990
return new elementrestriction_finite_element_0();
6991
break;
6992
}
6993
case 1:
6994
{
6995
return new elementrestriction_finite_element_0();
6996
break;
6997
}
6998
}
6999
7000
return 0;
7001
}
7002
7003
/// Create a new dof map for argument function i
7004
virtual ufc::dof_map* create_dof_map(unsigned int i) const
7005
{
7006
switch (i)
7007
{
7008
case 0:
7009
{
7010
return new elementrestriction_dof_map_0();
7011
break;
7012
}
7013
case 1:
7014
{
7015
return new elementrestriction_dof_map_0();
7016
break;
7017
}
7018
}
7019
7020
return 0;
7021
}
7022
7023
/// Create a new cell integral on sub domain i
7024
virtual ufc::cell_integral* create_cell_integral(unsigned int i) const
7025
{
7026
return 0;
7027
}
7028
7029
/// Create a new exterior facet integral on sub domain i
7030
virtual ufc::exterior_facet_integral* create_exterior_facet_integral(unsigned int i) const
7031
{
7032
switch (i)
7033
{
7034
case 0:
7035
{
7036
return new elementrestriction_exterior_facet_integral_0_0();
7037
break;
7038
}
7039
}
7040
7041
return 0;
7042
}
7043
7044
/// Create a new interior facet integral on sub domain i
7045
virtual ufc::interior_facet_integral* create_interior_facet_integral(unsigned int i) const
7046
{
7047
switch (i)
7048
{
7049
case 0:
7050
{
7051
return new elementrestriction_interior_facet_integral_0_0();
7052
break;
7053
}
7054
}
7055
7056
return 0;
7057
}
7058
7059
};
7060
7061
#endif
Loggerhead is a web-based interface for Breezy
Version: 2.0.1