v0.14.0
Functions
test_T3.cpp File Reference
#include "../../../src/FTensor.hpp"
#include "../test_for_zero.hpp"
#include <iostream>

Go to the source code of this file.

Functions

void test_T3_01 (const Tensor1< double, 3 > &t1_1, const Tensor1< double, 3 > &t1_2, const Tensor2< double, 3, 3 > &t2_2, const Tensor2< double, 3, 3 > &t2_3, const Tensor2_symmetric< double, 3 > &t2s_2, const Tensor2_symmetric< double, 3 > &t2s_3, const Dg< double, 3, 3 > &t3dg_2)
 
void test_T3_02 (const Tensor1< double, 3 > &t1_1, const Tensor1< double, 3 > &t1_2, const Tensor2< double, 3, 3 > &t2_2, const Tensor2< double, 3, 3 > &t2_3)
 
void test_T3_03 (const Tensor3< double, 3, 3, 3 > &t3_1)
 
void test_T3_004 (const Tensor3< double, 3, 3, 3 > &t3_1)
 
void test_T3_iostream ()
 
void test_T3 (const Tensor1< double, 3 > &t1_1, const Tensor1< double, 3 > &t1_2, const Tensor2< double, 3, 3 > &t2_2, const Tensor2< double, 3, 3 > &t2_3, const Tensor2_symmetric< double, 3 > &t2s_2, const Tensor2_symmetric< double, 3 > &t2s_3, const Tensor3< double, 3, 3, 3 > &t3_1, const Dg< double, 3, 3 > &t3dg_2)
 

Function Documentation

◆ test_T3()

void test_T3 ( const Tensor1< double, 3 > &  t1_1,
const Tensor1< double, 3 > &  t1_2,
const Tensor2< double, 3, 3 > &  t2_2,
const Tensor2< double, 3, 3 > &  t2_3,
const Tensor2_symmetric< double, 3 > &  t2s_2,
const Tensor2_symmetric< double, 3 > &  t2s_3,
const Tensor3< double, 3, 3, 3 > &  t3_1,
const Dg< double, 3, 3 > &  t3dg_2 
)

Definition at line 24 of file test_T3.cpp.

31 {
32  test_T3_01(t1_1, t1_2, t2_2, t2_3, t2s_2, t2s_3, t3dg_2);
33  test_T3_02(t1_1, t1_2, t2_2, t2_3);
34  test_T3_03(t3_1);
35  test_T3_004(t3_1);
36  test_T3_iostream();
37 }

◆ test_T3_004()

void test_T3_004 ( const Tensor3< double, 3, 3, 3 > &  t3_1)

Definition at line 7 of file test_T3_004.cpp.

7  {
8 
9  Index<'i', 3> i;
10  Index<'j', 3> j;
11  Index<'k', 3> k;
12 
13  {
14  // Symmetrize of first two indices yields dg
15  Dg<double, 3, 3> t_dg;
16  t_dg(i, j, k) = t3_1(i, j, k) || t3_1(j, i, k);
17  FTensor::Tensor3<double, 3, 3, 3> t_sym_3;
18  t_sym_3(i, j, k) = t3_1(i, j, k) + t3_1(j, i, k);
19 
20  for (int ii = 0; ii != 3; ++ii)
21  for (int jj = 0; jj != 3; ++jj)
22  for (int kk = 0; kk != 3; ++kk) {
23  test_for_zero(t_dg(ii, jj, kk) - t_sym_3(ii, jj, kk),
24  "T3(i,j,k)||T3(j,i,k)(" + to_string(ii) + "," +
25  to_string(jj) + "," + to_string(kk) + ")");
26  }
27 
28  }
29 
30  // Tensor 3 times symmetric tensor 2 yields tensor 3
31  {
32  Tensor3<double, 1, 3, 2> t_3_1;
33  Tensor2<double, 3, 3> t_2_1;
34  Tensor2_symmetric<double, 3> t_2s_1;
35  Tensor2<double, 3, 3> t_2_2;
36  Tensor3<double, 1, 3, 2> t_3_2;
37  for (int ii = 0; ii != 1; ++ii)
38  for (int jj = 0; jj != 3; ++jj) {
39  for (int kk = 0; kk != 2; ++kk) {
40  t_3_1(ii, jj, kk) = 1 + ii + 10. * jj + 100. * kk;
41  }
42  }
43  for (int jj = 0; jj != 3; ++jj)
44  for (int ll = 0; ll != 3; ++ll) {
45  t_2_1(jj, ll) = 1 + jj + 10. * ll;
46  }
47  Index<'i', 1> i;
48  Index<'j', 3> j;
49  Index<'k', 2> k;
50  Index<'l', 3> l;
51  t_2s_1(j, l) = t_2_1(j, l) || t_2_1(l, j);
52  t_2_2(j, l) = t_2_1(j, l) + t_2_1(l, j);
53  t_3_2(i, l, k) =
54  t_3_1(i, j, k) * t_2s_1(j, l) - t_2s_1(j, l)*t_3_1(i, j, k);
55  for (int ii = 0; ii != 1; ++ii)
56  for (int ll = 0; ll != 3; ++ll)
57  for (int kk = 0; kk != 2; ++kk) {
58  test_for_zero(t_3_2(ii, ll, kk),
59  "T3(i,j,k)||T2s(j,l)(" + to_string(ii) + "," +
60  to_string(ll) + "," + to_string(kk) + ")");
61  }
62  t_3_2(i, l, k) =
63  t_3_1(i, j, k) * t_2s_1(j, l) - t_2_2(j, l) * t_3_1(i, j, k);
64  for (int ii = 0; ii != 1; ++ii)
65  for (int ll = 0; ll != 3; ++ll)
66  for (int kk = 0; kk != 2; ++kk) {
67  test_for_zero(t_3_2(ii, ll, kk),
68  "T3(i,j,k)||T2s(j,l)(" + to_string(ii) + "," +
69  to_string(ll) + "," + to_string(kk) + ")");
70  }
71  }
72 
73  // Tensor 3 times symmetric tensor 2 yields tensor 3
74  {
75  Tensor3<double, 3, 3, 3> t_3_1;
76  Tensor2<double, 3, 3> t_2_1;
77  Tensor2_symmetric<double, 3> t_2s_1;
78  Tensor2<double, 3, 3> t_2_2;
79  Tensor3<double, 3, 3, 3> t_3_2;
80  for (int ii = 0; ii != 3; ++ii)
81  for (int jj = 0; jj != 3; ++jj) {
82  for (int kk = 0; kk != 3; ++kk) {
83  t_3_1(ii, jj, kk) = 1 + ii + 10. * jj + 100. * kk;
84  }
85  }
86  for (int jj = 0; jj != 3; ++jj)
87  for (int ll = 0; ll != 3; ++ll) {
88  t_2_1(jj, ll) = 1 + jj + 10. * ll;
89  }
90  Index<'i', 3> i;
91  Index<'j', 3> j;
92  Index<'k', 3> k;
93  Index<'l', 3> l;
94  t_2s_1(i, j) = t_2_1(i, j) || t_2_1(j, i);
95  t_2_2(i, j) = t_2_1(i, j) + t_2_1(j, i);
96  t_3_2(l, j, k) =
97  t_3_1(i, j, k) * t_2s_1(i, l) - t_2s_1(i, l) * t_3_1(i, j, k);
98  for (int ll = 0; ll != 3; ++ll)
99  for (int jj = 0; jj != 3; ++jj)
100  for (int kk = 0; kk != 3; ++kk) {
101  test_for_zero(t_3_2(ll, jj, kk),
102  "T3(i,j,k)||T2s(i,l)(" + to_string(ll) + "," +
103  to_string(jj) + "," + to_string(kk) + ")");
104  }
105  t_3_2(l, j, k) =
106  t_3_1(i, j, k) * t_2s_1(i, l) - t_3_1(i, j, k) * t_2_2(i, l);
107 
108  for (int ll = 0; ll != 3; ++ll)
109  for (int jj = 0; jj != 3; ++jj)
110  for (int kk = 0; kk != 3; ++kk) {
111  test_for_zero(t_3_2(ll, jj, kk),
112  "T3(i,j,k)||T2s(i,l)(" + to_string(ll) + "," +
113  to_string(jj) + "," + to_string(kk) + ")");
114  }
115  }
116 
117  // Tensor 3 times tensor 3 yield tensor 2 A(i,j,k)*B(j,i,l)
118  {
119  Tensor1<double, 3> t_1;
120  Tensor2<double, 3, 3> t_2;
121  for (int ii = 0; ii != 3; ++ii) {
122  t_1(ii) = 1 + ii;
123  for (int jj = 0; jj != 3; ++jj) {
124  t_2(ii, jj) = 1 + ii + 10. * jj;
125  }
126  }
127  Tensor3<double, 3, 3, 3> t_3_1;
128  Index<'i', 3> i;
129  Index<'j', 3> j;
130  Index<'k', 3> k;
131  Index<'l', 3> l;
132  t_3_1(i, j, k) = t_2(i, j) * t_1(k);
133  Tensor2<double, 3, 3> t_2_1;
134  t_2_1(k, l) = t_3_1(i, j, k) * t_3_1(j, i, l);
135  Tensor2<double, 3, 3> t_2_2;
136  t_2_2(k, l) = (t_2(i, j) * t_2(j, i)) * (t_1(k) * t_1(l));
137  for (int ii = 0; ii != 3; ++ii)
138  for (int jj = 0; jj != 3; ++jj) {
139  test_for_zero(t_2_1(ii, jj) - t_2_2(ii, jj), "T3(i,j,k)*T3(j,i,l)(" +
140  to_string(ii) + "," +
141  to_string(jj) + ")");
142  }
143  }
144 
145  // Tensor 3 times tensor 3 yield tensor 2 A(j,l,k)*B(i,k,l)
146  {
147  Tensor1<double, 3> t_1;
148  Tensor2<double, 3, 3> t_2;
149  for (int ii = 0; ii != 3; ++ii) {
150  t_1(ii) = 1 + ii;
151  for (int jj = 0; jj != 3; ++jj) {
152  t_2(ii, jj) = 1 + ii + 10. * jj;
153  }
154  }
155  Tensor3<double, 3, 3, 3> t_3_1;
156  Index<'i', 3> i;
157  Index<'j', 3> j;
158  Index<'k', 3> k;
159  Index<'l', 3> l;
160  t_3_1(i, j, k) = t_1(i) * t_2(j, k);
161  Tensor2<double, 3, 3> t_2_1;
162  t_2_1(i, j) = t_3_1(j, k, l) * t_3_1(i, l, k);
163  Tensor2<double, 3, 3> t_2_2;
164  t_2_2(i, j) = (t_2(k, l) * t_2(l, k)) * (t_1(i) * t_1(j));
165  for (int ii = 0; ii != 3; ++ii)
166  for (int jj = 0; jj != 3; ++jj) {
167  test_for_zero(t_2_1(ii, jj) - t_2_2(ii, jj), "T3(j,k,l)*T3(i,l,k)(" +
168  to_string(ii) + "," +
169  to_string(jj) + ")");
170  }
171  }
172 
173  // Tensor 3 times tensor 3 yield tensor 2 A(k,i,j)*B(l,i,j)
174  {
175  Tensor1<double, 3> t_1;
176  Tensor2<double, 3, 3> t_2;
177  for (int ii = 0; ii != 3; ++ii) {
178  t_1(ii) = 1 + ii;
179  for (int jj = 0; jj != 3; ++jj) {
180  t_2(ii, jj) = 1 + ii + 10. * jj;
181  }
182  }
183  Tensor3<double, 3, 3, 3> t_3_1;
184  Index<'i', 3> i;
185  Index<'j', 3> j;
186  Index<'k', 3> k;
187  Index<'l', 3> l;
188  t_3_1(i, j, k) = t_1(i) * t_2(j, k);
189  Tensor2<double, 3, 3> t_2_1;
190  t_2_1(k, l) = t_3_1(k, i, j) * t_3_1(l, i, j);
191  Tensor2<double, 3, 3> t_2_2;
192  t_2_2(k, l) = (t_2(i, j) * t_2(i, j)) * (t_1(k) * t_1(l));
193  for (int kk = 0; kk != 3; ++kk)
194  for (int ll = 0; ll != 3; ++ll) {
195  test_for_zero(t_2_1(kk, ll) - t_2_2(kk, ll), "T3(k,i,j)*T3(l,i,j)(" +
196  to_string(kk) + "," +
197  to_string(ll) + ")");
198  }
199  }
200 
201  // Tensor 3 times tensor 3 yield tensor 2 A(i,j,k)*B(i,j,k)
202  {
203  Tensor1<double, 3> t_1;
204  Tensor2<double, 3, 3> t_2;
205  for (int ii = 0; ii != 3; ++ii) {
206  t_1(ii) = 1 + ii;
207  for (int jj = 0; jj != 3; ++jj) {
208  t_2(ii, jj) = 1 + ii + 10. * jj;
209  }
210  }
211  Tensor3<double, 3, 3, 3> t_3_1;
212  Index<'i', 3> i;
213  Index<'j', 3> j;
214  Index<'k', 3> k;
215  Index<'l', 3> l;
216  t_3_1(i, j, k) = t_2(i, j) * t_1(k);
217  Tensor2<double, 3, 3> t_2_1;
218  t_2_1(k, l) = t_3_1(i, j, k) * t_3_1(i, j, l);
219  Tensor2<double, 3, 3> t_2_2;
220  t_2_2(k, l) = (t_2(i, j) * t_2(i, j)) * (t_1(k) * t_1(l));
221  for (int kk = 0; kk != 3; ++kk)
222  for (int ll = 0; ll != 3; ++ll) {
223  test_for_zero(t_2_1(kk, ll) - t_2_2(kk, ll), "T3(i,j,k)*T3(i,j,l)(" +
224  to_string(kk) + "," +
225  to_string(ll) + ")");
226  }
227  }
228 
229 
230 }

◆ test_T3_01()

void test_T3_01 ( const Tensor1< double, 3 > &  t1_1,
const Tensor1< double, 3 > &  t1_2,
const Tensor2< double, 3, 3 > &  t2_2,
const Tensor2< double, 3, 3 > &  t2_3,
const Tensor2_symmetric< double, 3 > &  t2s_2,
const Tensor2_symmetric< double, 3 > &  t2s_3,
const Dg< double, 3, 3 > &  t3dg_2 
)

Definition at line 7 of file test_T3_01.cpp.

13 {
14  Index<'i', 3> i;
15  Index<'j', 3> j;
16  Index<'k', 3> k;
17  Index<'l', 3> l;
18 
19  Number<0> N0;
20  Number<1> N1;
21  Number<2> N2;
22 
23  /* Tensor3 tests */
24 
25  test_for_zero(((t2_2(i, j) * t1_2(k)) * 10)(0, 0, 0)
26  - t2_2(0, 0) * t1_2(0) * 10,
27  "T3*T(0,0,0)");
28  test_for_zero(((t2_2(i, j) * t1_2(k)) * 10)(0, 0, 1)
29  - t2_2(0, 0) * t1_2(1) * 10,
30  "T3*T(0,0,1)");
31  test_for_zero(((t2_2(i, j) * t1_2(k)) * 10)(0, 0, 2)
32  - t2_2(0, 0) * t1_2(2) * 10,
33  "T3*T(0,0,2)");
34  test_for_zero(((t2_2(i, j) * t1_2(k)) * 10)(0, 1, 0)
35  - t2_2(0, 1) * t1_2(0) * 10,
36  "T3*T(0,1,0)");
37  test_for_zero(((t2_2(i, j) * t1_2(k)) * 10)(0, 1, 1)
38  - t2_2(0, 1) * t1_2(1) * 10,
39  "T3*T(0,1,1)");
40  test_for_zero(((t2_2(i, j) * t1_2(k)) * 10)(0, 1, 2)
41  - t2_2(0, 1) * t1_2(2) * 10,
42  "T3*T(0,1,2)");
43  test_for_zero(((t2_2(i, j) * t1_2(k)) * 10)(0, 2, 0)
44  - t2_2(0, 2) * t1_2(0) * 10,
45  "T3*T(0,2,0)");
46  test_for_zero(((t2_2(i, j) * t1_2(k)) * 10)(0, 2, 1)
47  - t2_2(0, 2) * t1_2(1) * 10,
48  "T3*T(0,2,1)");
49  test_for_zero(((t2_2(i, j) * t1_2(k)) * 10)(0, 2, 2)
50  - t2_2(0, 2) * t1_2(2) * 10,
51  "T3*T(0,2,2)");
52  test_for_zero(((t2_2(i, j) * t1_2(k)) * 10)(1, 0, 0)
53  - t2_2(1, 0) * t1_2(0) * 10,
54  "T3*T(1,0,0)");
55  test_for_zero(((t2_2(i, j) * t1_2(k)) * 10)(1, 0, 1)
56  - t2_2(1, 0) * t1_2(1) * 10,
57  "T3*T(1,0,1)");
58  test_for_zero(((t2_2(i, j) * t1_2(k)) * 10)(1, 0, 2)
59  - t2_2(1, 0) * t1_2(2) * 10,
60  "T3*T(1,0,2)");
61  test_for_zero(((t2_2(i, j) * t1_2(k)) * 10)(1, 1, 0)
62  - t2_2(1, 1) * t1_2(0) * 10,
63  "T3*T(1,1,0)");
64  test_for_zero(((t2_2(i, j) * t1_2(k)) * 10)(1, 1, 1)
65  - t2_2(1, 1) * t1_2(1) * 10,
66  "T3*T(1,1,1)");
67  test_for_zero(((t2_2(i, j) * t1_2(k)) * 10)(1, 1, 2)
68  - t2_2(1, 1) * t1_2(2) * 10,
69  "T3*T(1,1,2)");
70  test_for_zero(((t2_2(i, j) * t1_2(k)) * 10)(1, 2, 0)
71  - t2_2(1, 2) * t1_2(0) * 10,
72  "T3*T(1,2,0)");
73  test_for_zero(((t2_2(i, j) * t1_2(k)) * 10)(1, 2, 1)
74  - t2_2(1, 2) * t1_2(1) * 10,
75  "T3*T(1,2,1)");
76  test_for_zero(((t2_2(i, j) * t1_2(k)) * 10)(1, 2, 2)
77  - t2_2(1, 2) * t1_2(2) * 10,
78  "T3*T(1,2,2)");
79  test_for_zero(((t2_2(i, j) * t1_2(k)) * 10)(2, 0, 0)
80  - t2_2(2, 0) * t1_2(0) * 10,
81  "T3*T(2,0,0)");
82  test_for_zero(((t2_2(i, j) * t1_2(k)) * 10)(2, 0, 1)
83  - t2_2(2, 0) * t1_2(1) * 10,
84  "T3*T(2,0,1)");
85  test_for_zero(((t2_2(i, j) * t1_2(k)) * 10)(2, 0, 2)
86  - t2_2(2, 0) * t1_2(2) * 10,
87  "T3*T(2,0,2)");
88  test_for_zero(((t2_2(i, j) * t1_2(k)) * 10)(2, 1, 0)
89  - t2_2(2, 1) * t1_2(0) * 10,
90  "T3*T(2,1,0)");
91  test_for_zero(((t2_2(i, j) * t1_2(k)) * 10)(2, 1, 1)
92  - t2_2(2, 1) * t1_2(1) * 10,
93  "T3*T(2,1,1)");
94  test_for_zero(((t2_2(i, j) * t1_2(k)) * 10)(2, 1, 2)
95  - t2_2(2, 1) * t1_2(2) * 10,
96  "T3*T(2,1,2)");
97  test_for_zero(((t2_2(i, j) * t1_2(k)) * 10)(2, 2, 0)
98  - t2_2(2, 2) * t1_2(0) * 10,
99  "T3*T(2,2,0)");
100  test_for_zero(((t2_2(i, j) * t1_2(k)) * 10)(2, 2, 1)
101  - t2_2(2, 2) * t1_2(1) * 10,
102  "T3*T(2,2,1)");
103  test_for_zero(((t2_2(i, j) * t1_2(k)) * 10)(2, 2, 2)
104  - t2_2(2, 2) * t1_2(2) * 10,
105  "T3*T(2,2,2)");
106 
107  test_for_zero((10 * (t2_2(i, j) * t1_2(k)))(0, 0, 0)
108  - t2_2(0, 0) * t1_2(0) * 10,
109  "T*T3(0,0,0)");
110  test_for_zero((10 * (t2_2(i, j) * t1_2(k)))(0, 0, 1)
111  - t2_2(0, 0) * t1_2(1) * 10,
112  "T*T3(0,0,1)");
113  test_for_zero((10 * (t2_2(i, j) * t1_2(k)))(0, 0, 2)
114  - t2_2(0, 0) * t1_2(2) * 10,
115  "T*T3(0,0,2)");
116  test_for_zero((10 * (t2_2(i, j) * t1_2(k)))(0, 1, 0)
117  - t2_2(0, 1) * t1_2(0) * 10,
118  "T*T3(0,1,0)");
119  test_for_zero((10 * (t2_2(i, j) * t1_2(k)))(0, 1, 1)
120  - t2_2(0, 1) * t1_2(1) * 10,
121  "T*T3(0,1,1)");
122  test_for_zero((10 * (t2_2(i, j) * t1_2(k)))(0, 1, 2)
123  - t2_2(0, 1) * t1_2(2) * 10,
124  "T*T3(0,1,2)");
125  test_for_zero((10 * (t2_2(i, j) * t1_2(k)))(0, 2, 0)
126  - t2_2(0, 2) * t1_2(0) * 10,
127  "T*T3(0,2,0)");
128  test_for_zero((10 * (t2_2(i, j) * t1_2(k)))(0, 2, 1)
129  - t2_2(0, 2) * t1_2(1) * 10,
130  "T*T3(0,2,1)");
131  test_for_zero((10 * (t2_2(i, j) * t1_2(k)))(0, 2, 2)
132  - t2_2(0, 2) * t1_2(2) * 10,
133  "T*T3(0,2,2)");
134  test_for_zero((10 * (t2_2(i, j) * t1_2(k)))(1, 0, 0)
135  - t2_2(1, 0) * t1_2(0) * 10,
136  "T*T3(1,0,0)");
137  test_for_zero((10 * (t2_2(i, j) * t1_2(k)))(1, 0, 1)
138  - t2_2(1, 0) * t1_2(1) * 10,
139  "T*T3(1,0,1)");
140  test_for_zero((10 * (t2_2(i, j) * t1_2(k)))(1, 0, 2)
141  - t2_2(1, 0) * t1_2(2) * 10,
142  "T*T3(1,0,2)");
143  test_for_zero((10 * (t2_2(i, j) * t1_2(k)))(1, 1, 0)
144  - t2_2(1, 1) * t1_2(0) * 10,
145  "T*T3(1,1,0)");
146  test_for_zero((10 * (t2_2(i, j) * t1_2(k)))(1, 1, 1)
147  - t2_2(1, 1) * t1_2(1) * 10,
148  "T*T3(1,1,1)");
149  test_for_zero((10 * (t2_2(i, j) * t1_2(k)))(1, 1, 2)
150  - t2_2(1, 1) * t1_2(2) * 10,
151  "T*T3(1,1,2)");
152  test_for_zero((10 * (t2_2(i, j) * t1_2(k)))(1, 2, 0)
153  - t2_2(1, 2) * t1_2(0) * 10,
154  "T*T3(1,2,0)");
155  test_for_zero((10 * (t2_2(i, j) * t1_2(k)))(1, 2, 1)
156  - t2_2(1, 2) * t1_2(1) * 10,
157  "T*T3(1,2,1)");
158  test_for_zero((10 * (t2_2(i, j) * t1_2(k)))(1, 2, 2)
159  - t2_2(1, 2) * t1_2(2) * 10,
160  "T*T3(1,2,2)");
161  test_for_zero((10 * (t2_2(i, j) * t1_2(k)))(2, 0, 0)
162  - t2_2(2, 0) * t1_2(0) * 10,
163  "T*T3(2,0,0)");
164  test_for_zero((10 * (t2_2(i, j) * t1_2(k)))(2, 0, 1)
165  - t2_2(2, 0) * t1_2(1) * 10,
166  "T*T3(2,0,1)");
167  test_for_zero((10 * (t2_2(i, j) * t1_2(k)))(2, 0, 2)
168  - t2_2(2, 0) * t1_2(2) * 10,
169  "T*T3(2,0,2)");
170  test_for_zero((10 * (t2_2(i, j) * t1_2(k)))(2, 1, 0)
171  - t2_2(2, 1) * t1_2(0) * 10,
172  "T*T3(2,1,0)");
173  test_for_zero((10 * (t2_2(i, j) * t1_2(k)))(2, 1, 1)
174  - t2_2(2, 1) * t1_2(1) * 10,
175  "T*T3(2,1,1)");
176  test_for_zero((10 * (t2_2(i, j) * t1_2(k)))(2, 1, 2)
177  - t2_2(2, 1) * t1_2(2) * 10,
178  "T*T3(2,1,2)");
179  test_for_zero((10 * (t2_2(i, j) * t1_2(k)))(2, 2, 0)
180  - t2_2(2, 2) * t1_2(0) * 10,
181  "T*T3(2,2,0)");
182  test_for_zero((10 * (t2_2(i, j) * t1_2(k)))(2, 2, 1)
183  - t2_2(2, 2) * t1_2(1) * 10,
184  "T*T3(2,2,1)");
185  test_for_zero((10 * (t2_2(i, j) * t1_2(k)))(2, 2, 2)
186  - t2_2(2, 2) * t1_2(2) * 10,
187  "T*T3(2,2,2)");
188 
189  Tensor2<double, 3, 3> t2;
190 
191  t2(i, k) = (t2_2(i, j) * t1_2(k)) * t1_1(j);
192 
193  test_for_zero(t2(0, 0)
194  - (t2_2(0, 0) * t1_2(0) * t1_1(0)
195  + t2_2(0, 1) * t1_2(0) * t1_1(1)
196  + t2_2(0, 2) * t1_2(0) * t1_1(2)),
197  "T3(i,j,k)*T1(j)(0,0)");
198  test_for_zero(t2(0, 1)
199  - (t2_2(0, 0) * t1_2(1) * t1_1(0)
200  + t2_2(0, 1) * t1_2(1) * t1_1(1)
201  + t2_2(0, 2) * t1_2(1) * t1_1(2)),
202  "T3(i,j,k)*T1(j)(0,1)");
203  test_for_zero(t2(0, 2)
204  - (t2_2(0, 0) * t1_2(2) * t1_1(0)
205  + t2_2(0, 1) * t1_2(2) * t1_1(1)
206  + t2_2(0, 2) * t1_2(2) * t1_1(2)),
207  "T3(i,j,k)*T1(j)(0,2)");
208  test_for_zero(t2(1, 0)
209  - (t2_2(1, 0) * t1_2(0) * t1_1(0)
210  + t2_2(1, 1) * t1_2(0) * t1_1(1)
211  + t2_2(1, 2) * t1_2(0) * t1_1(2)),
212  "T3(i,j,k)*T1(j)(1,0)");
213  test_for_zero(t2(1, 1)
214  - (t2_2(1, 0) * t1_2(1) * t1_1(0)
215  + t2_2(1, 1) * t1_2(1) * t1_1(1)
216  + t2_2(1, 2) * t1_2(1) * t1_1(2)),
217  "T3(i,j,k)*T1(j)(1,1)");
218  test_for_zero(t2(1, 2)
219  - (t2_2(1, 0) * t1_2(2) * t1_1(0)
220  + t2_2(1, 1) * t1_2(2) * t1_1(1)
221  + t2_2(1, 2) * t1_2(2) * t1_1(2)),
222  "T3(i,j,k)*T1(j)(1,2)");
223  test_for_zero(t2(2, 0)
224  - (t2_2(2, 0) * t1_2(0) * t1_1(0)
225  + t2_2(2, 1) * t1_2(0) * t1_1(1)
226  + t2_2(2, 2) * t1_2(0) * t1_1(2)),
227  "T3(i,j,k)*T1(j)(2,0)");
228  test_for_zero(t2(2, 1)
229  - (t2_2(2, 0) * t1_2(1) * t1_1(0)
230  + t2_2(2, 1) * t1_2(1) * t1_1(1)
231  + t2_2(2, 2) * t1_2(1) * t1_1(2)),
232  "T3(i,j,k)*T1(j)(2,1)");
233  test_for_zero(t2(2, 2)
234  - (t2_2(2, 0) * t1_2(2) * t1_1(0)
235  + t2_2(2, 1) * t1_2(2) * t1_1(1)
236  + t2_2(2, 2) * t1_2(2) * t1_1(2)),
237  "T3(i,j,k)*T1(j)(2,2)");
238 
239  t2(i, k) = t1_2(j) * (t2_2(i, j) * t1_1(k));
240 
241  test_for_zero(t2(0, 0)
242  - (t2_2(0, 0) * t1_1(0) * t1_2(0)
243  + t2_2(0, 1) * t1_1(0) * t1_2(1)
244  + t2_2(0, 2) * t1_1(0) * t1_2(2)),
245  "T1(j)*T3(i,j,k)(0,0)");
246  test_for_zero(t2(0, 1)
247  - (t2_2(0, 0) * t1_1(1) * t1_2(0)
248  + t2_2(0, 1) * t1_1(1) * t1_2(1)
249  + t2_2(0, 2) * t1_1(1) * t1_2(2)),
250  "T1(j)*T3(i,j,k)(0,1)");
251  test_for_zero(t2(0, 2)
252  - (t2_2(0, 0) * t1_1(2) * t1_2(0)
253  + t2_2(0, 1) * t1_1(2) * t1_2(1)
254  + t2_2(0, 2) * t1_1(2) * t1_2(2)),
255  "T1(j)*T3(i,j,k)(0,2)");
256  test_for_zero(t2(1, 0)
257  - (t2_2(1, 0) * t1_1(0) * t1_2(0)
258  + t2_2(1, 1) * t1_1(0) * t1_2(1)
259  + t2_2(1, 2) * t1_1(0) * t1_2(2)),
260  "T1(j)*T3(i,j,k)(1,0)");
261  test_for_zero(t2(1, 1)
262  - (t2_2(1, 0) * t1_1(1) * t1_2(0)
263  + t2_2(1, 1) * t1_1(1) * t1_2(1)
264  + t2_2(1, 2) * t1_1(1) * t1_2(2)),
265  "T1(j)*T3(i,j,k)(1,1)");
266  test_for_zero(t2(1, 2)
267  - (t2_2(1, 0) * t1_1(2) * t1_2(0)
268  + t2_2(1, 1) * t1_1(2) * t1_2(1)
269  + t2_2(1, 2) * t1_1(2) * t1_2(2)),
270  "T1(j)*T3(i,j,k)(1,2)");
271  test_for_zero(t2(2, 0)
272  - (t2_2(2, 0) * t1_1(0) * t1_2(0)
273  + t2_2(2, 1) * t1_1(0) * t1_2(1)
274  + t2_2(2, 2) * t1_1(0) * t1_2(2)),
275  "T1(j)*T3(i,j,k)(2,0)");
276  test_for_zero(t2(2, 1)
277  - (t2_2(2, 0) * t1_1(1) * t1_2(0)
278  + t2_2(2, 1) * t1_1(1) * t1_2(1)
279  + t2_2(2, 2) * t1_1(1) * t1_2(2)),
280  "T1(j)*T3(i,j,k)(2,1)");
281  test_for_zero(t2(2, 2)
282  - (t2_2(2, 0) * t1_1(2) * t1_2(0)
283  + t2_2(2, 1) * t1_1(2) * t1_2(1)
284  + t2_2(2, 2) * t1_1(2) * t1_2(2)),
285  "T1(j)*T3(i,j,k)(2,2)");
286 
287  // T3*T2s double contraction
288  Tensor1<double, 3> t1;
289  for(int ii = 0; ii < 3; ++ii)
290  {
291  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2s_2(j, k))(ii)
292  - (t2_2(ii, 0) * t1_2(0) * t2s_2(0, 0)
293  + t2_2(ii, 0) * t1_2(1) * t2s_2(0, 1)
294  + t2_2(ii, 0) * t1_2(2) * t2s_2(0, 2)
295  + t2_2(ii, 1) * t1_2(0) * t2s_2(1, 0)
296  + t2_2(ii, 1) * t1_2(1) * t2s_2(1, 1)
297  + t2_2(ii, 1) * t1_2(2) * t2s_2(1, 2)
298  + t2_2(ii, 2) * t1_2(0) * t2s_2(2, 0)
299  + t2_2(ii, 2) * t1_2(1) * t2s_2(2, 1)
300  + t2_2(ii, 2) * t1_2(2) * t2s_2(2, 2)),
301  "T3(i,j,k)*T2s(j,k)(" + std::to_string(ii) + ")");
302 
303  test_for_zero((t2s_3(j, k) * (t2_2(i, j) * t1_2(k)))(ii)
304  - (t2_2(ii, 0) * t1_2(0) * t2s_3(0, 0)
305  + t2_2(ii, 0) * t1_2(1) * t2s_3(0, 1)
306  + t2_2(ii, 0) * t1_2(2) * t2s_3(0, 2)
307  + t2_2(ii, 1) * t1_2(0) * t2s_3(1, 0)
308  + t2_2(ii, 1) * t1_2(1) * t2s_3(1, 1)
309  + t2_2(ii, 1) * t1_2(2) * t2s_3(1, 2)
310  + t2_2(ii, 2) * t1_2(0) * t2s_3(2, 0)
311  + t2_2(ii, 2) * t1_2(1) * t2s_3(2, 1)
312  + t2_2(ii, 2) * t1_2(2) * t2s_3(2, 2)),
313  "T2s(j,k)*T3(i,j,k)(" + std::to_string(ii) + ")");
314 
315  test_for_zero(((t2_2(j, i) * t1_2(k)) * t2s_2(j, k))(ii)
316  - (t2_2(0, ii) * t1_2(0) * t2s_2(0, 0)
317  + t2_2(0, ii) * t1_2(1) * t2s_2(0, 1)
318  + t2_2(0, ii) * t1_2(2) * t2s_2(0, 2)
319  + t2_2(1, ii) * t1_2(0) * t2s_2(1, 0)
320  + t2_2(1, ii) * t1_2(1) * t2s_2(1, 1)
321  + t2_2(1, ii) * t1_2(2) * t2s_2(1, 2)
322  + t2_2(2, ii) * t1_2(0) * t2s_2(2, 0)
323  + t2_2(2, ii) * t1_2(1) * t2s_2(2, 1)
324  + t2_2(2, ii) * t1_2(2) * t2s_2(2, 2)),
325  "T3(j,i,k)*T2s(j,k)(" + std::to_string(ii) + ")");
326 
327  test_for_zero((t2s_3(j, k) * (t2_2(j, i) * t1_2(k)))(ii)
328  - (t2_2(0, ii) * t1_2(0) * t2s_3(0, 0)
329  + t2_2(0, ii) * t1_2(1) * t2s_3(0, 1)
330  + t2_2(0, ii) * t1_2(2) * t2s_3(0, 2)
331  + t2_2(1, ii) * t1_2(0) * t2s_3(1, 0)
332  + t2_2(1, ii) * t1_2(1) * t2s_3(1, 1)
333  + t2_2(1, ii) * t1_2(2) * t2s_3(1, 2)
334  + t2_2(2, ii) * t1_2(0) * t2s_3(2, 0)
335  + t2_2(2, ii) * t1_2(1) * t2s_3(2, 1)
336  + t2_2(2, ii) * t1_2(2) * t2s_3(2, 2)),
337  "T2s(j,k)*T3(j,i,k)(" + std::to_string(ii) + ")");
338 
339  test_for_zero(((t2_2(j, k) * t1_2(i)) * t2s_2(j, k))(ii)
340  - (t2_2(0, 0) * t1_2(ii) * t2s_2(0, 0)
341  + t2_2(0, 1) * t1_2(ii) * t2s_2(0, 1)
342  + t2_2(0, 2) * t1_2(ii) * t2s_2(0, 2)
343  + t2_2(1, 0) * t1_2(ii) * t2s_2(1, 0)
344  + t2_2(1, 1) * t1_2(ii) * t2s_2(1, 1)
345  + t2_2(1, 2) * t1_2(ii) * t2s_2(1, 2)
346  + t2_2(2, 0) * t1_2(ii) * t2s_2(2, 0)
347  + t2_2(2, 1) * t1_2(ii) * t2s_2(2, 1)
348  + t2_2(2, 2) * t1_2(ii) * t2s_2(2, 2)),
349  "T3(j,k,i)*T2s(j,k)(" + std::to_string(ii) + ")");
350 
351  test_for_zero((t2s_3(j, k) * (t2_2(j, k) * t1_2(i)))(ii)
352  - (t2_2(0, 0) * t1_2(ii) * t2s_3(0, 0)
353  + t2_2(0, 1) * t1_2(ii) * t2s_3(0, 1)
354  + t2_2(0, 2) * t1_2(ii) * t2s_3(0, 2)
355  + t2_2(1, 0) * t1_2(ii) * t2s_3(1, 0)
356  + t2_2(1, 1) * t1_2(ii) * t2s_3(1, 1)
357  + t2_2(1, 2) * t1_2(ii) * t2s_3(1, 2)
358  + t2_2(2, 0) * t1_2(ii) * t2s_3(2, 0)
359  + t2_2(2, 1) * t1_2(ii) * t2s_3(2, 1)
360  + t2_2(2, 2) * t1_2(ii) * t2s_3(2, 2)),
361  "T2s(j,k)*T3(j,k,i)(" + std::to_string(ii) + ")");
362  }
363 
364  // T3*T2 double contraction
365  for(int ii = 0; ii < 3; ++ii)
366  {
367  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_2(j, k))(ii)
368  - (t2_2(ii, 0) * t1_2(0) * t2_2(0, 0)
369  + t2_2(ii, 0) * t1_2(1) * t2_2(0, 1)
370  + t2_2(ii, 0) * t1_2(2) * t2_2(0, 2)
371  + t2_2(ii, 1) * t1_2(0) * t2_2(1, 0)
372  + t2_2(ii, 1) * t1_2(1) * t2_2(1, 1)
373  + t2_2(ii, 1) * t1_2(2) * t2_2(1, 2)
374  + t2_2(ii, 2) * t1_2(0) * t2_2(2, 0)
375  + t2_2(ii, 2) * t1_2(1) * t2_2(2, 1)
376  + t2_2(ii, 2) * t1_2(2) * t2_2(2, 2)),
377  "T3(i,j,k)*T2(j,k)(" + std::to_string(ii) + ")");
378 
379  test_for_zero((t2_2(j, k) * (t2_2(i, j) * t1_2(k)))(ii)
380  - (t2_2(ii, 0) * t1_2(0) * t2_2(0, 0)
381  + t2_2(ii, 0) * t1_2(1) * t2_2(0, 1)
382  + t2_2(ii, 0) * t1_2(2) * t2_2(0, 2)
383  + t2_2(ii, 1) * t1_2(0) * t2_2(1, 0)
384  + t2_2(ii, 1) * t1_2(1) * t2_2(1, 1)
385  + t2_2(ii, 1) * t1_2(2) * t2_2(1, 2)
386  + t2_2(ii, 2) * t1_2(0) * t2_2(2, 0)
387  + t2_2(ii, 2) * t1_2(1) * t2_2(2, 1)
388  + t2_2(ii, 2) * t1_2(2) * t2_2(2, 2)),
389  "T2(j,k)*T3(i,j,k)(" + std::to_string(ii) + ")");
390 
391  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_2(k, j))(ii)
392  - (t2_2(ii, 0) * t1_2(0) * t2_2(0, 0)
393  + t2_2(ii, 0) * t1_2(1) * t2_2(1, 0)
394  + t2_2(ii, 0) * t1_2(2) * t2_2(2, 0)
395  + t2_2(ii, 1) * t1_2(0) * t2_2(0, 1)
396  + t2_2(ii, 1) * t1_2(1) * t2_2(1, 1)
397  + t2_2(ii, 1) * t1_2(2) * t2_2(2, 1)
398  + t2_2(ii, 2) * t1_2(0) * t2_2(0, 2)
399  + t2_2(ii, 2) * t1_2(1) * t2_2(1, 2)
400  + t2_2(ii, 2) * t1_2(2) * t2_2(2, 2)),
401  "T3(i,j,k)*T2(k,j)(" + std::to_string(ii) + ")");
402 
403  test_for_zero((t2_2(k, j) * (t2_2(i, j) * t1_2(k)))(ii)
404  - (t2_2(ii, 0) * t1_2(0) * t2_2(0, 0)
405  + t2_2(ii, 0) * t1_2(1) * t2_2(1, 0)
406  + t2_2(ii, 0) * t1_2(2) * t2_2(2, 0)
407  + t2_2(ii, 1) * t1_2(0) * t2_2(0, 1)
408  + t2_2(ii, 1) * t1_2(1) * t2_2(1, 1)
409  + t2_2(ii, 1) * t1_2(2) * t2_2(2, 1)
410  + t2_2(ii, 2) * t1_2(0) * t2_2(0, 2)
411  + t2_2(ii, 2) * t1_2(1) * t2_2(1, 2)
412  + t2_2(ii, 2) * t1_2(2) * t2_2(2, 2)),
413  "T2(k,j)*T3(i,j,k)(" + std::to_string(ii) + ")");
414 
415  test_for_zero(((t2_2(j, i) * t1_2(k)) * t2_2(j, k))(ii)
416  - (t2_2(0, ii) * t1_2(0) * t2_2(0, 0)
417  + t2_2(0, ii) * t1_2(1) * t2_2(0, 1)
418  + t2_2(0, ii) * t1_2(2) * t2_2(0, 2)
419  + t2_2(1, ii) * t1_2(0) * t2_2(1, 0)
420  + t2_2(1, ii) * t1_2(1) * t2_2(1, 1)
421  + t2_2(1, ii) * t1_2(2) * t2_2(1, 2)
422  + t2_2(2, ii) * t1_2(0) * t2_2(2, 0)
423  + t2_2(2, ii) * t1_2(1) * t2_2(2, 1)
424  + t2_2(2, ii) * t1_2(2) * t2_2(2, 2)),
425  "T3(j,i,k)*T2(j,k)(" + std::to_string(ii) + ")");
426 
427  test_for_zero((t2_2(j, k) * (t2_2(j, i) * t1_2(k)))(ii)
428  - (t2_2(0, ii) * t1_2(0) * t2_2(0, 0)
429  + t2_2(0, ii) * t1_2(1) * t2_2(0, 1)
430  + t2_2(0, ii) * t1_2(2) * t2_2(0, 2)
431  + t2_2(1, ii) * t1_2(0) * t2_2(1, 0)
432  + t2_2(1, ii) * t1_2(1) * t2_2(1, 1)
433  + t2_2(1, ii) * t1_2(2) * t2_2(1, 2)
434  + t2_2(2, ii) * t1_2(0) * t2_2(2, 0)
435  + t2_2(2, ii) * t1_2(1) * t2_2(2, 1)
436  + t2_2(2, ii) * t1_2(2) * t2_2(2, 2)),
437  "T2(j,k)*T3(j,i,k)(" + std::to_string(ii) + ")");
438 
439  test_for_zero(((t2_2(j, i) * t1_2(k)) * t2_2(k, j))(ii)
440  - (t2_2(0, ii) * t1_2(0) * t2_2(0, 0)
441  + t2_2(0, ii) * t1_2(1) * t2_2(1, 0)
442  + t2_2(0, ii) * t1_2(2) * t2_2(2, 0)
443  + t2_2(1, ii) * t1_2(0) * t2_2(0, 1)
444  + t2_2(1, ii) * t1_2(1) * t2_2(1, 1)
445  + t2_2(1, ii) * t1_2(2) * t2_2(2, 1)
446  + t2_2(2, ii) * t1_2(0) * t2_2(0, 2)
447  + t2_2(2, ii) * t1_2(1) * t2_2(1, 2)
448  + t2_2(2, ii) * t1_2(2) * t2_2(2, 2)),
449  "T3(j,i,k)*T2(k,j)(" + std::to_string(ii) + ")");
450 
451  test_for_zero((t2_2(k, j) * (t2_2(j, i) * t1_2(k)))(ii)
452  - (t2_2(0, ii) * t1_2(0) * t2_2(0, 0)
453  + t2_2(0, ii) * t1_2(1) * t2_2(1, 0)
454  + t2_2(0, ii) * t1_2(2) * t2_2(2, 0)
455  + t2_2(1, ii) * t1_2(0) * t2_2(0, 1)
456  + t2_2(1, ii) * t1_2(1) * t2_2(1, 1)
457  + t2_2(1, ii) * t1_2(2) * t2_2(2, 1)
458  + t2_2(2, ii) * t1_2(0) * t2_2(0, 2)
459  + t2_2(2, ii) * t1_2(1) * t2_2(1, 2)
460  + t2_2(2, ii) * t1_2(2) * t2_2(2, 2)),
461  "T2(k,j)*T3(j,i,k)(" + std::to_string(ii) + ")");
462 
463  test_for_zero(((t2_2(j, k) * t1_2(i)) * t2_2(j, k))(ii)
464  - (t2_2(0, 0) * t1_2(ii) * t2_2(0, 0)
465  + t2_2(0, 1) * t1_2(ii) * t2_2(0, 1)
466  + t2_2(0, 2) * t1_2(ii) * t2_2(0, 2)
467  + t2_2(1, 0) * t1_2(ii) * t2_2(1, 0)
468  + t2_2(1, 1) * t1_2(ii) * t2_2(1, 1)
469  + t2_2(1, 2) * t1_2(ii) * t2_2(1, 2)
470  + t2_2(2, 0) * t1_2(ii) * t2_2(2, 0)
471  + t2_2(2, 1) * t1_2(ii) * t2_2(2, 1)
472  + t2_2(2, 2) * t1_2(ii) * t2_2(2, 2)),
473  "T3(j,k,i)*T2(j,k)(" + std::to_string(ii) + ")");
474 
475  test_for_zero((t2_2(j, k) * (t2_2(j, k) * t1_2(i)))(ii)
476  - (t2_2(0, 0) * t1_2(ii) * t2_2(0, 0)
477  + t2_2(0, 1) * t1_2(ii) * t2_2(0, 1)
478  + t2_2(0, 2) * t1_2(ii) * t2_2(0, 2)
479  + t2_2(1, 0) * t1_2(ii) * t2_2(1, 0)
480  + t2_2(1, 1) * t1_2(ii) * t2_2(1, 1)
481  + t2_2(1, 2) * t1_2(ii) * t2_2(1, 2)
482  + t2_2(2, 0) * t1_2(ii) * t2_2(2, 0)
483  + t2_2(2, 1) * t1_2(ii) * t2_2(2, 1)
484  + t2_2(2, 2) * t1_2(ii) * t2_2(2, 2)),
485  "T2(j,k)*T3(j,k,i)(" + std::to_string(ii) + ")");
486 
487  test_for_zero(((t2_2(j, k) * t1_2(i)) * t2_2(k, j))(ii)
488  - (t2_2(0, 0) * t1_2(ii) * t2_2(0, 0)
489  + t2_2(0, 1) * t1_2(ii) * t2_2(1, 0)
490  + t2_2(0, 2) * t1_2(ii) * t2_2(2, 0)
491  + t2_2(1, 0) * t1_2(ii) * t2_2(0, 1)
492  + t2_2(1, 1) * t1_2(ii) * t2_2(1, 1)
493  + t2_2(1, 2) * t1_2(ii) * t2_2(2, 1)
494  + t2_2(2, 0) * t1_2(ii) * t2_2(0, 2)
495  + t2_2(2, 1) * t1_2(ii) * t2_2(1, 2)
496  + t2_2(2, 2) * t1_2(ii) * t2_2(2, 2)),
497  "T3(j,k,i)*T2(k,j)(" + std::to_string(ii) + ")");
498 
499  test_for_zero((t2_2(k, j) * (t2_2(j, k) * t1_2(i)))(ii)
500  - (t2_2(0, 0) * t1_2(ii) * t2_2(0, 0)
501  + t2_2(0, 1) * t1_2(ii) * t2_2(1, 0)
502  + t2_2(0, 2) * t1_2(ii) * t2_2(2, 0)
503  + t2_2(1, 0) * t1_2(ii) * t2_2(0, 1)
504  + t2_2(1, 1) * t1_2(ii) * t2_2(1, 1)
505  + t2_2(1, 2) * t1_2(ii) * t2_2(2, 1)
506  + t2_2(2, 0) * t1_2(ii) * t2_2(0, 2)
507  + t2_2(2, 1) * t1_2(ii) * t2_2(1, 2)
508  + t2_2(2, 2) * t1_2(ii) * t2_2(2, 2)),
509  "T2(k,j)*T3(j,k,i)(" + std::to_string(ii) + ")");
510  }
511 
512  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(k, l))(0, 0, 0)
513  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(0, 0, 0),
514  "T3(i,j,k)*T2(k,l)(0,0,0)");
515  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(k, l))(0, 0, 1)
516  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(0, 0, 1),
517  "T3(i,j,k)*T2(k,l)(0,0,1)");
518  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(k, l))(0, 0, 2)
519  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(0, 0, 2),
520  "T3(i,j,k)*T2(k,l)(0,0,2)");
521  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(k, l))(0, 1, 0)
522  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(0, 1, 0),
523  "T3(i,j,k)*T2(k,l)(0,1,0)");
524  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(k, l))(0, 1, 1)
525  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(0, 1, 1),
526  "T3(i,j,k)*T2(k,l)(0,1,1)");
527  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(k, l))(0, 1, 2)
528  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(0, 1, 2),
529  "T3(i,j,k)*T2(k,l)(0,1,2)");
530  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(k, l))(0, 2, 0)
531  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(0, 2, 0),
532  "T3(i,j,k)*T2(k,l)(0,2,0)");
533  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(k, l))(0, 2, 1)
534  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(0, 2, 1),
535  "T3(i,j,k)*T2(k,l)(0,2,1)");
536  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(k, l))(0, 2, 2)
537  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(0, 2, 2),
538  "T3(i,j,k)*T2(k,l)(0,2,2)");
539  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(k, l))(1, 0, 0)
540  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(1, 0, 0),
541  "T3(i,j,k)*T2(k,l)(1,0,0)");
542  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(k, l))(1, 0, 1)
543  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(1, 0, 1),
544  "T3(i,j,k)*T2(k,l)(1,0,1)");
545  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(k, l))(1, 0, 2)
546  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(1, 0, 2),
547  "T3(i,j,k)*T2(k,l)(1,0,2)");
548  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(k, l))(1, 1, 0)
549  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(1, 1, 0),
550  "T3(i,j,k)*T2(k,l)(1,1,0)");
551  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(k, l))(1, 1, 1)
552  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(1, 1, 1),
553  "T3(i,j,k)*T2(k,l)(1,1,1)");
554  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(k, l))(1, 1, 2)
555  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(1, 1, 2),
556  "T3(i,j,k)*T2(k,l)(1,1,2)");
557  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(k, l))(1, 2, 0)
558  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(1, 2, 0),
559  "T3(i,j,k)*T2(k,l)(1,2,0)");
560  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(k, l))(1, 2, 1)
561  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(1, 2, 1),
562  "T3(i,j,k)*T2(k,l)(1,2,1)");
563  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(k, l))(1, 2, 2)
564  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(1, 2, 2),
565  "T3(i,j,k)*T2(k,l)(1,2,2)");
566  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(k, l))(2, 0, 0)
567  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(2, 0, 0),
568  "T3(i,j,k)*T2(k,l)(2,0,0)");
569  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(k, l))(2, 0, 1)
570  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(2, 0, 1),
571  "T3(i,j,k)*T2(k,l)(2,0,1)");
572  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(k, l))(2, 0, 2)
573  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(2, 0, 2),
574  "T3(i,j,k)*T2(k,l)(2,0,2)");
575  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(k, l))(2, 1, 0)
576  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(2, 1, 0),
577  "T3(i,j,k)*T2(k,l)(2,1,0)");
578  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(k, l))(2, 1, 1)
579  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(2, 1, 1),
580  "T3(i,j,k)*T2(k,l)(2,1,1)");
581  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(k, l))(2, 1, 2)
582  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(2, 1, 2),
583  "T3(i,j,k)*T2(k,l)(2,1,2)");
584  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(k, l))(2, 2, 0)
585  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(2, 2, 0),
586  "T3(i,j,k)*T2(k,l)(2,2,0)");
587  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(k, l))(2, 2, 1)
588  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(2, 2, 1),
589  "T3(i,j,k)*T2(k,l)(2,2,1)");
590  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(k, l))(2, 2, 2)
591  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(2, 2, 2),
592  "T3(i,j,k)*T2(k,l)(2,2,2)");
593 
594  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(l, k))(0, 0, 0)
595  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(0, 0, 0),
596  "T3(i,j,k)*T2(l,k)(0,0,0)");
597  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(l, k))(0, 0, 1)
598  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(0, 0, 1),
599  "T3(i,j,k)*T2(l,k)(0,0,1)");
600  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(l, k))(0, 0, 2)
601  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(0, 0, 2),
602  "T3(i,j,k)*T2(l,k)(0,0,2)");
603  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(l, k))(0, 1, 0)
604  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(0, 1, 0),
605  "T3(i,j,k)*T2(l,k)(0,1,0)");
606  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(l, k))(0, 1, 1)
607  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(0, 1, 1),
608  "T3(i,j,k)*T2(l,k)(0,1,1)");
609  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(l, k))(0, 1, 2)
610  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(0, 1, 2),
611  "T3(i,j,k)*T2(l,k)(0,1,2)");
612  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(l, k))(0, 2, 0)
613  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(0, 2, 0),
614  "T3(i,j,k)*T2(l,k)(0,2,0)");
615  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(l, k))(0, 2, 1)
616  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(0, 2, 1),
617  "T3(i,j,k)*T2(l,k)(0,2,1)");
618  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(l, k))(0, 2, 2)
619  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(0, 2, 2),
620  "T3(i,j,k)*T2(l,k)(0,2,2)");
621  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(l, k))(1, 0, 0)
622  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(1, 0, 0),
623  "T3(i,j,k)*T2(l,k)(1,0,0)");
624  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(l, k))(1, 0, 1)
625  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(1, 0, 1),
626  "T3(i,j,k)*T2(l,k)(1,0,1)");
627  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(l, k))(1, 0, 2)
628  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(1, 0, 2),
629  "T3(i,j,k)*T2(l,k)(1,0,2)");
630  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(l, k))(1, 1, 0)
631  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(1, 1, 0),
632  "T3(i,j,k)*T2(l,k)(1,1,0)");
633  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(l, k))(1, 1, 1)
634  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(1, 1, 1),
635  "T3(i,j,k)*T2(l,k)(1,1,1)");
636  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(l, k))(1, 1, 2)
637  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(1, 1, 2),
638  "T3(i,j,k)*T2(l,k)(1,1,2)");
639  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(l, k))(1, 2, 0)
640  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(1, 2, 0),
641  "T3(i,j,k)*T2(l,k)(1,2,0)");
642  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(l, k))(1, 2, 1)
643  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(1, 2, 1),
644  "T3(i,j,k)*T2(l,k)(1,2,1)");
645  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(l, k))(1, 2, 2)
646  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(1, 2, 2),
647  "T3(i,j,k)*T2(l,k)(1,2,2)");
648  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(l, k))(2, 0, 0)
649  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(2, 0, 0),
650  "T3(i,j,k)*T2(l,k)(2,0,0)");
651  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(l, k))(2, 0, 1)
652  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(2, 0, 1),
653  "T3(i,j,k)*T2(l,k)(2,0,1)");
654  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(l, k))(2, 0, 2)
655  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(2, 0, 2),
656  "T3(i,j,k)*T2(l,k)(2,0,2)");
657  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(l, k))(2, 1, 0)
658  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(2, 1, 0),
659  "T3(i,j,k)*T2(l,k)(2,1,0)");
660  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(l, k))(2, 1, 1)
661  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(2, 1, 1),
662  "T3(i,j,k)*T2(l,k)(2,1,1)");
663  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(l, k))(2, 1, 2)
664  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(2, 1, 2),
665  "T3(i,j,k)*T2(l,k)(2,1,2)");
666  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(l, k))(2, 2, 0)
667  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(2, 2, 0),
668  "T3(i,j,k)*T2(l,k)(2,2,0)");
669  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(l, k))(2, 2, 1)
670  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(2, 2, 1),
671  "T3(i,j,k)*T2(l,k)(2,2,1)");
672  test_for_zero(((t2_2(i, j) * t1_2(k)) * t2_3(l, k))(2, 2, 2)
673  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(2, 2, 2),
674  "T3(i,j,k)*T2(l,k)(2,2,2)");
675 
676  test_for_zero((t2_3(k, l) * (t2_2(i, j) * t1_2(k)))(0, 0, 0)
677  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(0, 0, 0),
678  "T2(k,l)*T3(i,j,k)(0,0,0)");
679  test_for_zero((t2_3(k, l) * (t2_2(i, j) * t1_2(k)))(0, 0, 1)
680  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(0, 0, 1),
681  "T2(k,l)*T3(i,j,k)(0,0,1)");
682  test_for_zero((t2_3(k, l) * (t2_2(i, j) * t1_2(k)))(0, 0, 2)
683  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(0, 0, 2),
684  "T2(k,l)*T3(i,j,k)(0,0,2)");
685  test_for_zero((t2_3(k, l) * (t2_2(i, j) * t1_2(k)))(0, 1, 0)
686  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(0, 1, 0),
687  "T2(k,l)*T3(i,j,k)(0,1,0)");
688  test_for_zero((t2_3(k, l) * (t2_2(i, j) * t1_2(k)))(0, 1, 1)
689  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(0, 1, 1),
690  "T2(k,l)*T3(i,j,k)(0,1,1)");
691  test_for_zero((t2_3(k, l) * (t2_2(i, j) * t1_2(k)))(0, 1, 2)
692  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(0, 1, 2),
693  "T2(k,l)*T3(i,j,k)(0,1,2)");
694  test_for_zero((t2_3(k, l) * (t2_2(i, j) * t1_2(k)))(0, 2, 0)
695  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(0, 2, 0),
696  "T2(k,l)*T3(i,j,k)(0,2,0)");
697  test_for_zero((t2_3(k, l) * (t2_2(i, j) * t1_2(k)))(0, 2, 1)
698  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(0, 2, 1),
699  "T2(k,l)*T3(i,j,k)(0,2,1)");
700  test_for_zero((t2_3(k, l) * (t2_2(i, j) * t1_2(k)))(0, 2, 2)
701  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(0, 2, 2),
702  "T2(k,l)*T3(i,j,k)(0,2,2)");
703  test_for_zero((t2_3(k, l) * (t2_2(i, j) * t1_2(k)))(1, 0, 0)
704  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(1, 0, 0),
705  "T2(k,l)*T3(i,j,k)(1,0,0)");
706  test_for_zero((t2_3(k, l) * (t2_2(i, j) * t1_2(k)))(1, 0, 1)
707  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(1, 0, 1),
708  "T2(k,l)*T3(i,j,k)(1,0,1)");
709  test_for_zero((t2_3(k, l) * (t2_2(i, j) * t1_2(k)))(1, 0, 2)
710  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(1, 0, 2),
711  "T2(k,l)*T3(i,j,k)(1,0,2)");
712  test_for_zero((t2_3(k, l) * (t2_2(i, j) * t1_2(k)))(1, 1, 0)
713  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(1, 1, 0),
714  "T2(k,l)*T3(i,j,k)(1,1,0)");
715  test_for_zero((t2_3(k, l) * (t2_2(i, j) * t1_2(k)))(1, 1, 1)
716  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(1, 1, 1),
717  "T2(k,l)*T3(i,j,k)(1,1,1)");
718  test_for_zero((t2_3(k, l) * (t2_2(i, j) * t1_2(k)))(1, 1, 2)
719  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(1, 1, 2),
720  "T2(k,l)*T3(i,j,k)(1,1,2)");
721  test_for_zero((t2_3(k, l) * (t2_2(i, j) * t1_2(k)))(1, 2, 0)
722  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(1, 2, 0),
723  "T2(k,l)*T3(i,j,k)(1,2,0)");
724  test_for_zero((t2_3(k, l) * (t2_2(i, j) * t1_2(k)))(1, 2, 1)
725  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(1, 2, 1),
726  "T2(k,l)*T3(i,j,k)(1,2,1)");
727  test_for_zero((t2_3(k, l) * (t2_2(i, j) * t1_2(k)))(1, 2, 2)
728  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(1, 2, 2),
729  "T2(k,l)*T3(i,j,k)(1,2,2)");
730  test_for_zero((t2_3(k, l) * (t2_2(i, j) * t1_2(k)))(2, 0, 0)
731  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(2, 0, 0),
732  "T2(k,l)*T3(i,j,k)(2,0,0)");
733  test_for_zero((t2_3(k, l) * (t2_2(i, j) * t1_2(k)))(2, 0, 1)
734  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(2, 0, 1),
735  "T2(k,l)*T3(i,j,k)(2,0,1)");
736  test_for_zero((t2_3(k, l) * (t2_2(i, j) * t1_2(k)))(2, 0, 2)
737  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(2, 0, 2),
738  "T2(k,l)*T3(i,j,k)(2,0,2)");
739  test_for_zero((t2_3(k, l) * (t2_2(i, j) * t1_2(k)))(2, 1, 0)
740  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(2, 1, 0),
741  "T2(k,l)*T3(i,j,k)(2,1,0)");
742  test_for_zero((t2_3(k, l) * (t2_2(i, j) * t1_2(k)))(2, 1, 1)
743  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(2, 1, 1),
744  "T2(k,l)*T3(i,j,k)(2,1,1)");
745  test_for_zero((t2_3(k, l) * (t2_2(i, j) * t1_2(k)))(2, 1, 2)
746  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(2, 1, 2),
747  "T2(k,l)*T3(i,j,k)(2,1,2)");
748  test_for_zero((t2_3(k, l) * (t2_2(i, j) * t1_2(k)))(2, 2, 0)
749  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(2, 2, 0),
750  "T2(k,l)*T3(i,j,k)(2,2,0)");
751  test_for_zero((t2_3(k, l) * (t2_2(i, j) * t1_2(k)))(2, 2, 1)
752  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(2, 2, 1),
753  "T2(k,l)*T3(i,j,k)(2,2,1)");
754  test_for_zero((t2_3(k, l) * (t2_2(i, j) * t1_2(k)))(2, 2, 2)
755  - (t2_2(i, j) * (t1_2(k) * t2_3(k, l)))(2, 2, 2),
756  "T2(k,l)*T3(i,j,k)(2,2,2)");
757 
758  test_for_zero((t2_3(l, k) * (t2_2(i, j) * t1_2(k)))(0, 0, 0)
759  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(0, 0, 0),
760  "T2(l,k)*T3(i,j,k)(0,0,0)");
761  test_for_zero((t2_3(l, k) * (t2_2(i, j) * t1_2(k)))(0, 0, 1)
762  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(0, 0, 1),
763  "T2(l,k)*T3(i,j,k)(0,0,1)");
764  test_for_zero((t2_3(l, k) * (t2_2(i, j) * t1_2(k)))(0, 0, 2)
765  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(0, 0, 2),
766  "T2(l,k)*T3(i,j,k)(0,0,2)");
767  test_for_zero((t2_3(l, k) * (t2_2(i, j) * t1_2(k)))(0, 1, 0)
768  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(0, 1, 0),
769  "T2(l,k)*T3(i,j,k)(0,1,0)");
770  test_for_zero((t2_3(l, k) * (t2_2(i, j) * t1_2(k)))(0, 1, 1)
771  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(0, 1, 1),
772  "T2(l,k)*T3(i,j,k)(0,1,1)");
773  test_for_zero((t2_3(l, k) * (t2_2(i, j) * t1_2(k)))(0, 1, 2)
774  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(0, 1, 2),
775  "T2(l,k)*T3(i,j,k)(0,1,2)");
776  test_for_zero((t2_3(l, k) * (t2_2(i, j) * t1_2(k)))(0, 2, 0)
777  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(0, 2, 0),
778  "T2(l,k)*T3(i,j,k)(0,2,0)");
779  test_for_zero((t2_3(l, k) * (t2_2(i, j) * t1_2(k)))(0, 2, 1)
780  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(0, 2, 1),
781  "T2(l,k)*T3(i,j,k)(0,2,1)");
782  test_for_zero((t2_3(l, k) * (t2_2(i, j) * t1_2(k)))(0, 2, 2)
783  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(0, 2, 2),
784  "T2(l,k)*T3(i,j,k)(0,2,2)");
785  test_for_zero((t2_3(l, k) * (t2_2(i, j) * t1_2(k)))(1, 0, 0)
786  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(1, 0, 0),
787  "T2(l,k)*T3(i,j,k)(1,0,0)");
788  test_for_zero((t2_3(l, k) * (t2_2(i, j) * t1_2(k)))(1, 0, 1)
789  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(1, 0, 1),
790  "T2(l,k)*T3(i,j,k)(1,0,1)");
791  test_for_zero((t2_3(l, k) * (t2_2(i, j) * t1_2(k)))(1, 0, 2)
792  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(1, 0, 2),
793  "T2(l,k)*T3(i,j,k)(1,0,2)");
794  test_for_zero((t2_3(l, k) * (t2_2(i, j) * t1_2(k)))(1, 1, 0)
795  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(1, 1, 0),
796  "T2(l,k)*T3(i,j,k)(1,1,0)");
797  test_for_zero((t2_3(l, k) * (t2_2(i, j) * t1_2(k)))(1, 1, 1)
798  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(1, 1, 1),
799  "T2(l,k)*T3(i,j,k)(1,1,1)");
800  test_for_zero((t2_3(l, k) * (t2_2(i, j) * t1_2(k)))(1, 1, 2)
801  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(1, 1, 2),
802  "T2(l,k)*T3(i,j,k)(1,1,2)");
803  test_for_zero((t2_3(l, k) * (t2_2(i, j) * t1_2(k)))(1, 2, 0)
804  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(1, 2, 0),
805  "T2(l,k)*T3(i,j,k)(1,2,0)");
806  test_for_zero((t2_3(l, k) * (t2_2(i, j) * t1_2(k)))(1, 2, 1)
807  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(1, 2, 1),
808  "T2(l,k)*T3(i,j,k)(1,2,1)");
809  test_for_zero((t2_3(l, k) * (t2_2(i, j) * t1_2(k)))(1, 2, 2)
810  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(1, 2, 2),
811  "T2(l,k)*T3(i,j,k)(1,2,2)");
812  test_for_zero((t2_3(l, k) * (t2_2(i, j) * t1_2(k)))(2, 0, 0)
813  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(2, 0, 0),
814  "T2(l,k)*T3(i,j,k)(2,0,0)");
815  test_for_zero((t2_3(l, k) * (t2_2(i, j) * t1_2(k)))(2, 0, 1)
816  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(2, 0, 1),
817  "T2(l,k)*T3(i,j,k)(2,0,1)");
818  test_for_zero((t2_3(l, k) * (t2_2(i, j) * t1_2(k)))(2, 0, 2)
819  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(2, 0, 2),
820  "T2(l,k)*T3(i,j,k)(2,0,2)");
821  test_for_zero((t2_3(l, k) * (t2_2(i, j) * t1_2(k)))(2, 1, 0)
822  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(2, 1, 0),
823  "T2(l,k)*T3(i,j,k)(2,1,0)");
824  test_for_zero((t2_3(l, k) * (t2_2(i, j) * t1_2(k)))(2, 1, 1)
825  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(2, 1, 1),
826  "T2(l,k)*T3(i,j,k)(2,1,1)");
827  test_for_zero((t2_3(l, k) * (t2_2(i, j) * t1_2(k)))(2, 1, 2)
828  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(2, 1, 2),
829  "T2(l,k)*T3(i,j,k)(2,1,2)");
830  test_for_zero((t2_3(l, k) * (t2_2(i, j) * t1_2(k)))(2, 2, 0)
831  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(2, 2, 0),
832  "T2(l,k)*T3(i,j,k)(2,2,0)");
833  test_for_zero((t2_3(l, k) * (t2_2(i, j) * t1_2(k)))(2, 2, 1)
834  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(2, 2, 1),
835  "T2(l,k)*T3(i,j,k)(2,2,1)");
836  test_for_zero((t2_3(l, k) * (t2_2(i, j) * t1_2(k)))(2, 2, 2)
837  - (t2_2(i, j) * (t1_2(k) * t2_3(l, k)))(2, 2, 2),
838  "T2(l,k)*T3(i,j,k)(2,2,2)");
839 
840  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(j, k))(0, 0, 0)
841  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(0, 0, 0),
842  "T3(i,j,l)*T2(j,k)(0,0,0)");
843  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(j, k))(0, 0, 1)
844  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(0, 0, 1),
845  "T3(i,j,l)*T2(j,k)(0,0,1)");
846  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(j, k))(0, 0, 2)
847  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(0, 0, 2),
848  "T3(i,j,l)*T2(j,k)(0,0,2)");
849  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(j, k))(0, 1, 0)
850  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(0, 1, 0),
851  "T3(i,j,l)*T2(j,k)(0,1,0)");
852  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(j, k))(0, 1, 1)
853  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(0, 1, 1),
854  "T3(i,j,l)*T2(j,k)(0,1,1)");
855  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(j, k))(0, 1, 2)
856  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(0, 1, 2),
857  "T3(i,j,l)*T2(j,k)(0,1,2)");
858  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(j, k))(0, 2, 0)
859  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(0, 2, 0),
860  "T3(i,j,l)*T2(j,k)(0,2,0)");
861  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(j, k))(0, 2, 1)
862  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(0, 2, 1),
863  "T3(i,j,l)*T2(j,k)(0,2,1)");
864  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(j, k))(0, 2, 2)
865  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(0, 2, 2),
866  "T3(i,j,l)*T2(j,k)(0,2,2)");
867  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(j, k))(1, 0, 0)
868  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(1, 0, 0),
869  "T3(i,j,l)*T2(j,k)(1,0,0)");
870  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(j, k))(1, 0, 1)
871  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(1, 0, 1),
872  "T3(i,j,l)*T2(j,k)(1,0,1)");
873  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(j, k))(1, 0, 2)
874  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(1, 0, 2),
875  "T3(i,j,l)*T2(j,k)(1,0,2)");
876  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(j, k))(1, 1, 0)
877  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(1, 1, 0),
878  "T3(i,j,l)*T2(j,k)(1,1,0)");
879  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(j, k))(1, 1, 1)
880  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(1, 1, 1),
881  "T3(i,j,l)*T2(j,k)(1,1,1)");
882  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(j, k))(1, 1, 2)
883  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(1, 1, 2),
884  "T3(i,j,l)*T2(j,k)(1,1,2)");
885  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(j, k))(1, 2, 0)
886  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(1, 2, 0),
887  "T3(i,j,l)*T2(j,k)(1,2,0)");
888  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(j, k))(1, 2, 1)
889  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(1, 2, 1),
890  "T3(i,j,l)*T2(j,k)(1,2,1)");
891  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(j, k))(1, 2, 2)
892  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(1, 2, 2),
893  "T3(i,j,l)*T2(j,k)(1,2,2)");
894  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(j, k))(2, 0, 0)
895  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(2, 0, 0),
896  "T3(i,j,l)*T2(j,k)(2,0,0)");
897  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(j, k))(2, 0, 1)
898  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(2, 0, 1),
899  "T3(i,j,l)*T2(j,k)(2,0,1)");
900  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(j, k))(2, 0, 2)
901  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(2, 0, 2),
902  "T3(i,j,l)*T2(j,k)(2,0,2)");
903  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(j, k))(2, 1, 0)
904  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(2, 1, 0),
905  "T3(i,j,l)*T2(j,k)(2,1,0)");
906  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(j, k))(2, 1, 1)
907  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(2, 1, 1),
908  "T3(i,j,l)*T2(j,k)(2,1,1)");
909  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(j, k))(2, 1, 2)
910  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(2, 1, 2),
911  "T3(i,j,l)*T2(j,k)(2,1,2)");
912  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(j, k))(2, 2, 0)
913  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(2, 2, 0),
914  "T3(i,j,l)*T2(j,k)(2,2,0)");
915  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(j, k))(2, 2, 1)
916  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(2, 2, 1),
917  "T3(i,j,l)*T2(j,k)(2,2,1)");
918  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(j, k))(2, 2, 2)
919  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(2, 2, 2),
920  "T3(i,j,l)*T2(j,k)(2,2,2)");
921 
922  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(k, j))(0, 0, 0)
923  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(0, 0, 0),
924  "T3(i,j,l)*T2(k,j)(0,0,0)");
925  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(k, j))(0, 0, 1)
926  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(0, 0, 1),
927  "T3(i,j,l)*T2(k,j)(0,0,1)");
928  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(k, j))(0, 0, 2)
929  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(0, 0, 2),
930  "T3(i,j,l)*T2(k,j)(0,0,2)");
931  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(k, j))(0, 1, 0)
932  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(0, 1, 0),
933  "T3(i,j,l)*T2(k,j)(0,1,0)");
934  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(k, j))(0, 1, 1)
935  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(0, 1, 1),
936  "T3(i,j,l)*T2(k,j)(0,1,1)");
937  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(k, j))(0, 1, 2)
938  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(0, 1, 2),
939  "T3(i,j,l)*T2(k,j)(0,1,2)");
940  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(k, j))(0, 2, 0)
941  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(0, 2, 0),
942  "T3(i,j,l)*T2(k,j)(0,2,0)");
943  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(k, j))(0, 2, 1)
944  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(0, 2, 1),
945  "T3(i,j,l)*T2(k,j)(0,2,1)");
946  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(k, j))(0, 2, 2)
947  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(0, 2, 2),
948  "T3(i,j,l)*T2(k,j)(0,2,2)");
949  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(k, j))(1, 0, 0)
950  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(1, 0, 0),
951  "T3(i,j,l)*T2(k,j)(1,0,0)");
952  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(k, j))(1, 0, 1)
953  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(1, 0, 1),
954  "T3(i,j,l)*T2(k,j)(1,0,1)");
955  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(k, j))(1, 0, 2)
956  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(1, 0, 2),
957  "T3(i,j,l)*T2(k,j)(1,0,2)");
958  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(k, j))(1, 1, 0)
959  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(1, 1, 0),
960  "T3(i,j,l)*T2(k,j)(1,1,0)");
961  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(k, j))(1, 1, 1)
962  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(1, 1, 1),
963  "T3(i,j,l)*T2(k,j)(1,1,1)");
964  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(k, j))(1, 1, 2)
965  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(1, 1, 2),
966  "T3(i,j,l)*T2(k,j)(1,1,2)");
967  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(k, j))(1, 2, 0)
968  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(1, 2, 0),
969  "T3(i,j,l)*T2(k,j)(1,2,0)");
970  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(k, j))(1, 2, 1)
971  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(1, 2, 1),
972  "T3(i,j,l)*T2(k,j)(1,2,1)");
973  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(k, j))(1, 2, 2)
974  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(1, 2, 2),
975  "T3(i,j,l)*T2(k,j)(1,2,2)");
976  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(k, j))(2, 0, 0)
977  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(2, 0, 0),
978  "T3(i,j,l)*T2(k,j)(2,0,0)");
979  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(k, j))(2, 0, 1)
980  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(2, 0, 1),
981  "T3(i,j,l)*T2(k,j)(2,0,1)");
982  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(k, j))(2, 0, 2)
983  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(2, 0, 2),
984  "T3(i,j,l)*T2(k,j)(2,0,2)");
985  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(k, j))(2, 1, 0)
986  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(2, 1, 0),
987  "T3(i,j,l)*T2(k,j)(2,1,0)");
988  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(k, j))(2, 1, 1)
989  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(2, 1, 1),
990  "T3(i,j,l)*T2(k,j)(2,1,1)");
991  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(k, j))(2, 1, 2)
992  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(2, 1, 2),
993  "T3(i,j,l)*T2(k,j)(2,1,2)");
994  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(k, j))(2, 2, 0)
995  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(2, 2, 0),
996  "T3(i,j,l)*T2(k,j)(2,2,0)");
997  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(k, j))(2, 2, 1)
998  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(2, 2, 1),
999  "T3(i,j,l)*T2(k,j)(2,2,1)");
1000  test_for_zero(((t2_2(i, j) * t1_2(l)) * t2_3(k, j))(2, 2, 2)
1001  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(2, 2, 2),
1002  "T3(i,j,l)*T2(k,j)(2,2,2)");
1003 
1004  test_for_zero((t2_3(j, k) * (t2_2(i, j) * t1_2(l)))(0, 0, 0)
1005  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(0, 0, 0),
1006  "T2(j,k)*T3(i,j,l)(0,0,0)");
1007  test_for_zero((t2_3(j, k) * (t2_2(i, j) * t1_2(l)))(0, 0, 1)
1008  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(0, 0, 1),
1009  "T2(j,k)*T3(i,j,l)(0,0,1)");
1010  test_for_zero((t2_3(j, k) * (t2_2(i, j) * t1_2(l)))(0, 0, 2)
1011  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(0, 0, 2),
1012  "T2(j,k)*T3(i,j,l)(0,0,2)");
1013  test_for_zero((t2_3(j, k) * (t2_2(i, j) * t1_2(l)))(0, 1, 0)
1014  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(0, 1, 0),
1015  "T2(j,k)*T3(i,j,l)(0,1,0)");
1016  test_for_zero((t2_3(j, k) * (t2_2(i, j) * t1_2(l)))(0, 1, 1)
1017  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(0, 1, 1),
1018  "T2(j,k)*T3(i,j,l)(0,1,1)");
1019  test_for_zero((t2_3(j, k) * (t2_2(i, j) * t1_2(l)))(0, 1, 2)
1020  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(0, 1, 2),
1021  "T2(j,k)*T3(i,j,l)(0,1,2)");
1022  test_for_zero((t2_3(j, k) * (t2_2(i, j) * t1_2(l)))(0, 2, 0)
1023  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(0, 2, 0),
1024  "T2(j,k)*T3(i,j,l)(0,2,0)");
1025  test_for_zero((t2_3(j, k) * (t2_2(i, j) * t1_2(l)))(0, 2, 1)
1026  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(0, 2, 1),
1027  "T2(j,k)*T3(i,j,l)(0,2,1)");
1028  test_for_zero((t2_3(j, k) * (t2_2(i, j) * t1_2(l)))(0, 2, 2)
1029  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(0, 2, 2),
1030  "T2(j,k)*T3(i,j,l)(0,2,2)");
1031  test_for_zero((t2_3(j, k) * (t2_2(i, j) * t1_2(l)))(1, 0, 0)
1032  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(1, 0, 0),
1033  "T2(j,k)*T3(i,j,l)(1,0,0)");
1034  test_for_zero((t2_3(j, k) * (t2_2(i, j) * t1_2(l)))(1, 0, 1)
1035  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(1, 0, 1),
1036  "T2(j,k)*T3(i,j,l)(1,0,1)");
1037  test_for_zero((t2_3(j, k) * (t2_2(i, j) * t1_2(l)))(1, 0, 2)
1038  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(1, 0, 2),
1039  "T2(j,k)*T3(i,j,l)(1,0,2)");
1040  test_for_zero((t2_3(j, k) * (t2_2(i, j) * t1_2(l)))(1, 1, 0)
1041  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(1, 1, 0),
1042  "T2(j,k)*T3(i,j,l)(1,1,0)");
1043  test_for_zero((t2_3(j, k) * (t2_2(i, j) * t1_2(l)))(1, 1, 1)
1044  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(1, 1, 1),
1045  "T2(j,k)*T3(i,j,l)(1,1,1)");
1046  test_for_zero((t2_3(j, k) * (t2_2(i, j) * t1_2(l)))(1, 1, 2)
1047  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(1, 1, 2),
1048  "T2(j,k)*T3(i,j,l)(1,1,2)");
1049  test_for_zero((t2_3(j, k) * (t2_2(i, j) * t1_2(l)))(1, 2, 0)
1050  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(1, 2, 0),
1051  "T2(j,k)*T3(i,j,l)(1,2,0)");
1052  test_for_zero((t2_3(j, k) * (t2_2(i, j) * t1_2(l)))(1, 2, 1)
1053  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(1, 2, 1),
1054  "T2(j,k)*T3(i,j,l)(1,2,1)");
1055  test_for_zero((t2_3(j, k) * (t2_2(i, j) * t1_2(l)))(1, 2, 2)
1056  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(1, 2, 2),
1057  "T2(j,k)*T3(i,j,l)(1,2,2)");
1058  test_for_zero((t2_3(j, k) * (t2_2(i, j) * t1_2(l)))(2, 0, 0)
1059  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(2, 0, 0),
1060  "T2(j,k)*T3(i,j,l)(2,0,0)");
1061  test_for_zero((t2_3(j, k) * (t2_2(i, j) * t1_2(l)))(2, 0, 1)
1062  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(2, 0, 1),
1063  "T2(j,k)*T3(i,j,l)(2,0,1)");
1064  test_for_zero((t2_3(j, k) * (t2_2(i, j) * t1_2(l)))(2, 0, 2)
1065  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(2, 0, 2),
1066  "T2(j,k)*T3(i,j,l)(2,0,2)");
1067  test_for_zero((t2_3(j, k) * (t2_2(i, j) * t1_2(l)))(2, 1, 0)
1068  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(2, 1, 0),
1069  "T2(j,k)*T3(i,j,l)(2,1,0)");
1070  test_for_zero((t2_3(j, k) * (t2_2(i, j) * t1_2(l)))(2, 1, 1)
1071  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(2, 1, 1),
1072  "T2(j,k)*T3(i,j,l)(2,1,1)");
1073  test_for_zero((t2_3(j, k) * (t2_2(i, j) * t1_2(l)))(2, 1, 2)
1074  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(2, 1, 2),
1075  "T2(j,k)*T3(i,j,l)(2,1,2)");
1076  test_for_zero((t2_3(j, k) * (t2_2(i, j) * t1_2(l)))(2, 2, 0)
1077  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(2, 2, 0),
1078  "T2(j,k)*T3(i,j,l)(2,2,0)");
1079  test_for_zero((t2_3(j, k) * (t2_2(i, j) * t1_2(l)))(2, 2, 1)
1080  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(2, 2, 1),
1081  "T2(j,k)*T3(i,j,l)(2,2,1)");
1082  test_for_zero((t2_3(j, k) * (t2_2(i, j) * t1_2(l)))(2, 2, 2)
1083  - ((t2_2(i, j) * t2_3(j, k)) * t1_2(l))(2, 2, 2),
1084  "T2(j,k)*T3(i,j,l)(2,2,2)");
1085 
1086  test_for_zero((t2_3(k, j) * (t2_2(i, j) * t1_2(l)))(0, 0, 0)
1087  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(0, 0, 0),
1088  "T2(k,j)*T3(i,j,l)(0,0,0)");
1089  test_for_zero((t2_3(k, j) * (t2_2(i, j) * t1_2(l)))(0, 0, 1)
1090  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(0, 0, 1),
1091  "T2(k,j)*T3(i,j,l)(0,0,1)");
1092  test_for_zero((t2_3(k, j) * (t2_2(i, j) * t1_2(l)))(0, 0, 2)
1093  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(0, 0, 2),
1094  "T2(k,j)*T3(i,j,l)(0,0,2)");
1095  test_for_zero((t2_3(k, j) * (t2_2(i, j) * t1_2(l)))(0, 1, 0)
1096  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(0, 1, 0),
1097  "T2(k,j)*T3(i,j,l)(0,1,0)");
1098  test_for_zero((t2_3(k, j) * (t2_2(i, j) * t1_2(l)))(0, 1, 1)
1099  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(0, 1, 1),
1100  "T2(k,j)*T3(i,j,l)(0,1,1)");
1101  test_for_zero((t2_3(k, j) * (t2_2(i, j) * t1_2(l)))(0, 1, 2)
1102  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(0, 1, 2),
1103  "T2(k,j)*T3(i,j,l)(0,1,2)");
1104  test_for_zero((t2_3(k, j) * (t2_2(i, j) * t1_2(l)))(0, 2, 0)
1105  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(0, 2, 0),
1106  "T2(k,j)*T3(i,j,l)(0,2,0)");
1107  test_for_zero((t2_3(k, j) * (t2_2(i, j) * t1_2(l)))(0, 2, 1)
1108  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(0, 2, 1),
1109  "T2(k,j)*T3(i,j,l)(0,2,1)");
1110  test_for_zero((t2_3(k, j) * (t2_2(i, j) * t1_2(l)))(0, 2, 2)
1111  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(0, 2, 2),
1112  "T2(k,j)*T3(i,j,l)(0,2,2)");
1113  test_for_zero((t2_3(k, j) * (t2_2(i, j) * t1_2(l)))(1, 0, 0)
1114  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(1, 0, 0),
1115  "T2(k,j)*T3(i,j,l)(1,0,0)");
1116  test_for_zero((t2_3(k, j) * (t2_2(i, j) * t1_2(l)))(1, 0, 1)
1117  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(1, 0, 1),
1118  "T2(k,j)*T3(i,j,l)(1,0,1)");
1119  test_for_zero((t2_3(k, j) * (t2_2(i, j) * t1_2(l)))(1, 0, 2)
1120  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(1, 0, 2),
1121  "T2(k,j)*T3(i,j,l)(1,0,2)");
1122  test_for_zero((t2_3(k, j) * (t2_2(i, j) * t1_2(l)))(1, 1, 0)
1123  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(1, 1, 0),
1124  "T2(k,j)*T3(i,j,l)(1,1,0)");
1125  test_for_zero((t2_3(k, j) * (t2_2(i, j) * t1_2(l)))(1, 1, 1)
1126  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(1, 1, 1),
1127  "T2(k,j)*T3(i,j,l)(1,1,1)");
1128  test_for_zero((t2_3(k, j) * (t2_2(i, j) * t1_2(l)))(1, 1, 2)
1129  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(1, 1, 2),
1130  "T2(k,j)*T3(i,j,l)(1,1,2)");
1131  test_for_zero((t2_3(k, j) * (t2_2(i, j) * t1_2(l)))(1, 2, 0)
1132  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(1, 2, 0),
1133  "T2(k,j)*T3(i,j,l)(1,2,0)");
1134  test_for_zero((t2_3(k, j) * (t2_2(i, j) * t1_2(l)))(1, 2, 1)
1135  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(1, 2, 1),
1136  "T2(k,j)*T3(i,j,l)(1,2,1)");
1137  test_for_zero((t2_3(k, j) * (t2_2(i, j) * t1_2(l)))(1, 2, 2)
1138  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(1, 2, 2),
1139  "T2(k,j)*T3(i,j,l)(1,2,2)");
1140  test_for_zero((t2_3(k, j) * (t2_2(i, j) * t1_2(l)))(2, 0, 0)
1141  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(2, 0, 0),
1142  "T2(k,j)*T3(i,j,l)(2,0,0)");
1143  test_for_zero((t2_3(k, j) * (t2_2(i, j) * t1_2(l)))(2, 0, 1)
1144  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(2, 0, 1),
1145  "T2(k,j)*T3(i,j,l)(2,0,1)");
1146  test_for_zero((t2_3(k, j) * (t2_2(i, j) * t1_2(l)))(2, 0, 2)
1147  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(2, 0, 2),
1148  "T2(k,j)*T3(i,j,l)(2,0,2)");
1149  test_for_zero((t2_3(k, j) * (t2_2(i, j) * t1_2(l)))(2, 1, 0)
1150  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(2, 1, 0),
1151  "T2(k,j)*T3(i,j,l)(2,1,0)");
1152  test_for_zero((t2_3(k, j) * (t2_2(i, j) * t1_2(l)))(2, 1, 1)
1153  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(2, 1, 1),
1154  "T2(k,j)*T3(i,j,l)(2,1,1)");
1155  test_for_zero((t2_3(k, j) * (t2_2(i, j) * t1_2(l)))(2, 1, 2)
1156  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(2, 1, 2),
1157  "T2(k,j)*T3(i,j,l)(2,1,2)");
1158  test_for_zero((t2_3(k, j) * (t2_2(i, j) * t1_2(l)))(2, 2, 0)
1159  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(2, 2, 0),
1160  "T2(k,j)*T3(i,j,l)(2,2,0)");
1161  test_for_zero((t2_3(k, j) * (t2_2(i, j) * t1_2(l)))(2, 2, 1)
1162  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(2, 2, 1),
1163  "T2(k,j)*T3(i,j,l)(2,2,1)");
1164  test_for_zero((t2_3(k, j) * (t2_2(i, j) * t1_2(l)))(2, 2, 2)
1165  - ((t2_2(i, j) * t2_3(k, j)) * t1_2(l))(2, 2, 2),
1166  "T2(k,j)*T3(i,j,l)(2,2,2)");
1167 
1168  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(i, j))(0, 0, 0)
1169  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(0, 0, 0),
1170  "T3(i,k,l)*T2(i,j)(0,0,0)");
1171  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(i, j))(0, 0, 1)
1172  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(0, 0, 1),
1173  "T3(i,k,l)*T2(i,j)(0,0,1)");
1174  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(i, j))(0, 0, 2)
1175  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(0, 0, 2),
1176  "T3(i,k,l)*T2(i,j)(0,0,2)");
1177  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(i, j))(0, 1, 0)
1178  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(0, 1, 0),
1179  "T3(i,k,l)*T2(i,j)(0,1,0)");
1180  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(i, j))(0, 1, 1)
1181  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(0, 1, 1),
1182  "T3(i,k,l)*T2(i,j)(0,1,1)");
1183  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(i, j))(0, 1, 2)
1184  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(0, 1, 2),
1185  "T3(i,k,l)*T2(i,j)(0,1,2)");
1186  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(i, j))(0, 2, 0)
1187  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(0, 2, 0),
1188  "T3(i,k,l)*T2(i,j)(0,2,0)");
1189  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(i, j))(0, 2, 1)
1190  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(0, 2, 1),
1191  "T3(i,k,l)*T2(i,j)(0,2,1)");
1192  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(i, j))(0, 2, 2)
1193  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(0, 2, 2),
1194  "T3(i,k,l)*T2(i,j)(0,2,2)");
1195  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(i, j))(1, 0, 0)
1196  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(1, 0, 0),
1197  "T3(i,k,l)*T2(i,j)(1,0,0)");
1198  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(i, j))(1, 0, 1)
1199  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(1, 0, 1),
1200  "T3(i,k,l)*T2(i,j)(1,0,1)");
1201  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(i, j))(1, 0, 2)
1202  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(1, 0, 2),
1203  "T3(i,k,l)*T2(i,j)(1,0,2)");
1204  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(i, j))(1, 1, 0)
1205  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(1, 1, 0),
1206  "T3(i,k,l)*T2(i,j)(1,1,0)");
1207  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(i, j))(1, 1, 1)
1208  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(1, 1, 1),
1209  "T3(i,k,l)*T2(i,j)(1,1,1)");
1210  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(i, j))(1, 1, 2)
1211  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(1, 1, 2),
1212  "T3(i,k,l)*T2(i,j)(1,1,2)");
1213  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(i, j))(1, 2, 0)
1214  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(1, 2, 0),
1215  "T3(i,k,l)*T2(i,j)(1,2,0)");
1216  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(i, j))(1, 2, 1)
1217  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(1, 2, 1),
1218  "T3(i,k,l)*T2(i,j)(1,2,1)");
1219  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(i, j))(1, 2, 2)
1220  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(1, 2, 2),
1221  "T3(i,k,l)*T2(i,j)(1,2,2)");
1222  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(i, j))(2, 0, 0)
1223  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(2, 0, 0),
1224  "T3(i,k,l)*T2(i,j)(2,0,0)");
1225  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(i, j))(2, 0, 1)
1226  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(2, 0, 1),
1227  "T3(i,k,l)*T2(i,j)(2,0,1)");
1228  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(i, j))(2, 0, 2)
1229  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(2, 0, 2),
1230  "T3(i,k,l)*T2(i,j)(2,0,2)");
1231  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(i, j))(2, 1, 0)
1232  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(2, 1, 0),
1233  "T3(i,k,l)*T2(i,j)(2,1,0)");
1234  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(i, j))(2, 1, 1)
1235  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(2, 1, 1),
1236  "T3(i,k,l)*T2(i,j)(2,1,1)");
1237  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(i, j))(2, 1, 2)
1238  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(2, 1, 2),
1239  "T3(i,k,l)*T2(i,j)(2,1,2)");
1240  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(i, j))(2, 2, 0)
1241  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(2, 2, 0),
1242  "T3(i,k,l)*T2(i,j)(2,2,0)");
1243  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(i, j))(2, 2, 1)
1244  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(2, 2, 1),
1245  "T3(i,k,l)*T2(i,j)(2,2,1)");
1246  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(i, j))(2, 2, 2)
1247  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(2, 2, 2),
1248  "T3(i,k,l)*T2(i,j)(2,2,2)");
1249 
1250  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(j, i))(0, 0, 0)
1251  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(0, 0, 0),
1252  "T3(i,k,l)*T2(j,i)(0,0,0)");
1253  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(j, i))(0, 0, 1)
1254  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(0, 0, 1),
1255  "T3(i,k,l)*T2(j,i)(0,0,1)");
1256  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(j, i))(0, 0, 2)
1257  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(0, 0, 2),
1258  "T3(i,k,l)*T2(j,i)(0,0,2)");
1259  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(j, i))(0, 1, 0)
1260  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(0, 1, 0),
1261  "T3(i,k,l)*T2(j,i)(0,1,0)");
1262  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(j, i))(0, 1, 1)
1263  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(0, 1, 1),
1264  "T3(i,k,l)*T2(j,i)(0,1,1)");
1265  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(j, i))(0, 1, 2)
1266  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(0, 1, 2),
1267  "T3(i,k,l)*T2(j,i)(0,1,2)");
1268  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(j, i))(0, 2, 0)
1269  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(0, 2, 0),
1270  "T3(i,k,l)*T2(j,i)(0,2,0)");
1271  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(j, i))(0, 2, 1)
1272  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(0, 2, 1),
1273  "T3(i,k,l)*T2(j,i)(0,2,1)");
1274  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(j, i))(0, 2, 2)
1275  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(0, 2, 2),
1276  "T3(i,k,l)*T2(j,i)(0,2,2)");
1277  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(j, i))(1, 0, 0)
1278  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(1, 0, 0),
1279  "T3(i,k,l)*T2(j,i)(1,0,0)");
1280  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(j, i))(1, 0, 1)
1281  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(1, 0, 1),
1282  "T3(i,k,l)*T2(j,i)(1,0,1)");
1283  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(j, i))(1, 0, 2)
1284  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(1, 0, 2),
1285  "T3(i,k,l)*T2(j,i)(1,0,2)");
1286  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(j, i))(1, 1, 0)
1287  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(1, 1, 0),
1288  "T3(i,k,l)*T2(j,i)(1,1,0)");
1289  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(j, i))(1, 1, 1)
1290  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(1, 1, 1),
1291  "T3(i,k,l)*T2(j,i)(1,1,1)");
1292  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(j, i))(1, 1, 2)
1293  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(1, 1, 2),
1294  "T3(i,k,l)*T2(j,i)(1,1,2)");
1295  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(j, i))(1, 2, 0)
1296  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(1, 2, 0),
1297  "T3(i,k,l)*T2(j,i)(1,2,0)");
1298  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(j, i))(1, 2, 1)
1299  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(1, 2, 1),
1300  "T3(i,k,l)*T2(j,i)(1,2,1)");
1301  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(j, i))(1, 2, 2)
1302  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(1, 2, 2),
1303  "T3(i,k,l)*T2(j,i)(1,2,2)");
1304  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(j, i))(2, 0, 0)
1305  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(2, 0, 0),
1306  "T3(i,k,l)*T2(j,i)(2,0,0)");
1307  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(j, i))(2, 0, 1)
1308  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(2, 0, 1),
1309  "T3(i,k,l)*T2(j,i)(2,0,1)");
1310  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(j, i))(2, 0, 2)
1311  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(2, 0, 2),
1312  "T3(i,k,l)*T2(j,i)(2,0,2)");
1313  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(j, i))(2, 1, 0)
1314  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(2, 1, 0),
1315  "T3(i,k,l)*T2(j,i)(2,1,0)");
1316  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(j, i))(2, 1, 1)
1317  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(2, 1, 1),
1318  "T3(i,k,l)*T2(j,i)(2,1,1)");
1319  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(j, i))(2, 1, 2)
1320  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(2, 1, 2),
1321  "T3(i,k,l)*T2(j,i)(2,1,2)");
1322  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(j, i))(2, 2, 0)
1323  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(2, 2, 0),
1324  "T3(i,k,l)*T2(j,i)(2,2,0)");
1325  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(j, i))(2, 2, 1)
1326  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(2, 2, 1),
1327  "T3(i,k,l)*T2(j,i)(2,2,1)");
1328  test_for_zero(((t2_2(i, k) * t1_2(l)) * t2_3(j, i))(2, 2, 2)
1329  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(2, 2, 2),
1330  "T3(i,k,l)*T2(j,i)(2,2,2)");
1331 
1332  test_for_zero((t2_3(i, j) * (t2_2(i, k) * t1_2(l)))(0, 0, 0)
1333  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(0, 0, 0),
1334  "T2(i,j)*T3(i,k,l)(0,0,0)");
1335  test_for_zero((t2_3(i, j) * (t2_2(i, k) * t1_2(l)))(0, 0, 1)
1336  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(0, 0, 1),
1337  "T2(i,j)*T3(i,k,l)(0,0,1)");
1338  test_for_zero((t2_3(i, j) * (t2_2(i, k) * t1_2(l)))(0, 0, 2)
1339  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(0, 0, 2),
1340  "T2(i,j)*T3(i,k,l)(0,0,2)");
1341  test_for_zero((t2_3(i, j) * (t2_2(i, k) * t1_2(l)))(0, 1, 0)
1342  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(0, 1, 0),
1343  "T2(i,j)*T3(i,k,l)(0,1,0)");
1344  test_for_zero((t2_3(i, j) * (t2_2(i, k) * t1_2(l)))(0, 1, 1)
1345  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(0, 1, 1),
1346  "T2(i,j)*T3(i,k,l)(0,1,1)");
1347  test_for_zero((t2_3(i, j) * (t2_2(i, k) * t1_2(l)))(0, 1, 2)
1348  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(0, 1, 2),
1349  "T2(i,j)*T3(i,k,l)(0,1,2)");
1350  test_for_zero((t2_3(i, j) * (t2_2(i, k) * t1_2(l)))(0, 2, 0)
1351  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(0, 2, 0),
1352  "T2(i,j)*T3(i,k,l)(0,2,0)");
1353  test_for_zero((t2_3(i, j) * (t2_2(i, k) * t1_2(l)))(0, 2, 1)
1354  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(0, 2, 1),
1355  "T2(i,j)*T3(i,k,l)(0,2,1)");
1356  test_for_zero((t2_3(i, j) * (t2_2(i, k) * t1_2(l)))(0, 2, 2)
1357  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(0, 2, 2),
1358  "T2(i,j)*T3(i,k,l)(0,2,2)");
1359  test_for_zero((t2_3(i, j) * (t2_2(i, k) * t1_2(l)))(1, 0, 0)
1360  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(1, 0, 0),
1361  "T2(i,j)*T3(i,k,l)(1,0,0)");
1362  test_for_zero((t2_3(i, j) * (t2_2(i, k) * t1_2(l)))(1, 0, 1)
1363  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(1, 0, 1),
1364  "T2(i,j)*T3(i,k,l)(1,0,1)");
1365  test_for_zero((t2_3(i, j) * (t2_2(i, k) * t1_2(l)))(1, 0, 2)
1366  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(1, 0, 2),
1367  "T2(i,j)*T3(i,k,l)(1,0,2)");
1368  test_for_zero((t2_3(i, j) * (t2_2(i, k) * t1_2(l)))(1, 1, 0)
1369  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(1, 1, 0),
1370  "T2(i,j)*T3(i,k,l)(1,1,0)");
1371  test_for_zero((t2_3(i, j) * (t2_2(i, k) * t1_2(l)))(1, 1, 1)
1372  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(1, 1, 1),
1373  "T2(i,j)*T3(i,k,l)(1,1,1)");
1374  test_for_zero((t2_3(i, j) * (t2_2(i, k) * t1_2(l)))(1, 1, 2)
1375  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(1, 1, 2),
1376  "T2(i,j)*T3(i,k,l)(1,1,2)");
1377  test_for_zero((t2_3(i, j) * (t2_2(i, k) * t1_2(l)))(1, 2, 0)
1378  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(1, 2, 0),
1379  "T2(i,j)*T3(i,k,l)(1,2,0)");
1380  test_for_zero((t2_3(i, j) * (t2_2(i, k) * t1_2(l)))(1, 2, 1)
1381  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(1, 2, 1),
1382  "T2(i,j)*T3(i,k,l)(1,2,1)");
1383  test_for_zero((t2_3(i, j) * (t2_2(i, k) * t1_2(l)))(1, 2, 2)
1384  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(1, 2, 2),
1385  "T2(i,j)*T3(i,k,l)(1,2,2)");
1386  test_for_zero((t2_3(i, j) * (t2_2(i, k) * t1_2(l)))(2, 0, 0)
1387  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(2, 0, 0),
1388  "T2(i,j)*T3(i,k,l)(2,0,0)");
1389  test_for_zero((t2_3(i, j) * (t2_2(i, k) * t1_2(l)))(2, 0, 1)
1390  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(2, 0, 1),
1391  "T2(i,j)*T3(i,k,l)(2,0,1)");
1392  test_for_zero((t2_3(i, j) * (t2_2(i, k) * t1_2(l)))(2, 0, 2)
1393  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(2, 0, 2),
1394  "T2(i,j)*T3(i,k,l)(2,0,2)");
1395  test_for_zero((t2_3(i, j) * (t2_2(i, k) * t1_2(l)))(2, 1, 0)
1396  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(2, 1, 0),
1397  "T2(i,j)*T3(i,k,l)(2,1,0)");
1398  test_for_zero((t2_3(i, j) * (t2_2(i, k) * t1_2(l)))(2, 1, 1)
1399  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(2, 1, 1),
1400  "T2(i,j)*T3(i,k,l)(2,1,1)");
1401  test_for_zero((t2_3(i, j) * (t2_2(i, k) * t1_2(l)))(2, 1, 2)
1402  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(2, 1, 2),
1403  "T2(i,j)*T3(i,k,l)(2,1,2)");
1404  test_for_zero((t2_3(i, j) * (t2_2(i, k) * t1_2(l)))(2, 2, 0)
1405  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(2, 2, 0),
1406  "T2(i,j)*T3(i,k,l)(2,2,0)");
1407  test_for_zero((t2_3(i, j) * (t2_2(i, k) * t1_2(l)))(2, 2, 1)
1408  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(2, 2, 1),
1409  "T2(i,j)*T3(i,k,l)(2,2,1)");
1410  test_for_zero((t2_3(i, j) * (t2_2(i, k) * t1_2(l)))(2, 2, 2)
1411  - ((t2_3(i, j) * t2_2(i, k)) * t1_2(l))(2, 2, 2),
1412  "T2(i,j)*T3(i,k,l)(2,2,2)");
1413 
1414  test_for_zero((t2_3(j, i) * (t2_2(i, k) * t1_2(l)))(0, 0, 0)
1415  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(0, 0, 0),
1416  "T2(j,i)*T3(i,k,l)(0,0,0)");
1417  test_for_zero((t2_3(j, i) * (t2_2(i, k) * t1_2(l)))(0, 0, 1)
1418  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(0, 0, 1),
1419  "T2(j,i)*T3(i,k,l)(0,0,1)");
1420  test_for_zero((t2_3(j, i) * (t2_2(i, k) * t1_2(l)))(0, 0, 2)
1421  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(0, 0, 2),
1422  "T2(j,i)*T3(i,k,l)(0,0,2)");
1423  test_for_zero((t2_3(j, i) * (t2_2(i, k) * t1_2(l)))(0, 1, 0)
1424  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(0, 1, 0),
1425  "T2(j,i)*T3(i,k,l)(0,1,0)");
1426  test_for_zero((t2_3(j, i) * (t2_2(i, k) * t1_2(l)))(0, 1, 1)
1427  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(0, 1, 1),
1428  "T2(j,i)*T3(i,k,l)(0,1,1)");
1429  test_for_zero((t2_3(j, i) * (t2_2(i, k) * t1_2(l)))(0, 1, 2)
1430  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(0, 1, 2),
1431  "T2(j,i)*T3(i,k,l)(0,1,2)");
1432  test_for_zero((t2_3(j, i) * (t2_2(i, k) * t1_2(l)))(0, 2, 0)
1433  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(0, 2, 0),
1434  "T2(j,i)*T3(i,k,l)(0,2,0)");
1435  test_for_zero((t2_3(j, i) * (t2_2(i, k) * t1_2(l)))(0, 2, 1)
1436  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(0, 2, 1),
1437  "T2(j,i)*T3(i,k,l)(0,2,1)");
1438  test_for_zero((t2_3(j, i) * (t2_2(i, k) * t1_2(l)))(0, 2, 2)
1439  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(0, 2, 2),
1440  "T2(j,i)*T3(i,k,l)(0,2,2)");
1441  test_for_zero((t2_3(j, i) * (t2_2(i, k) * t1_2(l)))(1, 0, 0)
1442  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(1, 0, 0),
1443  "T2(j,i)*T3(i,k,l)(1,0,0)");
1444  test_for_zero((t2_3(j, i) * (t2_2(i, k) * t1_2(l)))(1, 0, 1)
1445  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(1, 0, 1),
1446  "T2(j,i)*T3(i,k,l)(1,0,1)");
1447  test_for_zero((t2_3(j, i) * (t2_2(i, k) * t1_2(l)))(1, 0, 2)
1448  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(1, 0, 2),
1449  "T2(j,i)*T3(i,k,l)(1,0,2)");
1450  test_for_zero((t2_3(j, i) * (t2_2(i, k) * t1_2(l)))(1, 1, 0)
1451  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(1, 1, 0),
1452  "T2(j,i)*T3(i,k,l)(1,1,0)");
1453  test_for_zero((t2_3(j, i) * (t2_2(i, k) * t1_2(l)))(1, 1, 1)
1454  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(1, 1, 1),
1455  "T2(j,i)*T3(i,k,l)(1,1,1)");
1456  test_for_zero((t2_3(j, i) * (t2_2(i, k) * t1_2(l)))(1, 1, 2)
1457  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(1, 1, 2),
1458  "T2(j,i)*T3(i,k,l)(1,1,2)");
1459  test_for_zero((t2_3(j, i) * (t2_2(i, k) * t1_2(l)))(1, 2, 0)
1460  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(1, 2, 0),
1461  "T2(j,i)*T3(i,k,l)(1,2,0)");
1462  test_for_zero((t2_3(j, i) * (t2_2(i, k) * t1_2(l)))(1, 2, 1)
1463  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(1, 2, 1),
1464  "T2(j,i)*T3(i,k,l)(1,2,1)");
1465  test_for_zero((t2_3(j, i) * (t2_2(i, k) * t1_2(l)))(1, 2, 2)
1466  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(1, 2, 2),
1467  "T2(j,i)*T3(i,k,l)(1,2,2)");
1468  test_for_zero((t2_3(j, i) * (t2_2(i, k) * t1_2(l)))(2, 0, 0)
1469  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(2, 0, 0),
1470  "T2(j,i)*T3(i,k,l)(2,0,0)");
1471  test_for_zero((t2_3(j, i) * (t2_2(i, k) * t1_2(l)))(2, 0, 1)
1472  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(2, 0, 1),
1473  "T2(j,i)*T3(i,k,l)(2,0,1)");
1474  test_for_zero((t2_3(j, i) * (t2_2(i, k) * t1_2(l)))(2, 0, 2)
1475  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(2, 0, 2),
1476  "T2(j,i)*T3(i,k,l)(2,0,2)");
1477  test_for_zero((t2_3(j, i) * (t2_2(i, k) * t1_2(l)))(2, 1, 0)
1478  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(2, 1, 0),
1479  "T2(j,i)*T3(i,k,l)(2,1,0)");
1480  test_for_zero((t2_3(j, i) * (t2_2(i, k) * t1_2(l)))(2, 1, 1)
1481  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(2, 1, 1),
1482  "T2(j,i)*T3(i,k,l)(2,1,1)");
1483  test_for_zero((t2_3(j, i) * (t2_2(i, k) * t1_2(l)))(2, 1, 2)
1484  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(2, 1, 2),
1485  "T2(j,i)*T3(i,k,l)(2,1,2)");
1486  test_for_zero((t2_3(j, i) * (t2_2(i, k) * t1_2(l)))(2, 2, 0)
1487  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(2, 2, 0),
1488  "T2(j,i)*T3(i,k,l)(2,2,0)");
1489  test_for_zero((t2_3(j, i) * (t2_2(i, k) * t1_2(l)))(2, 2, 1)
1490  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(2, 2, 1),
1491  "T2(j,i)*T3(i,k,l)(2,2,1)");
1492  test_for_zero((t2_3(j, i) * (t2_2(i, k) * t1_2(l)))(2, 2, 2)
1493  - ((t2_3(j, i) * t2_2(i, k)) * t1_2(l))(2, 2, 2),
1494  "T2(j,i)*T3(i,k,l)(2,2,2)");
1495 
1496  test_for_zero((t2_2(i, j) * t1_2(k)) * (t2_3(i, j) * t1_1(k))
1497  - (t2_2(0, 0) * t1_2(0) * t2_3(0, 0) * t1_1(0)
1498  + t2_2(1, 0) * t1_2(0) * t2_3(1, 0) * t1_1(0)
1499  + t2_2(2, 0) * t1_2(0) * t2_3(2, 0) * t1_1(0)
1500  + t2_2(0, 1) * t1_2(0) * t2_3(0, 1) * t1_1(0)
1501  + t2_2(1, 1) * t1_2(0) * t2_3(1, 1) * t1_1(0)
1502  + t2_2(2, 1) * t1_2(0) * t2_3(2, 1) * t1_1(0)
1503  + t2_2(0, 2) * t1_2(0) * t2_3(0, 2) * t1_1(0)
1504  + t2_2(1, 2) * t1_2(0) * t2_3(1, 2) * t1_1(0)
1505  + t2_2(2, 2) * t1_2(0) * t2_3(2, 2) * t1_1(0)
1506  + t2_2(0, 0) * t1_2(1) * t2_3(0, 0) * t1_1(1)
1507  + t2_2(1, 0) * t1_2(1) * t2_3(1, 0) * t1_1(1)
1508  + t2_2(2, 0) * t1_2(1) * t2_3(2, 0) * t1_1(1)
1509  + t2_2(0, 1) * t1_2(1) * t2_3(0, 1) * t1_1(1)
1510  + t2_2(1, 1) * t1_2(1) * t2_3(1, 1) * t1_1(1)
1511  + t2_2(2, 1) * t1_2(1) * t2_3(2, 1) * t1_1(1)
1512  + t2_2(0, 2) * t1_2(1) * t2_3(0, 2) * t1_1(1)
1513  + t2_2(1, 2) * t1_2(1) * t2_3(1, 2) * t1_1(1)
1514  + t2_2(2, 2) * t1_2(1) * t2_3(2, 2) * t1_1(1)
1515  + t2_2(0, 0) * t1_2(2) * t2_3(0, 0) * t1_1(2)
1516  + t2_2(1, 0) * t1_2(2) * t2_3(1, 0) * t1_1(2)
1517  + t2_2(2, 0) * t1_2(2) * t2_3(2, 0) * t1_1(2)
1518  + t2_2(0, 1) * t1_2(2) * t2_3(0, 1) * t1_1(2)
1519  + t2_2(1, 1) * t1_2(2) * t2_3(1, 1) * t1_1(2)
1520  + t2_2(2, 1) * t1_2(2) * t2_3(2, 1) * t1_1(2)
1521  + t2_2(0, 2) * t1_2(2) * t2_3(0, 2) * t1_1(2)
1522  + t2_2(1, 2) * t1_2(2) * t2_3(1, 2) * t1_1(2)
1523  + t2_2(2, 2) * t1_2(2) * t2_3(2, 2) * t1_1(2)),
1524  "T3(i,j,k)*T3(i,j,k)");
1525 
1526  test_for_zero((t2_2(i, j) * t1_2(k)) * (t2_3(j, i) * t1_1(k))
1527  - (t2_2(0, 0) * t1_2(0) * t2_3(0, 0) * t1_1(0)
1528  + t2_2(1, 0) * t1_2(0) * t2_3(0, 1) * t1_1(0)
1529  + t2_2(2, 0) * t1_2(0) * t2_3(0, 2) * t1_1(0)
1530  + t2_2(0, 1) * t1_2(0) * t2_3(1, 0) * t1_1(0)
1531  + t2_2(1, 1) * t1_2(0) * t2_3(1, 1) * t1_1(0)
1532  + t2_2(2, 1) * t1_2(0) * t2_3(1, 2) * t1_1(0)
1533  + t2_2(0, 2) * t1_2(0) * t2_3(2, 0) * t1_1(0)
1534  + t2_2(1, 2) * t1_2(0) * t2_3(2, 1) * t1_1(0)
1535  + t2_2(2, 2) * t1_2(0) * t2_3(2, 2) * t1_1(0)
1536  + t2_2(0, 0) * t1_2(1) * t2_3(0, 0) * t1_1(1)
1537  + t2_2(1, 0) * t1_2(1) * t2_3(0, 1) * t1_1(1)
1538  + t2_2(2, 0) * t1_2(1) * t2_3(0, 2) * t1_1(1)
1539  + t2_2(0, 1) * t1_2(1) * t2_3(1, 0) * t1_1(1)
1540  + t2_2(1, 1) * t1_2(1) * t2_3(1, 1) * t1_1(1)
1541  + t2_2(2, 1) * t1_2(1) * t2_3(1, 2) * t1_1(1)
1542  + t2_2(0, 2) * t1_2(1) * t2_3(2, 0) * t1_1(1)
1543  + t2_2(1, 2) * t1_2(1) * t2_3(2, 1) * t1_1(1)
1544  + t2_2(2, 2) * t1_2(1) * t2_3(2, 2) * t1_1(1)
1545  + t2_2(0, 0) * t1_2(2) * t2_3(0, 0) * t1_1(2)
1546  + t2_2(1, 0) * t1_2(2) * t2_3(0, 1) * t1_1(2)
1547  + t2_2(2, 0) * t1_2(2) * t2_3(0, 2) * t1_1(2)
1548  + t2_2(0, 1) * t1_2(2) * t2_3(1, 0) * t1_1(2)
1549  + t2_2(1, 1) * t1_2(2) * t2_3(1, 1) * t1_1(2)
1550  + t2_2(2, 1) * t1_2(2) * t2_3(1, 2) * t1_1(2)
1551  + t2_2(0, 2) * t1_2(2) * t2_3(2, 0) * t1_1(2)
1552  + t2_2(1, 2) * t1_2(2) * t2_3(2, 1) * t1_1(2)
1553  + t2_2(2, 2) * t1_2(2) * t2_3(2, 2) * t1_1(2)),
1554  "T3(i,j,k)*T3(j,i,k)");
1555 
1556  test_for_zero((t2_2(i, j) * t1_2(k)) * (t2_3(i, k) * t1_1(j))
1557  - (t2_2(0, 0) * t1_2(0) * t2_3(0, 0) * t1_1(0)
1558  + t2_2(1, 0) * t1_2(0) * t2_3(1, 0) * t1_1(0)
1559  + t2_2(2, 0) * t1_2(0) * t2_3(2, 0) * t1_1(0)
1560  + t2_2(0, 1) * t1_2(0) * t2_3(0, 0) * t1_1(1)
1561  + t2_2(1, 1) * t1_2(0) * t2_3(1, 0) * t1_1(1)
1562  + t2_2(2, 1) * t1_2(0) * t2_3(2, 0) * t1_1(1)
1563  + t2_2(0, 2) * t1_2(0) * t2_3(0, 0) * t1_1(2)
1564  + t2_2(1, 2) * t1_2(0) * t2_3(1, 0) * t1_1(2)
1565  + t2_2(2, 2) * t1_2(0) * t2_3(2, 0) * t1_1(2)
1566  + t2_2(0, 0) * t1_2(1) * t2_3(0, 1) * t1_1(0)
1567  + t2_2(1, 0) * t1_2(1) * t2_3(1, 1) * t1_1(0)
1568  + t2_2(2, 0) * t1_2(1) * t2_3(2, 1) * t1_1(0)
1569  + t2_2(0, 1) * t1_2(1) * t2_3(0, 1) * t1_1(1)
1570  + t2_2(1, 1) * t1_2(1) * t2_3(1, 1) * t1_1(1)
1571  + t2_2(2, 1) * t1_2(1) * t2_3(2, 1) * t1_1(1)
1572  + t2_2(0, 2) * t1_2(1) * t2_3(0, 1) * t1_1(2)
1573  + t2_2(1, 2) * t1_2(1) * t2_3(1, 1) * t1_1(2)
1574  + t2_2(2, 2) * t1_2(1) * t2_3(2, 1) * t1_1(2)
1575  + t2_2(0, 0) * t1_2(2) * t2_3(0, 2) * t1_1(0)
1576  + t2_2(1, 0) * t1_2(2) * t2_3(1, 2) * t1_1(0)
1577  + t2_2(2, 0) * t1_2(2) * t2_3(2, 2) * t1_1(0)
1578  + t2_2(0, 1) * t1_2(2) * t2_3(0, 2) * t1_1(1)
1579  + t2_2(1, 1) * t1_2(2) * t2_3(1, 2) * t1_1(1)
1580  + t2_2(2, 1) * t1_2(2) * t2_3(2, 2) * t1_1(1)
1581  + t2_2(0, 2) * t1_2(2) * t2_3(0, 2) * t1_1(2)
1582  + t2_2(1, 2) * t1_2(2) * t2_3(1, 2) * t1_1(2)
1583  + t2_2(2, 2) * t1_2(2) * t2_3(2, 2) * t1_1(2)),
1584  "T3(i,j,k)*T3(i,k,j)");
1585 
1586  test_for_zero((t2_2(i, j) * t1_2(k)) * (t2_3(j, k) * t1_1(i))
1587  - (t2_2(0, 0) * t1_2(0) * t2_3(0, 0) * t1_1(0)
1588  + t2_2(1, 0) * t1_2(0) * t2_3(0, 0) * t1_1(1)
1589  + t2_2(2, 0) * t1_2(0) * t2_3(0, 0) * t1_1(2)
1590  + t2_2(0, 1) * t1_2(0) * t2_3(1, 0) * t1_1(0)
1591  + t2_2(1, 1) * t1_2(0) * t2_3(1, 0) * t1_1(1)
1592  + t2_2(2, 1) * t1_2(0) * t2_3(1, 0) * t1_1(2)
1593  + t2_2(0, 2) * t1_2(0) * t2_3(2, 0) * t1_1(0)
1594  + t2_2(1, 2) * t1_2(0) * t2_3(2, 0) * t1_1(1)
1595  + t2_2(2, 2) * t1_2(0) * t2_3(2, 0) * t1_1(2)
1596  + t2_2(0, 0) * t1_2(1) * t2_3(0, 1) * t1_1(0)
1597  + t2_2(1, 0) * t1_2(1) * t2_3(0, 1) * t1_1(1)
1598  + t2_2(2, 0) * t1_2(1) * t2_3(0, 1) * t1_1(2)
1599  + t2_2(0, 1) * t1_2(1) * t2_3(1, 1) * t1_1(0)
1600  + t2_2(1, 1) * t1_2(1) * t2_3(1, 1) * t1_1(1)
1601  + t2_2(2, 1) * t1_2(1) * t2_3(1, 1) * t1_1(2)
1602  + t2_2(0, 2) * t1_2(1) * t2_3(2, 1) * t1_1(0)
1603  + t2_2(1, 2) * t1_2(1) * t2_3(2, 1) * t1_1(1)
1604  + t2_2(2, 2) * t1_2(1) * t2_3(2, 1) * t1_1(2)
1605  + t2_2(0, 0) * t1_2(2) * t2_3(0, 2) * t1_1(0)
1606  + t2_2(1, 0) * t1_2(2) * t2_3(0, 2) * t1_1(1)
1607  + t2_2(2, 0) * t1_2(2) * t2_3(0, 2) * t1_1(2)
1608  + t2_2(0, 1) * t1_2(2) * t2_3(1, 2) * t1_1(0)
1609  + t2_2(1, 1) * t1_2(2) * t2_3(1, 2) * t1_1(1)
1610  + t2_2(2, 1) * t1_2(2) * t2_3(1, 2) * t1_1(2)
1611  + t2_2(0, 2) * t1_2(2) * t2_3(2, 2) * t1_1(0)
1612  + t2_2(1, 2) * t1_2(2) * t2_3(2, 2) * t1_1(1)
1613  + t2_2(2, 2) * t1_2(2) * t2_3(2, 2) * t1_1(2)),
1614  "T3(i,j,k)*T3(j,k,i)");
1615 
1616  test_for_zero((t2_2(i, j) * t1_2(k)) * (t2_3(k, j) * t1_1(i))
1617  - (t2_2(0, 0) * t1_2(0) * t2_3(0, 0) * t1_1(0)
1618  + t2_2(1, 0) * t1_2(0) * t2_3(0, 0) * t1_1(1)
1619  + t2_2(2, 0) * t1_2(0) * t2_3(0, 0) * t1_1(2)
1620  + t2_2(0, 1) * t1_2(0) * t2_3(0, 1) * t1_1(0)
1621  + t2_2(1, 1) * t1_2(0) * t2_3(0, 1) * t1_1(1)
1622  + t2_2(2, 1) * t1_2(0) * t2_3(0, 1) * t1_1(2)
1623  + t2_2(0, 2) * t1_2(0) * t2_3(0, 2) * t1_1(0)
1624  + t2_2(1, 2) * t1_2(0) * t2_3(0, 2) * t1_1(1)
1625  + t2_2(2, 2) * t1_2(0) * t2_3(0, 2) * t1_1(2)
1626  + t2_2(0, 0) * t1_2(1) * t2_3(1, 0) * t1_1(0)
1627  + t2_2(1, 0) * t1_2(1) * t2_3(1, 0) * t1_1(1)
1628  + t2_2(2, 0) * t1_2(1) * t2_3(1, 0) * t1_1(2)
1629  + t2_2(0, 1) * t1_2(1) * t2_3(1, 1) * t1_1(0)
1630  + t2_2(1, 1) * t1_2(1) * t2_3(1, 1) * t1_1(1)
1631  + t2_2(2, 1) * t1_2(1) * t2_3(1, 1) * t1_1(2)
1632  + t2_2(0, 2) * t1_2(1) * t2_3(1, 2) * t1_1(0)
1633  + t2_2(1, 2) * t1_2(1) * t2_3(1, 2) * t1_1(1)
1634  + t2_2(2, 2) * t1_2(1) * t2_3(1, 2) * t1_1(2)
1635  + t2_2(0, 0) * t1_2(2) * t2_3(2, 0) * t1_1(0)
1636  + t2_2(1, 0) * t1_2(2) * t2_3(2, 0) * t1_1(1)
1637  + t2_2(2, 0) * t1_2(2) * t2_3(2, 0) * t1_1(2)
1638  + t2_2(0, 1) * t1_2(2) * t2_3(2, 1) * t1_1(0)
1639  + t2_2(1, 1) * t1_2(2) * t2_3(2, 1) * t1_1(1)
1640  + t2_2(2, 1) * t1_2(2) * t2_3(2, 1) * t1_1(2)
1641  + t2_2(0, 2) * t1_2(2) * t2_3(2, 2) * t1_1(0)
1642  + t2_2(1, 2) * t1_2(2) * t2_3(2, 2) * t1_1(1)
1643  + t2_2(2, 2) * t1_2(2) * t2_3(2, 2) * t1_1(2)),
1644  "T3(i,j,k)*T3(k,j,i)");
1645 
1646  test_for_zero((t2_2(i, j) * t1_2(k)) * (t2_3(k, i) * t1_1(j))
1647  - (t2_2(0, 0) * t1_2(0) * t2_3(0, 0) * t1_1(0)
1648  + t2_2(1, 0) * t1_2(0) * t2_3(0, 1) * t1_1(0)
1649  + t2_2(2, 0) * t1_2(0) * t2_3(0, 2) * t1_1(0)
1650  + t2_2(0, 1) * t1_2(0) * t2_3(0, 0) * t1_1(1)
1651  + t2_2(1, 1) * t1_2(0) * t2_3(0, 1) * t1_1(1)
1652  + t2_2(2, 1) * t1_2(0) * t2_3(0, 2) * t1_1(1)
1653  + t2_2(0, 2) * t1_2(0) * t2_3(0, 0) * t1_1(2)
1654  + t2_2(1, 2) * t1_2(0) * t2_3(0, 1) * t1_1(2)
1655  + t2_2(2, 2) * t1_2(0) * t2_3(0, 2) * t1_1(2)
1656  + t2_2(0, 0) * t1_2(1) * t2_3(1, 0) * t1_1(0)
1657  + t2_2(1, 0) * t1_2(1) * t2_3(1, 1) * t1_1(0)
1658  + t2_2(2, 0) * t1_2(1) * t2_3(1, 2) * t1_1(0)
1659  + t2_2(0, 1) * t1_2(1) * t2_3(1, 0) * t1_1(1)
1660  + t2_2(1, 1) * t1_2(1) * t2_3(1, 1) * t1_1(1)
1661  + t2_2(2, 1) * t1_2(1) * t2_3(1, 2) * t1_1(1)
1662  + t2_2(0, 2) * t1_2(1) * t2_3(1, 0) * t1_1(2)
1663  + t2_2(1, 2) * t1_2(1) * t2_3(1, 1) * t1_1(2)
1664  + t2_2(2, 2) * t1_2(1) * t2_3(1, 2) * t1_1(2)
1665  + t2_2(0, 0) * t1_2(2) * t2_3(2, 0) * t1_1(0)
1666  + t2_2(1, 0) * t1_2(2) * t2_3(2, 1) * t1_1(0)
1667  + t2_2(2, 0) * t1_2(2) * t2_3(2, 2) * t1_1(0)
1668  + t2_2(0, 1) * t1_2(2) * t2_3(2, 0) * t1_1(1)
1669  + t2_2(1, 1) * t1_2(2) * t2_3(2, 1) * t1_1(1)
1670  + t2_2(2, 1) * t1_2(2) * t2_3(2, 2) * t1_1(1)
1671  + t2_2(0, 2) * t1_2(2) * t2_3(2, 0) * t1_1(2)
1672  + t2_2(1, 2) * t1_2(2) * t2_3(2, 1) * t1_1(2)
1673  + t2_2(2, 2) * t1_2(2) * t2_3(2, 2) * t1_1(2)),
1674  "T3(i,j,k)*T3(k,i,j)");
1675 
1676  test_for_zero((t2_2(i, j) * t1_2(k)) * (t3dg_2(i, j, k))
1677  - (t2_2(0, 0) * t1_2(0) * t3dg_2(0, 0, 0)
1678  + t2_2(1, 0) * t1_2(0) * t3dg_2(1, 0, 0)
1679  + t2_2(2, 0) * t1_2(0) * t3dg_2(2, 0, 0)
1680  + t2_2(0, 1) * t1_2(0) * t3dg_2(0, 1, 0)
1681  + t2_2(1, 1) * t1_2(0) * t3dg_2(1, 1, 0)
1682  + t2_2(2, 1) * t1_2(0) * t3dg_2(2, 1, 0)
1683  + t2_2(0, 2) * t1_2(0) * t3dg_2(0, 2, 0)
1684  + t2_2(1, 2) * t1_2(0) * t3dg_2(1, 2, 0)
1685  + t2_2(2, 2) * t1_2(0) * t3dg_2(2, 2, 0)
1686  + t2_2(0, 0) * t1_2(1) * t3dg_2(0, 0, 1)
1687  + t2_2(1, 0) * t1_2(1) * t3dg_2(1, 0, 1)
1688  + t2_2(2, 0) * t1_2(1) * t3dg_2(2, 0, 1)
1689  + t2_2(0, 1) * t1_2(1) * t3dg_2(0, 1, 1)
1690  + t2_2(1, 1) * t1_2(1) * t3dg_2(1, 1, 1)
1691  + t2_2(2, 1) * t1_2(1) * t3dg_2(2, 1, 1)
1692  + t2_2(0, 2) * t1_2(1) * t3dg_2(0, 2, 1)
1693  + t2_2(1, 2) * t1_2(1) * t3dg_2(1, 2, 1)
1694  + t2_2(2, 2) * t1_2(1) * t3dg_2(2, 2, 1)
1695  + t2_2(0, 0) * t1_2(2) * t3dg_2(0, 0, 2)
1696  + t2_2(1, 0) * t1_2(2) * t3dg_2(1, 0, 2)
1697  + t2_2(2, 0) * t1_2(2) * t3dg_2(2, 0, 2)
1698  + t2_2(0, 1) * t1_2(2) * t3dg_2(0, 1, 2)
1699  + t2_2(1, 1) * t1_2(2) * t3dg_2(1, 1, 2)
1700  + t2_2(2, 1) * t1_2(2) * t3dg_2(2, 1, 2)
1701  + t2_2(0, 2) * t1_2(2) * t3dg_2(0, 2, 2)
1702  + t2_2(1, 2) * t1_2(2) * t3dg_2(1, 2, 2)
1703  + t2_2(2, 2) * t1_2(2) * t3dg_2(2, 2, 2)),
1704  "T3(i,j,k)*T3dg(i,j,k)");
1705 
1706  test_for_zero((t2_2(i, j) * t1_2(k)) * (t3dg_2(j, i, k))
1707  - (t2_2(0, 0) * t1_2(0) * t3dg_2(0, 0, 0)
1708  + t2_2(1, 0) * t1_2(0) * t3dg_2(0, 1, 0)
1709  + t2_2(2, 0) * t1_2(0) * t3dg_2(0, 2, 0)
1710  + t2_2(0, 1) * t1_2(0) * t3dg_2(1, 0, 0)
1711  + t2_2(1, 1) * t1_2(0) * t3dg_2(1, 1, 0)
1712  + t2_2(2, 1) * t1_2(0) * t3dg_2(1, 2, 0)
1713  + t2_2(0, 2) * t1_2(0) * t3dg_2(2, 0, 0)
1714  + t2_2(1, 2) * t1_2(0) * t3dg_2(2, 1, 0)
1715  + t2_2(2, 2) * t1_2(0) * t3dg_2(2, 2, 0)
1716  + t2_2(0, 0) * t1_2(1) * t3dg_2(0, 0, 1)
1717  + t2_2(1, 0) * t1_2(1) * t3dg_2(0, 1, 1)
1718  + t2_2(2, 0) * t1_2(1) * t3dg_2(0, 2, 1)
1719  + t2_2(0, 1) * t1_2(1) * t3dg_2(1, 0, 1)
1720  + t2_2(1, 1) * t1_2(1) * t3dg_2(1, 1, 1)
1721  + t2_2(2, 1) * t1_2(1) * t3dg_2(1, 2, 1)
1722  + t2_2(0, 2) * t1_2(1) * t3dg_2(2, 0, 1)
1723  + t2_2(1, 2) * t1_2(1) * t3dg_2(2, 1, 1)
1724  + t2_2(2, 2) * t1_2(1) * t3dg_2(2, 2, 1)
1725  + t2_2(0, 0) * t1_2(2) * t3dg_2(0, 0, 2)
1726  + t2_2(1, 0) * t1_2(2) * t3dg_2(0, 1, 2)
1727  + t2_2(2, 0) * t1_2(2) * t3dg_2(0, 2, 2)
1728  + t2_2(0, 1) * t1_2(2) * t3dg_2(1, 0, 2)
1729  + t2_2(1, 1) * t1_2(2) * t3dg_2(1, 1, 2)
1730  + t2_2(2, 1) * t1_2(2) * t3dg_2(1, 2, 2)
1731  + t2_2(0, 2) * t1_2(2) * t3dg_2(2, 0, 2)
1732  + t2_2(1, 2) * t1_2(2) * t3dg_2(2, 1, 2)
1733  + t2_2(2, 2) * t1_2(2) * t3dg_2(2, 2, 2)),
1734  "T3(i,j,k)*T3dg(j,i,k)");
1735 
1736  test_for_zero((t2_2(i, j) * t1_2(k)) * (t3dg_2(i, k, j))
1737  - (t2_2(0, 0) * t1_2(0) * t3dg_2(0, 0, 0)
1738  + t2_2(1, 0) * t1_2(0) * t3dg_2(1, 0, 0)
1739  + t2_2(2, 0) * t1_2(0) * t3dg_2(2, 0, 0)
1740  + t2_2(0, 1) * t1_2(0) * t3dg_2(0, 0, 1)
1741  + t2_2(1, 1) * t1_2(0) * t3dg_2(1, 0, 1)
1742  + t2_2(2, 1) * t1_2(0) * t3dg_2(2, 0, 1)
1743  + t2_2(0, 2) * t1_2(0) * t3dg_2(0, 0, 2)
1744  + t2_2(1, 2) * t1_2(0) * t3dg_2(1, 0, 2)
1745  + t2_2(2, 2) * t1_2(0) * t3dg_2(2, 0, 2)
1746  + t2_2(0, 0) * t1_2(1) * t3dg_2(0, 1, 0)
1747  + t2_2(1, 0) * t1_2(1) * t3dg_2(1, 1, 0)
1748  + t2_2(2, 0) * t1_2(1) * t3dg_2(2, 1, 0)
1749  + t2_2(0, 1) * t1_2(1) * t3dg_2(0, 1, 1)
1750  + t2_2(1, 1) * t1_2(1) * t3dg_2(1, 1, 1)
1751  + t2_2(2, 1) * t1_2(1) * t3dg_2(2, 1, 1)
1752  + t2_2(0, 2) * t1_2(1) * t3dg_2(0, 1, 2)
1753  + t2_2(1, 2) * t1_2(1) * t3dg_2(1, 1, 2)
1754  + t2_2(2, 2) * t1_2(1) * t3dg_2(2, 1, 2)
1755  + t2_2(0, 0) * t1_2(2) * t3dg_2(0, 2, 0)
1756  + t2_2(1, 0) * t1_2(2) * t3dg_2(1, 2, 0)
1757  + t2_2(2, 0) * t1_2(2) * t3dg_2(2, 2, 0)
1758  + t2_2(0, 1) * t1_2(2) * t3dg_2(0, 2, 1)
1759  + t2_2(1, 1) * t1_2(2) * t3dg_2(1, 2, 1)
1760  + t2_2(2, 1) * t1_2(2) * t3dg_2(2, 2, 1)
1761  + t2_2(0, 2) * t1_2(2) * t3dg_2(0, 2, 2)
1762  + t2_2(1, 2) * t1_2(2) * t3dg_2(1, 2, 2)
1763  + t2_2(2, 2) * t1_2(2) * t3dg_2(2, 2, 2)),
1764  "T3(i,j,k)*T3dg(i,k,j)");
1765 
1766  test_for_zero((t2_2(i, j) * t1_2(k)) * (t3dg_2(j, k, i))
1767  - (t2_2(0, 0) * t1_2(0) * t3dg_2(0, 0, 0)
1768  + t2_2(1, 0) * t1_2(0) * t3dg_2(0, 0, 1)
1769  + t2_2(2, 0) * t1_2(0) * t3dg_2(0, 0, 2)
1770  + t2_2(0, 1) * t1_2(0) * t3dg_2(1, 0, 0)
1771  + t2_2(1, 1) * t1_2(0) * t3dg_2(1, 0, 1)
1772  + t2_2(2, 1) * t1_2(0) * t3dg_2(1, 0, 2)
1773  + t2_2(0, 2) * t1_2(0) * t3dg_2(2, 0, 0)
1774  + t2_2(1, 2) * t1_2(0) * t3dg_2(2, 0, 1)
1775  + t2_2(2, 2) * t1_2(0) * t3dg_2(2, 0, 2)
1776  + t2_2(0, 0) * t1_2(1) * t3dg_2(0, 1, 0)
1777  + t2_2(1, 0) * t1_2(1) * t3dg_2(0, 1, 1)
1778  + t2_2(2, 0) * t1_2(1) * t3dg_2(0, 1, 2)
1779  + t2_2(0, 1) * t1_2(1) * t3dg_2(1, 1, 0)
1780  + t2_2(1, 1) * t1_2(1) * t3dg_2(1, 1, 1)
1781  + t2_2(2, 1) * t1_2(1) * t3dg_2(1, 1, 2)
1782  + t2_2(0, 2) * t1_2(1) * t3dg_2(2, 1, 0)
1783  + t2_2(1, 2) * t1_2(1) * t3dg_2(2, 1, 1)
1784  + t2_2(2, 2) * t1_2(1) * t3dg_2(2, 1, 2)
1785  + t2_2(0, 0) * t1_2(2) * t3dg_2(0, 2, 0)
1786  + t2_2(1, 0) * t1_2(2) * t3dg_2(0, 2, 1)
1787  + t2_2(2, 0) * t1_2(2) * t3dg_2(0, 2, 2)
1788  + t2_2(0, 1) * t1_2(2) * t3dg_2(1, 2, 0)
1789  + t2_2(1, 1) * t1_2(2) * t3dg_2(1, 2, 1)
1790  + t2_2(2, 1) * t1_2(2) * t3dg_2(1, 2, 2)
1791  + t2_2(0, 2) * t1_2(2) * t3dg_2(2, 2, 0)
1792  + t2_2(1, 2) * t1_2(2) * t3dg_2(2, 2, 1)
1793  + t2_2(2, 2) * t1_2(2) * t3dg_2(2, 2, 2)),
1794  "T3(i,j,k)*T3dg(j,k,i)");
1795 
1796  test_for_zero((t2_2(i, j) * t1_2(k)) * (t3dg_2(k, j, i))
1797  - (t2_2(0, 0) * t1_2(0) * t3dg_2(0, 0, 0)
1798  + t2_2(1, 0) * t1_2(0) * t3dg_2(0, 0, 1)
1799  + t2_2(2, 0) * t1_2(0) * t3dg_2(0, 0, 2)
1800  + t2_2(0, 1) * t1_2(0) * t3dg_2(0, 1, 0)
1801  + t2_2(1, 1) * t1_2(0) * t3dg_2(0, 1, 1)
1802  + t2_2(2, 1) * t1_2(0) * t3dg_2(0, 1, 2)
1803  + t2_2(0, 2) * t1_2(0) * t3dg_2(0, 2, 0)
1804  + t2_2(1, 2) * t1_2(0) * t3dg_2(0, 2, 1)
1805  + t2_2(2, 2) * t1_2(0) * t3dg_2(0, 2, 2)
1806  + t2_2(0, 0) * t1_2(1) * t3dg_2(1, 0, 0)
1807  + t2_2(1, 0) * t1_2(1) * t3dg_2(1, 0, 1)
1808  + t2_2(2, 0) * t1_2(1) * t3dg_2(1, 0, 2)
1809  + t2_2(0, 1) * t1_2(1) * t3dg_2(1, 1, 0)
1810  + t2_2(1, 1) * t1_2(1) * t3dg_2(1, 1, 1)
1811  + t2_2(2, 1) * t1_2(1) * t3dg_2(1, 1, 2)
1812  + t2_2(0, 2) * t1_2(1) * t3dg_2(1, 2, 0)
1813  + t2_2(1, 2) * t1_2(1) * t3dg_2(1, 2, 1)
1814  + t2_2(2, 2) * t1_2(1) * t3dg_2(1, 2, 2)
1815  + t2_2(0, 0) * t1_2(2) * t3dg_2(2, 0, 0)
1816  + t2_2(1, 0) * t1_2(2) * t3dg_2(2, 0, 1)
1817  + t2_2(2, 0) * t1_2(2) * t3dg_2(2, 0, 2)
1818  + t2_2(0, 1) * t1_2(2) * t3dg_2(2, 1, 0)
1819  + t2_2(1, 1) * t1_2(2) * t3dg_2(2, 1, 1)
1820  + t2_2(2, 1) * t1_2(2) * t3dg_2(2, 1, 2)
1821  + t2_2(0, 2) * t1_2(2) * t3dg_2(2, 2, 0)
1822  + t2_2(1, 2) * t1_2(2) * t3dg_2(2, 2, 1)
1823  + t2_2(2, 2) * t1_2(2) * t3dg_2(2, 2, 2)),
1824  "T3(i,j,k)*T3dg(k,j,i)");
1825 
1826  test_for_zero((t2_2(i, j) * t1_2(k)) * (t3dg_2(k, i, j))
1827  - (t2_2(0, 0) * t1_2(0) * t3dg_2(0, 0, 0)
1828  + t2_2(1, 0) * t1_2(0) * t3dg_2(0, 1, 0)
1829  + t2_2(2, 0) * t1_2(0) * t3dg_2(0, 2, 0)
1830  + t2_2(0, 1) * t1_2(0) * t3dg_2(0, 0, 1)
1831  + t2_2(1, 1) * t1_2(0) * t3dg_2(0, 1, 1)
1832  + t2_2(2, 1) * t1_2(0) * t3dg_2(0, 2, 1)
1833  + t2_2(0, 2) * t1_2(0) * t3dg_2(0, 0, 2)
1834  + t2_2(1, 2) * t1_2(0) * t3dg_2(0, 1, 2)
1835  + t2_2(2, 2) * t1_2(0) * t3dg_2(0, 2, 2)
1836  + t2_2(0, 0) * t1_2(1) * t3dg_2(1, 0, 0)
1837  + t2_2(1, 0) * t1_2(1) * t3dg_2(1, 1, 0)
1838  + t2_2(2, 0) * t1_2(1) * t3dg_2(1, 2, 0)
1839  + t2_2(0, 1) * t1_2(1) * t3dg_2(1, 0, 1)
1840  + t2_2(1, 1) * t1_2(1) * t3dg_2(1, 1, 1)
1841  + t2_2(2, 1) * t1_2(1) * t3dg_2(1, 2, 1)
1842  + t2_2(0, 2) * t1_2(1) * t3dg_2(1, 0, 2)
1843  + t2_2(1, 2) * t1_2(1) * t3dg_2(1, 1, 2)
1844  + t2_2(2, 2) * t1_2(1) * t3dg_2(1, 2, 2)
1845  + t2_2(0, 0) * t1_2(2) * t3dg_2(2, 0, 0)
1846  + t2_2(1, 0) * t1_2(2) * t3dg_2(2, 1, 0)
1847  + t2_2(2, 0) * t1_2(2) * t3dg_2(2, 2, 0)
1848  + t2_2(0, 1) * t1_2(2) * t3dg_2(2, 0, 1)
1849  + t2_2(1, 1) * t1_2(2) * t3dg_2(2, 1, 1)
1850  + t2_2(2, 1) * t1_2(2) * t3dg_2(2, 2, 1)
1851  + t2_2(0, 2) * t1_2(2) * t3dg_2(2, 0, 2)
1852  + t2_2(1, 2) * t1_2(2) * t3dg_2(2, 1, 2)
1853  + t2_2(2, 2) * t1_2(2) * t3dg_2(2, 2, 2)),
1854  "T3(i,j,k)*T3dg(k,i,j)");
1855 }

◆ test_T3_02()

void test_T3_02 ( const Tensor1< double, 3 > &  t1_1,
const Tensor1< double, 3 > &  t1_2,
const Tensor2< double, 3, 3 > &  t2_2,
const Tensor2< double, 3, 3 > &  t2_3 
)

Definition at line 7 of file test_T3_02.cpp.

10 {
11  Index<'i', 3> i;
12  Index<'j', 3> j;
13  Index<'k', 3> k;
14 
15  Number<0> N0;
16  Number<1> N1;
17  Number<2> N2;
18 
19  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(i, j) * t1_1(k)))(0, 0, 0)
20  - ((t2_2(0, 0) * t1_2(0)) + (t2_3(0, 0) * t1_1(0))),
21  "T3(i,j,k)+T3(i,j,k)(0,0,0)");
22  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(i, j) * t1_1(k)))(0, 0, 1)
23  - ((t2_2(0, 0) * t1_2(1)) + (t2_3(0, 0) * t1_1(1))),
24  "T3(i,j,k)+T3(i,j,k)(0,0,1)");
25  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(i, j) * t1_1(k)))(0, 0, 2)
26  - ((t2_2(0, 0) * t1_2(2)) + (t2_3(0, 0) * t1_1(2))),
27  "T3(i,j,k)+T3(i,j,k)(0,0,2)");
28  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(i, j) * t1_1(k)))(0, 1, 0)
29  - ((t2_2(0, 1) * t1_2(0)) + (t2_3(0, 1) * t1_1(0))),
30  "T3(i,j,k)+T3(i,j,k)(0,1,0)");
31  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(i, j) * t1_1(k)))(0, 1, 1)
32  - ((t2_2(0, 1) * t1_2(1)) + (t2_3(0, 1) * t1_1(1))),
33  "T3(i,j,k)+T3(i,j,k)(0,1,1)");
34  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(i, j) * t1_1(k)))(0, 1, 2)
35  - ((t2_2(0, 1) * t1_2(2)) + (t2_3(0, 1) * t1_1(2))),
36  "T3(i,j,k)+T3(i,j,k)(0,1,2)");
37  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(i, j) * t1_1(k)))(0, 2, 0)
38  - ((t2_2(0, 2) * t1_2(0)) + (t2_3(0, 2) * t1_1(0))),
39  "T3(i,j,k)+T3(i,j,k)(0,2,0)");
40  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(i, j) * t1_1(k)))(0, 2, 1)
41  - ((t2_2(0, 2) * t1_2(1)) + (t2_3(0, 2) * t1_1(1))),
42  "T3(i,j,k)+T3(i,j,k)(0,2,1)");
43  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(i, j) * t1_1(k)))(0, 2, 2)
44  - ((t2_2(0, 2) * t1_2(2)) + (t2_3(0, 2) * t1_1(2))),
45  "T3(i,j,k)+T3(i,j,k)(0,2,2)");
46 
47  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(i, k) * t1_1(j)))(0, 0, 0)
48  - ((t2_2(0, 0) * t1_2(0)) + (t2_3(0, 0) * t1_1(0))),
49  "T3(i,j,k)+T3(i,k,j)(0,0,0)");
50  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(i, k) * t1_1(j)))(0, 0, 1)
51  - ((t2_2(0, 0) * t1_2(1)) + (t2_3(0, 1) * t1_1(0))),
52  "T3(i,j,k)+T3(i,k,j)(0,0,1)");
53  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(i, k) * t1_1(j)))(0, 0, 2)
54  - ((t2_2(0, 0) * t1_2(2)) + (t2_3(0, 2) * t1_1(0))),
55  "T3(i,j,k)+T3(i,k,j)(0,0,2)");
56  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(i, k) * t1_1(j)))(0, 1, 0)
57  - ((t2_2(0, 1) * t1_2(0)) + (t2_3(0, 0) * t1_1(1))),
58  "T3(i,j,k)+T3(i,k,j)(0,1,0)");
59  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(i, k) * t1_1(j)))(0, 1, 1)
60  - ((t2_2(0, 1) * t1_2(1)) + (t2_3(0, 1) * t1_1(1))),
61  "T3(i,j,k)+T3(i,k,j)(0,1,1)");
62  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(i, k) * t1_1(j)))(0, 1, 2)
63  - ((t2_2(0, 1) * t1_2(2)) + (t2_3(0, 2) * t1_1(1))),
64  "T3(i,j,k)+T3(i,k,j)(0,1,2)");
65  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(i, k) * t1_1(j)))(0, 2, 0)
66  - ((t2_2(0, 2) * t1_2(0)) + (t2_3(0, 0) * t1_1(2))),
67  "T3(i,j,k)+T3(i,k,j)(0,2,0)");
68  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(i, k) * t1_1(j)))(0, 2, 1)
69  - ((t2_2(0, 2) * t1_2(1)) + (t2_3(0, 1) * t1_1(2))),
70  "T3(i,j,k)+T3(i,k,j)(0,2,1)");
71  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(i, k) * t1_1(j)))(0, 2, 2)
72  - ((t2_2(0, 2) * t1_2(2)) + (t2_3(0, 2) * t1_1(2))),
73  "T3(i,j,k)+T3(i,k,j)(0,2,2)");
74 
75  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(j, i) * t1_1(k)))(0, 0, 0)
76  - ((t2_2(0, 0) * t1_2(0)) + (t2_3(0, 0) * t1_1(0))),
77  "T3(i,j,k)+T3(j,i,k)(0,0,0)");
78  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(j, i) * t1_1(k)))(0, 0, 1)
79  - ((t2_2(0, 0) * t1_2(1)) + (t2_3(0, 0) * t1_1(1))),
80  "T3(i,j,k)+T3(j,i,k)(0,0,1)");
81  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(j, i) * t1_1(k)))(0, 0, 2)
82  - ((t2_2(0, 0) * t1_2(2)) + (t2_3(0, 0) * t1_1(2))),
83  "T3(i,j,k)+T3(j,i,k)(0,0,2)");
84  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(j, i) * t1_1(k)))(0, 1, 0)
85  - ((t2_2(0, 1) * t1_2(0)) + (t2_3(1, 0) * t1_1(0))),
86  "T3(i,j,k)+T3(j,i,k)(0,1,0)");
87  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(j, i) * t1_1(k)))(0, 1, 1)
88  - ((t2_2(0, 1) * t1_2(1)) + (t2_3(1, 0) * t1_1(1))),
89  "T3(i,j,k)+T3(j,i,k)(0,1,1)");
90  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(j, i) * t1_1(k)))(0, 1, 2)
91  - ((t2_2(0, 1) * t1_2(2)) + (t2_3(1, 0) * t1_1(2))),
92  "T3(i,j,k)+T3(j,i,k)(0,1,2)");
93  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(j, i) * t1_1(k)))(0, 2, 0)
94  - ((t2_2(0, 2) * t1_2(0)) + (t2_3(2, 0) * t1_1(0))),
95  "T3(i,j,k)+T3(j,i,k)(0,2,0)");
96  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(j, i) * t1_1(k)))(0, 2, 1)
97  - ((t2_2(0, 2) * t1_2(1)) + (t2_3(2, 0) * t1_1(1))),
98  "T3(i,j,k)+T3(j,i,k)(0,2,1)");
99  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(j, i) * t1_1(k)))(0, 2, 2)
100  - ((t2_2(0, 2) * t1_2(2)) + (t2_3(2, 0) * t1_1(2))),
101  "T3(i,j,k)+T3(j,i,k)(0,2,2)");
102 
103  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(j, k) * t1_1(i)))(0, 0, 0)
104  - ((t2_2(0, 0) * t1_2(0)) + (t2_3(0, 0) * t1_1(0))),
105  "T3(i,j,k)+T3(j,k,i)(0,0,0)");
106  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(j, k) * t1_1(i)))(0, 0, 1)
107  - ((t2_2(0, 0) * t1_2(1)) + (t2_3(0, 1) * t1_1(0))),
108  "T3(i,j,k)+T3(j,k,i)(0,0,1)");
109  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(j, k) * t1_1(i)))(0, 0, 2)
110  - ((t2_2(0, 0) * t1_2(2)) + (t2_3(0, 2) * t1_1(0))),
111  "T3(i,j,k)+T3(j,k,i)(0,0,2)");
112  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(j, k) * t1_1(i)))(0, 1, 0)
113  - ((t2_2(0, 1) * t1_2(0)) + (t2_3(1, 0) * t1_1(0))),
114  "T3(i,j,k)+T3(j,k,i)(0,1,0)");
115  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(j, k) * t1_1(i)))(0, 1, 1)
116  - ((t2_2(0, 1) * t1_2(1)) + (t2_3(1, 1) * t1_1(0))),
117  "T3(i,j,k)+T3(j,k,i)(0,1,1)");
118  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(j, k) * t1_1(i)))(0, 1, 2)
119  - ((t2_2(0, 1) * t1_2(2)) + (t2_3(1, 2) * t1_1(0))),
120  "T3(i,j,k)+T3(j,k,i)(0,1,2)");
121  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(j, k) * t1_1(i)))(0, 2, 0)
122  - ((t2_2(0, 2) * t1_2(0)) + (t2_3(2, 0) * t1_1(0))),
123  "T3(i,j,k)+T3(j,k,i)(0,2,0)");
124  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(j, k) * t1_1(i)))(0, 2, 1)
125  - ((t2_2(0, 2) * t1_2(1)) + (t2_3(2, 1) * t1_1(0))),
126  "T3(i,j,k)+T3(j,k,i)(0,2,1)");
127  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(j, k) * t1_1(i)))(0, 2, 2)
128  - ((t2_2(0, 2) * t1_2(2)) + (t2_3(2, 2) * t1_1(0))),
129  "T3(i,j,k)+T3(j,k,i)(0,2,2)");
130 
131  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(k, i) * t1_1(j)))(0, 0, 0)
132  - ((t2_2(0, 0) * t1_2(0)) + (t2_3(0, 0) * t1_1(0))),
133  "T3(i,j,k)+T3(k,i,j)(0,0,0)");
134  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(k, i) * t1_1(j)))(0, 0, 1)
135  - ((t2_2(0, 0) * t1_2(1)) + (t2_3(1, 0) * t1_1(0))),
136  "T3(i,j,k)+T3(k,i,j)(0,0,1)");
137  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(k, i) * t1_1(j)))(0, 0, 2)
138  - ((t2_2(0, 0) * t1_2(2)) + (t2_3(2, 0) * t1_1(0))),
139  "T3(i,j,k)+T3(k,i,j)(0,0,2)");
140  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(k, i) * t1_1(j)))(0, 1, 0)
141  - ((t2_2(0, 1) * t1_2(0)) + (t2_3(0, 0) * t1_1(1))),
142  "T3(i,j,k)+T3(k,i,j)(0,1,0)");
143  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(k, i) * t1_1(j)))(0, 1, 1)
144  - ((t2_2(0, 1) * t1_2(1)) + (t2_3(1, 0) * t1_1(1))),
145  "T3(i,j,k)+T3(k,i,j)(0,1,1)");
146  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(k, i) * t1_1(j)))(0, 1, 2)
147  - ((t2_2(0, 1) * t1_2(2)) + (t2_3(2, 0) * t1_1(1))),
148  "T3(i,j,k)+T3(k,i,j)(0,1,2)");
149  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(k, i) * t1_1(j)))(0, 2, 0)
150  - ((t2_2(0, 2) * t1_2(0)) + (t2_3(0, 0) * t1_1(2))),
151  "T3(i,j,k)+T3(k,i,j)(0,2,0)");
152  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(k, i) * t1_1(j)))(0, 2, 1)
153  - ((t2_2(0, 2) * t1_2(1)) + (t2_3(1, 0) * t1_1(2))),
154  "T3(i,j,k)+T3(k,i,j)(0,2,1)");
155  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(k, i) * t1_1(j)))(0, 2, 2)
156  - ((t2_2(0, 2) * t1_2(2)) + (t2_3(2, 0) * t1_1(2))),
157  "T3(i,j,k)+T3(k,i,j)(0,2,2)");
158 
159  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(k, j) * t1_1(i)))(0, 0, 0)
160  - ((t2_2(0, 0) * t1_2(0)) + (t2_3(0, 0) * t1_1(0))),
161  "T3(i,j,k)+T3(k,j,i)(0,0,0)");
162  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(k, j) * t1_1(i)))(0, 0, 1)
163  - ((t2_2(0, 0) * t1_2(1)) + (t2_3(1, 0) * t1_1(0))),
164  "T3(i,j,k)+T3(k,j,i)(0,0,1)");
165  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(k, j) * t1_1(i)))(0, 0, 2)
166  - ((t2_2(0, 0) * t1_2(2)) + (t2_3(2, 0) * t1_1(0))),
167  "T3(i,j,k)+T3(k,j,i)(0,0,2)");
168  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(k, j) * t1_1(i)))(0, 1, 0)
169  - ((t2_2(0, 1) * t1_2(0)) + (t2_3(0, 1) * t1_1(0))),
170  "T3(i,j,k)+T3(k,j,i)(0,1,0)");
171  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(k, j) * t1_1(i)))(0, 1, 1)
172  - ((t2_2(0, 1) * t1_2(1)) + (t2_3(1, 1) * t1_1(0))),
173  "T3(i,j,k)+T3(k,j,i)(0,1,1)");
174  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(k, j) * t1_1(i)))(0, 1, 2)
175  - ((t2_2(0, 1) * t1_2(2)) + (t2_3(2, 1) * t1_1(0))),
176  "T3(i,j,k)+T3(k,j,i)(0,1,2)");
177  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(k, j) * t1_1(i)))(0, 2, 0)
178  - ((t2_2(0, 2) * t1_2(0)) + (t2_3(0, 2) * t1_1(0))),
179  "T3(i,j,k)+T3(k,j,i)(0,2,0)");
180  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(k, j) * t1_1(i)))(0, 2, 1)
181  - ((t2_2(0, 2) * t1_2(1)) + (t2_3(1, 2) * t1_1(0))),
182  "T3(i,j,k)+T3(k,j,i)(0,2,1)");
183  test_for_zero(((t2_2(i, j) * t1_2(k)) + (t2_3(k, j) * t1_1(i)))(0, 2, 2)
184  - ((t2_2(0, 2) * t1_2(2)) + (t2_3(2, 2) * t1_1(0))),
185  "T3(i,j,k)+T3(k,j,i)(0,2,2)");
186 
187  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(i, j) * t1_1(k)))(0, 0, 0)
188  - ((t2_2(0, 0) * t1_2(0)) - (t2_3(0, 0) * t1_1(0))),
189  "T3(i,j,k)-T3(i,j,k)(0,0,0)");
190  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(i, j) * t1_1(k)))(0, 0, 1)
191  - ((t2_2(0, 0) * t1_2(1)) - (t2_3(0, 0) * t1_1(1))),
192  "T3(i,j,k)-T3(i,j,k)(0,0,1)");
193  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(i, j) * t1_1(k)))(0, 0, 2)
194  - ((t2_2(0, 0) * t1_2(2)) - (t2_3(0, 0) * t1_1(2))),
195  "T3(i,j,k)-T3(i,j,k)(0,0,2)");
196  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(i, j) * t1_1(k)))(0, 1, 0)
197  - ((t2_2(0, 1) * t1_2(0)) - (t2_3(0, 1) * t1_1(0))),
198  "T3(i,j,k)-T3(i,j,k)(0,1,0)");
199  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(i, j) * t1_1(k)))(0, 1, 1)
200  - ((t2_2(0, 1) * t1_2(1)) - (t2_3(0, 1) * t1_1(1))),
201  "T3(i,j,k)-T3(i,j,k)(0,1,1)");
202  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(i, j) * t1_1(k)))(0, 1, 2)
203  - ((t2_2(0, 1) * t1_2(2)) - (t2_3(0, 1) * t1_1(2))),
204  "T3(i,j,k)-T3(i,j,k)(0,1,2)");
205  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(i, j) * t1_1(k)))(0, 2, 0)
206  - ((t2_2(0, 2) * t1_2(0)) - (t2_3(0, 2) * t1_1(0))),
207  "T3(i,j,k)-T3(i,j,k)(0,2,0)");
208  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(i, j) * t1_1(k)))(0, 2, 1)
209  - ((t2_2(0, 2) * t1_2(1)) - (t2_3(0, 2) * t1_1(1))),
210  "T3(i,j,k)-T3(i,j,k)(0,2,1)");
211  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(i, j) * t1_1(k)))(0, 2, 2)
212  - ((t2_2(0, 2) * t1_2(2)) - (t2_3(0, 2) * t1_1(2))),
213  "T3(i,j,k)-T3(i,j,k)(0,2,2)");
214 
215  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(i, k) * t1_1(j)))(0, 0, 0)
216  - ((t2_2(0, 0) * t1_2(0)) - (t2_3(0, 0) * t1_1(0))),
217  "T3(i,j,k)-T3(i,k,j)(0,0,0)");
218  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(i, k) * t1_1(j)))(0, 0, 1)
219  - ((t2_2(0, 0) * t1_2(1)) - (t2_3(0, 1) * t1_1(0))),
220  "T3(i,j,k)-T3(i,k,j)(0,0,1)");
221  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(i, k) * t1_1(j)))(0, 0, 2)
222  - ((t2_2(0, 0) * t1_2(2)) - (t2_3(0, 2) * t1_1(0))),
223  "T3(i,j,k)-T3(i,k,j)(0,0,2)");
224  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(i, k) * t1_1(j)))(0, 1, 0)
225  - ((t2_2(0, 1) * t1_2(0)) - (t2_3(0, 0) * t1_1(1))),
226  "T3(i,j,k)-T3(i,k,j)(0,1,0)");
227  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(i, k) * t1_1(j)))(0, 1, 1)
228  - ((t2_2(0, 1) * t1_2(1)) - (t2_3(0, 1) * t1_1(1))),
229  "T3(i,j,k)-T3(i,k,j)(0,1,1)");
230  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(i, k) * t1_1(j)))(0, 1, 2)
231  - ((t2_2(0, 1) * t1_2(2)) - (t2_3(0, 2) * t1_1(1))),
232  "T3(i,j,k)-T3(i,k,j)(0,1,2)");
233  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(i, k) * t1_1(j)))(0, 2, 0)
234  - ((t2_2(0, 2) * t1_2(0)) - (t2_3(0, 0) * t1_1(2))),
235  "T3(i,j,k)-T3(i,k,j)(0,2,0)");
236  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(i, k) * t1_1(j)))(0, 2, 1)
237  - ((t2_2(0, 2) * t1_2(1)) - (t2_3(0, 1) * t1_1(2))),
238  "T3(i,j,k)-T3(i,k,j)(0,2,1)");
239  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(i, k) * t1_1(j)))(0, 2, 2)
240  - ((t2_2(0, 2) * t1_2(2)) - (t2_3(0, 2) * t1_1(2))),
241  "T3(i,j,k)-T3(i,k,j)(0,2,2)");
242 
243  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(j, i) * t1_1(k)))(0, 0, 0)
244  - ((t2_2(0, 0) * t1_2(0)) - (t2_3(0, 0) * t1_1(0))),
245  "T3(i,j,k)-T3(j,i,k)(0,0,0)");
246  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(j, i) * t1_1(k)))(0, 0, 1)
247  - ((t2_2(0, 0) * t1_2(1)) - (t2_3(0, 0) * t1_1(1))),
248  "T3(i,j,k)-T3(j,i,k)(0,0,1)");
249  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(j, i) * t1_1(k)))(0, 0, 2)
250  - ((t2_2(0, 0) * t1_2(2)) - (t2_3(0, 0) * t1_1(2))),
251  "T3(i,j,k)-T3(j,i,k)(0,0,2)");
252  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(j, i) * t1_1(k)))(0, 1, 0)
253  - ((t2_2(0, 1) * t1_2(0)) - (t2_3(1, 0) * t1_1(0))),
254  "T3(i,j,k)-T3(j,i,k)(0,1,0)");
255  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(j, i) * t1_1(k)))(0, 1, 1)
256  - ((t2_2(0, 1) * t1_2(1)) - (t2_3(1, 0) * t1_1(1))),
257  "T3(i,j,k)-T3(j,i,k)(0,1,1)");
258  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(j, i) * t1_1(k)))(0, 1, 2)
259  - ((t2_2(0, 1) * t1_2(2)) - (t2_3(1, 0) * t1_1(2))),
260  "T3(i,j,k)-T3(j,i,k)(0,1,2)");
261  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(j, i) * t1_1(k)))(0, 2, 0)
262  - ((t2_2(0, 2) * t1_2(0)) - (t2_3(2, 0) * t1_1(0))),
263  "T3(i,j,k)-T3(j,i,k)(0,2,0)");
264  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(j, i) * t1_1(k)))(0, 2, 1)
265  - ((t2_2(0, 2) * t1_2(1)) - (t2_3(2, 0) * t1_1(1))),
266  "T3(i,j,k)-T3(j,i,k)(0,2,1)");
267  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(j, i) * t1_1(k)))(0, 2, 2)
268  - ((t2_2(0, 2) * t1_2(2)) - (t2_3(2, 0) * t1_1(2))),
269  "T3(i,j,k)-T3(j,i,k)(0,2,2)");
270 
271  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(j, k) * t1_1(i)))(0, 0, 0)
272  - ((t2_2(0, 0) * t1_2(0)) - (t2_3(0, 0) * t1_1(0))),
273  "T3(i,j,k)-T3(j,k,i)(0,0,0)");
274  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(j, k) * t1_1(i)))(0, 0, 1)
275  - ((t2_2(0, 0) * t1_2(1)) - (t2_3(0, 1) * t1_1(0))),
276  "T3(i,j,k)-T3(j,k,i)(0,0,1)");
277  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(j, k) * t1_1(i)))(0, 0, 2)
278  - ((t2_2(0, 0) * t1_2(2)) - (t2_3(0, 2) * t1_1(0))),
279  "T3(i,j,k)-T3(j,k,i)(0,0,2)");
280  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(j, k) * t1_1(i)))(0, 1, 0)
281  - ((t2_2(0, 1) * t1_2(0)) - (t2_3(1, 0) * t1_1(0))),
282  "T3(i,j,k)-T3(j,k,i)(0,1,0)");
283  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(j, k) * t1_1(i)))(0, 1, 1)
284  - ((t2_2(0, 1) * t1_2(1)) - (t2_3(1, 1) * t1_1(0))),
285  "T3(i,j,k)-T3(j,k,i)(0,1,1)");
286  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(j, k) * t1_1(i)))(0, 1, 2)
287  - ((t2_2(0, 1) * t1_2(2)) - (t2_3(1, 2) * t1_1(0))),
288  "T3(i,j,k)-T3(j,k,i)(0,1,2)");
289  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(j, k) * t1_1(i)))(0, 2, 0)
290  - ((t2_2(0, 2) * t1_2(0)) - (t2_3(2, 0) * t1_1(0))),
291  "T3(i,j,k)-T3(j,k,i)(0,2,0)");
292  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(j, k) * t1_1(i)))(0, 2, 1)
293  - ((t2_2(0, 2) * t1_2(1)) - (t2_3(2, 1) * t1_1(0))),
294  "T3(i,j,k)-T3(j,k,i)(0,2,1)");
295  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(j, k) * t1_1(i)))(0, 2, 2)
296  - ((t2_2(0, 2) * t1_2(2)) - (t2_3(2, 2) * t1_1(0))),
297  "T3(i,j,k)-T3(j,k,i)(0,2,2)");
298 
299  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(k, i) * t1_1(j)))(0, 0, 0)
300  - ((t2_2(0, 0) * t1_2(0)) - (t2_3(0, 0) * t1_1(0))),
301  "T3(i,j,k)-T3(k,i,j)(0,0,0)");
302  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(k, i) * t1_1(j)))(0, 0, 1)
303  - ((t2_2(0, 0) * t1_2(1)) - (t2_3(1, 0) * t1_1(0))),
304  "T3(i,j,k)-T3(k,i,j)(0,0,1)");
305  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(k, i) * t1_1(j)))(0, 0, 2)
306  - ((t2_2(0, 0) * t1_2(2)) - (t2_3(2, 0) * t1_1(0))),
307  "T3(i,j,k)-T3(k,i,j)(0,0,2)");
308  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(k, i) * t1_1(j)))(0, 1, 0)
309  - ((t2_2(0, 1) * t1_2(0)) - (t2_3(0, 0) * t1_1(1))),
310  "T3(i,j,k)-T3(k,i,j)(0,1,0)");
311  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(k, i) * t1_1(j)))(0, 1, 1)
312  - ((t2_2(0, 1) * t1_2(1)) - (t2_3(1, 0) * t1_1(1))),
313  "T3(i,j,k)-T3(k,i,j)(0,1,1)");
314  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(k, i) * t1_1(j)))(0, 1, 2)
315  - ((t2_2(0, 1) * t1_2(2)) - (t2_3(2, 0) * t1_1(1))),
316  "T3(i,j,k)-T3(k,i,j)(0,1,2)");
317  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(k, i) * t1_1(j)))(0, 2, 0)
318  - ((t2_2(0, 2) * t1_2(0)) - (t2_3(0, 0) * t1_1(2))),
319  "T3(i,j,k)-T3(k,i,j)(0,2,0)");
320  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(k, i) * t1_1(j)))(0, 2, 1)
321  - ((t2_2(0, 2) * t1_2(1)) - (t2_3(1, 0) * t1_1(2))),
322  "T3(i,j,k)-T3(k,i,j)(0,2,1)");
323  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(k, i) * t1_1(j)))(0, 2, 2)
324  - ((t2_2(0, 2) * t1_2(2)) - (t2_3(2, 0) * t1_1(2))),
325  "T3(i,j,k)-T3(k,i,j)(0,2,2)");
326 
327  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(k, j) * t1_1(i)))(0, 0, 0)
328  - ((t2_2(0, 0) * t1_2(0)) - (t2_3(0, 0) * t1_1(0))),
329  "T3(i,j,k)-T3(k,j,i)(0,0,0)");
330  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(k, j) * t1_1(i)))(0, 0, 1)
331  - ((t2_2(0, 0) * t1_2(1)) - (t2_3(1, 0) * t1_1(0))),
332  "T3(i,j,k)-T3(k,j,i)(0,0,1)");
333  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(k, j) * t1_1(i)))(0, 0, 2)
334  - ((t2_2(0, 0) * t1_2(2)) - (t2_3(2, 0) * t1_1(0))),
335  "T3(i,j,k)-T3(k,j,i)(0,0,2)");
336  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(k, j) * t1_1(i)))(0, 1, 0)
337  - ((t2_2(0, 1) * t1_2(0)) - (t2_3(0, 1) * t1_1(0))),
338  "T3(i,j,k)-T3(k,j,i)(0,1,0)");
339  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(k, j) * t1_1(i)))(0, 1, 1)
340  - ((t2_2(0, 1) * t1_2(1)) - (t2_3(1, 1) * t1_1(0))),
341  "T3(i,j,k)-T3(k,j,i)(0,1,1)");
342  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(k, j) * t1_1(i)))(0, 1, 2)
343  - ((t2_2(0, 1) * t1_2(2)) - (t2_3(2, 1) * t1_1(0))),
344  "T3(i,j,k)-T3(k,j,i)(0,1,2)");
345  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(k, j) * t1_1(i)))(0, 2, 0)
346  - ((t2_2(0, 2) * t1_2(0)) - (t2_3(0, 2) * t1_1(0))),
347  "T3(i,j,k)-T3(k,j,i)(0,2,0)");
348  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(k, j) * t1_1(i)))(0, 2, 1)
349  - ((t2_2(0, 2) * t1_2(1)) - (t2_3(1, 2) * t1_1(0))),
350  "T3(i,j,k)-T3(k,j,i)(0,2,1)");
351  test_for_zero(((t2_2(i, j) * t1_2(k)) - (t2_3(k, j) * t1_1(i)))(0, 2, 2)
352  - ((t2_2(0, 2) * t1_2(2)) - (t2_3(2, 2) * t1_1(0))),
353  "T3(i,j,k)-T3(k,j,i)(0,2,2)");
354 
355  Dg<double, 3, 3> t3dg;
356 
357  t3dg(j, k, i) = (t2_2(i, j) * t1_2(k)) || (t2_2(i, k) * t1_2(j));
358  test_for_zero(t3dg(0, 0, 0) - (t2_2(0, 0) * t1_2(0) + t2_2(0, 0) * t1_2(0)),
359  "T3(i,j,k)||T3(i,k,j)(0,0,0)");
360  test_for_zero(t3dg(0, 1, 0) - (t2_2(0, 0) * t1_2(1) + t2_2(0, 1) * t1_2(0)),
361  "T3(i,j,k)||T3(i,k,j)(0,0,1)");
362  test_for_zero(t3dg(0, 2, 0) - (t2_2(0, 0) * t1_2(2) + t2_2(0, 2) * t1_2(0)),
363  "T3(i,j,k)||T3(i,k,j)(0,0,2)");
364  test_for_zero(t3dg(1, 0, 0) - (t2_2(0, 1) * t1_2(0) + t2_2(0, 0) * t1_2(1)),
365  "T3(i,j,k)||T3(i,k,j)(0,1,0)");
366  test_for_zero(t3dg(1, 1, 0) - (t2_2(0, 1) * t1_2(1) + t2_2(0, 1) * t1_2(1)),
367  "T3(i,j,k)||T3(i,k,j)(0,1,1)");
368  test_for_zero(t3dg(1, 2, 0) - (t2_2(0, 1) * t1_2(2) + t2_2(0, 2) * t1_2(1)),
369  "T3(i,j,k)||T3(i,k,j)(0,1,2)");
370  test_for_zero(t3dg(2, 0, 0) - (t2_2(0, 2) * t1_2(0) + t2_2(0, 0) * t1_2(2)),
371  "T3(i,j,k)||T3(i,k,j)(0,2,0)");
372  test_for_zero(t3dg(2, 1, 0) - (t2_2(0, 2) * t1_2(1) + t2_2(0, 1) * t1_2(2)),
373  "T3(i,j,k)||T3(i,k,j)(0,2,1)");
374  test_for_zero(t3dg(2, 2, 0) - (t2_2(0, 2) * t1_2(2) + t2_2(0, 2) * t1_2(2)),
375  "T3(i,j,k)||T3(i,k,j)(0,2,2)");
376  test_for_zero(t3dg(0, 0, 1) - (t2_2(1, 0) * t1_2(0) + t2_2(1, 0) * t1_2(0)),
377  "T3(i,j,k)||T3(i,k,j)(1,0,0)");
378  test_for_zero(t3dg(0, 1, 1) - (t2_2(1, 0) * t1_2(1) + t2_2(1, 1) * t1_2(0)),
379  "T3(i,j,k)||T3(i,k,j)(1,0,1)");
380  test_for_zero(t3dg(0, 2, 1) - (t2_2(1, 0) * t1_2(2) + t2_2(1, 2) * t1_2(0)),
381  "T3(i,j,k)||T3(i,k,j)(1,0,2)");
382  test_for_zero(t3dg(1, 0, 1) - (t2_2(1, 1) * t1_2(0) + t2_2(1, 0) * t1_2(1)),
383  "T3(i,j,k)||T3(i,k,j)(1,1,0)");
384  test_for_zero(t3dg(1, 1, 1) - (t2_2(1, 1) * t1_2(1) + t2_2(1, 1) * t1_2(1)),
385  "T3(i,j,k)||T3(i,k,j)(1,1,1)");
386  test_for_zero(t3dg(1, 2, 1) - (t2_2(1, 1) * t1_2(2) + t2_2(1, 2) * t1_2(1)),
387  "T3(i,j,k)||T3(i,k,j)(1,1,2)");
388  test_for_zero(t3dg(2, 0, 1) - (t2_2(1, 2) * t1_2(0) + t2_2(1, 0) * t1_2(2)),
389  "T3(i,j,k)||T3(i,k,j)(1,2,0)");
390  test_for_zero(t3dg(2, 1, 1) - (t2_2(1, 2) * t1_2(1) + t2_2(1, 1) * t1_2(2)),
391  "T3(i,j,k)||T3(i,k,j)(1,2,1)");
392  test_for_zero(t3dg(2, 2, 1) - (t2_2(1, 2) * t1_2(2) + t2_2(1, 2) * t1_2(2)),
393  "T3(i,j,k)||T3(i,k,j)(1,2,2)");
394  test_for_zero(t3dg(0, 0, 2) - (t2_2(2, 0) * t1_2(0) + t2_2(2, 0) * t1_2(0)),
395  "T3(i,j,k)||T3(i,k,j)(2,0,0)");
396  test_for_zero(t3dg(0, 1, 2) - (t2_2(2, 0) * t1_2(1) + t2_2(2, 1) * t1_2(0)),
397  "T3(i,j,k)||T3(i,k,j)(2,0,1)");
398  test_for_zero(t3dg(0, 2, 2) - (t2_2(2, 0) * t1_2(2) + t2_2(2, 2) * t1_2(0)),
399  "T3(i,j,k)||T3(i,k,j)(2,0,2)");
400  test_for_zero(t3dg(1, 0, 2) - (t2_2(2, 1) * t1_2(0) + t2_2(2, 0) * t1_2(1)),
401  "T3(i,j,k)||T3(i,k,j)(2,1,0)");
402  test_for_zero(t3dg(1, 1, 2) - (t2_2(2, 1) * t1_2(1) + t2_2(2, 1) * t1_2(1)),
403  "T3(i,j,k)||T3(i,k,j)(2,1,1)");
404  test_for_zero(t3dg(1, 2, 2) - (t2_2(2, 1) * t1_2(2) + t2_2(2, 2) * t1_2(1)),
405  "T3(i,j,k)||T3(i,k,j)(2,1,2)");
406  test_for_zero(t3dg(2, 0, 2) - (t2_2(2, 2) * t1_2(0) + t2_2(2, 0) * t1_2(2)),
407  "T3(i,j,k)||T3(i,k,j)(2,2,0)");
408  test_for_zero(t3dg(2, 1, 2) - (t2_2(2, 2) * t1_2(1) + t2_2(2, 1) * t1_2(2)),
409  "T3(i,j,k)||T3(i,k,j)(2,2,1)");
410  test_for_zero(t3dg(2, 2, 2) - (t2_2(2, 2) * t1_2(2) + t2_2(2, 2) * t1_2(2)),
411  "T3(i,j,k)||T3(i,k,j)(2,2,2)");
412 
413  t3dg(i, k, j) = (t2_2(i, j) * t1_2(k)) || (t2_2(k, j) * t1_2(i));
414  test_for_zero(t3dg(0, 0, 0) - (t2_2(0, 0) * t1_2(0) + t2_2(0, 0) * t1_2(0)),
415  "T3(i,j,k)||T3(k,j,i)(0,0,0)");
416  test_for_zero(t3dg(0, 1, 0) - (t2_2(0, 0) * t1_2(1) + t2_2(1, 0) * t1_2(0)),
417  "T3(i,j,k)||T3(k,j,i)(0,0,1)");
418  test_for_zero(t3dg(0, 2, 0) - (t2_2(0, 0) * t1_2(2) + t2_2(2, 0) * t1_2(0)),
419  "T3(i,j,k)||T3(k,j,i)(0,0,2)");
420  test_for_zero(t3dg(0, 0, 1) - (t2_2(0, 1) * t1_2(0) + t2_2(0, 1) * t1_2(0)),
421  "T3(i,j,k)||T3(k,j,i)(0,1,0)");
422  test_for_zero(t3dg(0, 1, 1) - (t2_2(0, 1) * t1_2(1) + t2_2(1, 1) * t1_2(0)),
423  "T3(i,j,k)||T3(k,j,i)(0,1,1)");
424  test_for_zero(t3dg(0, 2, 1) - (t2_2(0, 1) * t1_2(2) + t2_2(2, 1) * t1_2(0)),
425  "T3(i,j,k)||T3(k,j,i)(0,1,2)");
426  test_for_zero(t3dg(0, 0, 2) - (t2_2(0, 2) * t1_2(0) + t2_2(0, 2) * t1_2(0)),
427  "T3(i,j,k)||T3(k,j,i)(0,2,0)");
428  test_for_zero(t3dg(0, 1, 2) - (t2_2(0, 2) * t1_2(1) + t2_2(1, 2) * t1_2(0)),
429  "T3(i,j,k)||T3(k,j,i)(0,2,1)");
430  test_for_zero(t3dg(0, 2, 2) - (t2_2(0, 2) * t1_2(2) + t2_2(2, 2) * t1_2(0)),
431  "T3(i,j,k)||T3(k,j,i)(0,2,2)");
432  test_for_zero(t3dg(1, 0, 0) - (t2_2(1, 0) * t1_2(0) + t2_2(0, 0) * t1_2(1)),
433  "T3(i,j,k)||T3(k,j,i)(1,0,0)");
434  test_for_zero(t3dg(1, 1, 0) - (t2_2(1, 0) * t1_2(1) + t2_2(1, 0) * t1_2(1)),
435  "T3(i,j,k)||T3(k,j,i)(1,0,1)");
436  test_for_zero(t3dg(1, 2, 0) - (t2_2(1, 0) * t1_2(2) + t2_2(2, 0) * t1_2(1)),
437  "T3(i,j,k)||T3(k,j,i)(1,0,2)");
438  test_for_zero(t3dg(1, 0, 1) - (t2_2(1, 1) * t1_2(0) + t2_2(0, 1) * t1_2(1)),
439  "T3(i,j,k)||T3(k,j,i)(1,1,0)");
440  test_for_zero(t3dg(1, 1, 1) - (t2_2(1, 1) * t1_2(1) + t2_2(1, 1) * t1_2(1)),
441  "T3(i,j,k)||T3(k,j,i)(1,1,1)");
442  test_for_zero(t3dg(1, 2, 1) - (t2_2(1, 1) * t1_2(2) + t2_2(2, 1) * t1_2(1)),
443  "T3(i,j,k)||T3(k,j,i)(1,1,2)");
444  test_for_zero(t3dg(1, 0, 2) - (t2_2(1, 2) * t1_2(0) + t2_2(0, 2) * t1_2(1)),
445  "T3(i,j,k)||T3(k,j,i)(1,2,0)");
446  test_for_zero(t3dg(1, 1, 2) - (t2_2(1, 2) * t1_2(1) + t2_2(1, 2) * t1_2(1)),
447  "T3(i,j,k)||T3(k,j,i)(1,2,1)");
448  test_for_zero(t3dg(1, 2, 2) - (t2_2(1, 2) * t1_2(2) + t2_2(2, 2) * t1_2(1)),
449  "T3(i,j,k)||T3(k,j,i)(1,2,2)");
450  test_for_zero(t3dg(2, 0, 0) - (t2_2(2, 0) * t1_2(0) + t2_2(0, 0) * t1_2(2)),
451  "T3(i,j,k)||T3(k,j,i)(2,0,0)");
452  test_for_zero(t3dg(2, 1, 0) - (t2_2(2, 0) * t1_2(1) + t2_2(1, 0) * t1_2(2)),
453  "T3(i,j,k)||T3(k,j,i)(2,0,1)");
454  test_for_zero(t3dg(2, 2, 0) - (t2_2(2, 0) * t1_2(2) + t2_2(2, 0) * t1_2(2)),
455  "T3(i,j,k)||T3(k,j,i)(2,0,2)");
456  test_for_zero(t3dg(2, 0, 1) - (t2_2(2, 1) * t1_2(0) + t2_2(0, 1) * t1_2(2)),
457  "T3(i,j,k)||T3(k,j,i)(2,1,0)");
458  test_for_zero(t3dg(2, 1, 1) - (t2_2(2, 1) * t1_2(1) + t2_2(1, 1) * t1_2(2)),
459  "T3(i,j,k)||T3(k,j,i)(2,1,1)");
460  test_for_zero(t3dg(2, 2, 1) - (t2_2(2, 1) * t1_2(2) + t2_2(2, 1) * t1_2(2)),
461  "T3(i,j,k)||T3(k,j,i)(2,1,2)");
462  test_for_zero(t3dg(2, 0, 2) - (t2_2(2, 2) * t1_2(0) + t2_2(0, 2) * t1_2(2)),
463  "T3(i,j,k)||T3(k,j,i)(2,2,0)");
464  test_for_zero(t3dg(2, 1, 2) - (t2_2(2, 2) * t1_2(1) + t2_2(1, 2) * t1_2(2)),
465  "T3(i,j,k)||T3(k,j,i)(2,2,1)");
466  test_for_zero(t3dg(2, 2, 2) - (t2_2(2, 2) * t1_2(2) + t2_2(2, 2) * t1_2(2)),
467  "T3(i,j,k)||T3(k,j,i)(2,2,2)");
468 }

◆ test_T3_03()

void test_T3_03 ( const Tensor3< double, 3, 3, 3 > &  t3_1)

Definition at line 7 of file test_T3_03.cpp.

8 {
9  Index<'i', 3> i;
10  Index<'j', 3> j;
11  Index<'k', 3> k;
12 
13  Number<0> N0;
14  Number<1> N1;
15  Number<2> N2;
16 
17  Tensor3<double, 3, 3, 3> t3;
18 
19  t3(i, j, k) = t3_1(i, j, k);
20 
21  test_for_zero(t3(0, 0, 0) - t3_1(0, 0, 0), "T3(i,j,k)=T3(i,j,k)(0,0,0)");
22  test_for_zero(t3(0, 0, 1) - t3_1(0, 0, 1), "T3(i,j,k)=T3(i,j,k)(0,0,1)");
23  test_for_zero(t3(0, 0, 2) - t3_1(0, 0, 2), "T3(i,j,k)=T3(i,j,k)(0,0,2)");
24  test_for_zero(t3(0, 1, 0) - t3_1(0, 1, 0), "T3(i,j,k)=T3(i,j,k)(0,1,0)");
25  test_for_zero(t3(0, 1, 1) - t3_1(0, 1, 1), "T3(i,j,k)=T3(i,j,k)(0,1,1)");
26  test_for_zero(t3(0, 1, 2) - t3_1(0, 1, 2), "T3(i,j,k)=T3(i,j,k)(0,1,2)");
27  test_for_zero(t3(0, 2, 0) - t3_1(0, 2, 0), "T3(i,j,k)=T3(i,j,k)(0,2,0)");
28  test_for_zero(t3(0, 2, 1) - t3_1(0, 2, 1), "T3(i,j,k)=T3(i,j,k)(0,2,1)");
29  test_for_zero(t3(0, 2, 2) - t3_1(0, 2, 2), "T3(i,j,k)=T3(i,j,k)(0,2,2)");
30 
31  test_for_zero(t3(1, 0, 0) - t3_1(1, 0, 0), "T3(i,j,k)=T3(i,j,k)(1,0,0)");
32  test_for_zero(t3(1, 0, 1) - t3_1(1, 0, 1), "T3(i,j,k)=T3(i,j,k)(1,0,1)");
33  test_for_zero(t3(1, 0, 2) - t3_1(1, 0, 2), "T3(i,j,k)=T3(i,j,k)(1,0,2)");
34  test_for_zero(t3(1, 1, 0) - t3_1(1, 1, 0), "T3(i,j,k)=T3(i,j,k)(1,1,0)");
35  test_for_zero(t3(1, 1, 1) - t3_1(1, 1, 1), "T3(i,j,k)=T3(i,j,k)(1,1,1)");
36  test_for_zero(t3(1, 1, 2) - t3_1(1, 1, 2), "T3(i,j,k)=T3(i,j,k)(1,1,2)");
37  test_for_zero(t3(1, 2, 0) - t3_1(1, 2, 0), "T3(i,j,k)=T3(i,j,k)(1,2,0)");
38  test_for_zero(t3(1, 2, 1) - t3_1(1, 2, 1), "T3(i,j,k)=T3(i,j,k)(1,2,1)");
39  test_for_zero(t3(1, 2, 2) - t3_1(1, 2, 2), "T3(i,j,k)=T3(i,j,k)(1,2,2)");
40 
41  test_for_zero(t3(2, 0, 0) - t3_1(2, 0, 0), "T3(i,j,k)=T3(i,j,k)(2,0,0)");
42  test_for_zero(t3(2, 0, 1) - t3_1(2, 0, 1), "T3(i,j,k)=T3(i,j,k)(2,0,1)");
43  test_for_zero(t3(2, 0, 2) - t3_1(2, 0, 2), "T3(i,j,k)=T3(i,j,k)(2,0,2)");
44  test_for_zero(t3(2, 1, 0) - t3_1(2, 1, 0), "T3(i,j,k)=T3(i,j,k)(2,1,0)");
45  test_for_zero(t3(2, 1, 1) - t3_1(2, 1, 1), "T3(i,j,k)=T3(i,j,k)(2,1,1)");
46  test_for_zero(t3(2, 1, 2) - t3_1(2, 1, 2), "T3(i,j,k)=T3(i,j,k)(2,1,2)");
47  test_for_zero(t3(2, 2, 0) - t3_1(2, 2, 0), "T3(i,j,k)=T3(i,j,k)(2,2,0)");
48  test_for_zero(t3(2, 2, 1) - t3_1(2, 2, 1), "T3(i,j,k)=T3(i,j,k)(2,2,1)");
49  test_for_zero(t3(2, 2, 2) - t3_1(2, 2, 2), "T3(i,j,k)=T3(i,j,k)(2,2,2)");
50 
51  t3(i, j, k) = 10;
52 
53  test_for_zero(t3(0, 0, 0) - 10, "T3(i,j,k)=T(0,0,0)");
54  test_for_zero(t3(0, 0, 1) - 10, "T3(i,j,k)=T(0,0,1)");
55  test_for_zero(t3(0, 0, 2) - 10, "T3(i,j,k)=T(0,0,2)");
56  test_for_zero(t3(0, 1, 0) - 10, "T3(i,j,k)=T(0,1,0)");
57  test_for_zero(t3(0, 1, 1) - 10, "T3(i,j,k)=T(0,1,1)");
58  test_for_zero(t3(0, 1, 2) - 10, "T3(i,j,k)=T(0,1,2)");
59  test_for_zero(t3(0, 2, 0) - 10, "T3(i,j,k)=T(0,2,0)");
60  test_for_zero(t3(0, 2, 1) - 10, "T3(i,j,k)=T(0,2,1)");
61  test_for_zero(t3(0, 2, 2) - 10, "T3(i,j,k)=T(0,2,2)");
62 
63  test_for_zero(t3(1, 0, 0) - 10, "T3(i,j,k)=T(1,0,0)");
64  test_for_zero(t3(1, 0, 1) - 10, "T3(i,j,k)=T(1,0,1)");
65  test_for_zero(t3(1, 0, 2) - 10, "T3(i,j,k)=T(1,0,2)");
66  test_for_zero(t3(1, 1, 0) - 10, "T3(i,j,k)=T(1,1,0)");
67  test_for_zero(t3(1, 1, 1) - 10, "T3(i,j,k)=T(1,1,1)");
68  test_for_zero(t3(1, 1, 2) - 10, "T3(i,j,k)=T(1,1,2)");
69  test_for_zero(t3(1, 2, 0) - 10, "T3(i,j,k)=T(1,2,0)");
70  test_for_zero(t3(1, 2, 1) - 10, "T3(i,j,k)=T(1,2,1)");
71  test_for_zero(t3(1, 2, 2) - 10, "T3(i,j,k)=T(1,2,2)");
72 
73  test_for_zero(t3(2, 0, 0) - 10, "T3(i,j,k)=T(2,0,0)");
74  test_for_zero(t3(2, 0, 1) - 10, "T3(i,j,k)=T(2,0,1)");
75  test_for_zero(t3(2, 0, 2) - 10, "T3(i,j,k)=T(2,0,2)");
76  test_for_zero(t3(2, 1, 0) - 10, "T3(i,j,k)=T(2,1,0)");
77  test_for_zero(t3(2, 1, 1) - 10, "T3(i,j,k)=T(2,1,1)");
78  test_for_zero(t3(2, 1, 2) - 10, "T3(i,j,k)=T(2,1,2)");
79  test_for_zero(t3(2, 2, 0) - 10, "T3(i,j,k)=T(2,2,0)");
80  test_for_zero(t3(2, 2, 1) - 10, "T3(i,j,k)=T(2,2,1)");
81  test_for_zero(t3(2, 2, 2) - 10, "T3(i,j,k)=T(2,2,2)");
82 
83  t3(i, j, k) = t3_1(i, k, j);
84 
85  test_for_zero(t3(0, 0, 0) - t3_1(0, 0, 0), "T3(i,j,k)=T3(i,k,j)(0,0,0)");
86  test_for_zero(t3(0, 0, 1) - t3_1(0, 1, 0), "T3(i,j,k)=T3(i,k,j)(0,0,1)");
87  test_for_zero(t3(0, 0, 2) - t3_1(0, 2, 0), "T3(i,j,k)=T3(i,k,j)(0,0,2)");
88  test_for_zero(t3(0, 1, 0) - t3_1(0, 0, 1), "T3(i,j,k)=T3(i,k,j)(0,1,0)");
89  test_for_zero(t3(0, 1, 1) - t3_1(0, 1, 1), "T3(i,j,k)=T3(i,k,j)(0,1,1)");
90  test_for_zero(t3(0, 1, 2) - t3_1(0, 2, 1), "T3(i,j,k)=T3(i,k,j)(0,1,2)");
91  test_for_zero(t3(0, 2, 0) - t3_1(0, 0, 2), "T3(i,j,k)=T3(i,k,j)(0,2,0)");
92  test_for_zero(t3(0, 2, 1) - t3_1(0, 1, 2), "T3(i,j,k)=T3(i,k,j)(0,2,1)");
93  test_for_zero(t3(0, 2, 2) - t3_1(0, 2, 2), "T3(i,j,k)=T3(i,k,j)(0,2,2)");
94 
95  test_for_zero(t3(1, 0, 0) - t3_1(1, 0, 0), "T3(i,j,k)=T3(i,k,j)(1,0,0)");
96  test_for_zero(t3(1, 0, 1) - t3_1(1, 1, 0), "T3(i,j,k)=T3(i,k,j)(1,0,1)");
97  test_for_zero(t3(1, 0, 2) - t3_1(1, 2, 0), "T3(i,j,k)=T3(i,k,j)(1,0,2)");
98  test_for_zero(t3(1, 1, 0) - t3_1(1, 0, 1), "T3(i,j,k)=T3(i,k,j)(1,1,0)");
99  test_for_zero(t3(1, 1, 1) - t3_1(1, 1, 1), "T3(i,j,k)=T3(i,k,j)(1,1,1)");
100  test_for_zero(t3(1, 1, 2) - t3_1(1, 2, 1), "T3(i,j,k)=T3(i,k,j)(1,1,2)");
101  test_for_zero(t3(1, 2, 0) - t3_1(1, 0, 2), "T3(i,j,k)=T3(i,k,j)(1,2,0)");
102  test_for_zero(t3(1, 2, 1) - t3_1(1, 1, 2), "T3(i,j,k)=T3(i,k,j)(1,2,1)");
103  test_for_zero(t3(1, 2, 2) - t3_1(1, 2, 2), "T3(i,j,k)=T3(i,k,j)(1,2,2)");
104 
105  test_for_zero(t3(2, 0, 0) - t3_1(2, 0, 0), "T3(i,j,k)=T3(i,k,j)(2,0,0)");
106  test_for_zero(t3(2, 0, 1) - t3_1(2, 1, 0), "T3(i,j,k)=T3(i,k,j)(2,0,1)");
107  test_for_zero(t3(2, 0, 2) - t3_1(2, 2, 0), "T3(i,j,k)=T3(i,k,j)(2,0,2)");
108  test_for_zero(t3(2, 1, 0) - t3_1(2, 0, 1), "T3(i,j,k)=T3(i,k,j)(2,1,0)");
109  test_for_zero(t3(2, 1, 1) - t3_1(2, 1, 1), "T3(i,j,k)=T3(i,k,j)(2,1,1)");
110  test_for_zero(t3(2, 1, 2) - t3_1(2, 2, 1), "T3(i,j,k)=T3(i,k,j)(2,1,2)");
111  test_for_zero(t3(2, 2, 0) - t3_1(2, 0, 2), "T3(i,j,k)=T3(i,k,j)(2,2,0)");
112  test_for_zero(t3(2, 2, 1) - t3_1(2, 1, 2), "T3(i,j,k)=T3(i,k,j)(2,2,1)");
113  test_for_zero(t3(2, 2, 2) - t3_1(2, 2, 2), "T3(i,j,k)=T3(i,k,j)(2,2,2)");
114 
115  t3(i, j, k) = t3_1(j, i, k);
116 
117  test_for_zero(t3(0, 0, 0) - t3_1(0, 0, 0), "T3(i,j,k)=T3(j,i,k)(0,0,0)");
118  test_for_zero(t3(0, 0, 1) - t3_1(0, 0, 1), "T3(i,j,k)=T3(j,i,k)(0,0,1)");
119  test_for_zero(t3(0, 0, 2) - t3_1(0, 0, 2), "T3(i,j,k)=T3(j,i,k)(0,0,2)");
120  test_for_zero(t3(0, 1, 0) - t3_1(1, 0, 0), "T3(i,j,k)=T3(j,i,k)(0,1,0)");
121  test_for_zero(t3(0, 1, 1) - t3_1(1, 0, 1), "T3(i,j,k)=T3(j,i,k)(0,1,1)");
122  test_for_zero(t3(0, 1, 2) - t3_1(1, 0, 2), "T3(i,j,k)=T3(j,i,k)(0,1,2)");
123  test_for_zero(t3(0, 2, 0) - t3_1(2, 0, 0), "T3(i,j,k)=T3(j,i,k)(0,2,0)");
124  test_for_zero(t3(0, 2, 1) - t3_1(2, 0, 1), "T3(i,j,k)=T3(j,i,k)(0,2,1)");
125  test_for_zero(t3(0, 2, 2) - t3_1(2, 0, 2), "T3(i,j,k)=T3(j,i,k)(0,2,2)");
126 
127  test_for_zero(t3(1, 0, 0) - t3_1(0, 1, 0), "T3(i,j,k)=T3(j,i,k)(1,0,0)");
128  test_for_zero(t3(1, 0, 1) - t3_1(0, 1, 1), "T3(i,j,k)=T3(j,i,k)(1,0,1)");
129  test_for_zero(t3(1, 0, 2) - t3_1(0, 1, 2), "T3(i,j,k)=T3(j,i,k)(1,0,2)");
130  test_for_zero(t3(1, 1, 0) - t3_1(1, 1, 0), "T3(i,j,k)=T3(j,i,k)(1,1,0)");
131  test_for_zero(t3(1, 1, 1) - t3_1(1, 1, 1), "T3(i,j,k)=T3(j,i,k)(1,1,1)");
132  test_for_zero(t3(1, 1, 2) - t3_1(1, 1, 2), "T3(i,j,k)=T3(j,i,k)(1,1,2)");
133  test_for_zero(t3(1, 2, 0) - t3_1(2, 1, 0), "T3(i,j,k)=T3(j,i,k)(1,2,0)");
134  test_for_zero(t3(1, 2, 1) - t3_1(2, 1, 1), "T3(i,j,k)=T3(j,i,k)(1,2,1)");
135  test_for_zero(t3(1, 2, 2) - t3_1(2, 1, 2), "T3(i,j,k)=T3(j,i,k)(1,2,2)");
136 
137  test_for_zero(t3(2, 0, 0) - t3_1(0, 2, 0), "T3(i,j,k)=T3(j,i,k)(2,0,0)");
138  test_for_zero(t3(2, 0, 1) - t3_1(0, 2, 1), "T3(i,j,k)=T3(j,i,k)(2,0,1)");
139  test_for_zero(t3(2, 0, 2) - t3_1(0, 2, 2), "T3(i,j,k)=T3(j,i,k)(2,0,2)");
140  test_for_zero(t3(2, 1, 0) - t3_1(1, 2, 0), "T3(i,j,k)=T3(j,i,k)(2,1,0)");
141  test_for_zero(t3(2, 1, 1) - t3_1(1, 2, 1), "T3(i,j,k)=T3(j,i,k)(2,1,1)");
142  test_for_zero(t3(2, 1, 2) - t3_1(1, 2, 2), "T3(i,j,k)=T3(j,i,k)(2,1,2)");
143  test_for_zero(t3(2, 2, 0) - t3_1(2, 2, 0), "T3(i,j,k)=T3(j,i,k)(2,2,0)");
144  test_for_zero(t3(2, 2, 1) - t3_1(2, 2, 1), "T3(i,j,k)=T3(j,i,k)(2,2,1)");
145  test_for_zero(t3(2, 2, 2) - t3_1(2, 2, 2), "T3(i,j,k)=T3(j,i,k)(2,2,2)");
146 
147  t3(i, j, k) = t3_1(j, k, i);
148 
149  test_for_zero(t3(0, 0, 0) - t3_1(0, 0, 0), "T3(i,j,k)=T3(j,k,i)(0,0,0)");
150  test_for_zero(t3(0, 0, 1) - t3_1(0, 1, 0), "T3(i,j,k)=T3(j,k,i)(0,0,1)");
151  test_for_zero(t3(0, 0, 2) - t3_1(0, 2, 0), "T3(i,j,k)=T3(j,k,i)(0,0,2)");
152  test_for_zero(t3(0, 1, 0) - t3_1(1, 0, 0), "T3(i,j,k)=T3(j,k,i)(0,1,0)");
153  test_for_zero(t3(0, 1, 1) - t3_1(1, 1, 0), "T3(i,j,k)=T3(j,k,i)(0,1,1)");
154  test_for_zero(t3(0, 1, 2) - t3_1(1, 2, 0), "T3(i,j,k)=T3(j,k,i)(0,1,2)");
155  test_for_zero(t3(0, 2, 0) - t3_1(2, 0, 0), "T3(i,j,k)=T3(j,k,i)(0,2,0)");
156  test_for_zero(t3(0, 2, 1) - t3_1(2, 1, 0), "T3(i,j,k)=T3(j,k,i)(0,2,1)");
157  test_for_zero(t3(0, 2, 2) - t3_1(2, 2, 0), "T3(i,j,k)=T3(j,k,i)(0,2,2)");
158 
159  test_for_zero(t3(1, 0, 0) - t3_1(0, 0, 1), "T3(i,j,k)=T3(j,k,i)(1,0,0)");
160  test_for_zero(t3(1, 0, 1) - t3_1(0, 1, 1), "T3(i,j,k)=T3(j,k,i)(1,0,1)");
161  test_for_zero(t3(1, 0, 2) - t3_1(0, 2, 1), "T3(i,j,k)=T3(j,k,i)(1,0,2)");
162  test_for_zero(t3(1, 1, 0) - t3_1(1, 0, 1), "T3(i,j,k)=T3(j,k,i)(1,1,0)");
163  test_for_zero(t3(1, 1, 1) - t3_1(1, 1, 1), "T3(i,j,k)=T3(j,k,i)(1,1,1)");
164  test_for_zero(t3(1, 1, 2) - t3_1(1, 2, 1), "T3(i,j,k)=T3(j,k,i)(1,1,2)");
165  test_for_zero(t3(1, 2, 0) - t3_1(2, 0, 1), "T3(i,j,k)=T3(j,k,i)(1,2,0)");
166  test_for_zero(t3(1, 2, 1) - t3_1(2, 1, 1), "T3(i,j,k)=T3(j,k,i)(1,2,1)");
167  test_for_zero(t3(1, 2, 2) - t3_1(2, 2, 1), "T3(i,j,k)=T3(j,k,i)(1,2,2)");
168 
169  test_for_zero(t3(2, 0, 0) - t3_1(0, 0, 2), "T3(i,j,k)=T3(j,k,i)(2,0,0)");
170  test_for_zero(t3(2, 0, 1) - t3_1(0, 1, 2), "T3(i,j,k)=T3(j,k,i)(2,0,1)");
171  test_for_zero(t3(2, 0, 2) - t3_1(0, 2, 2), "T3(i,j,k)=T3(j,k,i)(2,0,2)");
172  test_for_zero(t3(2, 1, 0) - t3_1(1, 0, 2), "T3(i,j,k)=T3(j,k,i)(2,1,0)");
173  test_for_zero(t3(2, 1, 1) - t3_1(1, 1, 2), "T3(i,j,k)=T3(j,k,i)(2,1,1)");
174  test_for_zero(t3(2, 1, 2) - t3_1(1, 2, 2), "T3(i,j,k)=T3(j,k,i)(2,1,2)");
175  test_for_zero(t3(2, 2, 0) - t3_1(2, 0, 2), "T3(i,j,k)=T3(j,k,i)(2,2,0)");
176  test_for_zero(t3(2, 2, 1) - t3_1(2, 1, 2), "T3(i,j,k)=T3(j,k,i)(2,2,1)");
177  test_for_zero(t3(2, 2, 2) - t3_1(2, 2, 2), "T3(i,j,k)=T3(j,k,i)(2,2,2)");
178 
179  t3(i, j, k) = t3_1(k, i, j);
180 
181  test_for_zero(t3(0, 0, 0) - t3_1(0, 0, 0), "T3(i,j,k)=T3(k,i,j)(0,0,0)");
182  test_for_zero(t3(0, 0, 1) - t3_1(1, 0, 0), "T3(i,j,k)=T3(k,i,j)(0,0,1)");
183  test_for_zero(t3(0, 0, 2) - t3_1(2, 0, 0), "T3(i,j,k)=T3(k,i,j)(0,0,2)");
184  test_for_zero(t3(0, 1, 0) - t3_1(0, 0, 1), "T3(i,j,k)=T3(k,i,j)(0,1,0)");
185  test_for_zero(t3(0, 1, 1) - t3_1(1, 0, 1), "T3(i,j,k)=T3(k,i,j)(0,1,1)");
186  test_for_zero(t3(0, 1, 2) - t3_1(2, 0, 1), "T3(i,j,k)=T3(k,i,j)(0,1,2)");
187  test_for_zero(t3(0, 2, 0) - t3_1(0, 0, 2), "T3(i,j,k)=T3(k,i,j)(0,2,0)");
188  test_for_zero(t3(0, 2, 1) - t3_1(1, 0, 2), "T3(i,j,k)=T3(k,i,j)(0,2,1)");
189  test_for_zero(t3(0, 2, 2) - t3_1(2, 0, 2), "T3(i,j,k)=T3(k,i,j)(0,2,2)");
190 
191  test_for_zero(t3(1, 0, 0) - t3_1(0, 1, 0), "T3(i,j,k)=T3(k,i,j)(1,0,0)");
192  test_for_zero(t3(1, 0, 1) - t3_1(1, 1, 0), "T3(i,j,k)=T3(k,i,j)(1,0,1)");
193  test_for_zero(t3(1, 0, 2) - t3_1(2, 1, 0), "T3(i,j,k)=T3(k,i,j)(1,0,2)");
194  test_for_zero(t3(1, 1, 0) - t3_1(0, 1, 1), "T3(i,j,k)=T3(k,i,j)(1,1,0)");
195  test_for_zero(t3(1, 1, 1) - t3_1(1, 1, 1), "T3(i,j,k)=T3(k,i,j)(1,1,1)");
196  test_for_zero(t3(1, 1, 2) - t3_1(2, 1, 1), "T3(i,j,k)=T3(k,i,j)(1,1,2)");
197  test_for_zero(t3(1, 2, 0) - t3_1(0, 1, 2), "T3(i,j,k)=T3(k,i,j)(1,2,0)");
198  test_for_zero(t3(1, 2, 1) - t3_1(1, 1, 2), "T3(i,j,k)=T3(k,i,j)(1,2,1)");
199  test_for_zero(t3(1, 2, 2) - t3_1(2, 1, 2), "T3(i,j,k)=T3(k,i,j)(1,2,2)");
200 
201  test_for_zero(t3(2, 0, 0) - t3_1(0, 2, 0), "T3(i,j,k)=T3(k,i,j)(2,0,0)");
202  test_for_zero(t3(2, 0, 1) - t3_1(1, 2, 0), "T3(i,j,k)=T3(k,i,j)(2,0,1)");
203  test_for_zero(t3(2, 0, 2) - t3_1(2, 2, 0), "T3(i,j,k)=T3(k,i,j)(2,0,2)");
204  test_for_zero(t3(2, 1, 0) - t3_1(0, 2, 1), "T3(i,j,k)=T3(k,i,j)(2,1,0)");
205  test_for_zero(t3(2, 1, 1) - t3_1(1, 2, 1), "T3(i,j,k)=T3(k,i,j)(2,1,1)");
206  test_for_zero(t3(2, 1, 2) - t3_1(2, 2, 1), "T3(i,j,k)=T3(k,i,j)(2,1,2)");
207  test_for_zero(t3(2, 2, 0) - t3_1(0, 2, 2), "T3(i,j,k)=T3(k,i,j)(2,2,0)");
208  test_for_zero(t3(2, 2, 1) - t3_1(1, 2, 2), "T3(i,j,k)=T3(k,i,j)(2,2,1)");
209  test_for_zero(t3(2, 2, 2) - t3_1(2, 2, 2), "T3(i,j,k)=T3(k,i,j)(2,2,2)");
210 
211  t3(i, j, k) = t3_1(k, j, i);
212 
213  test_for_zero(t3(0, 0, 0) - t3_1(0, 0, 0), "T3(i,j,k)=T3(k,j,i)(0,0,0)");
214  test_for_zero(t3(0, 0, 1) - t3_1(1, 0, 0), "T3(i,j,k)=T3(k,j,i)(0,0,1)");
215  test_for_zero(t3(0, 0, 2) - t3_1(2, 0, 0), "T3(i,j,k)=T3(k,j,i)(0,0,2)");
216  test_for_zero(t3(0, 1, 0) - t3_1(0, 1, 0), "T3(i,j,k)=T3(k,j,i)(0,1,0)");
217  test_for_zero(t3(0, 1, 1) - t3_1(1, 1, 0), "T3(i,j,k)=T3(k,j,i)(0,1,1)");
218  test_for_zero(t3(0, 1, 2) - t3_1(2, 1, 0), "T3(i,j,k)=T3(k,j,i)(0,1,2)");
219  test_for_zero(t3(0, 2, 0) - t3_1(0, 2, 0), "T3(i,j,k)=T3(k,j,i)(0,2,0)");
220  test_for_zero(t3(0, 2, 1) - t3_1(1, 2, 0), "T3(i,j,k)=T3(k,j,i)(0,2,1)");
221  test_for_zero(t3(0, 2, 2) - t3_1(2, 2, 0), "T3(i,j,k)=T3(k,j,i)(0,2,2)");
222 
223  test_for_zero(t3(1, 0, 0) - t3_1(0, 0, 1), "T3(i,j,k)=T3(k,j,i)(1,0,0)");
224  test_for_zero(t3(1, 0, 1) - t3_1(1, 0, 1), "T3(i,j,k)=T3(k,j,i)(1,0,1)");
225  test_for_zero(t3(1, 0, 2) - t3_1(2, 0, 1), "T3(i,j,k)=T3(k,j,i)(1,0,2)");
226  test_for_zero(t3(1, 1, 0) - t3_1(0, 1, 1), "T3(i,j,k)=T3(k,j,i)(1,1,0)");
227  test_for_zero(t3(1, 1, 1) - t3_1(1, 1, 1), "T3(i,j,k)=T3(k,j,i)(1,1,1)");
228  test_for_zero(t3(1, 1, 2) - t3_1(2, 1, 1), "T3(i,j,k)=T3(k,j,i)(1,1,2)");
229  test_for_zero(t3(1, 2, 0) - t3_1(0, 2, 1), "T3(i,j,k)=T3(k,j,i)(1,2,0)");
230  test_for_zero(t3(1, 2, 1) - t3_1(1, 2, 1), "T3(i,j,k)=T3(k,j,i)(1,2,1)");
231  test_for_zero(t3(1, 2, 2) - t3_1(2, 2, 1), "T3(i,j,k)=T3(k,j,i)(1,2,2)");
232 
233  test_for_zero(t3(2, 0, 0) - t3_1(0, 0, 2), "T3(i,j,k)=T3(k,j,i)(2,0,0)");
234  test_for_zero(t3(2, 0, 1) - t3_1(1, 0, 2), "T3(i,j,k)=T3(k,j,i)(2,0,1)");
235  test_for_zero(t3(2, 0, 2) - t3_1(2, 0, 2), "T3(i,j,k)=T3(k,j,i)(2,0,2)");
236  test_for_zero(t3(2, 1, 0) - t3_1(0, 1, 2), "T3(i,j,k)=T3(k,j,i)(2,1,0)");
237  test_for_zero(t3(2, 1, 1) - t3_1(1, 1, 2), "T3(i,j,k)=T3(k,j,i)(2,1,1)");
238  test_for_zero(t3(2, 1, 2) - t3_1(2, 1, 2), "T3(i,j,k)=T3(k,j,i)(2,1,2)");
239  test_for_zero(t3(2, 2, 0) - t3_1(0, 2, 2), "T3(i,j,k)=T3(k,j,i)(2,2,0)");
240  test_for_zero(t3(2, 2, 1) - t3_1(1, 2, 2), "T3(i,j,k)=T3(k,j,i)(2,2,1)");
241  test_for_zero(t3(2, 2, 2) - t3_1(2, 2, 2), "T3(i,j,k)=T3(k,j,i)(2,2,2)");
242 }

◆ test_T3_iostream()

void test_T3_iostream ( )

Definition at line 7 of file test_T3_iostream.cpp.

8 {
9  test_ostream(Tensor3<double, 2, 2, 2>(3., 4., 7., 8., 11., 12., 13., 14.),
10  "[[[3,4],[7,8]],[[11,12],[13,14]]]", "operator<<(T3<3,3,2>)");
11 
12  Tensor3<double, 2, 2, 2> t3_1;
13  std::stringstream ss("[[[3,4],[7,8]],[[11,12],[13,14]]]");
14  ss >> t3_1;
15  test_for_zero(t3_1(0, 0, 0) - 3, "operator>>(T3)(0,0,0)");
16  test_for_zero(t3_1(0, 0, 1) - 4, "operator>>(T3)(0,0,1)");
17  test_for_zero(t3_1(0, 1, 0) - 7, "operator>>(T3)(0,1,0)");
18  test_for_zero(t3_1(0, 1, 1) - 8, "operator>>(T3)(0,1,1)");
19  test_for_zero(t3_1(1, 0, 0) - 11, "operator>>(T3)(1,0,0)");
20  test_for_zero(t3_1(1, 0, 1) - 12, "operator>>(T3)(1,0,1)");
21  test_for_zero(t3_1(1, 1, 0) - 13, "operator>>(T3)(1,1,0)");
22  test_for_zero(t3_1(1, 1, 1) - 14, "operator>>(T3)(1,1,1)");
23 }
test_T3_03
void test_T3_03(const Tensor3< double, 3, 3, 3 > &t3_1)
Definition: test_T3_03.cpp:7
FTensor::Tensor1< double, 3 >
test_T3_004
void test_T3_004(const Tensor3< double, 3, 3, 3 > &t3_1)
Definition: test_T3_004.cpp:7
FTensor::Tensor2_symmetric
Definition: Tensor2_symmetric_value.hpp:13
test_ostream
void test_ostream(const T &t, const std::string &expected, const std::string &test_name)
Definition: test_ostream.hpp:7
FTensor::Tensor2< double, 3, 3 >
FTensor::Number< 0 >
FTensor::Tensor3
Definition: Tensor3_value.hpp:12
test_for_zero
void test_for_zero(const T &t, const std::string &s)
Definition: test_for_zero.hpp:7
test_T3_iostream
void test_T3_iostream()
Definition: test_T3_iostream.cpp:7
i
FTensor::Index< 'i', SPACE_DIM > i
Definition: hcurl_divergence_operator_2d.cpp:27
FTensor::Index< 'i', 3 >
FTensor::Dg
Definition: Dg_value.hpp:9
j
FTensor::Index< 'j', 3 > j
Definition: matrix_function.cpp:19
test_T3_02
void test_T3_02(const Tensor1< double, 3 > &t1_1, const Tensor1< double, 3 > &t1_2, const Tensor2< double, 3, 3 > &t2_2, const Tensor2< double, 3, 3 > &t2_3)
Definition: test_T3_02.cpp:7
test_T3_01
void test_T3_01(const Tensor1< double, 3 > &t1_1, const Tensor1< double, 3 > &t1_2, const Tensor2< double, 3, 3 > &t2_2, const Tensor2< double, 3, 3 > &t2_3, const Tensor2_symmetric< double, 3 > &t2s_2, const Tensor2_symmetric< double, 3 > &t2s_3, const Dg< double, 3, 3 > &t3dg_2)
Definition: test_T3_01.cpp:7
k
FTensor::Index< 'k', 3 > k
Definition: matrix_function.cpp:20
l
FTensor::Index< 'l', 3 > l
Definition: matrix_function.cpp:21
Generated by Doxygen 1.8.17 and hosted at University of Glasgow