v0.15.0
Loading...
Searching...
No Matches
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"
4using namespace FTensor;
5using namespace std;
6
7void 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}
i
FTensor::Index< 'i', SPACE_DIM > i
Definition hcurl_divergence_operator_2d.cpp:27
n
const double n
refractive index of diffusive medium
Definition initial_diffusion.cpp:38
l
FTensor::Index< 'l', 3 > l
Definition matrix_function.cpp:21
j
FTensor::Index< 'j', 3 > j
Definition matrix_function.cpp:19
k
FTensor::Index< 'k', 3 > k
Definition matrix_function.cpp:20
FTensor
Tensors class implemented by Walter Landry.
Definition FTensor.hpp:51
m
FTensor::Index< 'm', 3 > m
Definition shallow_wave.cpp:80
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
test_for_zero
void test_for_zero(const T &t, const std::string &s)
Definition test_for_zero.hpp:7
Generated by Doxygen 1.9.8 and hosted at University of Glasgow