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