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