v0.14.0
test_T4_03.cpp
Go to the documentation of this file.
1 #include <iostream>
2 #include "../../../src/FTensor.hpp"
3 #include "../test_for_zero.hpp"
4 using namespace FTensor;
5 using namespace std;
6 
7 void test_T4_03(const Tensor4<double, 3, 3, 3, 3> &t4_1,
8  const Tensor4<double, 3, 3, 3, 3> &t4_2)
9 {
10  Index<'i', 3> i;
11  Index<'j', 3> j;
12  Index<'k', 3> k;
13  Index<'l', 3> l;
14  Index<'m', 3> m;
15  Index<'n', 3> n;
16 
17  Number<0> N0;
18  Number<1> N1;
19  Number<2> N2;
20 
21  /* T4(i,j,k,l) - T4(i,j,k,l) */
22 
23  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(0, 0, 0, 0)
24  - (t4_1(0, 0, 0, 0) - t4_2(0, 0, 0, 0)),
25  "T4(i,j,k,l)-T4(i,j,k,l)(0,0,0,0)");
26  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(0, 0, 0, 1)
27  - (t4_1(0, 0, 0, 1) - t4_2(0, 0, 0, 1)),
28  "T4(i,j,k,l)-T4(i,j,k,l)(0,0,0,1)");
29  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(0, 0, 0, 2)
30  - (t4_1(0, 0, 0, 2) - t4_2(0, 0, 0, 2)),
31  "T4(i,j,k,l)-T4(i,j,k,l)(0,0,0,2)");
32  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(0, 0, 1, 0)
33  - (t4_1(0, 0, 1, 0) - t4_2(0, 0, 1, 0)),
34  "T4(i,j,k,l)-T4(i,j,k,l)(0,0,1,0)");
35  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(0, 0, 1, 1)
36  - (t4_1(0, 0, 1, 1) - t4_2(0, 0, 1, 1)),
37  "T4(i,j,k,l)-T4(i,j,k,l)(0,0,1,1)");
38  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(0, 0, 1, 2)
39  - (t4_1(0, 0, 1, 2) - t4_2(0, 0, 1, 2)),
40  "T4(i,j,k,l)-T4(i,j,k,l)(0,0,1,2)");
41  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(0, 0, 2, 0)
42  - (t4_1(0, 0, 2, 0) - t4_2(0, 0, 2, 0)),
43  "T4(i,j,k,l)-T4(i,j,k,l)(0,0,2,0)");
44  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(0, 0, 2, 1)
45  - (t4_1(0, 0, 2, 1) - t4_2(0, 0, 2, 1)),
46  "T4(i,j,k,l)-T4(i,j,k,l)(0,0,2,1)");
47  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(0, 0, 2, 2)
48  - (t4_1(0, 0, 2, 2) - t4_2(0, 0, 2, 2)),
49  "T4(i,j,k,l)-T4(i,j,k,l)(0,0,2,2)");
50  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(0, 1, 0, 0)
51  - (t4_1(0, 1, 0, 0) - t4_2(0, 1, 0, 0)),
52  "T4(i,j,k,l)-T4(i,j,k,l)(0,1,0,0)");
53  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(0, 1, 0, 1)
54  - (t4_1(0, 1, 0, 1) - t4_2(0, 1, 0, 1)),
55  "T4(i,j,k,l)-T4(i,j,k,l)(0,1,0,1)");
56  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(0, 1, 0, 2)
57  - (t4_1(0, 1, 0, 2) - t4_2(0, 1, 0, 2)),
58  "T4(i,j,k,l)-T4(i,j,k,l)(0,1,0,2)");
59  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(0, 1, 1, 0)
60  - (t4_1(0, 1, 1, 0) - t4_2(0, 1, 1, 0)),
61  "T4(i,j,k,l)-T4(i,j,k,l)(0,1,1,0)");
62  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(0, 1, 1, 1)
63  - (t4_1(0, 1, 1, 1) - t4_2(0, 1, 1, 1)),
64  "T4(i,j,k,l)-T4(i,j,k,l)(0,1,1,1)");
65  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(0, 1, 1, 2)
66  - (t4_1(0, 1, 1, 2) - t4_2(0, 1, 1, 2)),
67  "T4(i,j,k,l)-T4(i,j,k,l)(0,1,1,2)");
68  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(0, 1, 2, 0)
69  - (t4_1(0, 1, 2, 0) - t4_2(0, 1, 2, 0)),
70  "T4(i,j,k,l)-T4(i,j,k,l)(0,1,2,0)");
71  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(0, 1, 2, 1)
72  - (t4_1(0, 1, 2, 1) - t4_2(0, 1, 2, 1)),
73  "T4(i,j,k,l)-T4(i,j,k,l)(0,1,2,1)");
74  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(0, 1, 2, 2)
75  - (t4_1(0, 1, 2, 2) - t4_2(0, 1, 2, 2)),
76  "T4(i,j,k,l)-T4(i,j,k,l)(0,1,2,2)");
77  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(0, 2, 0, 0)
78  - (t4_1(0, 2, 0, 0) - t4_2(0, 2, 0, 0)),
79  "T4(i,j,k,l)-T4(i,j,k,l)(0,2,0,0)");
80  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(0, 2, 0, 1)
81  - (t4_1(0, 2, 0, 1) - t4_2(0, 2, 0, 1)),
82  "T4(i,j,k,l)-T4(i,j,k,l)(0,2,0,1)");
83  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(0, 2, 0, 2)
84  - (t4_1(0, 2, 0, 2) - t4_2(0, 2, 0, 2)),
85  "T4(i,j,k,l)-T4(i,j,k,l)(0,2,0,2)");
86  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(0, 2, 1, 0)
87  - (t4_1(0, 2, 1, 0) - t4_2(0, 2, 1, 0)),
88  "T4(i,j,k,l)-T4(i,j,k,l)(0,2,1,0)");
89  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(0, 2, 1, 1)
90  - (t4_1(0, 2, 1, 1) - t4_2(0, 2, 1, 1)),
91  "T4(i,j,k,l)-T4(i,j,k,l)(0,2,1,1)");
92  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(0, 2, 1, 2)
93  - (t4_1(0, 2, 1, 2) - t4_2(0, 2, 1, 2)),
94  "T4(i,j,k,l)-T4(i,j,k,l)(0,2,1,2)");
95  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(0, 2, 2, 0)
96  - (t4_1(0, 2, 2, 0) - t4_2(0, 2, 2, 0)),
97  "T4(i,j,k,l)-T4(i,j,k,l)(0,2,2,0)");
98  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(0, 2, 2, 1)
99  - (t4_1(0, 2, 2, 1) - t4_2(0, 2, 2, 1)),
100  "T4(i,j,k,l)-T4(i,j,k,l)(0,2,2,1)");
101  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(0, 2, 2, 2)
102  - (t4_1(0, 2, 2, 2) - t4_2(0, 2, 2, 2)),
103  "T4(i,j,k,l)-T4(i,j,k,l)(0,2,2,2)");
104 
105  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(1, 0, 0, 0)
106  - (t4_1(1, 0, 0, 0) - t4_2(1, 0, 0, 0)),
107  "T4(i,j,k,l)-T4(i,j,k,l)(1,0,0,0)");
108  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(1, 0, 0, 1)
109  - (t4_1(1, 0, 0, 1) - t4_2(1, 0, 0, 1)),
110  "T4(i,j,k,l)-T4(i,j,k,l)(1,0,0,1)");
111  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(1, 0, 0, 2)
112  - (t4_1(1, 0, 0, 2) - t4_2(1, 0, 0, 2)),
113  "T4(i,j,k,l)-T4(i,j,k,l)(1,0,0,2)");
114  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(1, 0, 1, 0)
115  - (t4_1(1, 0, 1, 0) - t4_2(1, 0, 1, 0)),
116  "T4(i,j,k,l)-T4(i,j,k,l)(1,0,1,0)");
117  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(1, 0, 1, 1)
118  - (t4_1(1, 0, 1, 1) - t4_2(1, 0, 1, 1)),
119  "T4(i,j,k,l)-T4(i,j,k,l)(1,0,1,1)");
120  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(1, 0, 1, 2)
121  - (t4_1(1, 0, 1, 2) - t4_2(1, 0, 1, 2)),
122  "T4(i,j,k,l)-T4(i,j,k,l)(1,0,1,2)");
123  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(1, 0, 2, 0)
124  - (t4_1(1, 0, 2, 0) - t4_2(1, 0, 2, 0)),
125  "T4(i,j,k,l)-T4(i,j,k,l)(1,0,2,0)");
126  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(1, 0, 2, 1)
127  - (t4_1(1, 0, 2, 1) - t4_2(1, 0, 2, 1)),
128  "T4(i,j,k,l)-T4(i,j,k,l)(1,0,2,1)");
129  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(1, 0, 2, 2)
130  - (t4_1(1, 0, 2, 2) - t4_2(1, 0, 2, 2)),
131  "T4(i,j,k,l)-T4(i,j,k,l)(1,0,2,2)");
132  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(1, 1, 0, 0)
133  - (t4_1(1, 1, 0, 0) - t4_2(1, 1, 0, 0)),
134  "T4(i,j,k,l)-T4(i,j,k,l)(1,1,0,0)");
135  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(1, 1, 0, 1)
136  - (t4_1(1, 1, 0, 1) - t4_2(1, 1, 0, 1)),
137  "T4(i,j,k,l)-T4(i,j,k,l)(1,1,0,1)");
138  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(1, 1, 0, 2)
139  - (t4_1(1, 1, 0, 2) - t4_2(1, 1, 0, 2)),
140  "T4(i,j,k,l)-T4(i,j,k,l)(1,1,0,2)");
141  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(1, 1, 1, 0)
142  - (t4_1(1, 1, 1, 0) - t4_2(1, 1, 1, 0)),
143  "T4(i,j,k,l)-T4(i,j,k,l)(1,1,1,0)");
144  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(1, 1, 1, 1)
145  - (t4_1(1, 1, 1, 1) - t4_2(1, 1, 1, 1)),
146  "T4(i,j,k,l)-T4(i,j,k,l)(1,1,1,1)");
147  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(1, 1, 1, 2)
148  - (t4_1(1, 1, 1, 2) - t4_2(1, 1, 1, 2)),
149  "T4(i,j,k,l)-T4(i,j,k,l)(1,1,1,2)");
150  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(1, 1, 2, 0)
151  - (t4_1(1, 1, 2, 0) - t4_2(1, 1, 2, 0)),
152  "T4(i,j,k,l)-T4(i,j,k,l)(1,1,2,0)");
153  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(1, 1, 2, 1)
154  - (t4_1(1, 1, 2, 1) - t4_2(1, 1, 2, 1)),
155  "T4(i,j,k,l)-T4(i,j,k,l)(1,1,2,1)");
156  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(1, 1, 2, 2)
157  - (t4_1(1, 1, 2, 2) - t4_2(1, 1, 2, 2)),
158  "T4(i,j,k,l)-T4(i,j,k,l)(1,1,2,2)");
159  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(1, 2, 0, 0)
160  - (t4_1(1, 2, 0, 0) - t4_2(1, 2, 0, 0)),
161  "T4(i,j,k,l)-T4(i,j,k,l)(1,2,0,0)");
162  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(1, 2, 0, 1)
163  - (t4_1(1, 2, 0, 1) - t4_2(1, 2, 0, 1)),
164  "T4(i,j,k,l)-T4(i,j,k,l)(1,2,0,1)");
165  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(1, 2, 0, 2)
166  - (t4_1(1, 2, 0, 2) - t4_2(1, 2, 0, 2)),
167  "T4(i,j,k,l)-T4(i,j,k,l)(1,2,0,2)");
168  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(1, 2, 1, 0)
169  - (t4_1(1, 2, 1, 0) - t4_2(1, 2, 1, 0)),
170  "T4(i,j,k,l)-T4(i,j,k,l)(1,2,1,0)");
171  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(1, 2, 1, 1)
172  - (t4_1(1, 2, 1, 1) - t4_2(1, 2, 1, 1)),
173  "T4(i,j,k,l)-T4(i,j,k,l)(1,2,1,1)");
174  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(1, 2, 1, 2)
175  - (t4_1(1, 2, 1, 2) - t4_2(1, 2, 1, 2)),
176  "T4(i,j,k,l)-T4(i,j,k,l)(1,2,1,2)");
177  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(1, 2, 2, 0)
178  - (t4_1(1, 2, 2, 0) - t4_2(1, 2, 2, 0)),
179  "T4(i,j,k,l)-T4(i,j,k,l)(1,2,2,0)");
180  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(1, 2, 2, 1)
181  - (t4_1(1, 2, 2, 1) - t4_2(1, 2, 2, 1)),
182  "T4(i,j,k,l)-T4(i,j,k,l)(1,2,2,1)");
183  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(1, 2, 2, 2)
184  - (t4_1(1, 2, 2, 2) - t4_2(1, 2, 2, 2)),
185  "T4(i,j,k,l)-T4(i,j,k,l)(1,2,2,2)");
186 
187  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(2, 0, 0, 0)
188  - (t4_1(2, 0, 0, 0) - t4_2(2, 0, 0, 0)),
189  "T4(i,j,k,l)-T4(i,j,k,l)(2,0,0,0)");
190  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(2, 0, 0, 1)
191  - (t4_1(2, 0, 0, 1) - t4_2(2, 0, 0, 1)),
192  "T4(i,j,k,l)-T4(i,j,k,l)(2,0,0,1)");
193  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(2, 0, 0, 2)
194  - (t4_1(2, 0, 0, 2) - t4_2(2, 0, 0, 2)),
195  "T4(i,j,k,l)-T4(i,j,k,l)(2,0,0,2)");
196  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(2, 0, 1, 0)
197  - (t4_1(2, 0, 1, 0) - t4_2(2, 0, 1, 0)),
198  "T4(i,j,k,l)-T4(i,j,k,l)(2,0,1,0)");
199  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(2, 0, 1, 1)
200  - (t4_1(2, 0, 1, 1) - t4_2(2, 0, 1, 1)),
201  "T4(i,j,k,l)-T4(i,j,k,l)(2,0,1,1)");
202  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(2, 0, 1, 2)
203  - (t4_1(2, 0, 1, 2) - t4_2(2, 0, 1, 2)),
204  "T4(i,j,k,l)-T4(i,j,k,l)(2,0,1,2)");
205  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(2, 0, 2, 0)
206  - (t4_1(2, 0, 2, 0) - t4_2(2, 0, 2, 0)),
207  "T4(i,j,k,l)-T4(i,j,k,l)(2,0,2,0)");
208  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(2, 0, 2, 1)
209  - (t4_1(2, 0, 2, 1) - t4_2(2, 0, 2, 1)),
210  "T4(i,j,k,l)-T4(i,j,k,l)(2,0,2,1)");
211  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(2, 0, 2, 2)
212  - (t4_1(2, 0, 2, 2) - t4_2(2, 0, 2, 2)),
213  "T4(i,j,k,l)-T4(i,j,k,l)(2,0,2,2)");
214  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(2, 1, 0, 0)
215  - (t4_1(2, 1, 0, 0) - t4_2(2, 1, 0, 0)),
216  "T4(i,j,k,l)-T4(i,j,k,l)(2,1,0,0)");
217  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(2, 1, 0, 1)
218  - (t4_1(2, 1, 0, 1) - t4_2(2, 1, 0, 1)),
219  "T4(i,j,k,l)-T4(i,j,k,l)(2,1,0,1)");
220  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(2, 1, 0, 2)
221  - (t4_1(2, 1, 0, 2) - t4_2(2, 1, 0, 2)),
222  "T4(i,j,k,l)-T4(i,j,k,l)(2,1,0,2)");
223  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(2, 1, 1, 0)
224  - (t4_1(2, 1, 1, 0) - t4_2(2, 1, 1, 0)),
225  "T4(i,j,k,l)-T4(i,j,k,l)(2,1,1,0)");
226  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(2, 1, 1, 1)
227  - (t4_1(2, 1, 1, 1) - t4_2(2, 1, 1, 1)),
228  "T4(i,j,k,l)-T4(i,j,k,l)(2,1,1,1)");
229  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(2, 1, 1, 2)
230  - (t4_1(2, 1, 1, 2) - t4_2(2, 1, 1, 2)),
231  "T4(i,j,k,l)-T4(i,j,k,l)(2,1,1,2)");
232  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(2, 1, 2, 0)
233  - (t4_1(2, 1, 2, 0) - t4_2(2, 1, 2, 0)),
234  "T4(i,j,k,l)-T4(i,j,k,l)(2,1,2,0)");
235  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(2, 1, 2, 1)
236  - (t4_1(2, 1, 2, 1) - t4_2(2, 1, 2, 1)),
237  "T4(i,j,k,l)-T4(i,j,k,l)(2,1,2,1)");
238  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(2, 1, 2, 2)
239  - (t4_1(2, 1, 2, 2) - t4_2(2, 1, 2, 2)),
240  "T4(i,j,k,l)-T4(i,j,k,l)(2,1,2,2)");
241  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(2, 2, 0, 0)
242  - (t4_1(2, 2, 0, 0) - t4_2(2, 2, 0, 0)),
243  "T4(i,j,k,l)-T4(i,j,k,l)(2,2,0,0)");
244  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(2, 2, 0, 1)
245  - (t4_1(2, 2, 0, 1) - t4_2(2, 2, 0, 1)),
246  "T4(i,j,k,l)-T4(i,j,k,l)(2,2,0,1)");
247  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(2, 2, 0, 2)
248  - (t4_1(2, 2, 0, 2) - t4_2(2, 2, 0, 2)),
249  "T4(i,j,k,l)-T4(i,j,k,l)(2,2,0,2)");
250  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(2, 2, 1, 0)
251  - (t4_1(2, 2, 1, 0) - t4_2(2, 2, 1, 0)),
252  "T4(i,j,k,l)-T4(i,j,k,l)(2,2,1,0)");
253  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(2, 2, 1, 1)
254  - (t4_1(2, 2, 1, 1) - t4_2(2, 2, 1, 1)),
255  "T4(i,j,k,l)-T4(i,j,k,l)(2,2,1,1)");
256  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(2, 2, 1, 2)
257  - (t4_1(2, 2, 1, 2) - t4_2(2, 2, 1, 2)),
258  "T4(i,j,k,l)-T4(i,j,k,l)(2,2,1,2)");
259  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(2, 2, 2, 0)
260  - (t4_1(2, 2, 2, 0) - t4_2(2, 2, 2, 0)),
261  "T4(i,j,k,l)-T4(i,j,k,l)(2,2,2,0)");
262  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(2, 2, 2, 1)
263  - (t4_1(2, 2, 2, 1) - t4_2(2, 2, 2, 1)),
264  "T4(i,j,k,l)-T4(i,j,k,l)(2,2,2,1)");
265  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, k, l))(2, 2, 2, 2)
266  - (t4_1(2, 2, 2, 2) - t4_2(2, 2, 2, 2)),
267  "T4(i,j,k,l)-T4(i,j,k,l)(2,2,2,2)");
268 
269  /* T4(i,j,k,l) - T4(i,l,j,k) */
270 
271  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(0, 0, 0, 0)
272  - (t4_1(0, 0, 0, 0) - t4_2(0, 0, 0, 0)),
273  "T4(i,j,k,l)-T4(i,l,j,k)(0,0,0,0)");
274  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(0, 0, 0, 1)
275  - (t4_1(0, 0, 0, 1) - t4_2(0, 1, 0, 0)),
276  "T4(i,j,k,l)-T4(i,l,j,k)(0,0,0,1)");
277  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(0, 0, 0, 2)
278  - (t4_1(0, 0, 0, 2) - t4_2(0, 2, 0, 0)),
279  "T4(i,j,k,l)-T4(i,l,j,k)(0,0,0,2)");
280  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(0, 0, 1, 0)
281  - (t4_1(0, 0, 1, 0) - t4_2(0, 0, 0, 1)),
282  "T4(i,j,k,l)-T4(i,l,j,k)(0,0,1,0)");
283  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(0, 0, 1, 1)
284  - (t4_1(0, 0, 1, 1) - t4_2(0, 1, 0, 1)),
285  "T4(i,j,k,l)-T4(i,l,j,k)(0,0,1,1)");
286  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(0, 0, 1, 2)
287  - (t4_1(0, 0, 1, 2) - t4_2(0, 2, 0, 1)),
288  "T4(i,j,k,l)-T4(i,l,j,k)(0,0,1,2)");
289  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(0, 0, 2, 0)
290  - (t4_1(0, 0, 2, 0) - t4_2(0, 0, 0, 2)),
291  "T4(i,j,k,l)-T4(i,l,j,k)(0,0,2,0)");
292  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(0, 0, 2, 1)
293  - (t4_1(0, 0, 2, 1) - t4_2(0, 1, 0, 2)),
294  "T4(i,j,k,l)-T4(i,l,j,k)(0,0,2,1)");
295  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(0, 0, 2, 2)
296  - (t4_1(0, 0, 2, 2) - t4_2(0, 2, 0, 2)),
297  "T4(i,j,k,l)-T4(i,l,j,k)(0,0,2,2)");
298  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(0, 1, 0, 0)
299  - (t4_1(0, 1, 0, 0) - t4_2(0, 0, 1, 0)),
300  "T4(i,j,k,l)-T4(i,l,j,k)(0,1,0,0)");
301  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(0, 1, 0, 1)
302  - (t4_1(0, 1, 0, 1) - t4_2(0, 1, 1, 0)),
303  "T4(i,j,k,l)-T4(i,l,j,k)(0,1,0,1)");
304  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(0, 1, 0, 2)
305  - (t4_1(0, 1, 0, 2) - t4_2(0, 2, 1, 0)),
306  "T4(i,j,k,l)-T4(i,l,j,k)(0,1,0,2)");
307  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(0, 1, 1, 0)
308  - (t4_1(0, 1, 1, 0) - t4_2(0, 0, 1, 1)),
309  "T4(i,j,k,l)-T4(i,l,j,k)(0,1,1,0)");
310  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(0, 1, 1, 1)
311  - (t4_1(0, 1, 1, 1) - t4_2(0, 1, 1, 1)),
312  "T4(i,j,k,l)-T4(i,l,j,k)(0,1,1,1)");
313  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(0, 1, 1, 2)
314  - (t4_1(0, 1, 1, 2) - t4_2(0, 2, 1, 1)),
315  "T4(i,j,k,l)-T4(i,l,j,k)(0,1,1,2)");
316  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(0, 1, 2, 0)
317  - (t4_1(0, 1, 2, 0) - t4_2(0, 0, 1, 2)),
318  "T4(i,j,k,l)-T4(i,l,j,k)(0,1,2,0)");
319  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(0, 1, 2, 1)
320  - (t4_1(0, 1, 2, 1) - t4_2(0, 1, 1, 2)),
321  "T4(i,j,k,l)-T4(i,l,j,k)(0,1,2,1)");
322  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(0, 1, 2, 2)
323  - (t4_1(0, 1, 2, 2) - t4_2(0, 2, 1, 2)),
324  "T4(i,j,k,l)-T4(i,l,j,k)(0,1,2,2)");
325  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(0, 2, 0, 0)
326  - (t4_1(0, 2, 0, 0) - t4_2(0, 0, 2, 0)),
327  "T4(i,j,k,l)-T4(i,l,j,k)(0,2,0,0)");
328  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(0, 2, 0, 1)
329  - (t4_1(0, 2, 0, 1) - t4_2(0, 1, 2, 0)),
330  "T4(i,j,k,l)-T4(i,l,j,k)(0,2,0,1)");
331  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(0, 2, 0, 2)
332  - (t4_1(0, 2, 0, 2) - t4_2(0, 2, 2, 0)),
333  "T4(i,j,k,l)-T4(i,l,j,k)(0,2,0,2)");
334  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(0, 2, 1, 0)
335  - (t4_1(0, 2, 1, 0) - t4_2(0, 0, 2, 1)),
336  "T4(i,j,k,l)-T4(i,l,j,k)(0,2,1,0)");
337  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(0, 2, 1, 1)
338  - (t4_1(0, 2, 1, 1) - t4_2(0, 1, 2, 1)),
339  "T4(i,j,k,l)-T4(i,l,j,k)(0,2,1,1)");
340  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(0, 2, 1, 2)
341  - (t4_1(0, 2, 1, 2) - t4_2(0, 2, 2, 1)),
342  "T4(i,j,k,l)-T4(i,l,j,k)(0,2,1,2)");
343  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(0, 2, 2, 0)
344  - (t4_1(0, 2, 2, 0) - t4_2(0, 0, 2, 2)),
345  "T4(i,j,k,l)-T4(i,l,j,k)(0,2,2,0)");
346  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(0, 2, 2, 1)
347  - (t4_1(0, 2, 2, 1) - t4_2(0, 1, 2, 2)),
348  "T4(i,j,k,l)-T4(i,l,j,k)(0,2,2,1)");
349  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(0, 2, 2, 2)
350  - (t4_1(0, 2, 2, 2) - t4_2(0, 2, 2, 2)),
351  "T4(i,j,k,l)-T4(i,l,j,k)(0,2,2,2)");
352 
353  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(1, 0, 0, 0)
354  - (t4_1(1, 0, 0, 0) - t4_2(1, 0, 0, 0)),
355  "T4(i,j,k,l)-T4(i,l,j,k)(1,0,0,0)");
356  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(1, 0, 0, 1)
357  - (t4_1(1, 0, 0, 1) - t4_2(1, 1, 0, 0)),
358  "T4(i,j,k,l)-T4(i,l,j,k)(1,0,0,1)");
359  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(1, 0, 0, 2)
360  - (t4_1(1, 0, 0, 2) - t4_2(1, 2, 0, 0)),
361  "T4(i,j,k,l)-T4(i,l,j,k)(1,0,0,2)");
362  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(1, 0, 1, 0)
363  - (t4_1(1, 0, 1, 0) - t4_2(1, 0, 0, 1)),
364  "T4(i,j,k,l)-T4(i,l,j,k)(1,0,1,0)");
365  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(1, 0, 1, 1)
366  - (t4_1(1, 0, 1, 1) - t4_2(1, 1, 0, 1)),
367  "T4(i,j,k,l)-T4(i,l,j,k)(1,0,1,1)");
368  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(1, 0, 1, 2)
369  - (t4_1(1, 0, 1, 2) - t4_2(1, 2, 0, 1)),
370  "T4(i,j,k,l)-T4(i,l,j,k)(1,0,1,2)");
371  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(1, 0, 2, 0)
372  - (t4_1(1, 0, 2, 0) - t4_2(1, 0, 0, 2)),
373  "T4(i,j,k,l)-T4(i,l,j,k)(1,0,2,0)");
374  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(1, 0, 2, 1)
375  - (t4_1(1, 0, 2, 1) - t4_2(1, 1, 0, 2)),
376  "T4(i,j,k,l)-T4(i,l,j,k)(1,0,2,1)");
377  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(1, 0, 2, 2)
378  - (t4_1(1, 0, 2, 2) - t4_2(1, 2, 0, 2)),
379  "T4(i,j,k,l)-T4(i,l,j,k)(1,0,2,2)");
380  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(1, 1, 0, 0)
381  - (t4_1(1, 1, 0, 0) - t4_2(1, 0, 1, 0)),
382  "T4(i,j,k,l)-T4(i,l,j,k)(1,1,0,0)");
383  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(1, 1, 0, 1)
384  - (t4_1(1, 1, 0, 1) - t4_2(1, 1, 1, 0)),
385  "T4(i,j,k,l)-T4(i,l,j,k)(1,1,0,1)");
386  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(1, 1, 0, 2)
387  - (t4_1(1, 1, 0, 2) - t4_2(1, 2, 1, 0)),
388  "T4(i,j,k,l)-T4(i,l,j,k)(1,1,0,2)");
389  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(1, 1, 1, 0)
390  - (t4_1(1, 1, 1, 0) - t4_2(1, 0, 1, 1)),
391  "T4(i,j,k,l)-T4(i,l,j,k)(1,1,1,0)");
392  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(1, 1, 1, 1)
393  - (t4_1(1, 1, 1, 1) - t4_2(1, 1, 1, 1)),
394  "T4(i,j,k,l)-T4(i,l,j,k)(1,1,1,1)");
395  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(1, 1, 1, 2)
396  - (t4_1(1, 1, 1, 2) - t4_2(1, 2, 1, 1)),
397  "T4(i,j,k,l)-T4(i,l,j,k)(1,1,1,2)");
398  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(1, 1, 2, 0)
399  - (t4_1(1, 1, 2, 0) - t4_2(1, 0, 1, 2)),
400  "T4(i,j,k,l)-T4(i,l,j,k)(1,1,2,0)");
401  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(1, 1, 2, 1)
402  - (t4_1(1, 1, 2, 1) - t4_2(1, 1, 1, 2)),
403  "T4(i,j,k,l)-T4(i,l,j,k)(1,1,2,1)");
404  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(1, 1, 2, 2)
405  - (t4_1(1, 1, 2, 2) - t4_2(1, 2, 1, 2)),
406  "T4(i,j,k,l)-T4(i,l,j,k)(1,1,2,2)");
407  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(1, 2, 0, 0)
408  - (t4_1(1, 2, 0, 0) - t4_2(1, 0, 2, 0)),
409  "T4(i,j,k,l)-T4(i,l,j,k)(1,2,0,0)");
410  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(1, 2, 0, 1)
411  - (t4_1(1, 2, 0, 1) - t4_2(1, 1, 2, 0)),
412  "T4(i,j,k,l)-T4(i,l,j,k)(1,2,0,1)");
413  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(1, 2, 0, 2)
414  - (t4_1(1, 2, 0, 2) - t4_2(1, 2, 2, 0)),
415  "T4(i,j,k,l)-T4(i,l,j,k)(1,2,0,2)");
416  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(1, 2, 1, 0)
417  - (t4_1(1, 2, 1, 0) - t4_2(1, 0, 2, 1)),
418  "T4(i,j,k,l)-T4(i,l,j,k)(1,2,1,0)");
419  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(1, 2, 1, 1)
420  - (t4_1(1, 2, 1, 1) - t4_2(1, 1, 2, 1)),
421  "T4(i,j,k,l)-T4(i,l,j,k)(1,2,1,1)");
422  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(1, 2, 1, 2)
423  - (t4_1(1, 2, 1, 2) - t4_2(1, 2, 2, 1)),
424  "T4(i,j,k,l)-T4(i,l,j,k)(1,2,1,2)");
425  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(1, 2, 2, 0)
426  - (t4_1(1, 2, 2, 0) - t4_2(1, 0, 2, 2)),
427  "T4(i,j,k,l)-T4(i,l,j,k)(1,2,2,0)");
428  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(1, 2, 2, 1)
429  - (t4_1(1, 2, 2, 1) - t4_2(1, 1, 2, 2)),
430  "T4(i,j,k,l)-T4(i,l,j,k)(1,2,2,1)");
431  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(1, 2, 2, 2)
432  - (t4_1(1, 2, 2, 2) - t4_2(1, 2, 2, 2)),
433  "T4(i,j,k,l)-T4(i,l,j,k)(1,2,2,2)");
434 
435  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(2, 0, 0, 0)
436  - (t4_1(2, 0, 0, 0) - t4_2(2, 0, 0, 0)),
437  "T4(i,j,k,l)-T4(i,l,j,k)(2,0,0,0)");
438  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(2, 0, 0, 1)
439  - (t4_1(2, 0, 0, 1) - t4_2(2, 1, 0, 0)),
440  "T4(i,j,k,l)-T4(i,l,j,k)(2,0,0,1)");
441  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(2, 0, 0, 2)
442  - (t4_1(2, 0, 0, 2) - t4_2(2, 2, 0, 0)),
443  "T4(i,j,k,l)-T4(i,l,j,k)(2,0,0,2)");
444  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(2, 0, 1, 0)
445  - (t4_1(2, 0, 1, 0) - t4_2(2, 0, 0, 1)),
446  "T4(i,j,k,l)-T4(i,l,j,k)(2,0,1,0)");
447  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(2, 0, 1, 1)
448  - (t4_1(2, 0, 1, 1) - t4_2(2, 1, 0, 1)),
449  "T4(i,j,k,l)-T4(i,l,j,k)(2,0,1,1)");
450  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(2, 0, 1, 2)
451  - (t4_1(2, 0, 1, 2) - t4_2(2, 2, 0, 1)),
452  "T4(i,j,k,l)-T4(i,l,j,k)(2,0,1,2)");
453  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(2, 0, 2, 0)
454  - (t4_1(2, 0, 2, 0) - t4_2(2, 0, 0, 2)),
455  "T4(i,j,k,l)-T4(i,l,j,k)(2,0,2,0)");
456  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(2, 0, 2, 1)
457  - (t4_1(2, 0, 2, 1) - t4_2(2, 1, 0, 2)),
458  "T4(i,j,k,l)-T4(i,l,j,k)(2,0,2,1)");
459  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(2, 0, 2, 2)
460  - (t4_1(2, 0, 2, 2) - t4_2(2, 2, 0, 2)),
461  "T4(i,j,k,l)-T4(i,l,j,k)(2,0,2,2)");
462  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(2, 1, 0, 0)
463  - (t4_1(2, 1, 0, 0) - t4_2(2, 0, 1, 0)),
464  "T4(i,j,k,l)-T4(i,l,j,k)(2,1,0,0)");
465  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(2, 1, 0, 1)
466  - (t4_1(2, 1, 0, 1) - t4_2(2, 1, 1, 0)),
467  "T4(i,j,k,l)-T4(i,l,j,k)(2,1,0,1)");
468  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(2, 1, 0, 2)
469  - (t4_1(2, 1, 0, 2) - t4_2(2, 2, 1, 0)),
470  "T4(i,j,k,l)-T4(i,l,j,k)(2,1,0,2)");
471  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(2, 1, 1, 0)
472  - (t4_1(2, 1, 1, 0) - t4_2(2, 0, 1, 1)),
473  "T4(i,j,k,l)-T4(i,l,j,k)(2,1,1,0)");
474  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(2, 1, 1, 1)
475  - (t4_1(2, 1, 1, 1) - t4_2(2, 1, 1, 1)),
476  "T4(i,j,k,l)-T4(i,l,j,k)(2,1,1,1)");
477  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(2, 1, 1, 2)
478  - (t4_1(2, 1, 1, 2) - t4_2(2, 2, 1, 1)),
479  "T4(i,j,k,l)-T4(i,l,j,k)(2,1,1,2)");
480  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(2, 1, 2, 0)
481  - (t4_1(2, 1, 2, 0) - t4_2(2, 0, 1, 2)),
482  "T4(i,j,k,l)-T4(i,l,j,k)(2,1,2,0)");
483  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(2, 1, 2, 1)
484  - (t4_1(2, 1, 2, 1) - t4_2(2, 1, 1, 2)),
485  "T4(i,j,k,l)-T4(i,l,j,k)(2,1,2,1)");
486  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(2, 1, 2, 2)
487  - (t4_1(2, 1, 2, 2) - t4_2(2, 2, 1, 2)),
488  "T4(i,j,k,l)-T4(i,l,j,k)(2,1,2,2)");
489  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(2, 2, 0, 0)
490  - (t4_1(2, 2, 0, 0) - t4_2(2, 0, 2, 0)),
491  "T4(i,j,k,l)-T4(i,l,j,k)(2,2,0,0)");
492  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(2, 2, 0, 1)
493  - (t4_1(2, 2, 0, 1) - t4_2(2, 1, 2, 0)),
494  "T4(i,j,k,l)-T4(i,l,j,k)(2,2,0,1)");
495  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(2, 2, 0, 2)
496  - (t4_1(2, 2, 0, 2) - t4_2(2, 2, 2, 0)),
497  "T4(i,j,k,l)-T4(i,l,j,k)(2,2,0,2)");
498  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(2, 2, 1, 0)
499  - (t4_1(2, 2, 1, 0) - t4_2(2, 0, 2, 1)),
500  "T4(i,j,k,l)-T4(i,l,j,k)(2,2,1,0)");
501  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(2, 2, 1, 1)
502  - (t4_1(2, 2, 1, 1) - t4_2(2, 1, 2, 1)),
503  "T4(i,j,k,l)-T4(i,l,j,k)(2,2,1,1)");
504  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(2, 2, 1, 2)
505  - (t4_1(2, 2, 1, 2) - t4_2(2, 2, 2, 1)),
506  "T4(i,j,k,l)-T4(i,l,j,k)(2,2,1,2)");
507  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(2, 2, 2, 0)
508  - (t4_1(2, 2, 2, 0) - t4_2(2, 0, 2, 2)),
509  "T4(i,j,k,l)-T4(i,l,j,k)(2,2,2,0)");
510  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(2, 2, 2, 1)
511  - (t4_1(2, 2, 2, 1) - t4_2(2, 1, 2, 2)),
512  "T4(i,j,k,l)-T4(i,l,j,k)(2,2,2,1)");
513  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, j, k))(2, 2, 2, 2)
514  - (t4_1(2, 2, 2, 2) - t4_2(2, 2, 2, 2)),
515  "T4(i,j,k,l)-T4(i,l,j,k)(2,2,2,2)");
516 
517  /* T4(i,j,k,l) - T4(i,l,k,j) */
518 
519  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(0, 0, 0, 0)
520  - (t4_1(0, 0, 0, 0) - t4_2(0, 0, 0, 0)),
521  "T4(i,j,k,l)-T4(i,l,k,j)(0,0,0,0)");
522  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(0, 0, 0, 1)
523  - (t4_1(0, 0, 0, 1) - t4_2(0, 1, 0, 0)),
524  "T4(i,j,k,l)-T4(i,l,k,j)(0,0,0,1)");
525  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(0, 0, 0, 2)
526  - (t4_1(0, 0, 0, 2) - t4_2(0, 2, 0, 0)),
527  "T4(i,j,k,l)-T4(i,l,k,j)(0,0,0,2)");
528  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(0, 0, 1, 0)
529  - (t4_1(0, 0, 1, 0) - t4_2(0, 0, 1, 0)),
530  "T4(i,j,k,l)-T4(i,l,k,j)(0,0,1,0)");
531  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(0, 0, 1, 1)
532  - (t4_1(0, 0, 1, 1) - t4_2(0, 1, 1, 0)),
533  "T4(i,j,k,l)-T4(i,l,k,j)(0,0,1,1)");
534  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(0, 0, 1, 2)
535  - (t4_1(0, 0, 1, 2) - t4_2(0, 2, 1, 0)),
536  "T4(i,j,k,l)-T4(i,l,k,j)(0,0,1,2)");
537  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(0, 0, 2, 0)
538  - (t4_1(0, 0, 2, 0) - t4_2(0, 0, 2, 0)),
539  "T4(i,j,k,l)-T4(i,l,k,j)(0,0,2,0)");
540  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(0, 0, 2, 1)
541  - (t4_1(0, 0, 2, 1) - t4_2(0, 1, 2, 0)),
542  "T4(i,j,k,l)-T4(i,l,k,j)(0,0,2,1)");
543  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(0, 0, 2, 2)
544  - (t4_1(0, 0, 2, 2) - t4_2(0, 2, 2, 0)),
545  "T4(i,j,k,l)-T4(i,l,k,j)(0,0,2,2)");
546  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(0, 1, 0, 0)
547  - (t4_1(0, 1, 0, 0) - t4_2(0, 0, 0, 1)),
548  "T4(i,j,k,l)-T4(i,l,k,j)(0,1,0,0)");
549  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(0, 1, 0, 1)
550  - (t4_1(0, 1, 0, 1) - t4_2(0, 1, 0, 1)),
551  "T4(i,j,k,l)-T4(i,l,k,j)(0,1,0,1)");
552  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(0, 1, 0, 2)
553  - (t4_1(0, 1, 0, 2) - t4_2(0, 2, 0, 1)),
554  "T4(i,j,k,l)-T4(i,l,k,j)(0,1,0,2)");
555  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(0, 1, 1, 0)
556  - (t4_1(0, 1, 1, 0) - t4_2(0, 0, 1, 1)),
557  "T4(i,j,k,l)-T4(i,l,k,j)(0,1,1,0)");
558  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(0, 1, 1, 1)
559  - (t4_1(0, 1, 1, 1) - t4_2(0, 1, 1, 1)),
560  "T4(i,j,k,l)-T4(i,l,k,j)(0,1,1,1)");
561  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(0, 1, 1, 2)
562  - (t4_1(0, 1, 1, 2) - t4_2(0, 2, 1, 1)),
563  "T4(i,j,k,l)-T4(i,l,k,j)(0,1,1,2)");
564  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(0, 1, 2, 0)
565  - (t4_1(0, 1, 2, 0) - t4_2(0, 0, 2, 1)),
566  "T4(i,j,k,l)-T4(i,l,k,j)(0,1,2,0)");
567  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(0, 1, 2, 1)
568  - (t4_1(0, 1, 2, 1) - t4_2(0, 1, 2, 1)),
569  "T4(i,j,k,l)-T4(i,l,k,j)(0,1,2,1)");
570  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(0, 1, 2, 2)
571  - (t4_1(0, 1, 2, 2) - t4_2(0, 2, 2, 1)),
572  "T4(i,j,k,l)-T4(i,l,k,j)(0,1,2,2)");
573  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(0, 2, 0, 0)
574  - (t4_1(0, 2, 0, 0) - t4_2(0, 0, 0, 2)),
575  "T4(i,j,k,l)-T4(i,l,k,j)(0,2,0,0)");
576  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(0, 2, 0, 1)
577  - (t4_1(0, 2, 0, 1) - t4_2(0, 1, 0, 2)),
578  "T4(i,j,k,l)-T4(i,l,k,j)(0,2,0,1)");
579  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(0, 2, 0, 2)
580  - (t4_1(0, 2, 0, 2) - t4_2(0, 2, 0, 2)),
581  "T4(i,j,k,l)-T4(i,l,k,j)(0,2,0,2)");
582  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(0, 2, 1, 0)
583  - (t4_1(0, 2, 1, 0) - t4_2(0, 0, 1, 2)),
584  "T4(i,j,k,l)-T4(i,l,k,j)(0,2,1,0)");
585  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(0, 2, 1, 1)
586  - (t4_1(0, 2, 1, 1) - t4_2(0, 1, 1, 2)),
587  "T4(i,j,k,l)-T4(i,l,k,j)(0,2,1,1)");
588  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(0, 2, 1, 2)
589  - (t4_1(0, 2, 1, 2) - t4_2(0, 2, 1, 2)),
590  "T4(i,j,k,l)-T4(i,l,k,j)(0,2,1,2)");
591  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(0, 2, 2, 0)
592  - (t4_1(0, 2, 2, 0) - t4_2(0, 0, 2, 2)),
593  "T4(i,j,k,l)-T4(i,l,k,j)(0,2,2,0)");
594  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(0, 2, 2, 1)
595  - (t4_1(0, 2, 2, 1) - t4_2(0, 1, 2, 2)),
596  "T4(i,j,k,l)-T4(i,l,k,j)(0,2,2,1)");
597  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(0, 2, 2, 2)
598  - (t4_1(0, 2, 2, 2) - t4_2(0, 2, 2, 2)),
599  "T4(i,j,k,l)-T4(i,l,k,j)(0,2,2,2)");
600 
601  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(1, 0, 0, 0)
602  - (t4_1(1, 0, 0, 0) - t4_2(1, 0, 0, 0)),
603  "T4(i,j,k,l)-T4(i,l,k,j)(1,0,0,0)");
604  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(1, 0, 0, 1)
605  - (t4_1(1, 0, 0, 1) - t4_2(1, 1, 0, 0)),
606  "T4(i,j,k,l)-T4(i,l,k,j)(1,0,0,1)");
607  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(1, 0, 0, 2)
608  - (t4_1(1, 0, 0, 2) - t4_2(1, 2, 0, 0)),
609  "T4(i,j,k,l)-T4(i,l,k,j)(1,0,0,2)");
610  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(1, 0, 1, 0)
611  - (t4_1(1, 0, 1, 0) - t4_2(1, 0, 1, 0)),
612  "T4(i,j,k,l)-T4(i,l,k,j)(1,0,1,0)");
613  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(1, 0, 1, 1)
614  - (t4_1(1, 0, 1, 1) - t4_2(1, 1, 1, 0)),
615  "T4(i,j,k,l)-T4(i,l,k,j)(1,0,1,1)");
616  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(1, 0, 1, 2)
617  - (t4_1(1, 0, 1, 2) - t4_2(1, 2, 1, 0)),
618  "T4(i,j,k,l)-T4(i,l,k,j)(1,0,1,2)");
619  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(1, 0, 2, 0)
620  - (t4_1(1, 0, 2, 0) - t4_2(1, 0, 2, 0)),
621  "T4(i,j,k,l)-T4(i,l,k,j)(1,0,2,0)");
622  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(1, 0, 2, 1)
623  - (t4_1(1, 0, 2, 1) - t4_2(1, 1, 2, 0)),
624  "T4(i,j,k,l)-T4(i,l,k,j)(1,0,2,1)");
625  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(1, 0, 2, 2)
626  - (t4_1(1, 0, 2, 2) - t4_2(1, 2, 2, 0)),
627  "T4(i,j,k,l)-T4(i,l,k,j)(1,0,2,2)");
628  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(1, 1, 0, 0)
629  - (t4_1(1, 1, 0, 0) - t4_2(1, 0, 0, 1)),
630  "T4(i,j,k,l)-T4(i,l,k,j)(1,1,0,0)");
631  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(1, 1, 0, 1)
632  - (t4_1(1, 1, 0, 1) - t4_2(1, 1, 0, 1)),
633  "T4(i,j,k,l)-T4(i,l,k,j)(1,1,0,1)");
634  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(1, 1, 0, 2)
635  - (t4_1(1, 1, 0, 2) - t4_2(1, 2, 0, 1)),
636  "T4(i,j,k,l)-T4(i,l,k,j)(1,1,0,2)");
637  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(1, 1, 1, 0)
638  - (t4_1(1, 1, 1, 0) - t4_2(1, 0, 1, 1)),
639  "T4(i,j,k,l)-T4(i,l,k,j)(1,1,1,0)");
640  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(1, 1, 1, 1)
641  - (t4_1(1, 1, 1, 1) - t4_2(1, 1, 1, 1)),
642  "T4(i,j,k,l)-T4(i,l,k,j)(1,1,1,1)");
643  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(1, 1, 1, 2)
644  - (t4_1(1, 1, 1, 2) - t4_2(1, 2, 1, 1)),
645  "T4(i,j,k,l)-T4(i,l,k,j)(1,1,1,2)");
646  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(1, 1, 2, 0)
647  - (t4_1(1, 1, 2, 0) - t4_2(1, 0, 2, 1)),
648  "T4(i,j,k,l)-T4(i,l,k,j)(1,1,2,0)");
649  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(1, 1, 2, 1)
650  - (t4_1(1, 1, 2, 1) - t4_2(1, 1, 2, 1)),
651  "T4(i,j,k,l)-T4(i,l,k,j)(1,1,2,1)");
652  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(1, 1, 2, 2)
653  - (t4_1(1, 1, 2, 2) - t4_2(1, 2, 2, 1)),
654  "T4(i,j,k,l)-T4(i,l,k,j)(1,1,2,2)");
655  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(1, 2, 0, 0)
656  - (t4_1(1, 2, 0, 0) - t4_2(1, 0, 0, 2)),
657  "T4(i,j,k,l)-T4(i,l,k,j)(1,2,0,0)");
658  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(1, 2, 0, 1)
659  - (t4_1(1, 2, 0, 1) - t4_2(1, 1, 0, 2)),
660  "T4(i,j,k,l)-T4(i,l,k,j)(1,2,0,1)");
661  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(1, 2, 0, 2)
662  - (t4_1(1, 2, 0, 2) - t4_2(1, 2, 0, 2)),
663  "T4(i,j,k,l)-T4(i,l,k,j)(1,2,0,2)");
664  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(1, 2, 1, 0)
665  - (t4_1(1, 2, 1, 0) - t4_2(1, 0, 1, 2)),
666  "T4(i,j,k,l)-T4(i,l,k,j)(1,2,1,0)");
667  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(1, 2, 1, 1)
668  - (t4_1(1, 2, 1, 1) - t4_2(1, 1, 1, 2)),
669  "T4(i,j,k,l)-T4(i,l,k,j)(1,2,1,1)");
670  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(1, 2, 1, 2)
671  - (t4_1(1, 2, 1, 2) - t4_2(1, 2, 1, 2)),
672  "T4(i,j,k,l)-T4(i,l,k,j)(1,2,1,2)");
673  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(1, 2, 2, 0)
674  - (t4_1(1, 2, 2, 0) - t4_2(1, 0, 2, 2)),
675  "T4(i,j,k,l)-T4(i,l,k,j)(1,2,2,0)");
676  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(1, 2, 2, 1)
677  - (t4_1(1, 2, 2, 1) - t4_2(1, 1, 2, 2)),
678  "T4(i,j,k,l)-T4(i,l,k,j)(1,2,2,1)");
679  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(1, 2, 2, 2)
680  - (t4_1(1, 2, 2, 2) - t4_2(1, 2, 2, 2)),
681  "T4(i,j,k,l)-T4(i,l,k,j)(1,2,2,2)");
682 
683  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(2, 0, 0, 0)
684  - (t4_1(2, 0, 0, 0) - t4_2(2, 0, 0, 0)),
685  "T4(i,j,k,l)-T4(i,l,k,j)(2,0,0,0)");
686  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(2, 0, 0, 1)
687  - (t4_1(2, 0, 0, 1) - t4_2(2, 1, 0, 0)),
688  "T4(i,j,k,l)-T4(i,l,k,j)(2,0,0,1)");
689  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(2, 0, 0, 2)
690  - (t4_1(2, 0, 0, 2) - t4_2(2, 2, 0, 0)),
691  "T4(i,j,k,l)-T4(i,l,k,j)(2,0,0,2)");
692  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(2, 0, 1, 0)
693  - (t4_1(2, 0, 1, 0) - t4_2(2, 0, 1, 0)),
694  "T4(i,j,k,l)-T4(i,l,k,j)(2,0,1,0)");
695  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(2, 0, 1, 1)
696  - (t4_1(2, 0, 1, 1) - t4_2(2, 1, 1, 0)),
697  "T4(i,j,k,l)-T4(i,l,k,j)(2,0,1,1)");
698  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(2, 0, 1, 2)
699  - (t4_1(2, 0, 1, 2) - t4_2(2, 2, 1, 0)),
700  "T4(i,j,k,l)-T4(i,l,k,j)(2,0,1,2)");
701  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(2, 0, 2, 0)
702  - (t4_1(2, 0, 2, 0) - t4_2(2, 0, 2, 0)),
703  "T4(i,j,k,l)-T4(i,l,k,j)(2,0,2,0)");
704  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(2, 0, 2, 1)
705  - (t4_1(2, 0, 2, 1) - t4_2(2, 1, 2, 0)),
706  "T4(i,j,k,l)-T4(i,l,k,j)(2,0,2,1)");
707  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(2, 0, 2, 2)
708  - (t4_1(2, 0, 2, 2) - t4_2(2, 2, 2, 0)),
709  "T4(i,j,k,l)-T4(i,l,k,j)(2,0,2,2)");
710  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(2, 1, 0, 0)
711  - (t4_1(2, 1, 0, 0) - t4_2(2, 0, 0, 1)),
712  "T4(i,j,k,l)-T4(i,l,k,j)(2,1,0,0)");
713  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(2, 1, 0, 1)
714  - (t4_1(2, 1, 0, 1) - t4_2(2, 1, 0, 1)),
715  "T4(i,j,k,l)-T4(i,l,k,j)(2,1,0,1)");
716  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(2, 1, 0, 2)
717  - (t4_1(2, 1, 0, 2) - t4_2(2, 2, 0, 1)),
718  "T4(i,j,k,l)-T4(i,l,k,j)(2,1,0,2)");
719  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(2, 1, 1, 0)
720  - (t4_1(2, 1, 1, 0) - t4_2(2, 0, 1, 1)),
721  "T4(i,j,k,l)-T4(i,l,k,j)(2,1,1,0)");
722  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(2, 1, 1, 1)
723  - (t4_1(2, 1, 1, 1) - t4_2(2, 1, 1, 1)),
724  "T4(i,j,k,l)-T4(i,l,k,j)(2,1,1,1)");
725  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(2, 1, 1, 2)
726  - (t4_1(2, 1, 1, 2) - t4_2(2, 2, 1, 1)),
727  "T4(i,j,k,l)-T4(i,l,k,j)(2,1,1,2)");
728  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(2, 1, 2, 0)
729  - (t4_1(2, 1, 2, 0) - t4_2(2, 0, 2, 1)),
730  "T4(i,j,k,l)-T4(i,l,k,j)(2,1,2,0)");
731  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(2, 1, 2, 1)
732  - (t4_1(2, 1, 2, 1) - t4_2(2, 1, 2, 1)),
733  "T4(i,j,k,l)-T4(i,l,k,j)(2,1,2,1)");
734  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(2, 1, 2, 2)
735  - (t4_1(2, 1, 2, 2) - t4_2(2, 2, 2, 1)),
736  "T4(i,j,k,l)-T4(i,l,k,j)(2,1,2,2)");
737  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(2, 2, 0, 0)
738  - (t4_1(2, 2, 0, 0) - t4_2(2, 0, 0, 2)),
739  "T4(i,j,k,l)-T4(i,l,k,j)(2,2,0,0)");
740  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(2, 2, 0, 1)
741  - (t4_1(2, 2, 0, 1) - t4_2(2, 1, 0, 2)),
742  "T4(i,j,k,l)-T4(i,l,k,j)(2,2,0,1)");
743  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(2, 2, 0, 2)
744  - (t4_1(2, 2, 0, 2) - t4_2(2, 2, 0, 2)),
745  "T4(i,j,k,l)-T4(i,l,k,j)(2,2,0,2)");
746  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(2, 2, 1, 0)
747  - (t4_1(2, 2, 1, 0) - t4_2(2, 0, 1, 2)),
748  "T4(i,j,k,l)-T4(i,l,k,j)(2,2,1,0)");
749  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(2, 2, 1, 1)
750  - (t4_1(2, 2, 1, 1) - t4_2(2, 1, 1, 2)),
751  "T4(i,j,k,l)-T4(i,l,k,j)(2,2,1,1)");
752  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(2, 2, 1, 2)
753  - (t4_1(2, 2, 1, 2) - t4_2(2, 2, 1, 2)),
754  "T4(i,j,k,l)-T4(i,l,k,j)(2,2,1,2)");
755  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(2, 2, 2, 0)
756  - (t4_1(2, 2, 2, 0) - t4_2(2, 0, 2, 2)),
757  "T4(i,j,k,l)-T4(i,l,k,j)(2,2,2,0)");
758  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(2, 2, 2, 1)
759  - (t4_1(2, 2, 2, 1) - t4_2(2, 1, 2, 2)),
760  "T4(i,j,k,l)-T4(i,l,k,j)(2,2,2,1)");
761  test_for_zero((t4_1(i, j, k, l) - t4_2(i, l, k, j))(2, 2, 2, 2)
762  - (t4_1(2, 2, 2, 2) - t4_2(2, 2, 2, 2)),
763  "T4(i,j,k,l)-T4(i,l,k,j)(2,2,2,2)");
764 
765  /* T4(i,j,k,l) - T4(i,k,j,l) */
766 
767  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(0, 0, 0, 0)
768  - (t4_1(0, 0, 0, 0) - t4_2(0, 0, 0, 0)),
769  "T4(i,j,k,l)-T4(i,k,j,l)(0,0,0,0)");
770  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(0, 0, 0, 1)
771  - (t4_1(0, 0, 0, 1) - t4_2(0, 0, 0, 1)),
772  "T4(i,j,k,l)-T4(i,k,j,l)(0,0,0,1)");
773  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(0, 0, 0, 2)
774  - (t4_1(0, 0, 0, 2) - t4_2(0, 0, 0, 2)),
775  "T4(i,j,k,l)-T4(i,k,j,l)(0,0,0,2)");
776  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(0, 0, 1, 0)
777  - (t4_1(0, 0, 1, 0) - t4_2(0, 1, 0, 0)),
778  "T4(i,j,k,l)-T4(i,k,j,l)(0,0,1,0)");
779  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(0, 0, 1, 1)
780  - (t4_1(0, 0, 1, 1) - t4_2(0, 1, 0, 1)),
781  "T4(i,j,k,l)-T4(i,k,j,l)(0,0,1,1)");
782  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(0, 0, 1, 2)
783  - (t4_1(0, 0, 1, 2) - t4_2(0, 1, 0, 2)),
784  "T4(i,j,k,l)-T4(i,k,j,l)(0,0,1,2)");
785  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(0, 0, 2, 0)
786  - (t4_1(0, 0, 2, 0) - t4_2(0, 2, 0, 0)),
787  "T4(i,j,k,l)-T4(i,k,j,l)(0,0,2,0)");
788  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(0, 0, 2, 1)
789  - (t4_1(0, 0, 2, 1) - t4_2(0, 2, 0, 1)),
790  "T4(i,j,k,l)-T4(i,k,j,l)(0,0,2,1)");
791  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(0, 0, 2, 2)
792  - (t4_1(0, 0, 2, 2) - t4_2(0, 2, 0, 2)),
793  "T4(i,j,k,l)-T4(i,k,j,l)(0,0,2,2)");
794  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(0, 1, 0, 0)
795  - (t4_1(0, 1, 0, 0) - t4_2(0, 0, 1, 0)),
796  "T4(i,j,k,l)-T4(i,k,j,l)(0,1,0,0)");
797  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(0, 1, 0, 1)
798  - (t4_1(0, 1, 0, 1) - t4_2(0, 0, 1, 1)),
799  "T4(i,j,k,l)-T4(i,k,j,l)(0,1,0,1)");
800  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(0, 1, 0, 2)
801  - (t4_1(0, 1, 0, 2) - t4_2(0, 0, 1, 2)),
802  "T4(i,j,k,l)-T4(i,k,j,l)(0,1,0,2)");
803  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(0, 1, 1, 0)
804  - (t4_1(0, 1, 1, 0) - t4_2(0, 1, 1, 0)),
805  "T4(i,j,k,l)-T4(i,k,j,l)(0,1,1,0)");
806  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(0, 1, 1, 1)
807  - (t4_1(0, 1, 1, 1) - t4_2(0, 1, 1, 1)),
808  "T4(i,j,k,l)-T4(i,k,j,l)(0,1,1,1)");
809  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(0, 1, 1, 2)
810  - (t4_1(0, 1, 1, 2) - t4_2(0, 1, 1, 2)),
811  "T4(i,j,k,l)-T4(i,k,j,l)(0,1,1,2)");
812  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(0, 1, 2, 0)
813  - (t4_1(0, 1, 2, 0) - t4_2(0, 2, 1, 0)),
814  "T4(i,j,k,l)-T4(i,k,j,l)(0,1,2,0)");
815  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(0, 1, 2, 1)
816  - (t4_1(0, 1, 2, 1) - t4_2(0, 2, 1, 1)),
817  "T4(i,j,k,l)-T4(i,k,j,l)(0,1,2,1)");
818  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(0, 1, 2, 2)
819  - (t4_1(0, 1, 2, 2) - t4_2(0, 2, 1, 2)),
820  "T4(i,j,k,l)-T4(i,k,j,l)(0,1,2,2)");
821  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(0, 2, 0, 0)
822  - (t4_1(0, 2, 0, 0) - t4_2(0, 0, 2, 0)),
823  "T4(i,j,k,l)-T4(i,k,j,l)(0,2,0,0)");
824  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(0, 2, 0, 1)
825  - (t4_1(0, 2, 0, 1) - t4_2(0, 0, 2, 1)),
826  "T4(i,j,k,l)-T4(i,k,j,l)(0,2,0,1)");
827  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(0, 2, 0, 2)
828  - (t4_1(0, 2, 0, 2) - t4_2(0, 0, 2, 2)),
829  "T4(i,j,k,l)-T4(i,k,j,l)(0,2,0,2)");
830  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(0, 2, 1, 0)
831  - (t4_1(0, 2, 1, 0) - t4_2(0, 1, 2, 0)),
832  "T4(i,j,k,l)-T4(i,k,j,l)(0,2,1,0)");
833  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(0, 2, 1, 1)
834  - (t4_1(0, 2, 1, 1) - t4_2(0, 1, 2, 1)),
835  "T4(i,j,k,l)-T4(i,k,j,l)(0,2,1,1)");
836  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(0, 2, 1, 2)
837  - (t4_1(0, 2, 1, 2) - t4_2(0, 1, 2, 2)),
838  "T4(i,j,k,l)-T4(i,k,j,l)(0,2,1,2)");
839  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(0, 2, 2, 0)
840  - (t4_1(0, 2, 2, 0) - t4_2(0, 2, 2, 0)),
841  "T4(i,j,k,l)-T4(i,k,j,l)(0,2,2,0)");
842  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(0, 2, 2, 1)
843  - (t4_1(0, 2, 2, 1) - t4_2(0, 2, 2, 1)),
844  "T4(i,j,k,l)-T4(i,k,j,l)(0,2,2,1)");
845  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(0, 2, 2, 2)
846  - (t4_1(0, 2, 2, 2) - t4_2(0, 2, 2, 2)),
847  "T4(i,j,k,l)-T4(i,k,j,l)(0,2,2,2)");
848 
849  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(1, 0, 0, 0)
850  - (t4_1(1, 0, 0, 0) - t4_2(1, 0, 0, 0)),
851  "T4(i,j,k,l)-T4(i,k,j,l)(1,0,0,0)");
852  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(1, 0, 0, 1)
853  - (t4_1(1, 0, 0, 1) - t4_2(1, 0, 0, 1)),
854  "T4(i,j,k,l)-T4(i,k,j,l)(1,0,0,1)");
855  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(1, 0, 0, 2)
856  - (t4_1(1, 0, 0, 2) - t4_2(1, 0, 0, 2)),
857  "T4(i,j,k,l)-T4(i,k,j,l)(1,0,0,2)");
858  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(1, 0, 1, 0)
859  - (t4_1(1, 0, 1, 0) - t4_2(1, 1, 0, 0)),
860  "T4(i,j,k,l)-T4(i,k,j,l)(1,0,1,0)");
861  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(1, 0, 1, 1)
862  - (t4_1(1, 0, 1, 1) - t4_2(1, 1, 0, 1)),
863  "T4(i,j,k,l)-T4(i,k,j,l)(1,0,1,1)");
864  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(1, 0, 1, 2)
865  - (t4_1(1, 0, 1, 2) - t4_2(1, 1, 0, 2)),
866  "T4(i,j,k,l)-T4(i,k,j,l)(1,0,1,2)");
867  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(1, 0, 2, 0)
868  - (t4_1(1, 0, 2, 0) - t4_2(1, 2, 0, 0)),
869  "T4(i,j,k,l)-T4(i,k,j,l)(1,0,2,0)");
870  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(1, 0, 2, 1)
871  - (t4_1(1, 0, 2, 1) - t4_2(1, 2, 0, 1)),
872  "T4(i,j,k,l)-T4(i,k,j,l)(1,0,2,1)");
873  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(1, 0, 2, 2)
874  - (t4_1(1, 0, 2, 2) - t4_2(1, 2, 0, 2)),
875  "T4(i,j,k,l)-T4(i,k,j,l)(1,0,2,2)");
876  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(1, 1, 0, 0)
877  - (t4_1(1, 1, 0, 0) - t4_2(1, 0, 1, 0)),
878  "T4(i,j,k,l)-T4(i,k,j,l)(1,1,0,0)");
879  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(1, 1, 0, 1)
880  - (t4_1(1, 1, 0, 1) - t4_2(1, 0, 1, 1)),
881  "T4(i,j,k,l)-T4(i,k,j,l)(1,1,0,1)");
882  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(1, 1, 0, 2)
883  - (t4_1(1, 1, 0, 2) - t4_2(1, 0, 1, 2)),
884  "T4(i,j,k,l)-T4(i,k,j,l)(1,1,0,2)");
885  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(1, 1, 1, 0)
886  - (t4_1(1, 1, 1, 0) - t4_2(1, 1, 1, 0)),
887  "T4(i,j,k,l)-T4(i,k,j,l)(1,1,1,0)");
888  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(1, 1, 1, 1)
889  - (t4_1(1, 1, 1, 1) - t4_2(1, 1, 1, 1)),
890  "T4(i,j,k,l)-T4(i,k,j,l)(1,1,1,1)");
891  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(1, 1, 1, 2)
892  - (t4_1(1, 1, 1, 2) - t4_2(1, 1, 1, 2)),
893  "T4(i,j,k,l)-T4(i,k,j,l)(1,1,1,2)");
894  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(1, 1, 2, 0)
895  - (t4_1(1, 1, 2, 0) - t4_2(1, 2, 1, 0)),
896  "T4(i,j,k,l)-T4(i,k,j,l)(1,1,2,0)");
897  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(1, 1, 2, 1)
898  - (t4_1(1, 1, 2, 1) - t4_2(1, 2, 1, 1)),
899  "T4(i,j,k,l)-T4(i,k,j,l)(1,1,2,1)");
900  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(1, 1, 2, 2)
901  - (t4_1(1, 1, 2, 2) - t4_2(1, 2, 1, 2)),
902  "T4(i,j,k,l)-T4(i,k,j,l)(1,1,2,2)");
903  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(1, 2, 0, 0)
904  - (t4_1(1, 2, 0, 0) - t4_2(1, 0, 2, 0)),
905  "T4(i,j,k,l)-T4(i,k,j,l)(1,2,0,0)");
906  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(1, 2, 0, 1)
907  - (t4_1(1, 2, 0, 1) - t4_2(1, 0, 2, 1)),
908  "T4(i,j,k,l)-T4(i,k,j,l)(1,2,0,1)");
909  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(1, 2, 0, 2)
910  - (t4_1(1, 2, 0, 2) - t4_2(1, 0, 2, 2)),
911  "T4(i,j,k,l)-T4(i,k,j,l)(1,2,0,2)");
912  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(1, 2, 1, 0)
913  - (t4_1(1, 2, 1, 0) - t4_2(1, 1, 2, 0)),
914  "T4(i,j,k,l)-T4(i,k,j,l)(1,2,1,0)");
915  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(1, 2, 1, 1)
916  - (t4_1(1, 2, 1, 1) - t4_2(1, 1, 2, 1)),
917  "T4(i,j,k,l)-T4(i,k,j,l)(1,2,1,1)");
918  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(1, 2, 1, 2)
919  - (t4_1(1, 2, 1, 2) - t4_2(1, 1, 2, 2)),
920  "T4(i,j,k,l)-T4(i,k,j,l)(1,2,1,2)");
921  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(1, 2, 2, 0)
922  - (t4_1(1, 2, 2, 0) - t4_2(1, 2, 2, 0)),
923  "T4(i,j,k,l)-T4(i,k,j,l)(1,2,2,0)");
924  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(1, 2, 2, 1)
925  - (t4_1(1, 2, 2, 1) - t4_2(1, 2, 2, 1)),
926  "T4(i,j,k,l)-T4(i,k,j,l)(1,2,2,1)");
927  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(1, 2, 2, 2)
928  - (t4_1(1, 2, 2, 2) - t4_2(1, 2, 2, 2)),
929  "T4(i,j,k,l)-T4(i,k,j,l)(1,2,2,2)");
930 
931  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(2, 0, 0, 0)
932  - (t4_1(2, 0, 0, 0) - t4_2(2, 0, 0, 0)),
933  "T4(i,j,k,l)-T4(i,k,j,l)(2,0,0,0)");
934  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(2, 0, 0, 1)
935  - (t4_1(2, 0, 0, 1) - t4_2(2, 0, 0, 1)),
936  "T4(i,j,k,l)-T4(i,k,j,l)(2,0,0,1)");
937  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(2, 0, 0, 2)
938  - (t4_1(2, 0, 0, 2) - t4_2(2, 0, 0, 2)),
939  "T4(i,j,k,l)-T4(i,k,j,l)(2,0,0,2)");
940  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(2, 0, 1, 0)
941  - (t4_1(2, 0, 1, 0) - t4_2(2, 1, 0, 0)),
942  "T4(i,j,k,l)-T4(i,k,j,l)(2,0,1,0)");
943  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(2, 0, 1, 1)
944  - (t4_1(2, 0, 1, 1) - t4_2(2, 1, 0, 1)),
945  "T4(i,j,k,l)-T4(i,k,j,l)(2,0,1,1)");
946  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(2, 0, 1, 2)
947  - (t4_1(2, 0, 1, 2) - t4_2(2, 1, 0, 2)),
948  "T4(i,j,k,l)-T4(i,k,j,l)(2,0,1,2)");
949  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(2, 0, 2, 0)
950  - (t4_1(2, 0, 2, 0) - t4_2(2, 2, 0, 0)),
951  "T4(i,j,k,l)-T4(i,k,j,l)(2,0,2,0)");
952  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(2, 0, 2, 1)
953  - (t4_1(2, 0, 2, 1) - t4_2(2, 2, 0, 1)),
954  "T4(i,j,k,l)-T4(i,k,j,l)(2,0,2,1)");
955  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(2, 0, 2, 2)
956  - (t4_1(2, 0, 2, 2) - t4_2(2, 2, 0, 2)),
957  "T4(i,j,k,l)-T4(i,k,j,l)(2,0,2,2)");
958  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(2, 1, 0, 0)
959  - (t4_1(2, 1, 0, 0) - t4_2(2, 0, 1, 0)),
960  "T4(i,j,k,l)-T4(i,k,j,l)(2,1,0,0)");
961  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(2, 1, 0, 1)
962  - (t4_1(2, 1, 0, 1) - t4_2(2, 0, 1, 1)),
963  "T4(i,j,k,l)-T4(i,k,j,l)(2,1,0,1)");
964  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(2, 1, 0, 2)
965  - (t4_1(2, 1, 0, 2) - t4_2(2, 0, 1, 2)),
966  "T4(i,j,k,l)-T4(i,k,j,l)(2,1,0,2)");
967  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(2, 1, 1, 0)
968  - (t4_1(2, 1, 1, 0) - t4_2(2, 1, 1, 0)),
969  "T4(i,j,k,l)-T4(i,k,j,l)(2,1,1,0)");
970  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(2, 1, 1, 1)
971  - (t4_1(2, 1, 1, 1) - t4_2(2, 1, 1, 1)),
972  "T4(i,j,k,l)-T4(i,k,j,l)(2,1,1,1)");
973  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(2, 1, 1, 2)
974  - (t4_1(2, 1, 1, 2) - t4_2(2, 1, 1, 2)),
975  "T4(i,j,k,l)-T4(i,k,j,l)(2,1,1,2)");
976  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(2, 1, 2, 0)
977  - (t4_1(2, 1, 2, 0) - t4_2(2, 2, 1, 0)),
978  "T4(i,j,k,l)-T4(i,k,j,l)(2,1,2,0)");
979  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(2, 1, 2, 1)
980  - (t4_1(2, 1, 2, 1) - t4_2(2, 2, 1, 1)),
981  "T4(i,j,k,l)-T4(i,k,j,l)(2,1,2,1)");
982  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(2, 1, 2, 2)
983  - (t4_1(2, 1, 2, 2) - t4_2(2, 2, 1, 2)),
984  "T4(i,j,k,l)-T4(i,k,j,l)(2,1,2,2)");
985  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(2, 2, 0, 0)
986  - (t4_1(2, 2, 0, 0) - t4_2(2, 0, 2, 0)),
987  "T4(i,j,k,l)-T4(i,k,j,l)(2,2,0,0)");
988  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(2, 2, 0, 1)
989  - (t4_1(2, 2, 0, 1) - t4_2(2, 0, 2, 1)),
990  "T4(i,j,k,l)-T4(i,k,j,l)(2,2,0,1)");
991  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(2, 2, 0, 2)
992  - (t4_1(2, 2, 0, 2) - t4_2(2, 0, 2, 2)),
993  "T4(i,j,k,l)-T4(i,k,j,l)(2,2,0,2)");
994  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(2, 2, 1, 0)
995  - (t4_1(2, 2, 1, 0) - t4_2(2, 1, 2, 0)),
996  "T4(i,j,k,l)-T4(i,k,j,l)(2,2,1,0)");
997  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(2, 2, 1, 1)
998  - (t4_1(2, 2, 1, 1) - t4_2(2, 1, 2, 1)),
999  "T4(i,j,k,l)-T4(i,k,j,l)(2,2,1,1)");
1000  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(2, 2, 1, 2)
1001  - (t4_1(2, 2, 1, 2) - t4_2(2, 1, 2, 2)),
1002  "T4(i,j,k,l)-T4(i,k,j,l)(2,2,1,2)");
1003  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(2, 2, 2, 0)
1004  - (t4_1(2, 2, 2, 0) - t4_2(2, 2, 2, 0)),
1005  "T4(i,j,k,l)-T4(i,k,j,l)(2,2,2,0)");
1006  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(2, 2, 2, 1)
1007  - (t4_1(2, 2, 2, 1) - t4_2(2, 2, 2, 1)),
1008  "T4(i,j,k,l)-T4(i,k,j,l)(2,2,2,1)");
1009  test_for_zero((t4_1(i, j, k, l) - t4_2(i, k, j, l))(2, 2, 2, 2)
1010  - (t4_1(2, 2, 2, 2) - t4_2(2, 2, 2, 2)),
1011  "T4(i,j,k,l)-T4(i,k,j,l)(2,2,2,2)");
1012 
1013  /* T4(i,j,k,l)-T4(l,k,i,j) */
1014 
1015  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(0, 0, 0, 0)
1016  - (t4_1(0, 0, 0, 0) - t4_2(0, 0, 0, 0)),
1017  "T4(i,j,k,l)-T4(l,k,i,j)(0,0,0,0)");
1018  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(0, 0, 0, 1)
1019  - (t4_1(0, 0, 0, 1) - t4_2(1, 0, 0, 0)),
1020  "T4(i,j,k,l)-T4(l,k,i,j)(0,0,0,1)");
1021  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(0, 0, 0, 2)
1022  - (t4_1(0, 0, 0, 2) - t4_2(2, 0, 0, 0)),
1023  "T4(i,j,k,l)-T4(l,k,i,j)(0,0,0,2)");
1024  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(0, 0, 1, 0)
1025  - (t4_1(0, 0, 1, 0) - t4_2(0, 1, 0, 0)),
1026  "T4(i,j,k,l)-T4(l,k,i,j)(0,0,1,0)");
1027  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(0, 0, 1, 1)
1028  - (t4_1(0, 0, 1, 1) - t4_2(1, 1, 0, 0)),
1029  "T4(i,j,k,l)-T4(l,k,i,j)(0,0,1,1)");
1030  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(0, 0, 1, 2)
1031  - (t4_1(0, 0, 1, 2) - t4_2(2, 1, 0, 0)),
1032  "T4(i,j,k,l)-T4(l,k,i,j)(0,0,1,2)");
1033  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(0, 0, 2, 0)
1034  - (t4_1(0, 0, 2, 0) - t4_2(0, 2, 0, 0)),
1035  "T4(i,j,k,l)-T4(l,k,i,j)(0,0,2,0)");
1036  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(0, 0, 2, 1)
1037  - (t4_1(0, 0, 2, 1) - t4_2(1, 2, 0, 0)),
1038  "T4(i,j,k,l)-T4(l,k,i,j)(0,0,2,1)");
1039  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(0, 0, 2, 2)
1040  - (t4_1(0, 0, 2, 2) - t4_2(2, 2, 0, 0)),
1041  "T4(i,j,k,l)-T4(l,k,i,j)(0,0,2,2)");
1042  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(0, 1, 0, 0)
1043  - (t4_1(0, 1, 0, 0) - t4_2(0, 0, 0, 1)),
1044  "T4(i,j,k,l)-T4(l,k,i,j)(0,1,0,0)");
1045  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(0, 1, 0, 1)
1046  - (t4_1(0, 1, 0, 1) - t4_2(1, 0, 0, 1)),
1047  "T4(i,j,k,l)-T4(l,k,i,j)(0,1,0,1)");
1048  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(0, 1, 0, 2)
1049  - (t4_1(0, 1, 0, 2) - t4_2(2, 0, 0, 1)),
1050  "T4(i,j,k,l)-T4(l,k,i,j)(0,1,0,2)");
1051  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(0, 1, 1, 0)
1052  - (t4_1(0, 1, 1, 0) - t4_2(0, 1, 0, 1)),
1053  "T4(i,j,k,l)-T4(l,k,i,j)(0,1,1,0)");
1054  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(0, 1, 1, 1)
1055  - (t4_1(0, 1, 1, 1) - t4_2(1, 1, 0, 1)),
1056  "T4(i,j,k,l)-T4(l,k,i,j)(0,1,1,1)");
1057  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(0, 1, 1, 2)
1058  - (t4_1(0, 1, 1, 2) - t4_2(2, 1, 0, 1)),
1059  "T4(i,j,k,l)-T4(l,k,i,j)(0,1,1,2)");
1060  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(0, 1, 2, 0)
1061  - (t4_1(0, 1, 2, 0) - t4_2(0, 2, 0, 1)),
1062  "T4(i,j,k,l)-T4(l,k,i,j)(0,1,2,0)");
1063  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(0, 1, 2, 1)
1064  - (t4_1(0, 1, 2, 1) - t4_2(1, 2, 0, 1)),
1065  "T4(i,j,k,l)-T4(l,k,i,j)(0,1,2,1)");
1066  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(0, 1, 2, 2)
1067  - (t4_1(0, 1, 2, 2) - t4_2(2, 2, 0, 1)),
1068  "T4(i,j,k,l)-T4(l,k,i,j)(0,1,2,2)");
1069  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(0, 2, 0, 0)
1070  - (t4_1(0, 2, 0, 0) - t4_2(0, 0, 0, 2)),
1071  "T4(i,j,k,l)-T4(l,k,i,j)(0,2,0,0)");
1072  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(0, 2, 0, 1)
1073  - (t4_1(0, 2, 0, 1) - t4_2(1, 0, 0, 2)),
1074  "T4(i,j,k,l)-T4(l,k,i,j)(0,2,0,1)");
1075  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(0, 2, 0, 2)
1076  - (t4_1(0, 2, 0, 2) - t4_2(2, 0, 0, 2)),
1077  "T4(i,j,k,l)-T4(l,k,i,j)(0,2,0,2)");
1078  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(0, 2, 1, 0)
1079  - (t4_1(0, 2, 1, 0) - t4_2(0, 1, 0, 2)),
1080  "T4(i,j,k,l)-T4(l,k,i,j)(0,2,1,0)");
1081  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(0, 2, 1, 1)
1082  - (t4_1(0, 2, 1, 1) - t4_2(1, 1, 0, 2)),
1083  "T4(i,j,k,l)-T4(l,k,i,j)(0,2,1,1)");
1084  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(0, 2, 1, 2)
1085  - (t4_1(0, 2, 1, 2) - t4_2(2, 1, 0, 2)),
1086  "T4(i,j,k,l)-T4(l,k,i,j)(0,2,1,2)");
1087  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(0, 2, 2, 0)
1088  - (t4_1(0, 2, 2, 0) - t4_2(0, 2, 0, 2)),
1089  "T4(i,j,k,l)-T4(l,k,i,j)(0,2,2,0)");
1090  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(0, 2, 2, 1)
1091  - (t4_1(0, 2, 2, 1) - t4_2(1, 2, 0, 2)),
1092  "T4(i,j,k,l)-T4(l,k,i,j)(0,2,2,1)");
1093  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(0, 2, 2, 2)
1094  - (t4_1(0, 2, 2, 2) - t4_2(2, 2, 0, 2)),
1095  "T4(i,j,k,l)-T4(l,k,i,j)(0,2,2,2)");
1096 
1097  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(1, 0, 0, 0)
1098  - (t4_1(1, 0, 0, 0) - t4_2(0, 0, 1, 0)),
1099  "T4(i,j,k,l)-T4(l,k,i,j)(1,0,0,0)");
1100  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(1, 0, 0, 1)
1101  - (t4_1(1, 0, 0, 1) - t4_2(1, 0, 1, 0)),
1102  "T4(i,j,k,l)-T4(l,k,i,j)(1,0,0,1)");
1103  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(1, 0, 0, 2)
1104  - (t4_1(1, 0, 0, 2) - t4_2(2, 0, 1, 0)),
1105  "T4(i,j,k,l)-T4(l,k,i,j)(1,0,0,2)");
1106  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(1, 0, 1, 0)
1107  - (t4_1(1, 0, 1, 0) - t4_2(0, 1, 1, 0)),
1108  "T4(i,j,k,l)-T4(l,k,i,j)(1,0,1,0)");
1109  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(1, 0, 1, 1)
1110  - (t4_1(1, 0, 1, 1) - t4_2(1, 1, 1, 0)),
1111  "T4(i,j,k,l)-T4(l,k,i,j)(1,0,1,1)");
1112  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(1, 0, 1, 2)
1113  - (t4_1(1, 0, 1, 2) - t4_2(2, 1, 1, 0)),
1114  "T4(i,j,k,l)-T4(l,k,i,j)(1,0,1,2)");
1115  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(1, 0, 2, 0)
1116  - (t4_1(1, 0, 2, 0) - t4_2(0, 2, 1, 0)),
1117  "T4(i,j,k,l)-T4(l,k,i,j)(1,0,2,0)");
1118  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(1, 0, 2, 1)
1119  - (t4_1(1, 0, 2, 1) - t4_2(1, 2, 1, 0)),
1120  "T4(i,j,k,l)-T4(l,k,i,j)(1,0,2,1)");
1121  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(1, 0, 2, 2)
1122  - (t4_1(1, 0, 2, 2) - t4_2(2, 2, 1, 0)),
1123  "T4(i,j,k,l)-T4(l,k,i,j)(1,0,2,2)");
1124  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(1, 1, 0, 0)
1125  - (t4_1(1, 1, 0, 0) - t4_2(0, 0, 1, 1)),
1126  "T4(i,j,k,l)-T4(l,k,i,j)(1,1,0,0)");
1127  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(1, 1, 0, 1)
1128  - (t4_1(1, 1, 0, 1) - t4_2(1, 0, 1, 1)),
1129  "T4(i,j,k,l)-T4(l,k,i,j)(1,1,0,1)");
1130  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(1, 1, 0, 2)
1131  - (t4_1(1, 1, 0, 2) - t4_2(2, 0, 1, 1)),
1132  "T4(i,j,k,l)-T4(l,k,i,j)(1,1,0,2)");
1133  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(1, 1, 1, 0)
1134  - (t4_1(1, 1, 1, 0) - t4_2(0, 1, 1, 1)),
1135  "T4(i,j,k,l)-T4(l,k,i,j)(1,1,1,0)");
1136  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(1, 1, 1, 1)
1137  - (t4_1(1, 1, 1, 1) - t4_2(1, 1, 1, 1)),
1138  "T4(i,j,k,l)-T4(l,k,i,j)(1,1,1,1)");
1139  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(1, 1, 1, 2)
1140  - (t4_1(1, 1, 1, 2) - t4_2(2, 1, 1, 1)),
1141  "T4(i,j,k,l)-T4(l,k,i,j)(1,1,1,2)");
1142  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(1, 1, 2, 0)
1143  - (t4_1(1, 1, 2, 0) - t4_2(0, 2, 1, 1)),
1144  "T4(i,j,k,l)-T4(l,k,i,j)(1,1,2,0)");
1145  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(1, 1, 2, 1)
1146  - (t4_1(1, 1, 2, 1) - t4_2(1, 2, 1, 1)),
1147  "T4(i,j,k,l)-T4(l,k,i,j)(1,1,2,1)");
1148  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(1, 1, 2, 2)
1149  - (t4_1(1, 1, 2, 2) - t4_2(2, 2, 1, 1)),
1150  "T4(i,j,k,l)-T4(l,k,i,j)(1,1,2,2)");
1151  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(1, 2, 0, 0)
1152  - (t4_1(1, 2, 0, 0) - t4_2(0, 0, 1, 2)),
1153  "T4(i,j,k,l)-T4(l,k,i,j)(1,2,0,0)");
1154  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(1, 2, 0, 1)
1155  - (t4_1(1, 2, 0, 1) - t4_2(1, 0, 1, 2)),
1156  "T4(i,j,k,l)-T4(l,k,i,j)(1,2,0,1)");
1157  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(1, 2, 0, 2)
1158  - (t4_1(1, 2, 0, 2) - t4_2(2, 0, 1, 2)),
1159  "T4(i,j,k,l)-T4(l,k,i,j)(1,2,0,2)");
1160  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(1, 2, 1, 0)
1161  - (t4_1(1, 2, 1, 0) - t4_2(0, 1, 1, 2)),
1162  "T4(i,j,k,l)-T4(l,k,i,j)(1,2,1,0)");
1163  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(1, 2, 1, 1)
1164  - (t4_1(1, 2, 1, 1) - t4_2(1, 1, 1, 2)),
1165  "T4(i,j,k,l)-T4(l,k,i,j)(1,2,1,1)");
1166  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(1, 2, 1, 2)
1167  - (t4_1(1, 2, 1, 2) - t4_2(2, 1, 1, 2)),
1168  "T4(i,j,k,l)-T4(l,k,i,j)(1,2,1,2)");
1169  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(1, 2, 2, 0)
1170  - (t4_1(1, 2, 2, 0) - t4_2(0, 2, 1, 2)),
1171  "T4(i,j,k,l)-T4(l,k,i,j)(1,2,2,0)");
1172  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(1, 2, 2, 1)
1173  - (t4_1(1, 2, 2, 1) - t4_2(1, 2, 1, 2)),
1174  "T4(i,j,k,l)-T4(l,k,i,j)(1,2,2,1)");
1175  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(1, 2, 2, 2)
1176  - (t4_1(1, 2, 2, 2) - t4_2(2, 2, 1, 2)),
1177  "T4(i,j,k,l)-T4(l,k,i,j)(1,2,2,2)");
1178 
1179  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(2, 0, 0, 0)
1180  - (t4_1(2, 0, 0, 0) - t4_2(0, 0, 2, 0)),
1181  "T4(i,j,k,l)-T4(l,k,i,j)(2,0,0,0)");
1182  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(2, 0, 0, 1)
1183  - (t4_1(2, 0, 0, 1) - t4_2(1, 0, 2, 0)),
1184  "T4(i,j,k,l)-T4(l,k,i,j)(2,0,0,1)");
1185  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(2, 0, 0, 2)
1186  - (t4_1(2, 0, 0, 2) - t4_2(2, 0, 2, 0)),
1187  "T4(i,j,k,l)-T4(l,k,i,j)(2,0,0,2)");
1188  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(2, 0, 1, 0)
1189  - (t4_1(2, 0, 1, 0) - t4_2(0, 1, 2, 0)),
1190  "T4(i,j,k,l)-T4(l,k,i,j)(2,0,1,0)");
1191  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(2, 0, 1, 1)
1192  - (t4_1(2, 0, 1, 1) - t4_2(1, 1, 2, 0)),
1193  "T4(i,j,k,l)-T4(l,k,i,j)(2,0,1,1)");
1194  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(2, 0, 1, 2)
1195  - (t4_1(2, 0, 1, 2) - t4_2(2, 1, 2, 0)),
1196  "T4(i,j,k,l)-T4(l,k,i,j)(2,0,1,2)");
1197  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(2, 0, 2, 0)
1198  - (t4_1(2, 0, 2, 0) - t4_2(0, 2, 2, 0)),
1199  "T4(i,j,k,l)-T4(l,k,i,j)(2,0,2,0)");
1200  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(2, 0, 2, 1)
1201  - (t4_1(2, 0, 2, 1) - t4_2(1, 2, 2, 0)),
1202  "T4(i,j,k,l)-T4(l,k,i,j)(2,0,2,1)");
1203  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(2, 0, 2, 2)
1204  - (t4_1(2, 0, 2, 2) - t4_2(2, 2, 2, 0)),
1205  "T4(i,j,k,l)-T4(l,k,i,j)(2,0,2,2)");
1206  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(2, 1, 0, 0)
1207  - (t4_1(2, 1, 0, 0) - t4_2(0, 0, 2, 1)),
1208  "T4(i,j,k,l)-T4(l,k,i,j)(2,1,0,0)");
1209  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(2, 1, 0, 1)
1210  - (t4_1(2, 1, 0, 1) - t4_2(1, 0, 2, 1)),
1211  "T4(i,j,k,l)-T4(l,k,i,j)(2,1,0,1)");
1212  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(2, 1, 0, 2)
1213  - (t4_1(2, 1, 0, 2) - t4_2(2, 0, 2, 1)),
1214  "T4(i,j,k,l)-T4(l,k,i,j)(2,1,0,2)");
1215  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(2, 1, 1, 0)
1216  - (t4_1(2, 1, 1, 0) - t4_2(0, 1, 2, 1)),
1217  "T4(i,j,k,l)-T4(l,k,i,j)(2,1,1,0)");
1218  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(2, 1, 1, 1)
1219  - (t4_1(2, 1, 1, 1) - t4_2(1, 1, 2, 1)),
1220  "T4(i,j,k,l)-T4(l,k,i,j)(2,1,1,1)");
1221  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(2, 1, 1, 2)
1222  - (t4_1(2, 1, 1, 2) - t4_2(2, 1, 2, 1)),
1223  "T4(i,j,k,l)-T4(l,k,i,j)(2,1,1,2)");
1224  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(2, 1, 2, 0)
1225  - (t4_1(2, 1, 2, 0) - t4_2(0, 2, 2, 1)),
1226  "T4(i,j,k,l)-T4(l,k,i,j)(2,1,2,0)");
1227  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(2, 1, 2, 1)
1228  - (t4_1(2, 1, 2, 1) - t4_2(1, 2, 2, 1)),
1229  "T4(i,j,k,l)-T4(l,k,i,j)(2,1,2,1)");
1230  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(2, 1, 2, 2)
1231  - (t4_1(2, 1, 2, 2) - t4_2(2, 2, 2, 1)),
1232  "T4(i,j,k,l)-T4(l,k,i,j)(2,1,2,2)");
1233  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(2, 2, 0, 0)
1234  - (t4_1(2, 2, 0, 0) - t4_2(0, 0, 2, 2)),
1235  "T4(i,j,k,l)-T4(l,k,i,j)(2,2,0,0)");
1236  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(2, 2, 0, 1)
1237  - (t4_1(2, 2, 0, 1) - t4_2(1, 0, 2, 2)),
1238  "T4(i,j,k,l)-T4(l,k,i,j)(2,2,0,1)");
1239  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(2, 2, 0, 2)
1240  - (t4_1(2, 2, 0, 2) - t4_2(2, 0, 2, 2)),
1241  "T4(i,j,k,l)-T4(l,k,i,j)(2,2,0,2)");
1242  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(2, 2, 1, 0)
1243  - (t4_1(2, 2, 1, 0) - t4_2(0, 1, 2, 2)),
1244  "T4(i,j,k,l)-T4(l,k,i,j)(2,2,1,0)");
1245  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(2, 2, 1, 1)
1246  - (t4_1(2, 2, 1, 1) - t4_2(1, 1, 2, 2)),
1247  "T4(i,j,k,l)-T4(l,k,i,j)(2,2,1,1)");
1248  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(2, 2, 1, 2)
1249  - (t4_1(2, 2, 1, 2) - t4_2(2, 1, 2, 2)),
1250  "T4(i,j,k,l)-T4(l,k,i,j)(2,2,1,2)");
1251  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(2, 2, 2, 0)
1252  - (t4_1(2, 2, 2, 0) - t4_2(0, 2, 2, 2)),
1253  "T4(i,j,k,l)-T4(l,k,i,j)(2,2,2,0)");
1254  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(2, 2, 2, 1)
1255  - (t4_1(2, 2, 2, 1) - t4_2(1, 2, 2, 2)),
1256  "T4(i,j,k,l)-T4(l,k,i,j)(2,2,2,1)");
1257  test_for_zero((t4_1(i, j, k, l) - t4_2(l, k, i, j))(2, 2, 2, 2)
1258  - (t4_1(2, 2, 2, 2) - t4_2(2, 2, 2, 2)),
1259  "T4(i,j,k,l)-T4(l,k,i,j)(2,2,2,2)");
1260 
1261  /* T4(i,j,k,l)-T4(i,j,l,k) */
1262 
1263  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(0, 0, 0, 0)
1264  - (t4_1(0, 0, 0, 0) - t4_2(0, 0, 0, 0)),
1265  "T4(i,j,k,l)-T4(i,j,l,k)(0,0,0,0)");
1266  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(0, 0, 0, 1)
1267  - (t4_1(0, 0, 0, 1) - t4_2(0, 0, 1, 0)),
1268  "T4(i,j,k,l)-T4(i,j,l,k)(0,0,0,1)");
1269  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(0, 0, 0, 2)
1270  - (t4_1(0, 0, 0, 2) - t4_2(0, 0, 2, 0)),
1271  "T4(i,j,k,l)-T4(i,j,l,k)(0,0,0,2)");
1272  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(0, 0, 1, 0)
1273  - (t4_1(0, 0, 1, 0) - t4_2(0, 0, 0, 1)),
1274  "T4(i,j,k,l)-T4(i,j,l,k)(0,0,1,0)");
1275  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(0, 0, 1, 1)
1276  - (t4_1(0, 0, 1, 1) - t4_2(0, 0, 1, 1)),
1277  "T4(i,j,k,l)-T4(i,j,l,k)(0,0,1,1)");
1278  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(0, 0, 1, 2)
1279  - (t4_1(0, 0, 1, 2) - t4_2(0, 0, 2, 1)),
1280  "T4(i,j,k,l)-T4(i,j,l,k)(0,0,1,2)");
1281  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(0, 0, 2, 0)
1282  - (t4_1(0, 0, 2, 0) - t4_2(0, 0, 0, 2)),
1283  "T4(i,j,k,l)-T4(i,j,l,k)(0,0,2,0)");
1284  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(0, 0, 2, 1)
1285  - (t4_1(0, 0, 2, 1) - t4_2(0, 0, 1, 2)),
1286  "T4(i,j,k,l)-T4(i,j,l,k)(0,0,2,1)");
1287  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(0, 0, 2, 2)
1288  - (t4_1(0, 0, 2, 2) - t4_2(0, 0, 2, 2)),
1289  "T4(i,j,k,l)-T4(i,j,l,k)(0,0,2,2)");
1290  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(0, 1, 0, 0)
1291  - (t4_1(0, 1, 0, 0) - t4_2(0, 1, 0, 0)),
1292  "T4(i,j,k,l)-T4(i,j,l,k)(0,1,0,0)");
1293  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(0, 1, 0, 1)
1294  - (t4_1(0, 1, 0, 1) - t4_2(0, 1, 1, 0)),
1295  "T4(i,j,k,l)-T4(i,j,l,k)(0,1,0,1)");
1296  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(0, 1, 0, 2)
1297  - (t4_1(0, 1, 0, 2) - t4_2(0, 1, 2, 0)),
1298  "T4(i,j,k,l)-T4(i,j,l,k)(0,1,0,2)");
1299  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(0, 1, 1, 0)
1300  - (t4_1(0, 1, 1, 0) - t4_2(0, 1, 0, 1)),
1301  "T4(i,j,k,l)-T4(i,j,l,k)(0,1,1,0)");
1302  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(0, 1, 1, 1)
1303  - (t4_1(0, 1, 1, 1) - t4_2(0, 1, 1, 1)),
1304  "T4(i,j,k,l)-T4(i,j,l,k)(0,1,1,1)");
1305  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(0, 1, 1, 2)
1306  - (t4_1(0, 1, 1, 2) - t4_2(0, 1, 2, 1)),
1307  "T4(i,j,k,l)-T4(i,j,l,k)(0,1,1,2)");
1308  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(0, 1, 2, 0)
1309  - (t4_1(0, 1, 2, 0) - t4_2(0, 1, 0, 2)),
1310  "T4(i,j,k,l)-T4(i,j,l,k)(0,1,2,0)");
1311  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(0, 1, 2, 1)
1312  - (t4_1(0, 1, 2, 1) - t4_2(0, 1, 1, 2)),
1313  "T4(i,j,k,l)-T4(i,j,l,k)(0,1,2,1)");
1314  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(0, 1, 2, 2)
1315  - (t4_1(0, 1, 2, 2) - t4_2(0, 1, 2, 2)),
1316  "T4(i,j,k,l)-T4(i,j,l,k)(0,1,2,2)");
1317  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(0, 2, 0, 0)
1318  - (t4_1(0, 2, 0, 0) - t4_2(0, 2, 0, 0)),
1319  "T4(i,j,k,l)-T4(i,j,l,k)(0,2,0,0)");
1320  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(0, 2, 0, 1)
1321  - (t4_1(0, 2, 0, 1) - t4_2(0, 2, 1, 0)),
1322  "T4(i,j,k,l)-T4(i,j,l,k)(0,2,0,1)");
1323  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(0, 2, 0, 2)
1324  - (t4_1(0, 2, 0, 2) - t4_2(0, 2, 2, 0)),
1325  "T4(i,j,k,l)-T4(i,j,l,k)(0,2,0,2)");
1326  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(0, 2, 1, 0)
1327  - (t4_1(0, 2, 1, 0) - t4_2(0, 2, 0, 1)),
1328  "T4(i,j,k,l)-T4(i,j,l,k)(0,2,1,0)");
1329  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(0, 2, 1, 1)
1330  - (t4_1(0, 2, 1, 1) - t4_2(0, 2, 1, 1)),
1331  "T4(i,j,k,l)-T4(i,j,l,k)(0,2,1,1)");
1332  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(0, 2, 1, 2)
1333  - (t4_1(0, 2, 1, 2) - t4_2(0, 2, 2, 1)),
1334  "T4(i,j,k,l)-T4(i,j,l,k)(0,2,1,2)");
1335  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(0, 2, 2, 0)
1336  - (t4_1(0, 2, 2, 0) - t4_2(0, 2, 0, 2)),
1337  "T4(i,j,k,l)-T4(i,j,l,k)(0,2,2,0)");
1338  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(0, 2, 2, 1)
1339  - (t4_1(0, 2, 2, 1) - t4_2(0, 2, 1, 2)),
1340  "T4(i,j,k,l)-T4(i,j,l,k)(0,2,2,1)");
1341  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(0, 2, 2, 2)
1342  - (t4_1(0, 2, 2, 2) - t4_2(0, 2, 2, 2)),
1343  "T4(i,j,k,l)-T4(i,j,l,k)(0,2,2,2)");
1344 
1345  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(1, 0, 0, 0)
1346  - (t4_1(1, 0, 0, 0) - t4_2(1, 0, 0, 0)),
1347  "T4(i,j,k,l)-T4(i,j,l,k)(1,0,0,0)");
1348  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(1, 0, 0, 1)
1349  - (t4_1(1, 0, 0, 1) - t4_2(1, 0, 1, 0)),
1350  "T4(i,j,k,l)-T4(i,j,l,k)(1,0,0,1)");
1351  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(1, 0, 0, 2)
1352  - (t4_1(1, 0, 0, 2) - t4_2(1, 0, 2, 0)),
1353  "T4(i,j,k,l)-T4(i,j,l,k)(1,0,0,2)");
1354  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(1, 0, 1, 0)
1355  - (t4_1(1, 0, 1, 0) - t4_2(1, 0, 0, 1)),
1356  "T4(i,j,k,l)-T4(i,j,l,k)(1,0,1,0)");
1357  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(1, 0, 1, 1)
1358  - (t4_1(1, 0, 1, 1) - t4_2(1, 0, 1, 1)),
1359  "T4(i,j,k,l)-T4(i,j,l,k)(1,0,1,1)");
1360  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(1, 0, 1, 2)
1361  - (t4_1(1, 0, 1, 2) - t4_2(1, 0, 2, 1)),
1362  "T4(i,j,k,l)-T4(i,j,l,k)(1,0,1,2)");
1363  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(1, 0, 2, 0)
1364  - (t4_1(1, 0, 2, 0) - t4_2(1, 0, 0, 2)),
1365  "T4(i,j,k,l)-T4(i,j,l,k)(1,0,2,0)");
1366  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(1, 0, 2, 1)
1367  - (t4_1(1, 0, 2, 1) - t4_2(1, 0, 1, 2)),
1368  "T4(i,j,k,l)-T4(i,j,l,k)(1,0,2,1)");
1369  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(1, 0, 2, 2)
1370  - (t4_1(1, 0, 2, 2) - t4_2(1, 0, 2, 2)),
1371  "T4(i,j,k,l)-T4(i,j,l,k)(1,0,2,2)");
1372  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(1, 1, 0, 0)
1373  - (t4_1(1, 1, 0, 0) - t4_2(1, 1, 0, 0)),
1374  "T4(i,j,k,l)-T4(i,j,l,k)(1,1,0,0)");
1375  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(1, 1, 0, 1)
1376  - (t4_1(1, 1, 0, 1) - t4_2(1, 1, 1, 0)),
1377  "T4(i,j,k,l)-T4(i,j,l,k)(1,1,0,1)");
1378  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(1, 1, 0, 2)
1379  - (t4_1(1, 1, 0, 2) - t4_2(1, 1, 2, 0)),
1380  "T4(i,j,k,l)-T4(i,j,l,k)(1,1,0,2)");
1381  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(1, 1, 1, 0)
1382  - (t4_1(1, 1, 1, 0) - t4_2(1, 1, 0, 1)),
1383  "T4(i,j,k,l)-T4(i,j,l,k)(1,1,1,0)");
1384  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(1, 1, 1, 1)
1385  - (t4_1(1, 1, 1, 1) - t4_2(1, 1, 1, 1)),
1386  "T4(i,j,k,l)-T4(i,j,l,k)(1,1,1,1)");
1387  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(1, 1, 1, 2)
1388  - (t4_1(1, 1, 1, 2) - t4_2(1, 1, 2, 1)),
1389  "T4(i,j,k,l)-T4(i,j,l,k)(1,1,1,2)");
1390  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(1, 1, 2, 0)
1391  - (t4_1(1, 1, 2, 0) - t4_2(1, 1, 0, 2)),
1392  "T4(i,j,k,l)-T4(i,j,l,k)(1,1,2,0)");
1393  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(1, 1, 2, 1)
1394  - (t4_1(1, 1, 2, 1) - t4_2(1, 1, 1, 2)),
1395  "T4(i,j,k,l)-T4(i,j,l,k)(1,1,2,1)");
1396  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(1, 1, 2, 2)
1397  - (t4_1(1, 1, 2, 2) - t4_2(1, 1, 2, 2)),
1398  "T4(i,j,k,l)-T4(i,j,l,k)(1,1,2,2)");
1399  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(1, 2, 0, 0)
1400  - (t4_1(1, 2, 0, 0) - t4_2(1, 2, 0, 0)),
1401  "T4(i,j,k,l)-T4(i,j,l,k)(1,2,0,0)");
1402  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(1, 2, 0, 1)
1403  - (t4_1(1, 2, 0, 1) - t4_2(1, 2, 1, 0)),
1404  "T4(i,j,k,l)-T4(i,j,l,k)(1,2,0,1)");
1405  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(1, 2, 0, 2)
1406  - (t4_1(1, 2, 0, 2) - t4_2(1, 2, 2, 0)),
1407  "T4(i,j,k,l)-T4(i,j,l,k)(1,2,0,2)");
1408  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(1, 2, 1, 0)
1409  - (t4_1(1, 2, 1, 0) - t4_2(1, 2, 0, 1)),
1410  "T4(i,j,k,l)-T4(i,j,l,k)(1,2,1,0)");
1411  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(1, 2, 1, 1)
1412  - (t4_1(1, 2, 1, 1) - t4_2(1, 2, 1, 1)),
1413  "T4(i,j,k,l)-T4(i,j,l,k)(1,2,1,1)");
1414  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(1, 2, 1, 2)
1415  - (t4_1(1, 2, 1, 2) - t4_2(1, 2, 2, 1)),
1416  "T4(i,j,k,l)-T4(i,j,l,k)(1,2,1,2)");
1417  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(1, 2, 2, 0)
1418  - (t4_1(1, 2, 2, 0) - t4_2(1, 2, 0, 2)),
1419  "T4(i,j,k,l)-T4(i,j,l,k)(1,2,2,0)");
1420  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(1, 2, 2, 1)
1421  - (t4_1(1, 2, 2, 1) - t4_2(1, 2, 1, 2)),
1422  "T4(i,j,k,l)-T4(i,j,l,k)(1,2,2,1)");
1423  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(1, 2, 2, 2)
1424  - (t4_1(1, 2, 2, 2) - t4_2(1, 2, 2, 2)),
1425  "T4(i,j,k,l)-T4(i,j,l,k)(1,2,2,2)");
1426 
1427  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(2, 0, 0, 0)
1428  - (t4_1(2, 0, 0, 0) - t4_2(2, 0, 0, 0)),
1429  "T4(i,j,k,l)-T4(i,j,l,k)(2,0,0,0)");
1430  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(2, 0, 0, 1)
1431  - (t4_1(2, 0, 0, 1) - t4_2(2, 0, 1, 0)),
1432  "T4(i,j,k,l)-T4(i,j,l,k)(2,0,0,1)");
1433  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(2, 0, 0, 2)
1434  - (t4_1(2, 0, 0, 2) - t4_2(2, 0, 2, 0)),
1435  "T4(i,j,k,l)-T4(i,j,l,k)(2,0,0,2)");
1436  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(2, 0, 1, 0)
1437  - (t4_1(2, 0, 1, 0) - t4_2(2, 0, 0, 1)),
1438  "T4(i,j,k,l)-T4(i,j,l,k)(2,0,1,0)");
1439  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(2, 0, 1, 1)
1440  - (t4_1(2, 0, 1, 1) - t4_2(2, 0, 1, 1)),
1441  "T4(i,j,k,l)-T4(i,j,l,k)(2,0,1,1)");
1442  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(2, 0, 1, 2)
1443  - (t4_1(2, 0, 1, 2) - t4_2(2, 0, 2, 1)),
1444  "T4(i,j,k,l)-T4(i,j,l,k)(2,0,1,2)");
1445  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(2, 0, 2, 0)
1446  - (t4_1(2, 0, 2, 0) - t4_2(2, 0, 0, 2)),
1447  "T4(i,j,k,l)-T4(i,j,l,k)(2,0,2,0)");
1448  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(2, 0, 2, 1)
1449  - (t4_1(2, 0, 2, 1) - t4_2(2, 0, 1, 2)),
1450  "T4(i,j,k,l)-T4(i,j,l,k)(2,0,2,1)");
1451  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(2, 0, 2, 2)
1452  - (t4_1(2, 0, 2, 2) - t4_2(2, 0, 2, 2)),
1453  "T4(i,j,k,l)-T4(i,j,l,k)(2,0,2,2)");
1454  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(2, 1, 0, 0)
1455  - (t4_1(2, 1, 0, 0) - t4_2(2, 1, 0, 0)),
1456  "T4(i,j,k,l)-T4(i,j,l,k)(2,1,0,0)");
1457  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(2, 1, 0, 1)
1458  - (t4_1(2, 1, 0, 1) - t4_2(2, 1, 1, 0)),
1459  "T4(i,j,k,l)-T4(i,j,l,k)(2,1,0,1)");
1460  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(2, 1, 0, 2)
1461  - (t4_1(2, 1, 0, 2) - t4_2(2, 1, 2, 0)),
1462  "T4(i,j,k,l)-T4(i,j,l,k)(2,1,0,2)");
1463  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(2, 1, 1, 0)
1464  - (t4_1(2, 1, 1, 0) - t4_2(2, 1, 0, 1)),
1465  "T4(i,j,k,l)-T4(i,j,l,k)(2,1,1,0)");
1466  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(2, 1, 1, 1)
1467  - (t4_1(2, 1, 1, 1) - t4_2(2, 1, 1, 1)),
1468  "T4(i,j,k,l)-T4(i,j,l,k)(2,1,1,1)");
1469  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(2, 1, 1, 2)
1470  - (t4_1(2, 1, 1, 2) - t4_2(2, 1, 2, 1)),
1471  "T4(i,j,k,l)-T4(i,j,l,k)(2,1,1,2)");
1472  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(2, 1, 2, 0)
1473  - (t4_1(2, 1, 2, 0) - t4_2(2, 1, 0, 2)),
1474  "T4(i,j,k,l)-T4(i,j,l,k)(2,1,2,0)");
1475  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(2, 1, 2, 1)
1476  - (t4_1(2, 1, 2, 1) - t4_2(2, 1, 1, 2)),
1477  "T4(i,j,k,l)-T4(i,j,l,k)(2,1,2,1)");
1478  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(2, 1, 2, 2)
1479  - (t4_1(2, 1, 2, 2) - t4_2(2, 1, 2, 2)),
1480  "T4(i,j,k,l)-T4(i,j,l,k)(2,1,2,2)");
1481  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(2, 2, 0, 0)
1482  - (t4_1(2, 2, 0, 0) - t4_2(2, 2, 0, 0)),
1483  "T4(i,j,k,l)-T4(i,j,l,k)(2,2,0,0)");
1484  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(2, 2, 0, 1)
1485  - (t4_1(2, 2, 0, 1) - t4_2(2, 2, 1, 0)),
1486  "T4(i,j,k,l)-T4(i,j,l,k)(2,2,0,1)");
1487  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(2, 2, 0, 2)
1488  - (t4_1(2, 2, 0, 2) - t4_2(2, 2, 2, 0)),
1489  "T4(i,j,k,l)-T4(i,j,l,k)(2,2,0,2)");
1490  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(2, 2, 1, 0)
1491  - (t4_1(2, 2, 1, 0) - t4_2(2, 2, 0, 1)),
1492  "T4(i,j,k,l)-T4(i,j,l,k)(2,2,1,0)");
1493  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(2, 2, 1, 1)
1494  - (t4_1(2, 2, 1, 1) - t4_2(2, 2, 1, 1)),
1495  "T4(i,j,k,l)-T4(i,j,l,k)(2,2,1,1)");
1496  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(2, 2, 1, 2)
1497  - (t4_1(2, 2, 1, 2) - t4_2(2, 2, 2, 1)),
1498  "T4(i,j,k,l)-T4(i,j,l,k)(2,2,1,2)");
1499  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(2, 2, 2, 0)
1500  - (t4_1(2, 2, 2, 0) - t4_2(2, 2, 0, 2)),
1501  "T4(i,j,k,l)-T4(i,j,l,k)(2,2,2,0)");
1502  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(2, 2, 2, 1)
1503  - (t4_1(2, 2, 2, 1) - t4_2(2, 2, 1, 2)),
1504  "T4(i,j,k,l)-T4(i,j,l,k)(2,2,2,1)");
1505  test_for_zero((t4_1(i, j, k, l) - t4_2(i, j, l, k))(2, 2, 2, 2)
1506  - (t4_1(2, 2, 2, 2) - t4_2(2, 2, 2, 2)),
1507  "T4(i,j,k,l)-T4(i,j,l,k)(2,2,2,2)");
1508 }
FTensor
JSON compatible output.
Definition: Christof_constructor.hpp:6
FTensor::Number< 0 >
test_for_zero
void test_for_zero(const T &t, const std::string &s)
Definition: test_for_zero.hpp:7
FTensor::Tensor4
Definition: Tensor4_value.hpp:18
i
FTensor::Index< 'i', SPACE_DIM > i
Definition: hcurl_divergence_operator_2d.cpp:27
test_T4_03
void test_T4_03(const Tensor4< double, 3, 3, 3, 3 > &t4_1, const Tensor4< double, 3, 3, 3, 3 > &t4_2)
Definition: test_T4_03.cpp:7
FTensor::Index< 'i', 3 >
convert.n
n
Definition: convert.py:82
std
Definition: enable_if.hpp:5
j
FTensor::Index< 'j', 3 > j
Definition: matrix_function.cpp:19
m
FTensor::Index< 'm', 3 > m
Definition: shallow_wave.cpp:80
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