v0.15.0
Loading...
Searching...
No Matches
Functions
test_T4ddg.cpp File Reference
#include "../../../src/FTensor.hpp"
#include "../test_for_zero.hpp"
#include <iostream>

Go to the source code of this file.

Functions

void test_T4ddg_01 (const Tensor2_symmetric< double, 3 > &t2s_2, const Tensor2_symmetric< double, 3 > &t2s_3, const Dg< double, 3, 3 > &t3dg_2, const Dg< double, 3, 3 > &t3dg_3)
 
void test_T4ddg_02 (const Tensor2_symmetric< double, 3 > &t2s_2)
 
void test_T4ddg_03 (Tensor2< double, 3, 3 > &t2_1, Tensor2_symmetric< double, 3 > &t2s_1, const Tensor2_symmetric< double, 3 > &t2s_2, const Tensor2_symmetric< double, 3 > &t2s_3)
 
void test_T4ddg_04 (const Tensor1< double, 3 > &t1_2, const Tensor2< double, 3, 3 > &t2_2, const Tensor2< double, 3, 3 > &t2_3, Tensor2_symmetric< double, 3 > &t2s_1, const Tensor2_symmetric< double, 3 > &t2s_2, const Tensor2_symmetric< double, 3 > &t2s_3, Dg< double, 3, 3 > &t3dg_1)
 
void test_T4ddg_05 (Tensor1< double, 3 > &t1_1, const Tensor1< double, 3 > &t1_2, Tensor2< double, 3, 3 > &t2_1, Tensor2_symmetric< double, 3 > &t2s_1, const Tensor2_symmetric< double, 3 > &t2s_2, const Tensor2_symmetric< double, 3 > &t2s_3, Dg< double, 3, 3 > &t3dg_1, const Dg< double, 3, 3 > &t3dg_2, const Dg< double, 3, 3 > &t3dg_3)
 
void test_T4ddg_006 (const Tensor2_symmetric< double, 3 > &t2s_2, const Tensor2_symmetric< double, 3 > &t2s_3)
 
void test_T4ddg_007 (const Tensor2_symmetric< double, 3 > &t2s_2, const Tensor2_symmetric< double, 3 > &t2s_3)
 
void test_T4ddg_008 (const Tensor2< double, 3, 3 > &t2_1, const Tensor2< double, 3, 3 > &t2_2, const Tensor2_symmetric< double, 3 > &t2s_2, const Tensor2_symmetric< double, 3 > &t2s_3)
 
void test_T4ddg (Tensor1< double, 3 > &t1_1, const Tensor1< double, 3 > &t1_2, Tensor2< double, 3, 3 > &t2_1, const Tensor2< double, 3, 3 > &t2_2, const Tensor2< double, 3, 3 > &t2_3, Tensor2_symmetric< double, 3 > &t2s_1, const Tensor2_symmetric< double, 3 > &t2s_2, const Tensor2_symmetric< double, 3 > &t2s_3, Dg< double, 3, 3 > &t3dg_1, const Dg< double, 3, 3 > &t3dg_2, const Dg< double, 3, 3 > &t3dg_3)
 

Function Documentation

◆ test_T4ddg()

void test_T4ddg ( Tensor1< double, 3 > &  t1_1,
const Tensor1< double, 3 > &  t1_2,
Tensor2< double, 3, 3 > &  t2_1,
const Tensor2< double, 3, 3 > &  t2_2,
const Tensor2< double, 3, 3 > &  t2_3,
Tensor2_symmetric< double, 3 > &  t2s_1,
const Tensor2_symmetric< double, 3 > &  t2s_2,
const Tensor2_symmetric< double, 3 > &  t2s_3,
Dg< double, 3, 3 > &  t3dg_1,
const Dg< double, 3, 3 > &  t3dg_2,
const Dg< double, 3, 3 > &  t3dg_3 
)

Definition at line 39 of file test_T4ddg.cpp.

46 {
47 test_T4ddg_01(t2s_2, t2s_3, t3dg_2, t3dg_3);
48 test_T4ddg_02(t2s_2);
49 test_T4ddg_03(t2_1, t2s_1, t2s_2, t2s_3);
50 test_T4ddg_04(t1_2, t2_2, t2_3, t2s_1, t2s_2, t2s_3, t3dg_1);
51 test_T4ddg_05(t1_1, t1_2, t2_1, t2s_1, t2s_2, t2s_3, t3dg_1, t3dg_2, t3dg_3);
52 test_T4ddg_006(t2s_2, t2s_3);
53 test_T4ddg_007(t2s_2, t2s_3);
54 test_T4ddg_008(t2_1, t2_2, t2s_2, t2s_3);
55}
test_T4ddg_02
void test_T4ddg_02(const Tensor2_symmetric< double, 3 > &t2s_2)
Definition test_T4ddg_02.cpp:7
test_T4ddg_01
void test_T4ddg_01(const Tensor2_symmetric< double, 3 > &t2s_2, const Tensor2_symmetric< double, 3 > &t2s_3, const Dg< double, 3, 3 > &t3dg_2, const Dg< double, 3, 3 > &t3dg_3)
Definition test_T4ddg_01.cpp:7
test_T4ddg_008
void test_T4ddg_008(const Tensor2< double, 3, 3 > &t2_1, const Tensor2< double, 3, 3 > &t2_2, const Tensor2_symmetric< double, 3 > &t2s_2, const Tensor2_symmetric< double, 3 > &t2s_3)
Definition test_T4ddg_008_ddg_times_t4.cpp:7
test_T4ddg_04
void test_T4ddg_04(const Tensor1< double, 3 > &t1_2, const Tensor2< double, 3, 3 > &t2_2, const Tensor2< double, 3, 3 > &t2_3, Tensor2_symmetric< double, 3 > &t2s_1, const Tensor2_symmetric< double, 3 > &t2s_2, const Tensor2_symmetric< double, 3 > &t2s_3, Dg< double, 3, 3 > &t3dg_1)
Definition test_T4ddg_04.cpp:7
test_T4ddg_05
void test_T4ddg_05(Tensor1< double, 3 > &t1_1, const Tensor1< double, 3 > &t1_2, Tensor2< double, 3, 3 > &t2_1, Tensor2_symmetric< double, 3 > &t2s_1, const Tensor2_symmetric< double, 3 > &t2s_2, const Tensor2_symmetric< double, 3 > &t2s_3, Dg< double, 3, 3 > &t3dg_1, const Dg< double, 3, 3 > &t3dg_2, const Dg< double, 3, 3 > &t3dg_3)
Definition test_T4ddg_05.cpp:7
test_T4ddg_03
void test_T4ddg_03(Tensor2< double, 3, 3 > &t2_1, Tensor2_symmetric< double, 3 > &t2s_1, const Tensor2_symmetric< double, 3 > &t2s_2, const Tensor2_symmetric< double, 3 > &t2s_3)
Definition test_T4ddg_03.cpp:7
test_T4ddg_006
void test_T4ddg_006(const Tensor2_symmetric< double, 3 > &t2s_2, const Tensor2_symmetric< double, 3 > &t2s_3)
Definition test_T4ddg_006.cpp:7
test_T4ddg_007
void test_T4ddg_007(const Tensor2_symmetric< double, 3 > &t2s_2, const Tensor2_symmetric< double, 3 > &t2s_3)
Definition test_T4ddg_007.cpp:7

◆ test_T4ddg_006()

void test_T4ddg_006 ( const Tensor2_symmetric< double, 3 > &  t2s_2,
const Tensor2_symmetric< double, 3 > &  t2s_3 
)

Definition at line 7 of file test_T4ddg_006.cpp.

8 {
9 Index<'i', 3> i;
10 Index<'j', 3> j;
11 Index<'k', 3> k;
12 Index<'l', 3> l;
13
14 {
15 Ddg<double, 3, 3> t4ddg_3_1, t4ddg_3_2, t4ddg_3_3;
16 t4ddg_3_1(i, j, k, l) = t2s_2(i, j) * t2s_3(k, l);
17 t4ddg_3_2(i, j, k, l) = t2s_3(i, j) * t2s_2(k, l);
18 t4ddg_3_3(i, j, k, l) = t4ddg_3_1(i, j, k, l);
19 t4ddg_3_3(i, j, k, l) += t4ddg_3_2(i, j, k, l);
20
21 for (int ii = 0; ii != 3; ++ii)
22 for (int jj = 0; jj != 3; ++jj)
23 for (int kk = 0; kk != 3; ++kk)
24 for (int ll = 0; ll != 3; ++ll) {
25 test_for_zero(t4ddg_3_3(ii, jj, kk, ll) -
26 t4ddg_3_1(ii, jj, kk, ll) -
27 t4ddg_3_2(ii, jj, kk, ll),
28 "T4ddg(i,j,k,l)+=T4ddg(i,j,k,l)(" + to_string(ii) +
29 "," + to_string(jj) + "," + to_string(kk) + "," +
30 to_string(ll) + ")");
31 }
32
33 Ddg<double, 3, 3> t4ddg_3_4;
34 t4ddg_3_4(i, j, k, l) = t4ddg_3_3(i, j, k, l);
35 t4ddg_3_4(i, j, k, l) -= t4ddg_3_3(i, j, k, l);
36 for (int ii = 0; ii != 3; ++ii)
37 for (int jj = 0; jj != 3; ++jj)
38 for (int kk = 0; kk != 3; ++kk)
39 for (int ll = 0; ll != 3; ++ll) {
40 test_for_zero(t4ddg_3_4(ii, jj, kk, ll),
41 "T4ddg(i,j,k,l)-=T4ddg(i,j,k,l)(" + to_string(ii) +
42 "," + to_string(jj) + "," + to_string(kk) + "," +
43 to_string(ll) + ")");
44 }
45 }
46
47 {
48 Ddg<double, 3, 3> t4ddg_3_1, t4ddg_3_2;
49 t4ddg_3_1(i, j, k, l) = t2s_2(i, j) * t2s_3(k, l);
50 t4ddg_3_2(i, j, k, l) = t4ddg_3_1(i, j, k, l);
51 t4ddg_3_1(i, j, k, l) *= 2.;
52 for (int ii = 0; ii != 3; ++ii)
53 for (int jj = 0; jj != 3; ++jj)
54 for (int kk = 0; kk != 3; ++kk)
55 for (int ll = 0; ll != 3; ++ll) {
56 test_for_zero(
57 t4ddg_3_1(ii, jj, kk, ll) - 2 * t4ddg_3_2(ii, jj, kk, ll),
58 "T4ddg(i,j,k,l)*=2(" + to_string(ii) + "," + to_string(jj) +
59 "," + to_string(kk) + "," + to_string(ll) + ")");
60 }
61 }
62
63 {
64 Ddg<double, 3, 3> t4ddg_3_1;
65 t4ddg_3_1(i, j, k, l) = t2s_2(i, j) * t2s_3(k, l);
66
67 Tensor2<double, 3, 3> t2;
68 for (int ii = 0; ii != 3; ++ii)
69 for (int jj = 0; jj != 3; ++jj)
70 t2(ii, jj) = 1 + ii + 10 * jj;
71
72 Tensor2<double, 3, 3> t2_1, t2_2;
73 t2_1(i, k) = t4ddg_3_1(i, j, k, l) * t2(j, l);
74 t2_2(i, k) = t2s_2(i, j) * (t2s_3(k, l) * t2(j, l));
75
76 for (int ii = 0; ii != 3; ++ii)
77 for (int jj = 0; jj != 3; ++jj) {
78 test_for_zero(t2_1(ii, jj) - t2_2(ii, jj), "T4ddg(i,j,k,l)*T2(j,l)(" +
79 to_string(ii) + "," +
80 to_string(jj) + ")");
81 }
82 }
83
84 {
85 Ddg<double, 3, 3> t4ddg_3_1;
86 t4ddg_3_1(i, j, k, l) = t2s_2(i, j) * t2s_3(k, l);
87
88 Tensor2<double, 3, 3> t2;
89 for (int ii = 0; ii != 3; ++ii)
90 for (int jj = 0; jj != 3; ++jj)
91 t2(ii, jj) = 1 + ii + 10 * jj;
92
93 Tensor2_symmetric<double, 3> t2s_1, t2s_4;
94 t2s_1(k, l) = t4ddg_3_1(i, j, k, l) * t2(i, j);
95
96 t2s_4(k, l) = 0;
97 for (int kk = 0; kk != 3; ++kk)
98 for (int ll = kk; ll != 3; ++ll)
99 for (int ii = 0; ii != 3; ++ii)
100 for (int jj = 0; jj != 3; ++jj)
101 t2s_4(kk, ll) += t2s_3(kk, ll) * (t2s_2(ii, jj) * t2(ii, jj));
102
103 for (int ii = 0; ii != 3; ++ii)
104 for (int jj = 0; jj != 3; ++jj) {
105 test_for_zero(t2s_1(ii, jj) - t2s_4(ii, jj), "T4ddg(i,j,k,l)*T2(i,j)(" +
106 to_string(ii) + "," +
107 to_string(jj) + ")");
108 }
109 }
110}
FTensor::Tensor2_symmetric
Definition Tensor2_symmetric_value.hpp:14
i
FTensor::Index< 'i', SPACE_DIM > i
Definition hcurl_divergence_operator_2d.cpp:27
l
FTensor::Index< 'l', 3 > l
Definition matrix_function.cpp:21
j
FTensor::Index< 'j', 3 > j
Definition matrix_function.cpp:19
k
FTensor::Index< 'k', 3 > k
Definition matrix_function.cpp:20
test_for_zero
void test_for_zero(const T &t, const std::string &s)
Definition test_for_zero.hpp:7

◆ test_T4ddg_007()

void test_T4ddg_007 ( const Tensor2_symmetric< double, 3 > &  t2s_2,
const Tensor2_symmetric< double, 3 > &  t2s_3 
)

Definition at line 7 of file test_T4ddg_007.cpp.

8 {
9 Index<'i', 3> i;
10 Index<'j', 3> j;
11 Index<'k', 3> k;
12 Index<'l', 3> l;
13 Index<'m', 3> m;
14 Index<'n', 3> n;
15
16 Ddg<double, 3, 3> t4ddg_3_1;
17 t4ddg_3_1(i, j, k, l) = t2s_2(i, j) * t2s_3(k, l);
18
19 {
20 Ddg<double, 3, 3> t4ddg_3_2;
21 t4ddg_3_2(i, j, k, l) = t4ddg_3_1(m, n, i, j) * t4ddg_3_1(m, n, k, l);
22 t4ddg_3_2(i, j, k, l) -=
23 (t2s_3(i, j) * t2s_3(k, l)) * (t2s_2(m, n) * t2s_2(m, n));
24 for (int ii = 0; ii != 3; ++ii)
25 for (int jj = 0; jj != 3; ++jj)
26 for (int kk = 0; kk != 3; ++kk)
27 for (int ll = 0; ll != 3; ++ll) {
28 test_for_zero(t4ddg_3_2(ii, jj, kk, ll), "t4ddg_3_2(i, j, k, l)");
29 }
30 }
31
32 {
33 Ddg<double, 3, 3> t4ddg_3_2;
34 t4ddg_3_2(i, j, k, l) = t4ddg_3_1(i, j, m, n) * t4ddg_3_1(m, n, k, l);
35 t4ddg_3_2(i, j, k, l) -=
36 (t2s_2(i, j) * t2s_3(k, l)) * (t2s_3(m, n) * t2s_2(m, n));
37 for (int ii = 0; ii != 3; ++ii)
38 for (int jj = 0; jj != 3; ++jj)
39 for (int kk = 0; kk != 3; ++kk)
40 for (int ll = 0; ll != 3; ++ll) {
41 test_for_zero(t4ddg_3_2(ii, jj, kk, ll), "t4ddg_3_2(i, j, k, l)");
42 }
43 }
44
45 {
46 Ddg<double, 3, 3> t4ddg_3_2;
47 t4ddg_3_2(i, j, k, l) = t4ddg_3_1(m, n, i, j) * t4ddg_3_1(k, l, m, n);
48 t4ddg_3_2(i, j, k, l) -=
49 (t2s_3(i, j) * t2s_2(k, l)) * (t2s_2(m, n) * t2s_3(m, n));
50 for (int ii = 0; ii != 3; ++ii)
51 for (int jj = 0; jj != 3; ++jj)
52 for (int kk = 0; kk != 3; ++kk)
53 for (int ll = 0; ll != 3; ++ll) {
54 test_for_zero(t4ddg_3_2(ii, jj, kk, ll), "t4ddg_3_2(i, j, k, l)");
55 }
56 }
57
58 {
59 Ddg<double, 3, 3> t4ddg_3_2;
60 t4ddg_3_2(i, j, k, l) = t4ddg_3_1(i, j, m, n) * t4ddg_3_1(k, l, m, n);
61 t4ddg_3_2(i, j, k, l) -=
62 (t2s_2(i, j) * t2s_2(k, l)) * (t2s_3(m, n) * t2s_3(m, n));
63 for (int ii = 0; ii != 3; ++ii)
64 for (int jj = 0; jj != 3; ++jj)
65 for (int kk = 0; kk != 3; ++kk)
66 for (int ll = 0; ll != 3; ++ll) {
67 test_for_zero(t4ddg_3_2(ii, jj, kk, ll), "t4ddg_3_2(i, j, k, l)");
68 }
69 }
70
71 Tensor1<double, 3> t1_1;
72 t1_1(0) = 1;
73 t1_1(1) = 10;
74 t1_1(2) = 100;
75
76 {
77 Dg<double, 3, 3> t3dg_3_1, t3dg_3_2;
78 t3dg_3_1(i, j, l) = t4ddg_3_1(i, j, k, l) * t1_1(k);
79 t3dg_3_2(i, j, l) = t2s_2(i, j) * (t2s_3(k, l) * t1_1(k));
80
81 for (int ii = 0; ii != 3; ++ii)
82 for (int jj = 0; jj != 3; ++jj)
83 for (int ll = 0; ll != 3; ++ll) {
84 test_for_zero(t3dg_3_1(ii, jj, ll) - t3dg_3_2(ii, jj, ll),
85 "t4ddg_3_1(i, j, k, l) * t1_1(k)(" + to_string(ii) +
86 "," + to_string(jj) + "," + to_string(ll) + ")");
87 }
88 }
89
90 {
91 Christof<double, 3, 3> t3ch_3_1, t3ch_3_2;
92 t3ch_3_1(l, j, k) = t4ddg_3_1(i, j, k, l) * t1_1(i);
93 t3ch_3_2(i, j, k) = 0;
94 for (int jj = 0; jj != 3; ++jj)
95 for (int kk = 0; kk != 3; ++kk)
96 for (int ll = kk; ll != 3; ++ll) {
97 auto &v = t3ch_3_2(jj, kk, ll);
98 for (int ii = 0; ii != 3; ++ii) {
99 v += (t2s_2(ii, jj) * t1_1(ii)) * t2s_3(kk, ll);
100 }
101 }
102
103 for (int jj = 0; jj != 3; ++jj)
104 for (int kk = 0; kk != 3; ++kk)
105 for (int ll = 0; ll != 3; ++ll) {
106 test_for_zero(t3ch_3_1(jj, kk, ll) - t3ch_3_2(jj, kk, ll),
107 "t4ddg_3_1(i, j, k, l) * t1_1(i)(" + to_string(jj) +
108 "," + to_string(kk) + "," + to_string(ll) + ")");
109 }
110
111 Christof<double, 3, 3> t3ch_3_3;
112 t3ch_3_3(l, i, k) = t4ddg_3_1(i, j, k, l) * t1_1(j);
113 for (int jj = 0; jj != 3; ++jj)
114 for (int kk = 0; kk != 3; ++kk)
115 for (int ll = 0; ll != 3; ++ll) {
116 test_for_zero(t3ch_3_3(jj, kk, ll) - t3ch_3_2(jj, kk, ll),
117 "t4ddg_3_3(i, j, k, l) * t1_1(i)(" + to_string(jj) +
118 "," + to_string(kk) + "," + to_string(ll) + ")");
119 }
120
121 }
122
123
124 {
125 Dg<double, 3, 3> t3ch_3_1, t3ch_3_2;
126 t3ch_3_1(i, j, k) = t4ddg_3_1(i, j, k, l) * t1_1(l);
127 t3ch_3_2(i, j, k) = t4ddg_3_1(i, j, l, k) * t1_1(l);;
128
129 for (int jj = 0; jj != 3; ++jj)
130 for (int kk = 0; kk != 3; ++kk)
131 for (int ll = 0; ll != 3; ++ll) {
132 test_for_zero(t3ch_3_1(jj, kk, ll) - t3ch_3_2(jj, kk, ll),
133 "t4ddg_3_3(i, j, k, l) * t1_1(i)(" + to_string(jj) +
134 "," + to_string(kk) + "," + to_string(ll) + ")");
135 }
136 }
137
138}
v
const double v
phase velocity of light in medium (cm/ns)
Definition initial_diffusion.cpp:40
n
const double n
refractive index of diffusive medium
Definition initial_diffusion.cpp:38
m
FTensor::Index< 'm', 3 > m
Definition shallow_wave.cpp:80

◆ test_T4ddg_008()

void test_T4ddg_008 ( const Tensor2< double, 3, 3 > &  t2_1,
const Tensor2< double, 3, 3 > &  t2_2,
const Tensor2_symmetric< double, 3 > &  t2s_2,
const Tensor2_symmetric< double, 3 > &  t2s_3 
)

Definition at line 7 of file test_T4ddg_008_ddg_times_t4.cpp.

10 {
11
12 Index<'i', 3> i;
13 Index<'j', 3> j;
14 Index<'k', 3> k;
15 Index<'l', 3> l;
16 Index<'m', 3> m;
17 Index<'n', 3> n;
18
19 Ddg<double, 3, 3> t4ddg_1;
20 t4ddg_1(i, j, k, l) = t2s_2(i, j) * t2s_3(k, l);
21 Tensor4<double, 3, 3, 3, 3> t4_1;
22 t4_1(i, j, k, l) = t2_1(i, j) * t2_2(k, l);
23
24 {
25
26 Tensor4<double, 3, 3, 3, 3> t4_2, t4_3, t4_4;
27
28 t4_2(i, j, k, l) = t4ddg_1(i, j, m, n) * t4_1(m, n, k, l);
29
30 t4_3(i, j, k, l) = 0;
31 for (int ii = 0; ii != 3; ++ii) {
32 for (int jj = 0; jj != 3; ++jj) {
33 for (int kk = 0; kk != 3; ++kk) {
34 for (int ll = 0; ll != 3; ++ll) {
35 for (int mm = 0; mm != 3; ++mm) {
36 for (int nn = 0; nn != 3; ++nn) {
37 t4_3(ii, jj, kk, ll) +=
38 t4ddg_1(ii, jj, mm, nn) * t4_1(mm, nn, kk, ll);
39 }
40 }
41 }
42 }
43 }
44 }
45
46 for (int ii = 0; ii != 3; ++ii)
47 for (int jj = 0; jj != 3; ++jj)
48 for (int kk = 0; kk != 3; ++kk)
49 for (int ll = 0; ll != 3; ++ll) {
50 test_for_zero(t4_2(ii, jj, kk, ll) - t4_3(ii, jj, kk, ll),
51 "t4_2(i, j, k, l) = t4ddg_1(i, j, m, n) * "
52 "t4_1(m, n, k, l)");
53 }
54
55 t4_4(i, j, k, l) = t4_1(m, n, k, l) * t4ddg_1(i, j, m, n);
56
57
58 for (int ii = 0; ii != 3; ++ii)
59 for (int jj = 0; jj != 3; ++jj)
60 for (int kk = 0; kk != 3; ++kk)
61 for (int ll = 0; ll != 3; ++ll) {
62 test_for_zero(t4_4(ii, jj, kk, ll) - t4_3(ii, jj, kk, ll),
63 "t4_2(i, j, k, l) = t4ddg_1(i, j, m, n) * "
64 "t4_1(m, n, k, l)");
65 }
66
67
68 }
69
70}

◆ test_T4ddg_01()

void test_T4ddg_01 ( const Tensor2_symmetric< double, 3 > &  t2s_2,
const Tensor2_symmetric< double, 3 > &  t2s_3,
const Dg< double, 3, 3 > &  t3dg_2,
const Dg< double, 3, 3 > &  t3dg_3 
)

Definition at line 7 of file test_T4ddg_01.cpp.

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

◆ test_T4ddg_02()

void test_T4ddg_02 ( const Tensor2_symmetric< double, 3 > &  t2s_2)

Definition at line 7 of file test_T4ddg_02.cpp.

8{
9 Index<'i', 3> i;
10 Index<'j', 3> j;
11 Index<'k', 3> k;
12 Index<'l', 3> l;
13 Index<'m', 3> m;
14 Index<'n', 3> n;
15
16 Number<0> N0;
17 Number<1> N1;
18 Number<2> N2;
19
20 Ddg<double, 3, 3> t4ddg_1, t4ddg_2, t4ddg_3;
21
22 t4ddg_2(i, k, j, l) = t2s_2(i, k) * t2s_2(j, l);
23 t4ddg_3(i, l, j, k) = t2s_2(i, l) * t2s_2(j, k);
24 t4ddg_1(i, k, m, n) = (t4ddg_2(i, j, k, l) ^ t4ddg_3(j, l, m, n));
25 test_for_zero(t4ddg_1(0, 0, 0, 0)
26 - (t4ddg_2(0, 0, 0, 0) * t4ddg_3(0, 0, 0, 0)
27 + t4ddg_2(0, 0, 0, 1) * t4ddg_3(0, 1, 0, 0)
28 + t4ddg_2(0, 0, 0, 2) * t4ddg_3(0, 2, 0, 0)
29 + t4ddg_2(0, 1, 0, 0) * t4ddg_3(1, 0, 0, 0)
30 + t4ddg_2(0, 1, 0, 1) * t4ddg_3(1, 1, 0, 0)
31 + t4ddg_2(0, 1, 0, 2) * t4ddg_3(1, 2, 0, 0)
32 + t4ddg_2(0, 2, 0, 0) * t4ddg_3(2, 0, 0, 0)
33 + t4ddg_2(0, 2, 0, 1) * t4ddg_3(2, 1, 0, 0)
34 + t4ddg_2(0, 2, 0, 2) * t4ddg_3(2, 2, 0, 0)),
35 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(0,0,0,0)");
36 test_for_zero(t4ddg_1(0, 0, 0, 1)
37 - (t4ddg_2(0, 0, 0, 0) * t4ddg_3(0, 0, 0, 1)
38 + t4ddg_2(0, 0, 0, 1) * t4ddg_3(0, 1, 0, 1)
39 + t4ddg_2(0, 0, 0, 2) * t4ddg_3(0, 2, 0, 1)
40 + t4ddg_2(0, 1, 0, 0) * t4ddg_3(1, 0, 0, 1)
41 + t4ddg_2(0, 1, 0, 1) * t4ddg_3(1, 1, 0, 1)
42 + t4ddg_2(0, 1, 0, 2) * t4ddg_3(1, 2, 0, 1)
43 + t4ddg_2(0, 2, 0, 0) * t4ddg_3(2, 0, 0, 1)
44 + t4ddg_2(0, 2, 0, 1) * t4ddg_3(2, 1, 0, 1)
45 + t4ddg_2(0, 2, 0, 2) * t4ddg_3(2, 2, 0, 1)),
46 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(0,0,0,1)");
47 test_for_zero(t4ddg_1(0, 0, 0, 2)
48 - (t4ddg_2(0, 0, 0, 0) * t4ddg_3(0, 0, 0, 2)
49 + t4ddg_2(0, 0, 0, 1) * t4ddg_3(0, 1, 0, 2)
50 + t4ddg_2(0, 0, 0, 2) * t4ddg_3(0, 2, 0, 2)
51 + t4ddg_2(0, 1, 0, 0) * t4ddg_3(1, 0, 0, 2)
52 + t4ddg_2(0, 1, 0, 1) * t4ddg_3(1, 1, 0, 2)
53 + t4ddg_2(0, 1, 0, 2) * t4ddg_3(1, 2, 0, 2)
54 + t4ddg_2(0, 2, 0, 0) * t4ddg_3(2, 0, 0, 2)
55 + t4ddg_2(0, 2, 0, 1) * t4ddg_3(2, 1, 0, 2)
56 + t4ddg_2(0, 2, 0, 2) * t4ddg_3(2, 2, 0, 2)),
57 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(0,0,0,2)");
58 test_for_zero(t4ddg_1(0, 1, 0, 0)
59 - (t4ddg_2(0, 0, 1, 0) * t4ddg_3(0, 0, 0, 0)
60 + t4ddg_2(0, 0, 1, 1) * t4ddg_3(0, 1, 0, 0)
61 + t4ddg_2(0, 0, 1, 2) * t4ddg_3(0, 2, 0, 0)
62 + t4ddg_2(0, 1, 1, 0) * t4ddg_3(1, 0, 0, 0)
63 + t4ddg_2(0, 1, 1, 1) * t4ddg_3(1, 1, 0, 0)
64 + t4ddg_2(0, 1, 1, 2) * t4ddg_3(1, 2, 0, 0)
65 + t4ddg_2(0, 2, 1, 0) * t4ddg_3(2, 0, 0, 0)
66 + t4ddg_2(0, 2, 1, 1) * t4ddg_3(2, 1, 0, 0)
67 + t4ddg_2(0, 2, 1, 2) * t4ddg_3(2, 2, 0, 0)),
68 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(0,0,1,0)");
69 test_for_zero(t4ddg_1(0, 1, 0, 1)
70 - (t4ddg_2(0, 0, 1, 0) * t4ddg_3(0, 0, 0, 1)
71 + t4ddg_2(0, 0, 1, 1) * t4ddg_3(0, 1, 0, 1)
72 + t4ddg_2(0, 0, 1, 2) * t4ddg_3(0, 2, 0, 1)
73 + t4ddg_2(0, 1, 1, 0) * t4ddg_3(1, 0, 0, 1)
74 + t4ddg_2(0, 1, 1, 1) * t4ddg_3(1, 1, 0, 1)
75 + t4ddg_2(0, 1, 1, 2) * t4ddg_3(1, 2, 0, 1)
76 + t4ddg_2(0, 2, 1, 0) * t4ddg_3(2, 0, 0, 1)
77 + t4ddg_2(0, 2, 1, 1) * t4ddg_3(2, 1, 0, 1)
78 + t4ddg_2(0, 2, 1, 2) * t4ddg_3(2, 2, 0, 1)),
79 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(0,0,1,1)");
80 test_for_zero(t4ddg_1(0, 1, 0, 2)
81 - (t4ddg_2(0, 0, 1, 0) * t4ddg_3(0, 0, 0, 2)
82 + t4ddg_2(0, 0, 1, 1) * t4ddg_3(0, 1, 0, 2)
83 + t4ddg_2(0, 0, 1, 2) * t4ddg_3(0, 2, 0, 2)
84 + t4ddg_2(0, 1, 1, 0) * t4ddg_3(1, 0, 0, 2)
85 + t4ddg_2(0, 1, 1, 1) * t4ddg_3(1, 1, 0, 2)
86 + t4ddg_2(0, 1, 1, 2) * t4ddg_3(1, 2, 0, 2)
87 + t4ddg_2(0, 2, 1, 0) * t4ddg_3(2, 0, 0, 2)
88 + t4ddg_2(0, 2, 1, 1) * t4ddg_3(2, 1, 0, 2)
89 + t4ddg_2(0, 2, 1, 2) * t4ddg_3(2, 2, 0, 2)),
90 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(0,0,1,2)");
91 test_for_zero(t4ddg_1(0, 2, 0, 0)
92 - (t4ddg_2(0, 0, 2, 0) * t4ddg_3(0, 0, 0, 0)
93 + t4ddg_2(0, 0, 2, 1) * t4ddg_3(0, 1, 0, 0)
94 + t4ddg_2(0, 0, 2, 2) * t4ddg_3(0, 2, 0, 0)
95 + t4ddg_2(0, 1, 2, 0) * t4ddg_3(1, 0, 0, 0)
96 + t4ddg_2(0, 1, 2, 1) * t4ddg_3(1, 1, 0, 0)
97 + t4ddg_2(0, 1, 2, 2) * t4ddg_3(1, 2, 0, 0)
98 + t4ddg_2(0, 2, 2, 0) * t4ddg_3(2, 0, 0, 0)
99 + t4ddg_2(0, 2, 2, 1) * t4ddg_3(2, 1, 0, 0)
100 + t4ddg_2(0, 2, 2, 2) * t4ddg_3(2, 2, 0, 0)),
101 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(0,0,2,0)");
102 test_for_zero(t4ddg_1(0, 2, 0, 1)
103 - (t4ddg_2(0, 0, 2, 0) * t4ddg_3(0, 0, 0, 1)
104 + t4ddg_2(0, 0, 2, 1) * t4ddg_3(0, 1, 0, 1)
105 + t4ddg_2(0, 0, 2, 2) * t4ddg_3(0, 2, 0, 1)
106 + t4ddg_2(0, 1, 2, 0) * t4ddg_3(1, 0, 0, 1)
107 + t4ddg_2(0, 1, 2, 1) * t4ddg_3(1, 1, 0, 1)
108 + t4ddg_2(0, 1, 2, 2) * t4ddg_3(1, 2, 0, 1)
109 + t4ddg_2(0, 2, 2, 0) * t4ddg_3(2, 0, 0, 1)
110 + t4ddg_2(0, 2, 2, 1) * t4ddg_3(2, 1, 0, 1)
111 + t4ddg_2(0, 2, 2, 2) * t4ddg_3(2, 2, 0, 1)),
112 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(0,0,2,1)");
113 test_for_zero(t4ddg_1(0, 2, 0, 2)
114 - (t4ddg_2(0, 0, 2, 0) * t4ddg_3(0, 0, 0, 2)
115 + t4ddg_2(0, 0, 2, 1) * t4ddg_3(0, 1, 0, 2)
116 + t4ddg_2(0, 0, 2, 2) * t4ddg_3(0, 2, 0, 2)
117 + t4ddg_2(0, 1, 2, 0) * t4ddg_3(1, 0, 0, 2)
118 + t4ddg_2(0, 1, 2, 1) * t4ddg_3(1, 1, 0, 2)
119 + t4ddg_2(0, 1, 2, 2) * t4ddg_3(1, 2, 0, 2)
120 + t4ddg_2(0, 2, 2, 0) * t4ddg_3(2, 0, 0, 2)
121 + t4ddg_2(0, 2, 2, 1) * t4ddg_3(2, 1, 0, 2)
122 + t4ddg_2(0, 2, 2, 2) * t4ddg_3(2, 2, 0, 2)),
123 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(0,0,2,2)");
124 test_for_zero(t4ddg_1(0, 0, 1, 0)
125 - (t4ddg_2(0, 0, 0, 0) * t4ddg_3(0, 0, 1, 0)
126 + t4ddg_2(0, 0, 0, 1) * t4ddg_3(0, 1, 1, 0)
127 + t4ddg_2(0, 0, 0, 2) * t4ddg_3(0, 2, 1, 0)
128 + t4ddg_2(0, 1, 0, 0) * t4ddg_3(1, 0, 1, 0)
129 + t4ddg_2(0, 1, 0, 1) * t4ddg_3(1, 1, 1, 0)
130 + t4ddg_2(0, 1, 0, 2) * t4ddg_3(1, 2, 1, 0)
131 + t4ddg_2(0, 2, 0, 0) * t4ddg_3(2, 0, 1, 0)
132 + t4ddg_2(0, 2, 0, 1) * t4ddg_3(2, 1, 1, 0)
133 + t4ddg_2(0, 2, 0, 2) * t4ddg_3(2, 2, 1, 0)),
134 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(0,1,0,0)");
135 test_for_zero(t4ddg_1(0, 0, 1, 1)
136 - (t4ddg_2(0, 0, 0, 0) * t4ddg_3(0, 0, 1, 1)
137 + t4ddg_2(0, 0, 0, 1) * t4ddg_3(0, 1, 1, 1)
138 + t4ddg_2(0, 0, 0, 2) * t4ddg_3(0, 2, 1, 1)
139 + t4ddg_2(0, 1, 0, 0) * t4ddg_3(1, 0, 1, 1)
140 + t4ddg_2(0, 1, 0, 1) * t4ddg_3(1, 1, 1, 1)
141 + t4ddg_2(0, 1, 0, 2) * t4ddg_3(1, 2, 1, 1)
142 + t4ddg_2(0, 2, 0, 0) * t4ddg_3(2, 0, 1, 1)
143 + t4ddg_2(0, 2, 0, 1) * t4ddg_3(2, 1, 1, 1)
144 + t4ddg_2(0, 2, 0, 2) * t4ddg_3(2, 2, 1, 1)),
145 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(0,1,0,1)");
146 test_for_zero(t4ddg_1(0, 0, 1, 2)
147 - (t4ddg_2(0, 0, 0, 0) * t4ddg_3(0, 0, 1, 2)
148 + t4ddg_2(0, 0, 0, 1) * t4ddg_3(0, 1, 1, 2)
149 + t4ddg_2(0, 0, 0, 2) * t4ddg_3(0, 2, 1, 2)
150 + t4ddg_2(0, 1, 0, 0) * t4ddg_3(1, 0, 1, 2)
151 + t4ddg_2(0, 1, 0, 1) * t4ddg_3(1, 1, 1, 2)
152 + t4ddg_2(0, 1, 0, 2) * t4ddg_3(1, 2, 1, 2)
153 + t4ddg_2(0, 2, 0, 0) * t4ddg_3(2, 0, 1, 2)
154 + t4ddg_2(0, 2, 0, 1) * t4ddg_3(2, 1, 1, 2)
155 + t4ddg_2(0, 2, 0, 2) * t4ddg_3(2, 2, 1, 2)),
156 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(0,1,0,2)");
157 test_for_zero(t4ddg_1(0, 1, 1, 0)
158 - (t4ddg_2(0, 0, 1, 0) * t4ddg_3(0, 0, 1, 0)
159 + t4ddg_2(0, 0, 1, 1) * t4ddg_3(0, 1, 1, 0)
160 + t4ddg_2(0, 0, 1, 2) * t4ddg_3(0, 2, 1, 0)
161 + t4ddg_2(0, 1, 1, 0) * t4ddg_3(1, 0, 1, 0)
162 + t4ddg_2(0, 1, 1, 1) * t4ddg_3(1, 1, 1, 0)
163 + t4ddg_2(0, 1, 1, 2) * t4ddg_3(1, 2, 1, 0)
164 + t4ddg_2(0, 2, 1, 0) * t4ddg_3(2, 0, 1, 0)
165 + t4ddg_2(0, 2, 1, 1) * t4ddg_3(2, 1, 1, 0)
166 + t4ddg_2(0, 2, 1, 2) * t4ddg_3(2, 2, 1, 0)),
167 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(0,1,1,0)");
168 test_for_zero(t4ddg_1(0, 1, 1, 1)
169 - (t4ddg_2(0, 0, 1, 0) * t4ddg_3(0, 0, 1, 1)
170 + t4ddg_2(0, 0, 1, 1) * t4ddg_3(0, 1, 1, 1)
171 + t4ddg_2(0, 0, 1, 2) * t4ddg_3(0, 2, 1, 1)
172 + t4ddg_2(0, 1, 1, 0) * t4ddg_3(1, 0, 1, 1)
173 + t4ddg_2(0, 1, 1, 1) * t4ddg_3(1, 1, 1, 1)
174 + t4ddg_2(0, 1, 1, 2) * t4ddg_3(1, 2, 1, 1)
175 + t4ddg_2(0, 2, 1, 0) * t4ddg_3(2, 0, 1, 1)
176 + t4ddg_2(0, 2, 1, 1) * t4ddg_3(2, 1, 1, 1)
177 + t4ddg_2(0, 2, 1, 2) * t4ddg_3(2, 2, 1, 1)),
178 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(0,1,1,1)");
179 test_for_zero(t4ddg_1(0, 1, 1, 2)
180 - (t4ddg_2(0, 0, 1, 0) * t4ddg_3(0, 0, 1, 2)
181 + t4ddg_2(0, 0, 1, 1) * t4ddg_3(0, 1, 1, 2)
182 + t4ddg_2(0, 0, 1, 2) * t4ddg_3(0, 2, 1, 2)
183 + t4ddg_2(0, 1, 1, 0) * t4ddg_3(1, 0, 1, 2)
184 + t4ddg_2(0, 1, 1, 1) * t4ddg_3(1, 1, 1, 2)
185 + t4ddg_2(0, 1, 1, 2) * t4ddg_3(1, 2, 1, 2)
186 + t4ddg_2(0, 2, 1, 0) * t4ddg_3(2, 0, 1, 2)
187 + t4ddg_2(0, 2, 1, 1) * t4ddg_3(2, 1, 1, 2)
188 + t4ddg_2(0, 2, 1, 2) * t4ddg_3(2, 2, 1, 2)),
189 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(0,1,1,2)");
190 test_for_zero(t4ddg_1(0, 2, 1, 0)
191 - (t4ddg_2(0, 0, 2, 0) * t4ddg_3(0, 0, 1, 0)
192 + t4ddg_2(0, 0, 2, 1) * t4ddg_3(0, 1, 1, 0)
193 + t4ddg_2(0, 0, 2, 2) * t4ddg_3(0, 2, 1, 0)
194 + t4ddg_2(0, 1, 2, 0) * t4ddg_3(1, 0, 1, 0)
195 + t4ddg_2(0, 1, 2, 1) * t4ddg_3(1, 1, 1, 0)
196 + t4ddg_2(0, 1, 2, 2) * t4ddg_3(1, 2, 1, 0)
197 + t4ddg_2(0, 2, 2, 0) * t4ddg_3(2, 0, 1, 0)
198 + t4ddg_2(0, 2, 2, 1) * t4ddg_3(2, 1, 1, 0)
199 + t4ddg_2(0, 2, 2, 2) * t4ddg_3(2, 2, 1, 0)),
200 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(0,1,2,0)");
201 test_for_zero(t4ddg_1(0, 2, 1, 1)
202 - (t4ddg_2(0, 0, 2, 0) * t4ddg_3(0, 0, 1, 1)
203 + t4ddg_2(0, 0, 2, 1) * t4ddg_3(0, 1, 1, 1)
204 + t4ddg_2(0, 0, 2, 2) * t4ddg_3(0, 2, 1, 1)
205 + t4ddg_2(0, 1, 2, 0) * t4ddg_3(1, 0, 1, 1)
206 + t4ddg_2(0, 1, 2, 1) * t4ddg_3(1, 1, 1, 1)
207 + t4ddg_2(0, 1, 2, 2) * t4ddg_3(1, 2, 1, 1)
208 + t4ddg_2(0, 2, 2, 0) * t4ddg_3(2, 0, 1, 1)
209 + t4ddg_2(0, 2, 2, 1) * t4ddg_3(2, 1, 1, 1)
210 + t4ddg_2(0, 2, 2, 2) * t4ddg_3(2, 2, 1, 1)),
211 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(0,1,2,1)");
212 test_for_zero(t4ddg_1(0, 2, 1, 2)
213 - (t4ddg_2(0, 0, 2, 0) * t4ddg_3(0, 0, 1, 2)
214 + t4ddg_2(0, 0, 2, 1) * t4ddg_3(0, 1, 1, 2)
215 + t4ddg_2(0, 0, 2, 2) * t4ddg_3(0, 2, 1, 2)
216 + t4ddg_2(0, 1, 2, 0) * t4ddg_3(1, 0, 1, 2)
217 + t4ddg_2(0, 1, 2, 1) * t4ddg_3(1, 1, 1, 2)
218 + t4ddg_2(0, 1, 2, 2) * t4ddg_3(1, 2, 1, 2)
219 + t4ddg_2(0, 2, 2, 0) * t4ddg_3(2, 0, 1, 2)
220 + t4ddg_2(0, 2, 2, 1) * t4ddg_3(2, 1, 1, 2)
221 + t4ddg_2(0, 2, 2, 2) * t4ddg_3(2, 2, 1, 2)),
222 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(0,1,2,2)");
223 test_for_zero(t4ddg_1(0, 0, 2, 0)
224 - (t4ddg_2(0, 0, 0, 0) * t4ddg_3(0, 0, 2, 0)
225 + t4ddg_2(0, 0, 0, 1) * t4ddg_3(0, 1, 2, 0)
226 + t4ddg_2(0, 0, 0, 2) * t4ddg_3(0, 2, 2, 0)
227 + t4ddg_2(0, 1, 0, 0) * t4ddg_3(1, 0, 2, 0)
228 + t4ddg_2(0, 1, 0, 1) * t4ddg_3(1, 1, 2, 0)
229 + t4ddg_2(0, 1, 0, 2) * t4ddg_3(1, 2, 2, 0)
230 + t4ddg_2(0, 2, 0, 0) * t4ddg_3(2, 0, 2, 0)
231 + t4ddg_2(0, 2, 0, 1) * t4ddg_3(2, 1, 2, 0)
232 + t4ddg_2(0, 2, 0, 2) * t4ddg_3(2, 2, 2, 0)),
233 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(0,2,0,0)");
234 test_for_zero(t4ddg_1(0, 0, 2, 1)
235 - (t4ddg_2(0, 0, 0, 0) * t4ddg_3(0, 0, 2, 1)
236 + t4ddg_2(0, 0, 0, 1) * t4ddg_3(0, 1, 2, 1)
237 + t4ddg_2(0, 0, 0, 2) * t4ddg_3(0, 2, 2, 1)
238 + t4ddg_2(0, 1, 0, 0) * t4ddg_3(1, 0, 2, 1)
239 + t4ddg_2(0, 1, 0, 1) * t4ddg_3(1, 1, 2, 1)
240 + t4ddg_2(0, 1, 0, 2) * t4ddg_3(1, 2, 2, 1)
241 + t4ddg_2(0, 2, 0, 0) * t4ddg_3(2, 0, 2, 1)
242 + t4ddg_2(0, 2, 0, 1) * t4ddg_3(2, 1, 2, 1)
243 + t4ddg_2(0, 2, 0, 2) * t4ddg_3(2, 2, 2, 1)),
244 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(0,2,0,1)");
245 test_for_zero(t4ddg_1(0, 0, 2, 2)
246 - (t4ddg_2(0, 0, 0, 0) * t4ddg_3(0, 0, 2, 2)
247 + t4ddg_2(0, 0, 0, 1) * t4ddg_3(0, 1, 2, 2)
248 + t4ddg_2(0, 0, 0, 2) * t4ddg_3(0, 2, 2, 2)
249 + t4ddg_2(0, 1, 0, 0) * t4ddg_3(1, 0, 2, 2)
250 + t4ddg_2(0, 1, 0, 1) * t4ddg_3(1, 1, 2, 2)
251 + t4ddg_2(0, 1, 0, 2) * t4ddg_3(1, 2, 2, 2)
252 + t4ddg_2(0, 2, 0, 0) * t4ddg_3(2, 0, 2, 2)
253 + t4ddg_2(0, 2, 0, 1) * t4ddg_3(2, 1, 2, 2)
254 + t4ddg_2(0, 2, 0, 2) * t4ddg_3(2, 2, 2, 2)),
255 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(0,2,0,2)");
256 test_for_zero(t4ddg_1(0, 1, 2, 0)
257 - (t4ddg_2(0, 0, 1, 0) * t4ddg_3(0, 0, 2, 0)
258 + t4ddg_2(0, 0, 1, 1) * t4ddg_3(0, 1, 2, 0)
259 + t4ddg_2(0, 0, 1, 2) * t4ddg_3(0, 2, 2, 0)
260 + t4ddg_2(0, 1, 1, 0) * t4ddg_3(1, 0, 2, 0)
261 + t4ddg_2(0, 1, 1, 1) * t4ddg_3(1, 1, 2, 0)
262 + t4ddg_2(0, 1, 1, 2) * t4ddg_3(1, 2, 2, 0)
263 + t4ddg_2(0, 2, 1, 0) * t4ddg_3(2, 0, 2, 0)
264 + t4ddg_2(0, 2, 1, 1) * t4ddg_3(2, 1, 2, 0)
265 + t4ddg_2(0, 2, 1, 2) * t4ddg_3(2, 2, 2, 0)),
266 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(0,2,1,0)");
267 test_for_zero(t4ddg_1(0, 1, 2, 1)
268 - (t4ddg_2(0, 0, 1, 0) * t4ddg_3(0, 0, 2, 1)
269 + t4ddg_2(0, 0, 1, 1) * t4ddg_3(0, 1, 2, 1)
270 + t4ddg_2(0, 0, 1, 2) * t4ddg_3(0, 2, 2, 1)
271 + t4ddg_2(0, 1, 1, 0) * t4ddg_3(1, 0, 2, 1)
272 + t4ddg_2(0, 1, 1, 1) * t4ddg_3(1, 1, 2, 1)
273 + t4ddg_2(0, 1, 1, 2) * t4ddg_3(1, 2, 2, 1)
274 + t4ddg_2(0, 2, 1, 0) * t4ddg_3(2, 0, 2, 1)
275 + t4ddg_2(0, 2, 1, 1) * t4ddg_3(2, 1, 2, 1)
276 + t4ddg_2(0, 2, 1, 2) * t4ddg_3(2, 2, 2, 1)),
277 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(0,2,1,1)");
278 test_for_zero(t4ddg_1(0, 1, 2, 2)
279 - (t4ddg_2(0, 0, 1, 0) * t4ddg_3(0, 0, 2, 2)
280 + t4ddg_2(0, 0, 1, 1) * t4ddg_3(0, 1, 2, 2)
281 + t4ddg_2(0, 0, 1, 2) * t4ddg_3(0, 2, 2, 2)
282 + t4ddg_2(0, 1, 1, 0) * t4ddg_3(1, 0, 2, 2)
283 + t4ddg_2(0, 1, 1, 1) * t4ddg_3(1, 1, 2, 2)
284 + t4ddg_2(0, 1, 1, 2) * t4ddg_3(1, 2, 2, 2)
285 + t4ddg_2(0, 2, 1, 0) * t4ddg_3(2, 0, 2, 2)
286 + t4ddg_2(0, 2, 1, 1) * t4ddg_3(2, 1, 2, 2)
287 + t4ddg_2(0, 2, 1, 2) * t4ddg_3(2, 2, 2, 2)),
288 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(0,2,1,2)");
289 test_for_zero(t4ddg_1(0, 2, 2, 0)
290 - (t4ddg_2(0, 0, 2, 0) * t4ddg_3(0, 0, 2, 0)
291 + t4ddg_2(0, 0, 2, 1) * t4ddg_3(0, 1, 2, 0)
292 + t4ddg_2(0, 0, 2, 2) * t4ddg_3(0, 2, 2, 0)
293 + t4ddg_2(0, 1, 2, 0) * t4ddg_3(1, 0, 2, 0)
294 + t4ddg_2(0, 1, 2, 1) * t4ddg_3(1, 1, 2, 0)
295 + t4ddg_2(0, 1, 2, 2) * t4ddg_3(1, 2, 2, 0)
296 + t4ddg_2(0, 2, 2, 0) * t4ddg_3(2, 0, 2, 0)
297 + t4ddg_2(0, 2, 2, 1) * t4ddg_3(2, 1, 2, 0)
298 + t4ddg_2(0, 2, 2, 2) * t4ddg_3(2, 2, 2, 0)),
299 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(0,2,2,0)");
300 test_for_zero(t4ddg_1(0, 2, 2, 1)
301 - (t4ddg_2(0, 0, 2, 0) * t4ddg_3(0, 0, 2, 1)
302 + t4ddg_2(0, 0, 2, 1) * t4ddg_3(0, 1, 2, 1)
303 + t4ddg_2(0, 0, 2, 2) * t4ddg_3(0, 2, 2, 1)
304 + t4ddg_2(0, 1, 2, 0) * t4ddg_3(1, 0, 2, 1)
305 + t4ddg_2(0, 1, 2, 1) * t4ddg_3(1, 1, 2, 1)
306 + t4ddg_2(0, 1, 2, 2) * t4ddg_3(1, 2, 2, 1)
307 + t4ddg_2(0, 2, 2, 0) * t4ddg_3(2, 0, 2, 1)
308 + t4ddg_2(0, 2, 2, 1) * t4ddg_3(2, 1, 2, 1)
309 + t4ddg_2(0, 2, 2, 2) * t4ddg_3(2, 2, 2, 1)),
310 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(0,2,2,1)");
311 test_for_zero(t4ddg_1(0, 2, 2, 2)
312 - (t4ddg_2(0, 0, 2, 0) * t4ddg_3(0, 0, 2, 2)
313 + t4ddg_2(0, 0, 2, 1) * t4ddg_3(0, 1, 2, 2)
314 + t4ddg_2(0, 0, 2, 2) * t4ddg_3(0, 2, 2, 2)
315 + t4ddg_2(0, 1, 2, 0) * t4ddg_3(1, 0, 2, 2)
316 + t4ddg_2(0, 1, 2, 1) * t4ddg_3(1, 1, 2, 2)
317 + t4ddg_2(0, 1, 2, 2) * t4ddg_3(1, 2, 2, 2)
318 + t4ddg_2(0, 2, 2, 0) * t4ddg_3(2, 0, 2, 2)
319 + t4ddg_2(0, 2, 2, 1) * t4ddg_3(2, 1, 2, 2)
320 + t4ddg_2(0, 2, 2, 2) * t4ddg_3(2, 2, 2, 2)),
321 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(0,2,2,2)");
322 test_for_zero(t4ddg_1(1, 0, 0, 0)
323 - (t4ddg_2(1, 0, 0, 0) * t4ddg_3(0, 0, 0, 0)
324 + t4ddg_2(1, 0, 0, 1) * t4ddg_3(0, 1, 0, 0)
325 + t4ddg_2(1, 0, 0, 2) * t4ddg_3(0, 2, 0, 0)
326 + t4ddg_2(1, 1, 0, 0) * t4ddg_3(1, 0, 0, 0)
327 + t4ddg_2(1, 1, 0, 1) * t4ddg_3(1, 1, 0, 0)
328 + t4ddg_2(1, 1, 0, 2) * t4ddg_3(1, 2, 0, 0)
329 + t4ddg_2(1, 2, 0, 0) * t4ddg_3(2, 0, 0, 0)
330 + t4ddg_2(1, 2, 0, 1) * t4ddg_3(2, 1, 0, 0)
331 + t4ddg_2(1, 2, 0, 2) * t4ddg_3(2, 2, 0, 0)),
332 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(1,0,0,0)");
333 test_for_zero(t4ddg_1(1, 0, 0, 1)
334 - (t4ddg_2(1, 0, 0, 0) * t4ddg_3(0, 0, 0, 1)
335 + t4ddg_2(1, 0, 0, 1) * t4ddg_3(0, 1, 0, 1)
336 + t4ddg_2(1, 0, 0, 2) * t4ddg_3(0, 2, 0, 1)
337 + t4ddg_2(1, 1, 0, 0) * t4ddg_3(1, 0, 0, 1)
338 + t4ddg_2(1, 1, 0, 1) * t4ddg_3(1, 1, 0, 1)
339 + t4ddg_2(1, 1, 0, 2) * t4ddg_3(1, 2, 0, 1)
340 + t4ddg_2(1, 2, 0, 0) * t4ddg_3(2, 0, 0, 1)
341 + t4ddg_2(1, 2, 0, 1) * t4ddg_3(2, 1, 0, 1)
342 + t4ddg_2(1, 2, 0, 2) * t4ddg_3(2, 2, 0, 1)),
343 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(1,0,0,1)");
344 test_for_zero(t4ddg_1(1, 0, 0, 2)
345 - (t4ddg_2(1, 0, 0, 0) * t4ddg_3(0, 0, 0, 2)
346 + t4ddg_2(1, 0, 0, 1) * t4ddg_3(0, 1, 0, 2)
347 + t4ddg_2(1, 0, 0, 2) * t4ddg_3(0, 2, 0, 2)
348 + t4ddg_2(1, 1, 0, 0) * t4ddg_3(1, 0, 0, 2)
349 + t4ddg_2(1, 1, 0, 1) * t4ddg_3(1, 1, 0, 2)
350 + t4ddg_2(1, 1, 0, 2) * t4ddg_3(1, 2, 0, 2)
351 + t4ddg_2(1, 2, 0, 0) * t4ddg_3(2, 0, 0, 2)
352 + t4ddg_2(1, 2, 0, 1) * t4ddg_3(2, 1, 0, 2)
353 + t4ddg_2(1, 2, 0, 2) * t4ddg_3(2, 2, 0, 2)),
354 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(1,0,0,2)");
355 test_for_zero(t4ddg_1(1, 1, 0, 0)
356 - (t4ddg_2(1, 0, 1, 0) * t4ddg_3(0, 0, 0, 0)
357 + t4ddg_2(1, 0, 1, 1) * t4ddg_3(0, 1, 0, 0)
358 + t4ddg_2(1, 0, 1, 2) * t4ddg_3(0, 2, 0, 0)
359 + t4ddg_2(1, 1, 1, 0) * t4ddg_3(1, 0, 0, 0)
360 + t4ddg_2(1, 1, 1, 1) * t4ddg_3(1, 1, 0, 0)
361 + t4ddg_2(1, 1, 1, 2) * t4ddg_3(1, 2, 0, 0)
362 + t4ddg_2(1, 2, 1, 0) * t4ddg_3(2, 0, 0, 0)
363 + t4ddg_2(1, 2, 1, 1) * t4ddg_3(2, 1, 0, 0)
364 + t4ddg_2(1, 2, 1, 2) * t4ddg_3(2, 2, 0, 0)),
365 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(1,0,1,0)");
366 test_for_zero(t4ddg_1(1, 1, 0, 1)
367 - (t4ddg_2(1, 0, 1, 0) * t4ddg_3(0, 0, 0, 1)
368 + t4ddg_2(1, 0, 1, 1) * t4ddg_3(0, 1, 0, 1)
369 + t4ddg_2(1, 0, 1, 2) * t4ddg_3(0, 2, 0, 1)
370 + t4ddg_2(1, 1, 1, 0) * t4ddg_3(1, 0, 0, 1)
371 + t4ddg_2(1, 1, 1, 1) * t4ddg_3(1, 1, 0, 1)
372 + t4ddg_2(1, 1, 1, 2) * t4ddg_3(1, 2, 0, 1)
373 + t4ddg_2(1, 2, 1, 0) * t4ddg_3(2, 0, 0, 1)
374 + t4ddg_2(1, 2, 1, 1) * t4ddg_3(2, 1, 0, 1)
375 + t4ddg_2(1, 2, 1, 2) * t4ddg_3(2, 2, 0, 1)),
376 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(1,0,1,1)");
377 test_for_zero(t4ddg_1(1, 1, 0, 2)
378 - (t4ddg_2(1, 0, 1, 0) * t4ddg_3(0, 0, 0, 2)
379 + t4ddg_2(1, 0, 1, 1) * t4ddg_3(0, 1, 0, 2)
380 + t4ddg_2(1, 0, 1, 2) * t4ddg_3(0, 2, 0, 2)
381 + t4ddg_2(1, 1, 1, 0) * t4ddg_3(1, 0, 0, 2)
382 + t4ddg_2(1, 1, 1, 1) * t4ddg_3(1, 1, 0, 2)
383 + t4ddg_2(1, 1, 1, 2) * t4ddg_3(1, 2, 0, 2)
384 + t4ddg_2(1, 2, 1, 0) * t4ddg_3(2, 0, 0, 2)
385 + t4ddg_2(1, 2, 1, 1) * t4ddg_3(2, 1, 0, 2)
386 + t4ddg_2(1, 2, 1, 2) * t4ddg_3(2, 2, 0, 2)),
387 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(1,0,1,2)");
388 test_for_zero(t4ddg_1(1, 2, 0, 0)
389 - (t4ddg_2(1, 0, 2, 0) * t4ddg_3(0, 0, 0, 0)
390 + t4ddg_2(1, 0, 2, 1) * t4ddg_3(0, 1, 0, 0)
391 + t4ddg_2(1, 0, 2, 2) * t4ddg_3(0, 2, 0, 0)
392 + t4ddg_2(1, 1, 2, 0) * t4ddg_3(1, 0, 0, 0)
393 + t4ddg_2(1, 1, 2, 1) * t4ddg_3(1, 1, 0, 0)
394 + t4ddg_2(1, 1, 2, 2) * t4ddg_3(1, 2, 0, 0)
395 + t4ddg_2(1, 2, 2, 0) * t4ddg_3(2, 0, 0, 0)
396 + t4ddg_2(1, 2, 2, 1) * t4ddg_3(2, 1, 0, 0)
397 + t4ddg_2(1, 2, 2, 2) * t4ddg_3(2, 2, 0, 0)),
398 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(1,0,2,0)");
399 test_for_zero(t4ddg_1(1, 2, 0, 1)
400 - (t4ddg_2(1, 0, 2, 0) * t4ddg_3(0, 0, 0, 1)
401 + t4ddg_2(1, 0, 2, 1) * t4ddg_3(0, 1, 0, 1)
402 + t4ddg_2(1, 0, 2, 2) * t4ddg_3(0, 2, 0, 1)
403 + t4ddg_2(1, 1, 2, 0) * t4ddg_3(1, 0, 0, 1)
404 + t4ddg_2(1, 1, 2, 1) * t4ddg_3(1, 1, 0, 1)
405 + t4ddg_2(1, 1, 2, 2) * t4ddg_3(1, 2, 0, 1)
406 + t4ddg_2(1, 2, 2, 0) * t4ddg_3(2, 0, 0, 1)
407 + t4ddg_2(1, 2, 2, 1) * t4ddg_3(2, 1, 0, 1)
408 + t4ddg_2(1, 2, 2, 2) * t4ddg_3(2, 2, 0, 1)),
409 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(1,0,2,1)");
410 test_for_zero(t4ddg_1(1, 2, 0, 2)
411 - (t4ddg_2(1, 0, 2, 0) * t4ddg_3(0, 0, 0, 2)
412 + t4ddg_2(1, 0, 2, 1) * t4ddg_3(0, 1, 0, 2)
413 + t4ddg_2(1, 0, 2, 2) * t4ddg_3(0, 2, 0, 2)
414 + t4ddg_2(1, 1, 2, 0) * t4ddg_3(1, 0, 0, 2)
415 + t4ddg_2(1, 1, 2, 1) * t4ddg_3(1, 1, 0, 2)
416 + t4ddg_2(1, 1, 2, 2) * t4ddg_3(1, 2, 0, 2)
417 + t4ddg_2(1, 2, 2, 0) * t4ddg_3(2, 0, 0, 2)
418 + t4ddg_2(1, 2, 2, 1) * t4ddg_3(2, 1, 0, 2)
419 + t4ddg_2(1, 2, 2, 2) * t4ddg_3(2, 2, 0, 2)),
420 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(1,0,2,2)");
421 test_for_zero(t4ddg_1(1, 0, 1, 0)
422 - (t4ddg_2(1, 0, 0, 0) * t4ddg_3(0, 0, 1, 0)
423 + t4ddg_2(1, 0, 0, 1) * t4ddg_3(0, 1, 1, 0)
424 + t4ddg_2(1, 0, 0, 2) * t4ddg_3(0, 2, 1, 0)
425 + t4ddg_2(1, 1, 0, 0) * t4ddg_3(1, 0, 1, 0)
426 + t4ddg_2(1, 1, 0, 1) * t4ddg_3(1, 1, 1, 0)
427 + t4ddg_2(1, 1, 0, 2) * t4ddg_3(1, 2, 1, 0)
428 + t4ddg_2(1, 2, 0, 0) * t4ddg_3(2, 0, 1, 0)
429 + t4ddg_2(1, 2, 0, 1) * t4ddg_3(2, 1, 1, 0)
430 + t4ddg_2(1, 2, 0, 2) * t4ddg_3(2, 2, 1, 0)),
431 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(1,1,0,0)");
432 test_for_zero(t4ddg_1(1, 0, 1, 1)
433 - (t4ddg_2(1, 0, 0, 0) * t4ddg_3(0, 0, 1, 1)
434 + t4ddg_2(1, 0, 0, 1) * t4ddg_3(0, 1, 1, 1)
435 + t4ddg_2(1, 0, 0, 2) * t4ddg_3(0, 2, 1, 1)
436 + t4ddg_2(1, 1, 0, 0) * t4ddg_3(1, 0, 1, 1)
437 + t4ddg_2(1, 1, 0, 1) * t4ddg_3(1, 1, 1, 1)
438 + t4ddg_2(1, 1, 0, 2) * t4ddg_3(1, 2, 1, 1)
439 + t4ddg_2(1, 2, 0, 0) * t4ddg_3(2, 0, 1, 1)
440 + t4ddg_2(1, 2, 0, 1) * t4ddg_3(2, 1, 1, 1)
441 + t4ddg_2(1, 2, 0, 2) * t4ddg_3(2, 2, 1, 1)),
442 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(1,1,0,1)");
443 test_for_zero(t4ddg_1(1, 0, 1, 2)
444 - (t4ddg_2(1, 0, 0, 0) * t4ddg_3(0, 0, 1, 2)
445 + t4ddg_2(1, 0, 0, 1) * t4ddg_3(0, 1, 1, 2)
446 + t4ddg_2(1, 0, 0, 2) * t4ddg_3(0, 2, 1, 2)
447 + t4ddg_2(1, 1, 0, 0) * t4ddg_3(1, 0, 1, 2)
448 + t4ddg_2(1, 1, 0, 1) * t4ddg_3(1, 1, 1, 2)
449 + t4ddg_2(1, 1, 0, 2) * t4ddg_3(1, 2, 1, 2)
450 + t4ddg_2(1, 2, 0, 0) * t4ddg_3(2, 0, 1, 2)
451 + t4ddg_2(1, 2, 0, 1) * t4ddg_3(2, 1, 1, 2)
452 + t4ddg_2(1, 2, 0, 2) * t4ddg_3(2, 2, 1, 2)),
453 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(1,1,0,2)");
454 test_for_zero(t4ddg_1(1, 1, 1, 0)
455 - (t4ddg_2(1, 0, 1, 0) * t4ddg_3(0, 0, 1, 0)
456 + t4ddg_2(1, 0, 1, 1) * t4ddg_3(0, 1, 1, 0)
457 + t4ddg_2(1, 0, 1, 2) * t4ddg_3(0, 2, 1, 0)
458 + t4ddg_2(1, 1, 1, 0) * t4ddg_3(1, 0, 1, 0)
459 + t4ddg_2(1, 1, 1, 1) * t4ddg_3(1, 1, 1, 0)
460 + t4ddg_2(1, 1, 1, 2) * t4ddg_3(1, 2, 1, 0)
461 + t4ddg_2(1, 2, 1, 0) * t4ddg_3(2, 0, 1, 0)
462 + t4ddg_2(1, 2, 1, 1) * t4ddg_3(2, 1, 1, 0)
463 + t4ddg_2(1, 2, 1, 2) * t4ddg_3(2, 2, 1, 0)),
464 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(1,1,1,0)");
465 test_for_zero(t4ddg_1(1, 1, 1, 1)
466 - (t4ddg_2(1, 0, 1, 0) * t4ddg_3(0, 0, 1, 1)
467 + t4ddg_2(1, 0, 1, 1) * t4ddg_3(0, 1, 1, 1)
468 + t4ddg_2(1, 0, 1, 2) * t4ddg_3(0, 2, 1, 1)
469 + t4ddg_2(1, 1, 1, 0) * t4ddg_3(1, 0, 1, 1)
470 + t4ddg_2(1, 1, 1, 1) * t4ddg_3(1, 1, 1, 1)
471 + t4ddg_2(1, 1, 1, 2) * t4ddg_3(1, 2, 1, 1)
472 + t4ddg_2(1, 2, 1, 0) * t4ddg_3(2, 0, 1, 1)
473 + t4ddg_2(1, 2, 1, 1) * t4ddg_3(2, 1, 1, 1)
474 + t4ddg_2(1, 2, 1, 2) * t4ddg_3(2, 2, 1, 1)),
475 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(1,1,1,1)");
476 test_for_zero(t4ddg_1(1, 1, 1, 2)
477 - (t4ddg_2(1, 0, 1, 0) * t4ddg_3(0, 0, 1, 2)
478 + t4ddg_2(1, 0, 1, 1) * t4ddg_3(0, 1, 1, 2)
479 + t4ddg_2(1, 0, 1, 2) * t4ddg_3(0, 2, 1, 2)
480 + t4ddg_2(1, 1, 1, 0) * t4ddg_3(1, 0, 1, 2)
481 + t4ddg_2(1, 1, 1, 1) * t4ddg_3(1, 1, 1, 2)
482 + t4ddg_2(1, 1, 1, 2) * t4ddg_3(1, 2, 1, 2)
483 + t4ddg_2(1, 2, 1, 0) * t4ddg_3(2, 0, 1, 2)
484 + t4ddg_2(1, 2, 1, 1) * t4ddg_3(2, 1, 1, 2)
485 + t4ddg_2(1, 2, 1, 2) * t4ddg_3(2, 2, 1, 2)),
486 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(1,1,1,2)");
487 test_for_zero(t4ddg_1(1, 2, 1, 0)
488 - (t4ddg_2(1, 0, 2, 0) * t4ddg_3(0, 0, 1, 0)
489 + t4ddg_2(1, 0, 2, 1) * t4ddg_3(0, 1, 1, 0)
490 + t4ddg_2(1, 0, 2, 2) * t4ddg_3(0, 2, 1, 0)
491 + t4ddg_2(1, 1, 2, 0) * t4ddg_3(1, 0, 1, 0)
492 + t4ddg_2(1, 1, 2, 1) * t4ddg_3(1, 1, 1, 0)
493 + t4ddg_2(1, 1, 2, 2) * t4ddg_3(1, 2, 1, 0)
494 + t4ddg_2(1, 2, 2, 0) * t4ddg_3(2, 0, 1, 0)
495 + t4ddg_2(1, 2, 2, 1) * t4ddg_3(2, 1, 1, 0)
496 + t4ddg_2(1, 2, 2, 2) * t4ddg_3(2, 2, 1, 0)),
497 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(1,1,2,0)");
498 test_for_zero(t4ddg_1(1, 2, 1, 1)
499 - (t4ddg_2(1, 0, 2, 0) * t4ddg_3(0, 0, 1, 1)
500 + t4ddg_2(1, 0, 2, 1) * t4ddg_3(0, 1, 1, 1)
501 + t4ddg_2(1, 0, 2, 2) * t4ddg_3(0, 2, 1, 1)
502 + t4ddg_2(1, 1, 2, 0) * t4ddg_3(1, 0, 1, 1)
503 + t4ddg_2(1, 1, 2, 1) * t4ddg_3(1, 1, 1, 1)
504 + t4ddg_2(1, 1, 2, 2) * t4ddg_3(1, 2, 1, 1)
505 + t4ddg_2(1, 2, 2, 0) * t4ddg_3(2, 0, 1, 1)
506 + t4ddg_2(1, 2, 2, 1) * t4ddg_3(2, 1, 1, 1)
507 + t4ddg_2(1, 2, 2, 2) * t4ddg_3(2, 2, 1, 1)),
508 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(1,1,2,1)");
509 test_for_zero(t4ddg_1(1, 2, 1, 2)
510 - (t4ddg_2(1, 0, 2, 0) * t4ddg_3(0, 0, 1, 2)
511 + t4ddg_2(1, 0, 2, 1) * t4ddg_3(0, 1, 1, 2)
512 + t4ddg_2(1, 0, 2, 2) * t4ddg_3(0, 2, 1, 2)
513 + t4ddg_2(1, 1, 2, 0) * t4ddg_3(1, 0, 1, 2)
514 + t4ddg_2(1, 1, 2, 1) * t4ddg_3(1, 1, 1, 2)
515 + t4ddg_2(1, 1, 2, 2) * t4ddg_3(1, 2, 1, 2)
516 + t4ddg_2(1, 2, 2, 0) * t4ddg_3(2, 0, 1, 2)
517 + t4ddg_2(1, 2, 2, 1) * t4ddg_3(2, 1, 1, 2)
518 + t4ddg_2(1, 2, 2, 2) * t4ddg_3(2, 2, 1, 2)),
519 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(1,1,2,2)");
520 test_for_zero(t4ddg_1(1, 0, 2, 0)
521 - (t4ddg_2(1, 0, 0, 0) * t4ddg_3(0, 0, 2, 0)
522 + t4ddg_2(1, 0, 0, 1) * t4ddg_3(0, 1, 2, 0)
523 + t4ddg_2(1, 0, 0, 2) * t4ddg_3(0, 2, 2, 0)
524 + t4ddg_2(1, 1, 0, 0) * t4ddg_3(1, 0, 2, 0)
525 + t4ddg_2(1, 1, 0, 1) * t4ddg_3(1, 1, 2, 0)
526 + t4ddg_2(1, 1, 0, 2) * t4ddg_3(1, 2, 2, 0)
527 + t4ddg_2(1, 2, 0, 0) * t4ddg_3(2, 0, 2, 0)
528 + t4ddg_2(1, 2, 0, 1) * t4ddg_3(2, 1, 2, 0)
529 + t4ddg_2(1, 2, 0, 2) * t4ddg_3(2, 2, 2, 0)),
530 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(1,2,0,0)");
531 test_for_zero(t4ddg_1(1, 0, 2, 1)
532 - (t4ddg_2(1, 0, 0, 0) * t4ddg_3(0, 0, 2, 1)
533 + t4ddg_2(1, 0, 0, 1) * t4ddg_3(0, 1, 2, 1)
534 + t4ddg_2(1, 0, 0, 2) * t4ddg_3(0, 2, 2, 1)
535 + t4ddg_2(1, 1, 0, 0) * t4ddg_3(1, 0, 2, 1)
536 + t4ddg_2(1, 1, 0, 1) * t4ddg_3(1, 1, 2, 1)
537 + t4ddg_2(1, 1, 0, 2) * t4ddg_3(1, 2, 2, 1)
538 + t4ddg_2(1, 2, 0, 0) * t4ddg_3(2, 0, 2, 1)
539 + t4ddg_2(1, 2, 0, 1) * t4ddg_3(2, 1, 2, 1)
540 + t4ddg_2(1, 2, 0, 2) * t4ddg_3(2, 2, 2, 1)),
541 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(1,2,0,1)");
542 test_for_zero(t4ddg_1(1, 0, 2, 2)
543 - (t4ddg_2(1, 0, 0, 0) * t4ddg_3(0, 0, 2, 2)
544 + t4ddg_2(1, 0, 0, 1) * t4ddg_3(0, 1, 2, 2)
545 + t4ddg_2(1, 0, 0, 2) * t4ddg_3(0, 2, 2, 2)
546 + t4ddg_2(1, 1, 0, 0) * t4ddg_3(1, 0, 2, 2)
547 + t4ddg_2(1, 1, 0, 1) * t4ddg_3(1, 1, 2, 2)
548 + t4ddg_2(1, 1, 0, 2) * t4ddg_3(1, 2, 2, 2)
549 + t4ddg_2(1, 2, 0, 0) * t4ddg_3(2, 0, 2, 2)
550 + t4ddg_2(1, 2, 0, 1) * t4ddg_3(2, 1, 2, 2)
551 + t4ddg_2(1, 2, 0, 2) * t4ddg_3(2, 2, 2, 2)),
552 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(1,2,0,2)");
553 test_for_zero(t4ddg_1(1, 1, 2, 0)
554 - (t4ddg_2(1, 0, 1, 0) * t4ddg_3(0, 0, 2, 0)
555 + t4ddg_2(1, 0, 1, 1) * t4ddg_3(0, 1, 2, 0)
556 + t4ddg_2(1, 0, 1, 2) * t4ddg_3(0, 2, 2, 0)
557 + t4ddg_2(1, 1, 1, 0) * t4ddg_3(1, 0, 2, 0)
558 + t4ddg_2(1, 1, 1, 1) * t4ddg_3(1, 1, 2, 0)
559 + t4ddg_2(1, 1, 1, 2) * t4ddg_3(1, 2, 2, 0)
560 + t4ddg_2(1, 2, 1, 0) * t4ddg_3(2, 0, 2, 0)
561 + t4ddg_2(1, 2, 1, 1) * t4ddg_3(2, 1, 2, 0)
562 + t4ddg_2(1, 2, 1, 2) * t4ddg_3(2, 2, 2, 0)),
563 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(1,2,1,0)");
564 test_for_zero(t4ddg_1(1, 1, 2, 1)
565 - (t4ddg_2(1, 0, 1, 0) * t4ddg_3(0, 0, 2, 1)
566 + t4ddg_2(1, 0, 1, 1) * t4ddg_3(0, 1, 2, 1)
567 + t4ddg_2(1, 0, 1, 2) * t4ddg_3(0, 2, 2, 1)
568 + t4ddg_2(1, 1, 1, 0) * t4ddg_3(1, 0, 2, 1)
569 + t4ddg_2(1, 1, 1, 1) * t4ddg_3(1, 1, 2, 1)
570 + t4ddg_2(1, 1, 1, 2) * t4ddg_3(1, 2, 2, 1)
571 + t4ddg_2(1, 2, 1, 0) * t4ddg_3(2, 0, 2, 1)
572 + t4ddg_2(1, 2, 1, 1) * t4ddg_3(2, 1, 2, 1)
573 + t4ddg_2(1, 2, 1, 2) * t4ddg_3(2, 2, 2, 1)),
574 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(1,2,1,1)");
575 test_for_zero(t4ddg_1(1, 1, 2, 2)
576 - (t4ddg_2(1, 0, 1, 0) * t4ddg_3(0, 0, 2, 2)
577 + t4ddg_2(1, 0, 1, 1) * t4ddg_3(0, 1, 2, 2)
578 + t4ddg_2(1, 0, 1, 2) * t4ddg_3(0, 2, 2, 2)
579 + t4ddg_2(1, 1, 1, 0) * t4ddg_3(1, 0, 2, 2)
580 + t4ddg_2(1, 1, 1, 1) * t4ddg_3(1, 1, 2, 2)
581 + t4ddg_2(1, 1, 1, 2) * t4ddg_3(1, 2, 2, 2)
582 + t4ddg_2(1, 2, 1, 0) * t4ddg_3(2, 0, 2, 2)
583 + t4ddg_2(1, 2, 1, 1) * t4ddg_3(2, 1, 2, 2)
584 + t4ddg_2(1, 2, 1, 2) * t4ddg_3(2, 2, 2, 2)),
585 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(1,2,1,2)");
586 test_for_zero(t4ddg_1(1, 2, 2, 0)
587 - (t4ddg_2(1, 0, 2, 0) * t4ddg_3(0, 0, 2, 0)
588 + t4ddg_2(1, 0, 2, 1) * t4ddg_3(0, 1, 2, 0)
589 + t4ddg_2(1, 0, 2, 2) * t4ddg_3(0, 2, 2, 0)
590 + t4ddg_2(1, 1, 2, 0) * t4ddg_3(1, 0, 2, 0)
591 + t4ddg_2(1, 1, 2, 1) * t4ddg_3(1, 1, 2, 0)
592 + t4ddg_2(1, 1, 2, 2) * t4ddg_3(1, 2, 2, 0)
593 + t4ddg_2(1, 2, 2, 0) * t4ddg_3(2, 0, 2, 0)
594 + t4ddg_2(1, 2, 2, 1) * t4ddg_3(2, 1, 2, 0)
595 + t4ddg_2(1, 2, 2, 2) * t4ddg_3(2, 2, 2, 0)),
596 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(1,2,2,0)");
597 test_for_zero(t4ddg_1(1, 2, 2, 1)
598 - (t4ddg_2(1, 0, 2, 0) * t4ddg_3(0, 0, 2, 1)
599 + t4ddg_2(1, 0, 2, 1) * t4ddg_3(0, 1, 2, 1)
600 + t4ddg_2(1, 0, 2, 2) * t4ddg_3(0, 2, 2, 1)
601 + t4ddg_2(1, 1, 2, 0) * t4ddg_3(1, 0, 2, 1)
602 + t4ddg_2(1, 1, 2, 1) * t4ddg_3(1, 1, 2, 1)
603 + t4ddg_2(1, 1, 2, 2) * t4ddg_3(1, 2, 2, 1)
604 + t4ddg_2(1, 2, 2, 0) * t4ddg_3(2, 0, 2, 1)
605 + t4ddg_2(1, 2, 2, 1) * t4ddg_3(2, 1, 2, 1)
606 + t4ddg_2(1, 2, 2, 2) * t4ddg_3(2, 2, 2, 1)),
607 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(1,2,2,1)");
608 test_for_zero(t4ddg_1(1, 2, 2, 2)
609 - (t4ddg_2(1, 0, 2, 0) * t4ddg_3(0, 0, 2, 2)
610 + t4ddg_2(1, 0, 2, 1) * t4ddg_3(0, 1, 2, 2)
611 + t4ddg_2(1, 0, 2, 2) * t4ddg_3(0, 2, 2, 2)
612 + t4ddg_2(1, 1, 2, 0) * t4ddg_3(1, 0, 2, 2)
613 + t4ddg_2(1, 1, 2, 1) * t4ddg_3(1, 1, 2, 2)
614 + t4ddg_2(1, 1, 2, 2) * t4ddg_3(1, 2, 2, 2)
615 + t4ddg_2(1, 2, 2, 0) * t4ddg_3(2, 0, 2, 2)
616 + t4ddg_2(1, 2, 2, 1) * t4ddg_3(2, 1, 2, 2)
617 + t4ddg_2(1, 2, 2, 2) * t4ddg_3(2, 2, 2, 2)),
618 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(1,2,2,2)");
619 test_for_zero(t4ddg_1(2, 0, 0, 0)
620 - (t4ddg_2(2, 0, 0, 0) * t4ddg_3(0, 0, 0, 0)
621 + t4ddg_2(2, 0, 0, 1) * t4ddg_3(0, 1, 0, 0)
622 + t4ddg_2(2, 0, 0, 2) * t4ddg_3(0, 2, 0, 0)
623 + t4ddg_2(2, 1, 0, 0) * t4ddg_3(1, 0, 0, 0)
624 + t4ddg_2(2, 1, 0, 1) * t4ddg_3(1, 1, 0, 0)
625 + t4ddg_2(2, 1, 0, 2) * t4ddg_3(1, 2, 0, 0)
626 + t4ddg_2(2, 2, 0, 0) * t4ddg_3(2, 0, 0, 0)
627 + t4ddg_2(2, 2, 0, 1) * t4ddg_3(2, 1, 0, 0)
628 + t4ddg_2(2, 2, 0, 2) * t4ddg_3(2, 2, 0, 0)),
629 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(2,0,0,0)");
630 test_for_zero(t4ddg_1(2, 0, 0, 1)
631 - (t4ddg_2(2, 0, 0, 0) * t4ddg_3(0, 0, 0, 1)
632 + t4ddg_2(2, 0, 0, 1) * t4ddg_3(0, 1, 0, 1)
633 + t4ddg_2(2, 0, 0, 2) * t4ddg_3(0, 2, 0, 1)
634 + t4ddg_2(2, 1, 0, 0) * t4ddg_3(1, 0, 0, 1)
635 + t4ddg_2(2, 1, 0, 1) * t4ddg_3(1, 1, 0, 1)
636 + t4ddg_2(2, 1, 0, 2) * t4ddg_3(1, 2, 0, 1)
637 + t4ddg_2(2, 2, 0, 0) * t4ddg_3(2, 0, 0, 1)
638 + t4ddg_2(2, 2, 0, 1) * t4ddg_3(2, 1, 0, 1)
639 + t4ddg_2(2, 2, 0, 2) * t4ddg_3(2, 2, 0, 1)),
640 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(2,0,0,1)");
641 test_for_zero(t4ddg_1(2, 0, 0, 2)
642 - (t4ddg_2(2, 0, 0, 0) * t4ddg_3(0, 0, 0, 2)
643 + t4ddg_2(2, 0, 0, 1) * t4ddg_3(0, 1, 0, 2)
644 + t4ddg_2(2, 0, 0, 2) * t4ddg_3(0, 2, 0, 2)
645 + t4ddg_2(2, 1, 0, 0) * t4ddg_3(1, 0, 0, 2)
646 + t4ddg_2(2, 1, 0, 1) * t4ddg_3(1, 1, 0, 2)
647 + t4ddg_2(2, 1, 0, 2) * t4ddg_3(1, 2, 0, 2)
648 + t4ddg_2(2, 2, 0, 0) * t4ddg_3(2, 0, 0, 2)
649 + t4ddg_2(2, 2, 0, 1) * t4ddg_3(2, 1, 0, 2)
650 + t4ddg_2(2, 2, 0, 2) * t4ddg_3(2, 2, 0, 2)),
651 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(2,0,0,2)");
652 test_for_zero(t4ddg_1(2, 1, 0, 0)
653 - (t4ddg_2(2, 0, 1, 0) * t4ddg_3(0, 0, 0, 0)
654 + t4ddg_2(2, 0, 1, 1) * t4ddg_3(0, 1, 0, 0)
655 + t4ddg_2(2, 0, 1, 2) * t4ddg_3(0, 2, 0, 0)
656 + t4ddg_2(2, 1, 1, 0) * t4ddg_3(1, 0, 0, 0)
657 + t4ddg_2(2, 1, 1, 1) * t4ddg_3(1, 1, 0, 0)
658 + t4ddg_2(2, 1, 1, 2) * t4ddg_3(1, 2, 0, 0)
659 + t4ddg_2(2, 2, 1, 0) * t4ddg_3(2, 0, 0, 0)
660 + t4ddg_2(2, 2, 1, 1) * t4ddg_3(2, 1, 0, 0)
661 + t4ddg_2(2, 2, 1, 2) * t4ddg_3(2, 2, 0, 0)),
662 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(2,0,1,0)");
663 test_for_zero(t4ddg_1(2, 1, 0, 1)
664 - (t4ddg_2(2, 0, 1, 0) * t4ddg_3(0, 0, 0, 1)
665 + t4ddg_2(2, 0, 1, 1) * t4ddg_3(0, 1, 0, 1)
666 + t4ddg_2(2, 0, 1, 2) * t4ddg_3(0, 2, 0, 1)
667 + t4ddg_2(2, 1, 1, 0) * t4ddg_3(1, 0, 0, 1)
668 + t4ddg_2(2, 1, 1, 1) * t4ddg_3(1, 1, 0, 1)
669 + t4ddg_2(2, 1, 1, 2) * t4ddg_3(1, 2, 0, 1)
670 + t4ddg_2(2, 2, 1, 0) * t4ddg_3(2, 0, 0, 1)
671 + t4ddg_2(2, 2, 1, 1) * t4ddg_3(2, 1, 0, 1)
672 + t4ddg_2(2, 2, 1, 2) * t4ddg_3(2, 2, 0, 1)),
673 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(2,0,1,1)");
674 test_for_zero(t4ddg_1(2, 1, 0, 2)
675 - (t4ddg_2(2, 0, 1, 0) * t4ddg_3(0, 0, 0, 2)
676 + t4ddg_2(2, 0, 1, 1) * t4ddg_3(0, 1, 0, 2)
677 + t4ddg_2(2, 0, 1, 2) * t4ddg_3(0, 2, 0, 2)
678 + t4ddg_2(2, 1, 1, 0) * t4ddg_3(1, 0, 0, 2)
679 + t4ddg_2(2, 1, 1, 1) * t4ddg_3(1, 1, 0, 2)
680 + t4ddg_2(2, 1, 1, 2) * t4ddg_3(1, 2, 0, 2)
681 + t4ddg_2(2, 2, 1, 0) * t4ddg_3(2, 0, 0, 2)
682 + t4ddg_2(2, 2, 1, 1) * t4ddg_3(2, 1, 0, 2)
683 + t4ddg_2(2, 2, 1, 2) * t4ddg_3(2, 2, 0, 2)),
684 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(2,0,1,2)");
685 test_for_zero(t4ddg_1(2, 2, 0, 0)
686 - (t4ddg_2(2, 0, 2, 0) * t4ddg_3(0, 0, 0, 0)
687 + t4ddg_2(2, 0, 2, 1) * t4ddg_3(0, 1, 0, 0)
688 + t4ddg_2(2, 0, 2, 2) * t4ddg_3(0, 2, 0, 0)
689 + t4ddg_2(2, 1, 2, 0) * t4ddg_3(1, 0, 0, 0)
690 + t4ddg_2(2, 1, 2, 1) * t4ddg_3(1, 1, 0, 0)
691 + t4ddg_2(2, 1, 2, 2) * t4ddg_3(1, 2, 0, 0)
692 + t4ddg_2(2, 2, 2, 0) * t4ddg_3(2, 0, 0, 0)
693 + t4ddg_2(2, 2, 2, 1) * t4ddg_3(2, 1, 0, 0)
694 + t4ddg_2(2, 2, 2, 2) * t4ddg_3(2, 2, 0, 0)),
695 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(2,0,2,0)");
696 test_for_zero(t4ddg_1(2, 2, 0, 1)
697 - (t4ddg_2(2, 0, 2, 0) * t4ddg_3(0, 0, 0, 1)
698 + t4ddg_2(2, 0, 2, 1) * t4ddg_3(0, 1, 0, 1)
699 + t4ddg_2(2, 0, 2, 2) * t4ddg_3(0, 2, 0, 1)
700 + t4ddg_2(2, 1, 2, 0) * t4ddg_3(1, 0, 0, 1)
701 + t4ddg_2(2, 1, 2, 1) * t4ddg_3(1, 1, 0, 1)
702 + t4ddg_2(2, 1, 2, 2) * t4ddg_3(1, 2, 0, 1)
703 + t4ddg_2(2, 2, 2, 0) * t4ddg_3(2, 0, 0, 1)
704 + t4ddg_2(2, 2, 2, 1) * t4ddg_3(2, 1, 0, 1)
705 + t4ddg_2(2, 2, 2, 2) * t4ddg_3(2, 2, 0, 1)),
706 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(2,0,2,1)");
707 test_for_zero(t4ddg_1(2, 2, 0, 2)
708 - (t4ddg_2(2, 0, 2, 0) * t4ddg_3(0, 0, 0, 2)
709 + t4ddg_2(2, 0, 2, 1) * t4ddg_3(0, 1, 0, 2)
710 + t4ddg_2(2, 0, 2, 2) * t4ddg_3(0, 2, 0, 2)
711 + t4ddg_2(2, 1, 2, 0) * t4ddg_3(1, 0, 0, 2)
712 + t4ddg_2(2, 1, 2, 1) * t4ddg_3(1, 1, 0, 2)
713 + t4ddg_2(2, 1, 2, 2) * t4ddg_3(1, 2, 0, 2)
714 + t4ddg_2(2, 2, 2, 0) * t4ddg_3(2, 0, 0, 2)
715 + t4ddg_2(2, 2, 2, 1) * t4ddg_3(2, 1, 0, 2)
716 + t4ddg_2(2, 2, 2, 2) * t4ddg_3(2, 2, 0, 2)),
717 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(2,0,2,2)");
718 test_for_zero(t4ddg_1(2, 0, 1, 0)
719 - (t4ddg_2(2, 0, 0, 0) * t4ddg_3(0, 0, 1, 0)
720 + t4ddg_2(2, 0, 0, 1) * t4ddg_3(0, 1, 1, 0)
721 + t4ddg_2(2, 0, 0, 2) * t4ddg_3(0, 2, 1, 0)
722 + t4ddg_2(2, 1, 0, 0) * t4ddg_3(1, 0, 1, 0)
723 + t4ddg_2(2, 1, 0, 1) * t4ddg_3(1, 1, 1, 0)
724 + t4ddg_2(2, 1, 0, 2) * t4ddg_3(1, 2, 1, 0)
725 + t4ddg_2(2, 2, 0, 0) * t4ddg_3(2, 0, 1, 0)
726 + t4ddg_2(2, 2, 0, 1) * t4ddg_3(2, 1, 1, 0)
727 + t4ddg_2(2, 2, 0, 2) * t4ddg_3(2, 2, 1, 0)),
728 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(2,1,0,0)");
729 test_for_zero(t4ddg_1(2, 0, 1, 1)
730 - (t4ddg_2(2, 0, 0, 0) * t4ddg_3(0, 0, 1, 1)
731 + t4ddg_2(2, 0, 0, 1) * t4ddg_3(0, 1, 1, 1)
732 + t4ddg_2(2, 0, 0, 2) * t4ddg_3(0, 2, 1, 1)
733 + t4ddg_2(2, 1, 0, 0) * t4ddg_3(1, 0, 1, 1)
734 + t4ddg_2(2, 1, 0, 1) * t4ddg_3(1, 1, 1, 1)
735 + t4ddg_2(2, 1, 0, 2) * t4ddg_3(1, 2, 1, 1)
736 + t4ddg_2(2, 2, 0, 0) * t4ddg_3(2, 0, 1, 1)
737 + t4ddg_2(2, 2, 0, 1) * t4ddg_3(2, 1, 1, 1)
738 + t4ddg_2(2, 2, 0, 2) * t4ddg_3(2, 2, 1, 1)),
739 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(2,1,0,1)");
740 test_for_zero(t4ddg_1(2, 0, 1, 2)
741 - (t4ddg_2(2, 0, 0, 0) * t4ddg_3(0, 0, 1, 2)
742 + t4ddg_2(2, 0, 0, 1) * t4ddg_3(0, 1, 1, 2)
743 + t4ddg_2(2, 0, 0, 2) * t4ddg_3(0, 2, 1, 2)
744 + t4ddg_2(2, 1, 0, 0) * t4ddg_3(1, 0, 1, 2)
745 + t4ddg_2(2, 1, 0, 1) * t4ddg_3(1, 1, 1, 2)
746 + t4ddg_2(2, 1, 0, 2) * t4ddg_3(1, 2, 1, 2)
747 + t4ddg_2(2, 2, 0, 0) * t4ddg_3(2, 0, 1, 2)
748 + t4ddg_2(2, 2, 0, 1) * t4ddg_3(2, 1, 1, 2)
749 + t4ddg_2(2, 2, 0, 2) * t4ddg_3(2, 2, 1, 2)),
750 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(2,1,0,2)");
751 test_for_zero(t4ddg_1(2, 1, 1, 0)
752 - (t4ddg_2(2, 0, 1, 0) * t4ddg_3(0, 0, 1, 0)
753 + t4ddg_2(2, 0, 1, 1) * t4ddg_3(0, 1, 1, 0)
754 + t4ddg_2(2, 0, 1, 2) * t4ddg_3(0, 2, 1, 0)
755 + t4ddg_2(2, 1, 1, 0) * t4ddg_3(1, 0, 1, 0)
756 + t4ddg_2(2, 1, 1, 1) * t4ddg_3(1, 1, 1, 0)
757 + t4ddg_2(2, 1, 1, 2) * t4ddg_3(1, 2, 1, 0)
758 + t4ddg_2(2, 2, 1, 0) * t4ddg_3(2, 0, 1, 0)
759 + t4ddg_2(2, 2, 1, 1) * t4ddg_3(2, 1, 1, 0)
760 + t4ddg_2(2, 2, 1, 2) * t4ddg_3(2, 2, 1, 0)),
761 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(2,1,1,0)");
762 test_for_zero(t4ddg_1(2, 1, 1, 1)
763 - (t4ddg_2(2, 0, 1, 0) * t4ddg_3(0, 0, 1, 1)
764 + t4ddg_2(2, 0, 1, 1) * t4ddg_3(0, 1, 1, 1)
765 + t4ddg_2(2, 0, 1, 2) * t4ddg_3(0, 2, 1, 1)
766 + t4ddg_2(2, 1, 1, 0) * t4ddg_3(1, 0, 1, 1)
767 + t4ddg_2(2, 1, 1, 1) * t4ddg_3(1, 1, 1, 1)
768 + t4ddg_2(2, 1, 1, 2) * t4ddg_3(1, 2, 1, 1)
769 + t4ddg_2(2, 2, 1, 0) * t4ddg_3(2, 0, 1, 1)
770 + t4ddg_2(2, 2, 1, 1) * t4ddg_3(2, 1, 1, 1)
771 + t4ddg_2(2, 2, 1, 2) * t4ddg_3(2, 2, 1, 1)),
772 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(2,1,1,1)");
773 test_for_zero(t4ddg_1(2, 1, 1, 2)
774 - (t4ddg_2(2, 0, 1, 0) * t4ddg_3(0, 0, 1, 2)
775 + t4ddg_2(2, 0, 1, 1) * t4ddg_3(0, 1, 1, 2)
776 + t4ddg_2(2, 0, 1, 2) * t4ddg_3(0, 2, 1, 2)
777 + t4ddg_2(2, 1, 1, 0) * t4ddg_3(1, 0, 1, 2)
778 + t4ddg_2(2, 1, 1, 1) * t4ddg_3(1, 1, 1, 2)
779 + t4ddg_2(2, 1, 1, 2) * t4ddg_3(1, 2, 1, 2)
780 + t4ddg_2(2, 2, 1, 0) * t4ddg_3(2, 0, 1, 2)
781 + t4ddg_2(2, 2, 1, 1) * t4ddg_3(2, 1, 1, 2)
782 + t4ddg_2(2, 2, 1, 2) * t4ddg_3(2, 2, 1, 2)),
783 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(2,1,1,2)");
784 test_for_zero(t4ddg_1(2, 2, 1, 0)
785 - (t4ddg_2(2, 0, 2, 0) * t4ddg_3(0, 0, 1, 0)
786 + t4ddg_2(2, 0, 2, 1) * t4ddg_3(0, 1, 1, 0)
787 + t4ddg_2(2, 0, 2, 2) * t4ddg_3(0, 2, 1, 0)
788 + t4ddg_2(2, 1, 2, 0) * t4ddg_3(1, 0, 1, 0)
789 + t4ddg_2(2, 1, 2, 1) * t4ddg_3(1, 1, 1, 0)
790 + t4ddg_2(2, 1, 2, 2) * t4ddg_3(1, 2, 1, 0)
791 + t4ddg_2(2, 2, 2, 0) * t4ddg_3(2, 0, 1, 0)
792 + t4ddg_2(2, 2, 2, 1) * t4ddg_3(2, 1, 1, 0)
793 + t4ddg_2(2, 2, 2, 2) * t4ddg_3(2, 2, 1, 0)),
794 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(2,1,2,0)");
795 test_for_zero(t4ddg_1(2, 2, 1, 1)
796 - (t4ddg_2(2, 0, 2, 0) * t4ddg_3(0, 0, 1, 1)
797 + t4ddg_2(2, 0, 2, 1) * t4ddg_3(0, 1, 1, 1)
798 + t4ddg_2(2, 0, 2, 2) * t4ddg_3(0, 2, 1, 1)
799 + t4ddg_2(2, 1, 2, 0) * t4ddg_3(1, 0, 1, 1)
800 + t4ddg_2(2, 1, 2, 1) * t4ddg_3(1, 1, 1, 1)
801 + t4ddg_2(2, 1, 2, 2) * t4ddg_3(1, 2, 1, 1)
802 + t4ddg_2(2, 2, 2, 0) * t4ddg_3(2, 0, 1, 1)
803 + t4ddg_2(2, 2, 2, 1) * t4ddg_3(2, 1, 1, 1)
804 + t4ddg_2(2, 2, 2, 2) * t4ddg_3(2, 2, 1, 1)),
805 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(2,1,2,1)");
806 test_for_zero(t4ddg_1(2, 2, 1, 2)
807 - (t4ddg_2(2, 0, 2, 0) * t4ddg_3(0, 0, 1, 2)
808 + t4ddg_2(2, 0, 2, 1) * t4ddg_3(0, 1, 1, 2)
809 + t4ddg_2(2, 0, 2, 2) * t4ddg_3(0, 2, 1, 2)
810 + t4ddg_2(2, 1, 2, 0) * t4ddg_3(1, 0, 1, 2)
811 + t4ddg_2(2, 1, 2, 1) * t4ddg_3(1, 1, 1, 2)
812 + t4ddg_2(2, 1, 2, 2) * t4ddg_3(1, 2, 1, 2)
813 + t4ddg_2(2, 2, 2, 0) * t4ddg_3(2, 0, 1, 2)
814 + t4ddg_2(2, 2, 2, 1) * t4ddg_3(2, 1, 1, 2)
815 + t4ddg_2(2, 2, 2, 2) * t4ddg_3(2, 2, 1, 2)),
816 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(2,1,2,2)");
817 test_for_zero(t4ddg_1(2, 0, 2, 0)
818 - (t4ddg_2(2, 0, 0, 0) * t4ddg_3(0, 0, 2, 0)
819 + t4ddg_2(2, 0, 0, 1) * t4ddg_3(0, 1, 2, 0)
820 + t4ddg_2(2, 0, 0, 2) * t4ddg_3(0, 2, 2, 0)
821 + t4ddg_2(2, 1, 0, 0) * t4ddg_3(1, 0, 2, 0)
822 + t4ddg_2(2, 1, 0, 1) * t4ddg_3(1, 1, 2, 0)
823 + t4ddg_2(2, 1, 0, 2) * t4ddg_3(1, 2, 2, 0)
824 + t4ddg_2(2, 2, 0, 0) * t4ddg_3(2, 0, 2, 0)
825 + t4ddg_2(2, 2, 0, 1) * t4ddg_3(2, 1, 2, 0)
826 + t4ddg_2(2, 2, 0, 2) * t4ddg_3(2, 2, 2, 0)),
827 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(2,2,0,0)");
828 test_for_zero(t4ddg_1(2, 0, 2, 1)
829 - (t4ddg_2(2, 0, 0, 0) * t4ddg_3(0, 0, 2, 1)
830 + t4ddg_2(2, 0, 0, 1) * t4ddg_3(0, 1, 2, 1)
831 + t4ddg_2(2, 0, 0, 2) * t4ddg_3(0, 2, 2, 1)
832 + t4ddg_2(2, 1, 0, 0) * t4ddg_3(1, 0, 2, 1)
833 + t4ddg_2(2, 1, 0, 1) * t4ddg_3(1, 1, 2, 1)
834 + t4ddg_2(2, 1, 0, 2) * t4ddg_3(1, 2, 2, 1)
835 + t4ddg_2(2, 2, 0, 0) * t4ddg_3(2, 0, 2, 1)
836 + t4ddg_2(2, 2, 0, 1) * t4ddg_3(2, 1, 2, 1)
837 + t4ddg_2(2, 2, 0, 2) * t4ddg_3(2, 2, 2, 1)),
838 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(2,2,0,1)");
839 test_for_zero(t4ddg_1(2, 0, 2, 2)
840 - (t4ddg_2(2, 0, 0, 0) * t4ddg_3(0, 0, 2, 2)
841 + t4ddg_2(2, 0, 0, 1) * t4ddg_3(0, 1, 2, 2)
842 + t4ddg_2(2, 0, 0, 2) * t4ddg_3(0, 2, 2, 2)
843 + t4ddg_2(2, 1, 0, 0) * t4ddg_3(1, 0, 2, 2)
844 + t4ddg_2(2, 1, 0, 1) * t4ddg_3(1, 1, 2, 2)
845 + t4ddg_2(2, 1, 0, 2) * t4ddg_3(1, 2, 2, 2)
846 + t4ddg_2(2, 2, 0, 0) * t4ddg_3(2, 0, 2, 2)
847 + t4ddg_2(2, 2, 0, 1) * t4ddg_3(2, 1, 2, 2)
848 + t4ddg_2(2, 2, 0, 2) * t4ddg_3(2, 2, 2, 2)),
849 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(2,2,0,2)");
850 test_for_zero(t4ddg_1(2, 1, 2, 0)
851 - (t4ddg_2(2, 0, 1, 0) * t4ddg_3(0, 0, 2, 0)
852 + t4ddg_2(2, 0, 1, 1) * t4ddg_3(0, 1, 2, 0)
853 + t4ddg_2(2, 0, 1, 2) * t4ddg_3(0, 2, 2, 0)
854 + t4ddg_2(2, 1, 1, 0) * t4ddg_3(1, 0, 2, 0)
855 + t4ddg_2(2, 1, 1, 1) * t4ddg_3(1, 1, 2, 0)
856 + t4ddg_2(2, 1, 1, 2) * t4ddg_3(1, 2, 2, 0)
857 + t4ddg_2(2, 2, 1, 0) * t4ddg_3(2, 0, 2, 0)
858 + t4ddg_2(2, 2, 1, 1) * t4ddg_3(2, 1, 2, 0)
859 + t4ddg_2(2, 2, 1, 2) * t4ddg_3(2, 2, 2, 0)),
860 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(2,2,1,0)");
861 test_for_zero(t4ddg_1(2, 1, 2, 1)
862 - (t4ddg_2(2, 0, 1, 0) * t4ddg_3(0, 0, 2, 1)
863 + t4ddg_2(2, 0, 1, 1) * t4ddg_3(0, 1, 2, 1)
864 + t4ddg_2(2, 0, 1, 2) * t4ddg_3(0, 2, 2, 1)
865 + t4ddg_2(2, 1, 1, 0) * t4ddg_3(1, 0, 2, 1)
866 + t4ddg_2(2, 1, 1, 1) * t4ddg_3(1, 1, 2, 1)
867 + t4ddg_2(2, 1, 1, 2) * t4ddg_3(1, 2, 2, 1)
868 + t4ddg_2(2, 2, 1, 0) * t4ddg_3(2, 0, 2, 1)
869 + t4ddg_2(2, 2, 1, 1) * t4ddg_3(2, 1, 2, 1)
870 + t4ddg_2(2, 2, 1, 2) * t4ddg_3(2, 2, 2, 1)),
871 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(2,2,1,1)");
872 test_for_zero(t4ddg_1(2, 1, 2, 2)
873 - (t4ddg_2(2, 0, 1, 0) * t4ddg_3(0, 0, 2, 2)
874 + t4ddg_2(2, 0, 1, 1) * t4ddg_3(0, 1, 2, 2)
875 + t4ddg_2(2, 0, 1, 2) * t4ddg_3(0, 2, 2, 2)
876 + t4ddg_2(2, 1, 1, 0) * t4ddg_3(1, 0, 2, 2)
877 + t4ddg_2(2, 1, 1, 1) * t4ddg_3(1, 1, 2, 2)
878 + t4ddg_2(2, 1, 1, 2) * t4ddg_3(1, 2, 2, 2)
879 + t4ddg_2(2, 2, 1, 0) * t4ddg_3(2, 0, 2, 2)
880 + t4ddg_2(2, 2, 1, 1) * t4ddg_3(2, 1, 2, 2)
881 + t4ddg_2(2, 2, 1, 2) * t4ddg_3(2, 2, 2, 2)),
882 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(2,2,1,2)");
883 test_for_zero(t4ddg_1(2, 2, 2, 0)
884 - (t4ddg_2(2, 0, 2, 0) * t4ddg_3(0, 0, 2, 0)
885 + t4ddg_2(2, 0, 2, 1) * t4ddg_3(0, 1, 2, 0)
886 + t4ddg_2(2, 0, 2, 2) * t4ddg_3(0, 2, 2, 0)
887 + t4ddg_2(2, 1, 2, 0) * t4ddg_3(1, 0, 2, 0)
888 + t4ddg_2(2, 1, 2, 1) * t4ddg_3(1, 1, 2, 0)
889 + t4ddg_2(2, 1, 2, 2) * t4ddg_3(1, 2, 2, 0)
890 + t4ddg_2(2, 2, 2, 0) * t4ddg_3(2, 0, 2, 0)
891 + t4ddg_2(2, 2, 2, 1) * t4ddg_3(2, 1, 2, 0)
892 + t4ddg_2(2, 2, 2, 2) * t4ddg_3(2, 2, 2, 0)),
893 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(2,2,2,0)");
894 test_for_zero(t4ddg_1(2, 2, 2, 1)
895 - (t4ddg_2(2, 0, 2, 0) * t4ddg_3(0, 0, 2, 1)
896 + t4ddg_2(2, 0, 2, 1) * t4ddg_3(0, 1, 2, 1)
897 + t4ddg_2(2, 0, 2, 2) * t4ddg_3(0, 2, 2, 1)
898 + t4ddg_2(2, 1, 2, 0) * t4ddg_3(1, 0, 2, 1)
899 + t4ddg_2(2, 1, 2, 1) * t4ddg_3(1, 1, 2, 1)
900 + t4ddg_2(2, 1, 2, 2) * t4ddg_3(1, 2, 2, 1)
901 + t4ddg_2(2, 2, 2, 0) * t4ddg_3(2, 0, 2, 1)
902 + t4ddg_2(2, 2, 2, 1) * t4ddg_3(2, 1, 2, 1)
903 + t4ddg_2(2, 2, 2, 2) * t4ddg_3(2, 2, 2, 1)),
904 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(2,2,2,1)");
905 test_for_zero(t4ddg_1(2, 2, 2, 2)
906 - (t4ddg_2(2, 0, 2, 0) * t4ddg_3(0, 0, 2, 2)
907 + t4ddg_2(2, 0, 2, 1) * t4ddg_3(0, 1, 2, 2)
908 + t4ddg_2(2, 0, 2, 2) * t4ddg_3(0, 2, 2, 2)
909 + t4ddg_2(2, 1, 2, 0) * t4ddg_3(1, 0, 2, 2)
910 + t4ddg_2(2, 1, 2, 1) * t4ddg_3(1, 1, 2, 2)
911 + t4ddg_2(2, 1, 2, 2) * t4ddg_3(1, 2, 2, 2)
912 + t4ddg_2(2, 2, 2, 0) * t4ddg_3(2, 0, 2, 2)
913 + t4ddg_2(2, 2, 2, 1) * t4ddg_3(2, 1, 2, 2)
914 + t4ddg_2(2, 2, 2, 2) * t4ddg_3(2, 2, 2, 2)),
915 "T4ddg(i,j,k,l)^T4ddg(j,l,m,n)(2,2,2,2)");
916}

◆ test_T4ddg_03()

void test_T4ddg_03 ( Tensor2< double, 3, 3 > &  t2_1,
Tensor2_symmetric< double, 3 > &  t2s_1,
const Tensor2_symmetric< double, 3 > &  t2s_2,
const Tensor2_symmetric< double, 3 > &  t2s_3 
)

Definition at line 7 of file test_T4ddg_03.cpp.

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

◆ test_T4ddg_04()

void test_T4ddg_04 ( const Tensor1< double, 3 > &  t1_2,
const Tensor2< double, 3, 3 > &  t2_2,
const Tensor2< double, 3, 3 > &  t2_3,
Tensor2_symmetric< double, 3 > &  t2s_1,
const Tensor2_symmetric< double, 3 > &  t2s_2,
const Tensor2_symmetric< double, 3 > &  t2s_3,
Dg< double, 3, 3 > &  t3dg_1 
)

Definition at line 7 of file test_T4ddg_04.cpp.

14{
15 Index<'i', 3> i;
16 Index<'j', 3> j;
17 Index<'k', 3> k;
18 Index<'l', 3> l;
19 Index<'m', 3> m;
20
21 Number<0> N0;
22 Number<1> N1;
23 Number<2> N2;
24
25 Ddg<double, 3, 3> t4ddg_2;
26
27 t4ddg_2(i, j, l, m) = t2s_2(i, j) * t2s_2(l, m);
28 t2s_1(i, k) = (t4ddg_2(i, j, k, l) ^ t2s_2(j, l));
29 test_for_zero(t2s_1(0, 0)
30 - (t4ddg_2(0, 0, 0, 0) * t2s_2(0, 0)
31 + t4ddg_2(0, 0, 0, 1) * t2s_2(0, 1)
32 + t4ddg_2(0, 0, 0, 2) * t2s_2(0, 2)
33 + t4ddg_2(0, 1, 0, 0) * t2s_2(1, 0)
34 + t4ddg_2(0, 1, 0, 1) * t2s_2(1, 1)
35 + t4ddg_2(0, 1, 0, 2) * t2s_2(1, 2)
36 + t4ddg_2(0, 2, 0, 0) * t2s_2(2, 0)
37 + t4ddg_2(0, 2, 0, 1) * t2s_2(2, 1)
38 + t4ddg_2(0, 2, 0, 2) * t2s_2(2, 2)),
39 "T4ddg(i,j,k,l)^T2s(j,l)(0,0)");
40 test_for_zero(t2s_1(0, 1)
41 - (t4ddg_2(0, 0, 1, 0) * t2s_2(0, 0)
42 + t4ddg_2(0, 0, 1, 1) * t2s_2(0, 1)
43 + t4ddg_2(0, 0, 1, 2) * t2s_2(0, 2)
44 + t4ddg_2(0, 1, 1, 0) * t2s_2(1, 0)
45 + t4ddg_2(0, 1, 1, 1) * t2s_2(1, 1)
46 + t4ddg_2(0, 1, 1, 2) * t2s_2(1, 2)
47 + t4ddg_2(0, 2, 1, 0) * t2s_2(2, 0)
48 + t4ddg_2(0, 2, 1, 1) * t2s_2(2, 1)
49 + t4ddg_2(0, 2, 1, 2) * t2s_2(2, 2)),
50 "T4ddg(i,j,k,l)^T2s(j,l)(0,1)");
51 test_for_zero(t2s_1(0, 2)
52 - (t4ddg_2(0, 0, 2, 0) * t2s_2(0, 0)
53 + t4ddg_2(0, 0, 2, 1) * t2s_2(0, 1)
54 + t4ddg_2(0, 0, 2, 2) * t2s_2(0, 2)
55 + t4ddg_2(0, 1, 2, 0) * t2s_2(1, 0)
56 + t4ddg_2(0, 1, 2, 1) * t2s_2(1, 1)
57 + t4ddg_2(0, 1, 2, 2) * t2s_2(1, 2)
58 + t4ddg_2(0, 2, 2, 0) * t2s_2(2, 0)
59 + t4ddg_2(0, 2, 2, 1) * t2s_2(2, 1)
60 + t4ddg_2(0, 2, 2, 2) * t2s_2(2, 2)),
61 "T4ddg(i,j,k,l)^T2s(j,l)(0,2)");
62 test_for_zero(t2s_1(1, 0)
63 - (t4ddg_2(1, 0, 0, 0) * t2s_2(0, 0)
64 + t4ddg_2(1, 0, 0, 1) * t2s_2(0, 1)
65 + t4ddg_2(1, 0, 0, 2) * t2s_2(0, 2)
66 + t4ddg_2(1, 1, 0, 0) * t2s_2(1, 0)
67 + t4ddg_2(1, 1, 0, 1) * t2s_2(1, 1)
68 + t4ddg_2(1, 1, 0, 2) * t2s_2(1, 2)
69 + t4ddg_2(1, 2, 0, 0) * t2s_2(2, 0)
70 + t4ddg_2(1, 2, 0, 1) * t2s_2(2, 1)
71 + t4ddg_2(1, 2, 0, 2) * t2s_2(2, 2)),
72 "T4ddg(i,j,k,l)^T2s(j,l)(1,0)");
73 test_for_zero(t2s_1(1, 1)
74 - (t4ddg_2(1, 0, 1, 0) * t2s_2(0, 0)
75 + t4ddg_2(1, 0, 1, 1) * t2s_2(0, 1)
76 + t4ddg_2(1, 0, 1, 2) * t2s_2(0, 2)
77 + t4ddg_2(1, 1, 1, 0) * t2s_2(1, 0)
78 + t4ddg_2(1, 1, 1, 1) * t2s_2(1, 1)
79 + t4ddg_2(1, 1, 1, 2) * t2s_2(1, 2)
80 + t4ddg_2(1, 2, 1, 0) * t2s_2(2, 0)
81 + t4ddg_2(1, 2, 1, 1) * t2s_2(2, 1)
82 + t4ddg_2(1, 2, 1, 2) * t2s_2(2, 2)),
83 "T4ddg(i,j,k,l)^T2s(j,l)(1,1)");
84 test_for_zero(t2s_1(1, 2)
85 - (t4ddg_2(1, 0, 2, 0) * t2s_2(0, 0)
86 + t4ddg_2(1, 0, 2, 1) * t2s_2(0, 1)
87 + t4ddg_2(1, 0, 2, 2) * t2s_2(0, 2)
88 + t4ddg_2(1, 1, 2, 0) * t2s_2(1, 0)
89 + t4ddg_2(1, 1, 2, 1) * t2s_2(1, 1)
90 + t4ddg_2(1, 1, 2, 2) * t2s_2(1, 2)
91 + t4ddg_2(1, 2, 2, 0) * t2s_2(2, 0)
92 + t4ddg_2(1, 2, 2, 1) * t2s_2(2, 1)
93 + t4ddg_2(1, 2, 2, 2) * t2s_2(2, 2)),
94 "T4ddg(i,j,k,l)^T2s(j,l)(1,2)");
95 test_for_zero(t2s_1(2, 0)
96 - (t4ddg_2(2, 0, 0, 0) * t2s_2(0, 0)
97 + t4ddg_2(2, 0, 0, 1) * t2s_2(0, 1)
98 + t4ddg_2(2, 0, 0, 2) * t2s_2(0, 2)
99 + t4ddg_2(2, 1, 0, 0) * t2s_2(1, 0)
100 + t4ddg_2(2, 1, 0, 1) * t2s_2(1, 1)
101 + t4ddg_2(2, 1, 0, 2) * t2s_2(1, 2)
102 + t4ddg_2(2, 2, 0, 0) * t2s_2(2, 0)
103 + t4ddg_2(2, 2, 0, 1) * t2s_2(2, 1)
104 + t4ddg_2(2, 2, 0, 2) * t2s_2(2, 2)),
105 "T4ddg(i,j,k,l)^T2s(j,l)(2,0)");
106 test_for_zero(t2s_1(2, 1)
107 - (t4ddg_2(2, 0, 1, 0) * t2s_2(0, 0)
108 + t4ddg_2(2, 0, 1, 1) * t2s_2(0, 1)
109 + t4ddg_2(2, 0, 1, 2) * t2s_2(0, 2)
110 + t4ddg_2(2, 1, 1, 0) * t2s_2(1, 0)
111 + t4ddg_2(2, 1, 1, 1) * t2s_2(1, 1)
112 + t4ddg_2(2, 1, 1, 2) * t2s_2(1, 2)
113 + t4ddg_2(2, 2, 1, 0) * t2s_2(2, 0)
114 + t4ddg_2(2, 2, 1, 1) * t2s_2(2, 1)
115 + t4ddg_2(2, 2, 1, 2) * t2s_2(2, 2)),
116 "T4ddg(i,j,k,l)^T2s(j,l)(2,1)");
117 test_for_zero(t2s_1(2, 2)
118 - (t4ddg_2(2, 0, 2, 0) * t2s_2(0, 0)
119 + t4ddg_2(2, 0, 2, 1) * t2s_2(0, 1)
120 + t4ddg_2(2, 0, 2, 2) * t2s_2(0, 2)
121 + t4ddg_2(2, 1, 2, 0) * t2s_2(1, 0)
122 + t4ddg_2(2, 1, 2, 1) * t2s_2(1, 1)
123 + t4ddg_2(2, 1, 2, 2) * t2s_2(1, 2)
124 + t4ddg_2(2, 2, 2, 0) * t2s_2(2, 0)
125 + t4ddg_2(2, 2, 2, 1) * t2s_2(2, 1)
126 + t4ddg_2(2, 2, 2, 2) * t2s_2(2, 2)),
127 "T4ddg(i,j,k,l)^T2s(j,l)(2,2)");
128
129 t2s_1(i, k) = (t2s_3(j, l) ^ t4ddg_2(i, j, k, l));
130 test_for_zero(t2s_1(0, 0)
131 - (t4ddg_2(0, 0, 0, 0) * t2s_3(0, 0)
132 + t4ddg_2(0, 0, 0, 1) * t2s_3(0, 1)
133 + t4ddg_2(0, 0, 0, 2) * t2s_3(0, 2)
134 + t4ddg_2(0, 1, 0, 0) * t2s_3(1, 0)
135 + t4ddg_2(0, 1, 0, 1) * t2s_3(1, 1)
136 + t4ddg_2(0, 1, 0, 2) * t2s_3(1, 2)
137 + t4ddg_2(0, 2, 0, 0) * t2s_3(2, 0)
138 + t4ddg_2(0, 2, 0, 1) * t2s_3(2, 1)
139 + t4ddg_2(0, 2, 0, 2) * t2s_3(2, 2)),
140 "T2s(j,l)^T4ddg(i,j,k,l)(0,0)");
141 test_for_zero(t2s_1(0, 1)
142 - (t4ddg_2(0, 0, 1, 0) * t2s_3(0, 0)
143 + t4ddg_2(0, 0, 1, 1) * t2s_3(0, 1)
144 + t4ddg_2(0, 0, 1, 2) * t2s_3(0, 2)
145 + t4ddg_2(0, 1, 1, 0) * t2s_3(1, 0)
146 + t4ddg_2(0, 1, 1, 1) * t2s_3(1, 1)
147 + t4ddg_2(0, 1, 1, 2) * t2s_3(1, 2)
148 + t4ddg_2(0, 2, 1, 0) * t2s_3(2, 0)
149 + t4ddg_2(0, 2, 1, 1) * t2s_3(2, 1)
150 + t4ddg_2(0, 2, 1, 2) * t2s_3(2, 2)),
151 "T2s(j,l)^T4ddg(i,j,k,l)(0,1)");
152 test_for_zero(t2s_1(0, 2)
153 - (t4ddg_2(0, 0, 2, 0) * t2s_3(0, 0)
154 + t4ddg_2(0, 0, 2, 1) * t2s_3(0, 1)
155 + t4ddg_2(0, 0, 2, 2) * t2s_3(0, 2)
156 + t4ddg_2(0, 1, 2, 0) * t2s_3(1, 0)
157 + t4ddg_2(0, 1, 2, 1) * t2s_3(1, 1)
158 + t4ddg_2(0, 1, 2, 2) * t2s_3(1, 2)
159 + t4ddg_2(0, 2, 2, 0) * t2s_3(2, 0)
160 + t4ddg_2(0, 2, 2, 1) * t2s_3(2, 1)
161 + t4ddg_2(0, 2, 2, 2) * t2s_3(2, 2)),
162 "T2s(j,l)^T4ddg(i,j,k,l)(0,2)");
163 test_for_zero(t2s_1(1, 0)
164 - (t4ddg_2(1, 0, 0, 0) * t2s_3(0, 0)
165 + t4ddg_2(1, 0, 0, 1) * t2s_3(0, 1)
166 + t4ddg_2(1, 0, 0, 2) * t2s_3(0, 2)
167 + t4ddg_2(1, 1, 0, 0) * t2s_3(1, 0)
168 + t4ddg_2(1, 1, 0, 1) * t2s_3(1, 1)
169 + t4ddg_2(1, 1, 0, 2) * t2s_3(1, 2)
170 + t4ddg_2(1, 2, 0, 0) * t2s_3(2, 0)
171 + t4ddg_2(1, 2, 0, 1) * t2s_3(2, 1)
172 + t4ddg_2(1, 2, 0, 2) * t2s_3(2, 2)),
173 "T2s(j,l)^T4ddg(i,j,k,l)(1,0)");
174 test_for_zero(t2s_1(1, 1)
175 - (t4ddg_2(1, 0, 1, 0) * t2s_3(0, 0)
176 + t4ddg_2(1, 0, 1, 1) * t2s_3(0, 1)
177 + t4ddg_2(1, 0, 1, 2) * t2s_3(0, 2)
178 + t4ddg_2(1, 1, 1, 0) * t2s_3(1, 0)
179 + t4ddg_2(1, 1, 1, 1) * t2s_3(1, 1)
180 + t4ddg_2(1, 1, 1, 2) * t2s_3(1, 2)
181 + t4ddg_2(1, 2, 1, 0) * t2s_3(2, 0)
182 + t4ddg_2(1, 2, 1, 1) * t2s_3(2, 1)
183 + t4ddg_2(1, 2, 1, 2) * t2s_3(2, 2)),
184 "T2s(j,l)^T4ddg(i,j,k,l)(1,1)");
185 test_for_zero(t2s_1(1, 2)
186 - (t4ddg_2(1, 0, 2, 0) * t2s_3(0, 0)
187 + t4ddg_2(1, 0, 2, 1) * t2s_3(0, 1)
188 + t4ddg_2(1, 0, 2, 2) * t2s_3(0, 2)
189 + t4ddg_2(1, 1, 2, 0) * t2s_3(1, 0)
190 + t4ddg_2(1, 1, 2, 1) * t2s_3(1, 1)
191 + t4ddg_2(1, 1, 2, 2) * t2s_3(1, 2)
192 + t4ddg_2(1, 2, 2, 0) * t2s_3(2, 0)
193 + t4ddg_2(1, 2, 2, 1) * t2s_3(2, 1)
194 + t4ddg_2(1, 2, 2, 2) * t2s_3(2, 2)),
195 "T2s(j,l)^T4ddg(i,j,k,l)(1,2)");
196 test_for_zero(t2s_1(2, 0)
197 - (t4ddg_2(2, 0, 0, 0) * t2s_3(0, 0)
198 + t4ddg_2(2, 0, 0, 1) * t2s_3(0, 1)
199 + t4ddg_2(2, 0, 0, 2) * t2s_3(0, 2)
200 + t4ddg_2(2, 1, 0, 0) * t2s_3(1, 0)
201 + t4ddg_2(2, 1, 0, 1) * t2s_3(1, 1)
202 + t4ddg_2(2, 1, 0, 2) * t2s_3(1, 2)
203 + t4ddg_2(2, 2, 0, 0) * t2s_3(2, 0)
204 + t4ddg_2(2, 2, 0, 1) * t2s_3(2, 1)
205 + t4ddg_2(2, 2, 0, 2) * t2s_3(2, 2)),
206 "T2s(j,l)^T4ddg(i,j,k,l)(2,0)");
207 test_for_zero(t2s_1(2, 1)
208 - (t4ddg_2(2, 0, 1, 0) * t2s_3(0, 0)
209 + t4ddg_2(2, 0, 1, 1) * t2s_3(0, 1)
210 + t4ddg_2(2, 0, 1, 2) * t2s_3(0, 2)
211 + t4ddg_2(2, 1, 1, 0) * t2s_3(1, 0)
212 + t4ddg_2(2, 1, 1, 1) * t2s_3(1, 1)
213 + t4ddg_2(2, 1, 1, 2) * t2s_3(1, 2)
214 + t4ddg_2(2, 2, 1, 0) * t2s_3(2, 0)
215 + t4ddg_2(2, 2, 1, 1) * t2s_3(2, 1)
216 + t4ddg_2(2, 2, 1, 2) * t2s_3(2, 2)),
217 "T2s(j,l)^T4ddg(i,j,k,l)(2,1)");
218 test_for_zero(t2s_1(2, 2)
219 - (t4ddg_2(2, 0, 2, 0) * t2s_3(0, 0)
220 + t4ddg_2(2, 0, 2, 1) * t2s_3(0, 1)
221 + t4ddg_2(2, 0, 2, 2) * t2s_3(0, 2)
222 + t4ddg_2(2, 1, 2, 0) * t2s_3(1, 0)
223 + t4ddg_2(2, 1, 2, 1) * t2s_3(1, 1)
224 + t4ddg_2(2, 1, 2, 2) * t2s_3(1, 2)
225 + t4ddg_2(2, 2, 2, 0) * t2s_3(2, 0)
226 + t4ddg_2(2, 2, 2, 1) * t2s_3(2, 1)
227 + t4ddg_2(2, 2, 2, 2) * t2s_3(2, 2)),
228 "T2s(j,l)^T4ddg(i,j,k,l)(2,2)");
229
230 t2s_1(i, k) = t4ddg_2(i, k, j, l) * t2_2(j, l);
231 test_for_zero(
232 t2s_1(0, 0)
233 - (t4ddg_2(0, 0, 0, 0) * t2_2(0, 0) + t4ddg_2(0, 0, 0, 1) * t2_2(0, 1)
234 + t4ddg_2(0, 0, 0, 2) * t2_2(0, 2) + t4ddg_2(0, 0, 1, 0) * t2_2(1, 0)
235 + t4ddg_2(0, 0, 1, 1) * t2_2(1, 1) + t4ddg_2(0, 0, 1, 2) * t2_2(1, 2)
236 + t4ddg_2(0, 0, 2, 0) * t2_2(2, 0) + t4ddg_2(0, 0, 2, 1) * t2_2(2, 1)
237 + t4ddg_2(0, 0, 2, 2) * t2_2(2, 2)),
238 "T4ddg(i,j,k,l)*T2(j,l)(0,0)");
239 test_for_zero(
240 t2s_1(0, 1)
241 - (t4ddg_2(0, 1, 0, 0) * t2_2(0, 0) + t4ddg_2(0, 1, 0, 1) * t2_2(0, 1)
242 + t4ddg_2(0, 1, 0, 2) * t2_2(0, 2) + t4ddg_2(0, 1, 1, 0) * t2_2(1, 0)
243 + t4ddg_2(0, 1, 1, 1) * t2_2(1, 1) + t4ddg_2(0, 1, 1, 2) * t2_2(1, 2)
244 + t4ddg_2(0, 1, 2, 0) * t2_2(2, 0) + t4ddg_2(0, 1, 2, 1) * t2_2(2, 1)
245 + t4ddg_2(0, 1, 2, 2) * t2_2(2, 2)),
246 "T4ddg(i,j,k,l)*T2(j,l)(0,1)");
247 test_for_zero(
248 t2s_1(0, 2)
249 - (t4ddg_2(0, 2, 0, 0) * t2_2(0, 0) + t4ddg_2(0, 2, 0, 1) * t2_2(0, 1)
250 + t4ddg_2(0, 2, 0, 2) * t2_2(0, 2) + t4ddg_2(0, 2, 1, 0) * t2_2(1, 0)
251 + t4ddg_2(0, 2, 1, 1) * t2_2(1, 1) + t4ddg_2(0, 2, 1, 2) * t2_2(1, 2)
252 + t4ddg_2(0, 2, 2, 0) * t2_2(2, 0) + t4ddg_2(0, 2, 2, 1) * t2_2(2, 1)
253 + t4ddg_2(0, 2, 2, 2) * t2_2(2, 2)),
254 "T4ddg(i,j,k,l)*T2(j,l)(0,2)");
255 test_for_zero(
256 t2s_1(1, 0)
257 - (t4ddg_2(1, 0, 0, 0) * t2_2(0, 0) + t4ddg_2(1, 0, 0, 1) * t2_2(0, 1)
258 + t4ddg_2(1, 0, 0, 2) * t2_2(0, 2) + t4ddg_2(1, 0, 1, 0) * t2_2(1, 0)
259 + t4ddg_2(1, 0, 1, 1) * t2_2(1, 1) + t4ddg_2(1, 0, 1, 2) * t2_2(1, 2)
260 + t4ddg_2(1, 0, 2, 0) * t2_2(2, 0) + t4ddg_2(1, 0, 2, 1) * t2_2(2, 1)
261 + t4ddg_2(1, 0, 2, 2) * t2_2(2, 2)),
262 "T4ddg(i,j,k,l)*T2(j,l)(1,0)");
263 test_for_zero(
264 t2s_1(1, 1)
265 - (t4ddg_2(1, 1, 0, 0) * t2_2(0, 0) + t4ddg_2(1, 1, 0, 1) * t2_2(0, 1)
266 + t4ddg_2(1, 1, 0, 2) * t2_2(0, 2) + t4ddg_2(1, 1, 1, 0) * t2_2(1, 0)
267 + t4ddg_2(1, 1, 1, 1) * t2_2(1, 1) + t4ddg_2(1, 1, 1, 2) * t2_2(1, 2)
268 + t4ddg_2(1, 1, 2, 0) * t2_2(2, 0) + t4ddg_2(1, 1, 2, 1) * t2_2(2, 1)
269 + t4ddg_2(1, 1, 2, 2) * t2_2(2, 2)),
270 "T4ddg(i,j,k,l)*T2(j,l)(1,1)");
271 test_for_zero(
272 t2s_1(1, 2)
273 - (t4ddg_2(1, 2, 0, 0) * t2_2(0, 0) + t4ddg_2(1, 2, 0, 1) * t2_2(0, 1)
274 + t4ddg_2(1, 2, 0, 2) * t2_2(0, 2) + t4ddg_2(1, 2, 1, 0) * t2_2(1, 0)
275 + t4ddg_2(1, 2, 1, 1) * t2_2(1, 1) + t4ddg_2(1, 2, 1, 2) * t2_2(1, 2)
276 + t4ddg_2(1, 2, 2, 0) * t2_2(2, 0) + t4ddg_2(1, 2, 2, 1) * t2_2(2, 1)
277 + t4ddg_2(1, 2, 2, 2) * t2_2(2, 2)),
278 "T4ddg(i,j,k,l)*T2(j,l)(1,2)");
279 test_for_zero(
280 t2s_1(2, 0)
281 - (t4ddg_2(2, 0, 0, 0) * t2_2(0, 0) + t4ddg_2(2, 0, 0, 1) * t2_2(0, 1)
282 + t4ddg_2(2, 0, 0, 2) * t2_2(0, 2) + t4ddg_2(2, 0, 1, 0) * t2_2(1, 0)
283 + t4ddg_2(2, 0, 1, 1) * t2_2(1, 1) + t4ddg_2(2, 0, 1, 2) * t2_2(1, 2)
284 + t4ddg_2(2, 0, 2, 0) * t2_2(2, 0) + t4ddg_2(2, 0, 2, 1) * t2_2(2, 1)
285 + t4ddg_2(2, 0, 2, 2) * t2_2(2, 2)),
286 "T4ddg(i,j,k,l)*T2(j,l)(2,0)");
287 test_for_zero(
288 t2s_1(2, 1)
289 - (t4ddg_2(2, 1, 0, 0) * t2_2(0, 0) + t4ddg_2(2, 1, 0, 1) * t2_2(0, 1)
290 + t4ddg_2(2, 1, 0, 2) * t2_2(0, 2) + t4ddg_2(2, 1, 1, 0) * t2_2(1, 0)
291 + t4ddg_2(2, 1, 1, 1) * t2_2(1, 1) + t4ddg_2(2, 1, 1, 2) * t2_2(1, 2)
292 + t4ddg_2(2, 1, 2, 0) * t2_2(2, 0) + t4ddg_2(2, 1, 2, 1) * t2_2(2, 1)
293 + t4ddg_2(2, 1, 2, 2) * t2_2(2, 2)),
294 "T4ddg(i,j,k,l)*T2(j,l)(2,1)");
295 test_for_zero(
296 t2s_1(2, 2)
297 - (t4ddg_2(2, 2, 0, 0) * t2_2(0, 0) + t4ddg_2(2, 2, 0, 1) * t2_2(0, 1)
298 + t4ddg_2(2, 2, 0, 2) * t2_2(0, 2) + t4ddg_2(2, 2, 1, 0) * t2_2(1, 0)
299 + t4ddg_2(2, 2, 1, 1) * t2_2(1, 1) + t4ddg_2(2, 2, 1, 2) * t2_2(1, 2)
300 + t4ddg_2(2, 2, 2, 0) * t2_2(2, 0) + t4ddg_2(2, 2, 2, 1) * t2_2(2, 1)
301 + t4ddg_2(2, 2, 2, 2) * t2_2(2, 2)),
302 "T4ddg(i,j,k,l)*T2(j,l)(2,2)");
303
304 t2s_1(i, k) = t2_3(j, l) * t4ddg_2(i, k, j, l);
305 test_for_zero(
306 t2s_1(0, 0)
307 - (t4ddg_2(0, 0, 0, 0) * t2_3(0, 0) + t4ddg_2(0, 0, 0, 1) * t2_3(0, 1)
308 + t4ddg_2(0, 0, 0, 2) * t2_3(0, 2) + t4ddg_2(0, 0, 1, 0) * t2_3(1, 0)
309 + t4ddg_2(0, 0, 1, 1) * t2_3(1, 1) + t4ddg_2(0, 0, 1, 2) * t2_3(1, 2)
310 + t4ddg_2(0, 0, 2, 0) * t2_3(2, 0) + t4ddg_2(0, 0, 2, 1) * t2_3(2, 1)
311 + t4ddg_2(0, 0, 2, 2) * t2_3(2, 2)),
312 "T2(j,l)*T4ddg(i,j,k,l)(0,0)");
313 test_for_zero(
314 t2s_1(0, 1)
315 - (t4ddg_2(0, 1, 0, 0) * t2_3(0, 0) + t4ddg_2(0, 1, 0, 1) * t2_3(0, 1)
316 + t4ddg_2(0, 1, 0, 2) * t2_3(0, 2) + t4ddg_2(0, 1, 1, 0) * t2_3(1, 0)
317 + t4ddg_2(0, 1, 1, 1) * t2_3(1, 1) + t4ddg_2(0, 1, 1, 2) * t2_3(1, 2)
318 + t4ddg_2(0, 1, 2, 0) * t2_3(2, 0) + t4ddg_2(0, 1, 2, 1) * t2_3(2, 1)
319 + t4ddg_2(0, 1, 2, 2) * t2_3(2, 2)),
320 "T2(j,l)*T4ddg(i,j,k,l)(0,1)");
321 test_for_zero(
322 t2s_1(0, 2)
323 - (t4ddg_2(0, 2, 0, 0) * t2_3(0, 0) + t4ddg_2(0, 2, 0, 1) * t2_3(0, 1)
324 + t4ddg_2(0, 2, 0, 2) * t2_3(0, 2) + t4ddg_2(0, 2, 1, 0) * t2_3(1, 0)
325 + t4ddg_2(0, 2, 1, 1) * t2_3(1, 1) + t4ddg_2(0, 2, 1, 2) * t2_3(1, 2)
326 + t4ddg_2(0, 2, 2, 0) * t2_3(2, 0) + t4ddg_2(0, 2, 2, 1) * t2_3(2, 1)
327 + t4ddg_2(0, 2, 2, 2) * t2_3(2, 2)),
328 "T2(j,l)*T4ddg(i,j,k,l)(0,2)");
329 test_for_zero(
330 t2s_1(1, 0)
331 - (t4ddg_2(1, 0, 0, 0) * t2_3(0, 0) + t4ddg_2(1, 0, 0, 1) * t2_3(0, 1)
332 + t4ddg_2(1, 0, 0, 2) * t2_3(0, 2) + t4ddg_2(1, 0, 1, 0) * t2_3(1, 0)
333 + t4ddg_2(1, 0, 1, 1) * t2_3(1, 1) + t4ddg_2(1, 0, 1, 2) * t2_3(1, 2)
334 + t4ddg_2(1, 0, 2, 0) * t2_3(2, 0) + t4ddg_2(1, 0, 2, 1) * t2_3(2, 1)
335 + t4ddg_2(1, 0, 2, 2) * t2_3(2, 2)),
336 "T2(j,l)*T4ddg(i,j,k,l)(1,0)");
337 test_for_zero(
338 t2s_1(1, 1)
339 - (t4ddg_2(1, 1, 0, 0) * t2_3(0, 0) + t4ddg_2(1, 1, 0, 1) * t2_3(0, 1)
340 + t4ddg_2(1, 1, 0, 2) * t2_3(0, 2) + t4ddg_2(1, 1, 1, 0) * t2_3(1, 0)
341 + t4ddg_2(1, 1, 1, 1) * t2_3(1, 1) + t4ddg_2(1, 1, 1, 2) * t2_3(1, 2)
342 + t4ddg_2(1, 1, 2, 0) * t2_3(2, 0) + t4ddg_2(1, 1, 2, 1) * t2_3(2, 1)
343 + t4ddg_2(1, 1, 2, 2) * t2_3(2, 2)),
344 "T2(j,l)*T4ddg(i,j,k,l)(1,1)");
345 test_for_zero(
346 t2s_1(1, 2)
347 - (t4ddg_2(1, 2, 0, 0) * t2_3(0, 0) + t4ddg_2(1, 2, 0, 1) * t2_3(0, 1)
348 + t4ddg_2(1, 2, 0, 2) * t2_3(0, 2) + t4ddg_2(1, 2, 1, 0) * t2_3(1, 0)
349 + t4ddg_2(1, 2, 1, 1) * t2_3(1, 1) + t4ddg_2(1, 2, 1, 2) * t2_3(1, 2)
350 + t4ddg_2(1, 2, 2, 0) * t2_3(2, 0) + t4ddg_2(1, 2, 2, 1) * t2_3(2, 1)
351 + t4ddg_2(1, 2, 2, 2) * t2_3(2, 2)),
352 "T2(j,l)*T4ddg(i,j,k,l)(1,2)");
353 test_for_zero(
354 t2s_1(2, 0)
355 - (t4ddg_2(2, 0, 0, 0) * t2_3(0, 0) + t4ddg_2(2, 0, 0, 1) * t2_3(0, 1)
356 + t4ddg_2(2, 0, 0, 2) * t2_3(0, 2) + t4ddg_2(2, 0, 1, 0) * t2_3(1, 0)
357 + t4ddg_2(2, 0, 1, 1) * t2_3(1, 1) + t4ddg_2(2, 0, 1, 2) * t2_3(1, 2)
358 + t4ddg_2(2, 0, 2, 0) * t2_3(2, 0) + t4ddg_2(2, 0, 2, 1) * t2_3(2, 1)
359 + t4ddg_2(2, 0, 2, 2) * t2_3(2, 2)),
360 "T2(j,l)*T4ddg(i,j,k,l)(2,0)");
361 test_for_zero(
362 t2s_1(2, 1)
363 - (t4ddg_2(2, 1, 0, 0) * t2_3(0, 0) + t4ddg_2(2, 1, 0, 1) * t2_3(0, 1)
364 + t4ddg_2(2, 1, 0, 2) * t2_3(0, 2) + t4ddg_2(2, 1, 1, 0) * t2_3(1, 0)
365 + t4ddg_2(2, 1, 1, 1) * t2_3(1, 1) + t4ddg_2(2, 1, 1, 2) * t2_3(1, 2)
366 + t4ddg_2(2, 1, 2, 0) * t2_3(2, 0) + t4ddg_2(2, 1, 2, 1) * t2_3(2, 1)
367 + t4ddg_2(2, 1, 2, 2) * t2_3(2, 2)),
368 "T2(j,l)*T4ddg(i,j,k,l)(2,1)");
369 test_for_zero(
370 t2s_1(2, 2)
371 - (t4ddg_2(2, 2, 0, 0) * t2_3(0, 0) + t4ddg_2(2, 2, 0, 1) * t2_3(0, 1)
372 + t4ddg_2(2, 2, 0, 2) * t2_3(0, 2) + t4ddg_2(2, 2, 1, 0) * t2_3(1, 0)
373 + t4ddg_2(2, 2, 1, 1) * t2_3(1, 1) + t4ddg_2(2, 2, 1, 2) * t2_3(1, 2)
374 + t4ddg_2(2, 2, 2, 0) * t2_3(2, 0) + t4ddg_2(2, 2, 2, 1) * t2_3(2, 1)
375 + t4ddg_2(2, 2, 2, 2) * t2_3(2, 2)),
376 "T2(j,l)*T4ddg(i,j,k,l)(2,2)");
377
378 t2s_1(i, k) = t4ddg_2(i, k, j, l) * t2_2(l, j);
379 test_for_zero(
380 t2s_1(0, 0)
381 - (t4ddg_2(0, 0, 0, 0) * t2_2(0, 0) + t4ddg_2(0, 0, 0, 1) * t2_2(0, 1)
382 + t4ddg_2(0, 0, 0, 2) * t2_2(0, 2) + t4ddg_2(0, 0, 1, 0) * t2_2(1, 0)
383 + t4ddg_2(0, 0, 1, 1) * t2_2(1, 1) + t4ddg_2(0, 0, 1, 2) * t2_2(1, 2)
384 + t4ddg_2(0, 0, 2, 0) * t2_2(2, 0) + t4ddg_2(0, 0, 2, 1) * t2_2(2, 1)
385 + t4ddg_2(0, 0, 2, 2) * t2_2(2, 2)),
386 "T4ddg(i,j,k,l)*T2(l,j)(0,0)");
387 test_for_zero(
388 t2s_1(0, 1)
389 - (t4ddg_2(0, 1, 0, 0) * t2_2(0, 0) + t4ddg_2(0, 1, 0, 1) * t2_2(0, 1)
390 + t4ddg_2(0, 1, 0, 2) * t2_2(0, 2) + t4ddg_2(0, 1, 1, 0) * t2_2(1, 0)
391 + t4ddg_2(0, 1, 1, 1) * t2_2(1, 1) + t4ddg_2(0, 1, 1, 2) * t2_2(1, 2)
392 + t4ddg_2(0, 1, 2, 0) * t2_2(2, 0) + t4ddg_2(0, 1, 2, 1) * t2_2(2, 1)
393 + t4ddg_2(0, 1, 2, 2) * t2_2(2, 2)),
394 "T4ddg(i,j,k,l)*T2(l,j)(0,1)");
395 test_for_zero(
396 t2s_1(0, 2)
397 - (t4ddg_2(0, 2, 0, 0) * t2_2(0, 0) + t4ddg_2(0, 2, 0, 1) * t2_2(0, 1)
398 + t4ddg_2(0, 2, 0, 2) * t2_2(0, 2) + t4ddg_2(0, 2, 1, 0) * t2_2(1, 0)
399 + t4ddg_2(0, 2, 1, 1) * t2_2(1, 1) + t4ddg_2(0, 2, 1, 2) * t2_2(1, 2)
400 + t4ddg_2(0, 2, 2, 0) * t2_2(2, 0) + t4ddg_2(0, 2, 2, 1) * t2_2(2, 1)
401 + t4ddg_2(0, 2, 2, 2) * t2_2(2, 2)),
402 "T4ddg(i,j,k,l)*T2(l,j)(0,2)");
403 test_for_zero(
404 t2s_1(1, 0)
405 - (t4ddg_2(1, 0, 0, 0) * t2_2(0, 0) + t4ddg_2(1, 0, 0, 1) * t2_2(0, 1)
406 + t4ddg_2(1, 0, 0, 2) * t2_2(0, 2) + t4ddg_2(1, 0, 1, 0) * t2_2(1, 0)
407 + t4ddg_2(1, 0, 1, 1) * t2_2(1, 1) + t4ddg_2(1, 0, 1, 2) * t2_2(1, 2)
408 + t4ddg_2(1, 0, 2, 0) * t2_2(2, 0) + t4ddg_2(1, 0, 2, 1) * t2_2(2, 1)
409 + t4ddg_2(1, 0, 2, 2) * t2_2(2, 2)),
410 "T4ddg(i,j,k,l)*T2(l,j)(1,0)");
411 test_for_zero(
412 t2s_1(1, 1)
413 - (t4ddg_2(1, 1, 0, 0) * t2_2(0, 0) + t4ddg_2(1, 1, 0, 1) * t2_2(0, 1)
414 + t4ddg_2(1, 1, 0, 2) * t2_2(0, 2) + t4ddg_2(1, 1, 1, 0) * t2_2(1, 0)
415 + t4ddg_2(1, 1, 1, 1) * t2_2(1, 1) + t4ddg_2(1, 1, 1, 2) * t2_2(1, 2)
416 + t4ddg_2(1, 1, 2, 0) * t2_2(2, 0) + t4ddg_2(1, 1, 2, 1) * t2_2(2, 1)
417 + t4ddg_2(1, 1, 2, 2) * t2_2(2, 2)),
418 "T4ddg(i,j,k,l)*T2(l,j)(1,1)");
419 test_for_zero(
420 t2s_1(1, 2)
421 - (t4ddg_2(1, 2, 0, 0) * t2_2(0, 0) + t4ddg_2(1, 2, 0, 1) * t2_2(0, 1)
422 + t4ddg_2(1, 2, 0, 2) * t2_2(0, 2) + t4ddg_2(1, 2, 1, 0) * t2_2(1, 0)
423 + t4ddg_2(1, 2, 1, 1) * t2_2(1, 1) + t4ddg_2(1, 2, 1, 2) * t2_2(1, 2)
424 + t4ddg_2(1, 2, 2, 0) * t2_2(2, 0) + t4ddg_2(1, 2, 2, 1) * t2_2(2, 1)
425 + t4ddg_2(1, 2, 2, 2) * t2_2(2, 2)),
426 "T4ddg(i,j,k,l)*T2(l,j)(1,2)");
427 test_for_zero(
428 t2s_1(2, 0)
429 - (t4ddg_2(2, 0, 0, 0) * t2_2(0, 0) + t4ddg_2(2, 0, 0, 1) * t2_2(0, 1)
430 + t4ddg_2(2, 0, 0, 2) * t2_2(0, 2) + t4ddg_2(2, 0, 1, 0) * t2_2(1, 0)
431 + t4ddg_2(2, 0, 1, 1) * t2_2(1, 1) + t4ddg_2(2, 0, 1, 2) * t2_2(1, 2)
432 + t4ddg_2(2, 0, 2, 0) * t2_2(2, 0) + t4ddg_2(2, 0, 2, 1) * t2_2(2, 1)
433 + t4ddg_2(2, 0, 2, 2) * t2_2(2, 2)),
434 "T4ddg(i,j,k,l)*T2(l,j)(2,0)");
435 test_for_zero(
436 t2s_1(2, 1)
437 - (t4ddg_2(2, 1, 0, 0) * t2_2(0, 0) + t4ddg_2(2, 1, 0, 1) * t2_2(0, 1)
438 + t4ddg_2(2, 1, 0, 2) * t2_2(0, 2) + t4ddg_2(2, 1, 1, 0) * t2_2(1, 0)
439 + t4ddg_2(2, 1, 1, 1) * t2_2(1, 1) + t4ddg_2(2, 1, 1, 2) * t2_2(1, 2)
440 + t4ddg_2(2, 1, 2, 0) * t2_2(2, 0) + t4ddg_2(2, 1, 2, 1) * t2_2(2, 1)
441 + t4ddg_2(2, 1, 2, 2) * t2_2(2, 2)),
442 "T4ddg(i,j,k,l)*T2(l,j)(2,1)");
443 test_for_zero(
444 t2s_1(2, 2)
445 - (t4ddg_2(2, 2, 0, 0) * t2_2(0, 0) + t4ddg_2(2, 2, 0, 1) * t2_2(0, 1)
446 + t4ddg_2(2, 2, 0, 2) * t2_2(0, 2) + t4ddg_2(2, 2, 1, 0) * t2_2(1, 0)
447 + t4ddg_2(2, 2, 1, 1) * t2_2(1, 1) + t4ddg_2(2, 2, 1, 2) * t2_2(1, 2)
448 + t4ddg_2(2, 2, 2, 0) * t2_2(2, 0) + t4ddg_2(2, 2, 2, 1) * t2_2(2, 1)
449 + t4ddg_2(2, 2, 2, 2) * t2_2(2, 2)),
450 "T4ddg(i,j,k,l)*T2(l,j)(2,2)");
451
452 t2s_1(i, k) = t2_3(l, j) * t4ddg_2(i, k, j, l);
453 test_for_zero(
454 t2s_1(0, 0)
455 - (t4ddg_2(0, 0, 0, 0) * t2_3(0, 0) + t4ddg_2(0, 0, 0, 1) * t2_3(0, 1)
456 + t4ddg_2(0, 0, 0, 2) * t2_3(0, 2) + t4ddg_2(0, 0, 1, 0) * t2_3(1, 0)
457 + t4ddg_2(0, 0, 1, 1) * t2_3(1, 1) + t4ddg_2(0, 0, 1, 2) * t2_3(1, 2)
458 + t4ddg_2(0, 0, 2, 0) * t2_3(2, 0) + t4ddg_2(0, 0, 2, 1) * t2_3(2, 1)
459 + t4ddg_2(0, 0, 2, 2) * t2_3(2, 2)),
460 "T2(l,j)*T4ddg(i,j,k,l)(0,0)");
461 test_for_zero(
462 t2s_1(0, 1)
463 - (t4ddg_2(0, 1, 0, 0) * t2_3(0, 0) + t4ddg_2(0, 1, 0, 1) * t2_3(0, 1)
464 + t4ddg_2(0, 1, 0, 2) * t2_3(0, 2) + t4ddg_2(0, 1, 1, 0) * t2_3(1, 0)
465 + t4ddg_2(0, 1, 1, 1) * t2_3(1, 1) + t4ddg_2(0, 1, 1, 2) * t2_3(1, 2)
466 + t4ddg_2(0, 1, 2, 0) * t2_3(2, 0) + t4ddg_2(0, 1, 2, 1) * t2_3(2, 1)
467 + t4ddg_2(0, 1, 2, 2) * t2_3(2, 2)),
468 "T2(l,j)*T4ddg(i,j,k,l)(0,1)");
469 test_for_zero(
470 t2s_1(0, 2)
471 - (t4ddg_2(0, 2, 0, 0) * t2_3(0, 0) + t4ddg_2(0, 2, 0, 1) * t2_3(0, 1)
472 + t4ddg_2(0, 2, 0, 2) * t2_3(0, 2) + t4ddg_2(0, 2, 1, 0) * t2_3(1, 0)
473 + t4ddg_2(0, 2, 1, 1) * t2_3(1, 1) + t4ddg_2(0, 2, 1, 2) * t2_3(1, 2)
474 + t4ddg_2(0, 2, 2, 0) * t2_3(2, 0) + t4ddg_2(0, 2, 2, 1) * t2_3(2, 1)
475 + t4ddg_2(0, 2, 2, 2) * t2_3(2, 2)),
476 "T2(l,j)*T4ddg(i,j,k,l)(0,2)");
477 test_for_zero(
478 t2s_1(1, 0)
479 - (t4ddg_2(1, 0, 0, 0) * t2_3(0, 0) + t4ddg_2(1, 0, 0, 1) * t2_3(0, 1)
480 + t4ddg_2(1, 0, 0, 2) * t2_3(0, 2) + t4ddg_2(1, 0, 1, 0) * t2_3(1, 0)
481 + t4ddg_2(1, 0, 1, 1) * t2_3(1, 1) + t4ddg_2(1, 0, 1, 2) * t2_3(1, 2)
482 + t4ddg_2(1, 0, 2, 0) * t2_3(2, 0) + t4ddg_2(1, 0, 2, 1) * t2_3(2, 1)
483 + t4ddg_2(1, 0, 2, 2) * t2_3(2, 2)),
484 "T2(l,j)*T4ddg(i,j,k,l)(1,0)");
485 test_for_zero(
486 t2s_1(1, 1)
487 - (t4ddg_2(1, 1, 0, 0) * t2_3(0, 0) + t4ddg_2(1, 1, 0, 1) * t2_3(0, 1)
488 + t4ddg_2(1, 1, 0, 2) * t2_3(0, 2) + t4ddg_2(1, 1, 1, 0) * t2_3(1, 0)
489 + t4ddg_2(1, 1, 1, 1) * t2_3(1, 1) + t4ddg_2(1, 1, 1, 2) * t2_3(1, 2)
490 + t4ddg_2(1, 1, 2, 0) * t2_3(2, 0) + t4ddg_2(1, 1, 2, 1) * t2_3(2, 1)
491 + t4ddg_2(1, 1, 2, 2) * t2_3(2, 2)),
492 "T2(l,j)*T4ddg(i,j,k,l)(1,1)");
493 test_for_zero(
494 t2s_1(1, 2)
495 - (t4ddg_2(1, 2, 0, 0) * t2_3(0, 0) + t4ddg_2(1, 2, 0, 1) * t2_3(0, 1)
496 + t4ddg_2(1, 2, 0, 2) * t2_3(0, 2) + t4ddg_2(1, 2, 1, 0) * t2_3(1, 0)
497 + t4ddg_2(1, 2, 1, 1) * t2_3(1, 1) + t4ddg_2(1, 2, 1, 2) * t2_3(1, 2)
498 + t4ddg_2(1, 2, 2, 0) * t2_3(2, 0) + t4ddg_2(1, 2, 2, 1) * t2_3(2, 1)
499 + t4ddg_2(1, 2, 2, 2) * t2_3(2, 2)),
500 "T2(l,j)*T4ddg(i,j,k,l)(1,2)");
501 test_for_zero(
502 t2s_1(2, 0)
503 - (t4ddg_2(2, 0, 0, 0) * t2_3(0, 0) + t4ddg_2(2, 0, 0, 1) * t2_3(0, 1)
504 + t4ddg_2(2, 0, 0, 2) * t2_3(0, 2) + t4ddg_2(2, 0, 1, 0) * t2_3(1, 0)
505 + t4ddg_2(2, 0, 1, 1) * t2_3(1, 1) + t4ddg_2(2, 0, 1, 2) * t2_3(1, 2)
506 + t4ddg_2(2, 0, 2, 0) * t2_3(2, 0) + t4ddg_2(2, 0, 2, 1) * t2_3(2, 1)
507 + t4ddg_2(2, 0, 2, 2) * t2_3(2, 2)),
508 "T2(l,j)*T4ddg(i,j,k,l)(2,0)");
509 test_for_zero(
510 t2s_1(2, 1)
511 - (t4ddg_2(2, 1, 0, 0) * t2_3(0, 0) + t4ddg_2(2, 1, 0, 1) * t2_3(0, 1)
512 + t4ddg_2(2, 1, 0, 2) * t2_3(0, 2) + t4ddg_2(2, 1, 1, 0) * t2_3(1, 0)
513 + t4ddg_2(2, 1, 1, 1) * t2_3(1, 1) + t4ddg_2(2, 1, 1, 2) * t2_3(1, 2)
514 + t4ddg_2(2, 1, 2, 0) * t2_3(2, 0) + t4ddg_2(2, 1, 2, 1) * t2_3(2, 1)
515 + t4ddg_2(2, 1, 2, 2) * t2_3(2, 2)),
516 "T2(l,j)*T4ddg(i,j,k,l)(2,1)");
517 test_for_zero(
518 t2s_1(2, 2)
519 - (t4ddg_2(2, 2, 0, 0) * t2_3(0, 0) + t4ddg_2(2, 2, 0, 1) * t2_3(0, 1)
520 + t4ddg_2(2, 2, 0, 2) * t2_3(0, 2) + t4ddg_2(2, 2, 1, 0) * t2_3(1, 0)
521 + t4ddg_2(2, 2, 1, 1) * t2_3(1, 1) + t4ddg_2(2, 2, 1, 2) * t2_3(1, 2)
522 + t4ddg_2(2, 2, 2, 0) * t2_3(2, 0) + t4ddg_2(2, 2, 2, 1) * t2_3(2, 1)
523 + t4ddg_2(2, 2, 2, 2) * t2_3(2, 2)),
524 "T2(l,j)*T4ddg(i,j,k,l)(2,2)");
525
526 t3dg_1(i, j, k) = t4ddg_2(i, j, l, k) * t1_2(l);
527 test_for_zero(t3dg_1(0, 0, 0)
528 - (t4ddg_2(0, 0, 0, 0) * t1_2(0)
529 + t4ddg_2(0, 0, 1, 0) * t1_2(1)
530 + t4ddg_2(0, 0, 2, 0) * t1_2(2)),
531 "T4ddg(i,j,l,k)*T1(l)(0,0,0)");
532 test_for_zero(t3dg_1(0, 0, 1)
533 - (t4ddg_2(0, 0, 0, 1) * t1_2(0)
534 + t4ddg_2(0, 0, 1, 1) * t1_2(1)
535 + t4ddg_2(0, 0, 2, 1) * t1_2(2)),
536 "T4ddg(i,j,l,k)*T1(l)(0,0,1)");
537 test_for_zero(t3dg_1(0, 0, 2)
538 - (t4ddg_2(0, 0, 0, 2) * t1_2(0)
539 + t4ddg_2(0, 0, 1, 2) * t1_2(1)
540 + t4ddg_2(0, 0, 2, 2) * t1_2(2)),
541 "T4ddg(i,j,l,k)*T1(l)(0,0,2)");
542 test_for_zero(t3dg_1(0, 1, 0)
543 - (t4ddg_2(0, 1, 0, 0) * t1_2(0)
544 + t4ddg_2(0, 1, 1, 0) * t1_2(1)
545 + t4ddg_2(0, 1, 2, 0) * t1_2(2)),
546 "T4ddg(i,j,l,k)*T1(l)(0,1,0)");
547 test_for_zero(t3dg_1(0, 1, 1)
548 - (t4ddg_2(0, 1, 0, 1) * t1_2(0)
549 + t4ddg_2(0, 1, 1, 1) * t1_2(1)
550 + t4ddg_2(0, 1, 2, 1) * t1_2(2)),
551 "T4ddg(i,j,l,k)*T1(l)(0,1,1)");
552 test_for_zero(t3dg_1(0, 1, 2)
553 - (t4ddg_2(0, 1, 0, 2) * t1_2(0)
554 + t4ddg_2(0, 1, 1, 2) * t1_2(1)
555 + t4ddg_2(0, 1, 2, 2) * t1_2(2)),
556 "T4ddg(i,j,l,k)*T1(l)(0,1,2)");
557 test_for_zero(t3dg_1(0, 2, 0)
558 - (t4ddg_2(0, 2, 0, 0) * t1_2(0)
559 + t4ddg_2(0, 2, 1, 0) * t1_2(1)
560 + t4ddg_2(0, 2, 2, 0) * t1_2(2)),
561 "T4ddg(i,j,l,k)*T1(l)(0,2,0)");
562 test_for_zero(t3dg_1(0, 2, 1)
563 - (t4ddg_2(0, 2, 0, 1) * t1_2(0)
564 + t4ddg_2(0, 2, 1, 1) * t1_2(1)
565 + t4ddg_2(0, 2, 2, 1) * t1_2(2)),
566 "T4ddg(i,j,l,k)*T1(l)(0,2,1)");
567 test_for_zero(t3dg_1(0, 2, 2)
568 - (t4ddg_2(0, 2, 0, 2) * t1_2(0)
569 + t4ddg_2(0, 2, 1, 2) * t1_2(1)
570 + t4ddg_2(0, 2, 2, 2) * t1_2(2)),
571 "T4ddg(i,j,l,k)*T1(l)(0,2,2)");
572 test_for_zero(t3dg_1(1, 0, 0)
573 - (t4ddg_2(1, 0, 0, 0) * t1_2(0)
574 + t4ddg_2(1, 0, 1, 0) * t1_2(1)
575 + t4ddg_2(1, 0, 2, 0) * t1_2(2)),
576 "T4ddg(i,j,l,k)*T1(l)(1,0,0)");
577 test_for_zero(t3dg_1(1, 0, 1)
578 - (t4ddg_2(1, 0, 0, 1) * t1_2(0)
579 + t4ddg_2(1, 0, 1, 1) * t1_2(1)
580 + t4ddg_2(1, 0, 2, 1) * t1_2(2)),
581 "T4ddg(i,j,l,k)*T1(l)(1,0,1)");
582 test_for_zero(t3dg_1(1, 0, 2)
583 - (t4ddg_2(1, 0, 0, 2) * t1_2(0)
584 + t4ddg_2(1, 0, 1, 2) * t1_2(1)
585 + t4ddg_2(1, 0, 2, 2) * t1_2(2)),
586 "T4ddg(i,j,l,k)*T1(l)(1,0,2)");
587 test_for_zero(t3dg_1(1, 1, 0)
588 - (t4ddg_2(1, 1, 0, 0) * t1_2(0)
589 + t4ddg_2(1, 1, 1, 0) * t1_2(1)
590 + t4ddg_2(1, 1, 2, 0) * t1_2(2)),
591 "T4ddg(i,j,l,k)*T1(l)(1,1,0)");
592 test_for_zero(t3dg_1(1, 1, 1)
593 - (t4ddg_2(1, 1, 0, 1) * t1_2(0)
594 + t4ddg_2(1, 1, 1, 1) * t1_2(1)
595 + t4ddg_2(1, 1, 2, 1) * t1_2(2)),
596 "T4ddg(i,j,l,k)*T1(l)(1,1,1)");
597 test_for_zero(t3dg_1(1, 1, 2)
598 - (t4ddg_2(1, 1, 0, 2) * t1_2(0)
599 + t4ddg_2(1, 1, 1, 2) * t1_2(1)
600 + t4ddg_2(1, 1, 2, 2) * t1_2(2)),
601 "T4ddg(i,j,l,k)*T1(l)(1,1,2)");
602 test_for_zero(t3dg_1(1, 2, 0)
603 - (t4ddg_2(1, 2, 0, 0) * t1_2(0)
604 + t4ddg_2(1, 2, 1, 0) * t1_2(1)
605 + t4ddg_2(1, 2, 2, 0) * t1_2(2)),
606 "T4ddg(i,j,l,k)*T1(l)(1,2,0)");
607 test_for_zero(t3dg_1(1, 2, 1)
608 - (t4ddg_2(1, 2, 0, 1) * t1_2(0)
609 + t4ddg_2(1, 2, 1, 1) * t1_2(1)
610 + t4ddg_2(1, 2, 2, 1) * t1_2(2)),
611 "T4ddg(i,j,l,k)*T1(l)(1,2,1)");
612 test_for_zero(t3dg_1(1, 2, 2)
613 - (t4ddg_2(1, 2, 0, 2) * t1_2(0)
614 + t4ddg_2(1, 2, 1, 2) * t1_2(1)
615 + t4ddg_2(1, 2, 2, 2) * t1_2(2)),
616 "T4ddg(i,j,l,k)*T1(l)(1,2,2)");
617 test_for_zero(t3dg_1(2, 0, 0)
618 - (t4ddg_2(2, 0, 0, 0) * t1_2(0)
619 + t4ddg_2(2, 0, 1, 0) * t1_2(1)
620 + t4ddg_2(2, 0, 2, 0) * t1_2(2)),
621 "T4ddg(i,j,l,k)*T1(l)(2,0,0)");
622 test_for_zero(t3dg_1(2, 0, 1)
623 - (t4ddg_2(2, 0, 0, 1) * t1_2(0)
624 + t4ddg_2(2, 0, 1, 1) * t1_2(1)
625 + t4ddg_2(2, 0, 2, 1) * t1_2(2)),
626 "T4ddg(i,j,l,k)*T1(l)(2,0,1)");
627 test_for_zero(t3dg_1(2, 0, 2)
628 - (t4ddg_2(2, 0, 0, 2) * t1_2(0)
629 + t4ddg_2(2, 0, 1, 2) * t1_2(1)
630 + t4ddg_2(2, 0, 2, 2) * t1_2(2)),
631 "T4ddg(i,j,l,k)*T1(l)(2,0,2)");
632 test_for_zero(t3dg_1(2, 1, 0)
633 - (t4ddg_2(2, 1, 0, 0) * t1_2(0)
634 + t4ddg_2(2, 1, 1, 0) * t1_2(1)
635 + t4ddg_2(2, 1, 2, 0) * t1_2(2)),
636 "T4ddg(i,j,l,k)*T1(l)(2,1,0)");
637 test_for_zero(t3dg_1(2, 1, 1)
638 - (t4ddg_2(2, 1, 0, 1) * t1_2(0)
639 + t4ddg_2(2, 1, 1, 1) * t1_2(1)
640 + t4ddg_2(2, 1, 2, 1) * t1_2(2)),
641 "T4ddg(i,j,l,k)*T1(l)(2,1,1)");
642 test_for_zero(t3dg_1(2, 1, 2)
643 - (t4ddg_2(2, 1, 0, 2) * t1_2(0)
644 + t4ddg_2(2, 1, 1, 2) * t1_2(1)
645 + t4ddg_2(2, 1, 2, 2) * t1_2(2)),
646 "T4ddg(i,j,l,k)*T1(l)(2,1,2)");
647 test_for_zero(t3dg_1(2, 2, 0)
648 - (t4ddg_2(2, 2, 0, 0) * t1_2(0)
649 + t4ddg_2(2, 2, 1, 0) * t1_2(1)
650 + t4ddg_2(2, 2, 2, 0) * t1_2(2)),
651 "T4ddg(i,j,l,k)*T1(l)(2,2,0)");
652 test_for_zero(t3dg_1(2, 2, 1)
653 - (t4ddg_2(2, 2, 0, 1) * t1_2(0)
654 + t4ddg_2(2, 2, 1, 1) * t1_2(1)
655 + t4ddg_2(2, 2, 2, 1) * t1_2(2)),
656 "T4ddg(i,j,l,k)*T1(l)(2,2,1)");
657 test_for_zero(t3dg_1(2, 2, 2)
658 - (t4ddg_2(2, 2, 0, 2) * t1_2(0)
659 + t4ddg_2(2, 2, 1, 2) * t1_2(1)
660 + t4ddg_2(2, 2, 2, 2) * t1_2(2)),
661 "T4ddg(i,j,l,k)*T1(l)(2,2,2)");
662}

◆ test_T4ddg_05()

void test_T4ddg_05 ( Tensor1< double, 3 > &  t1_1,
const Tensor1< double, 3 > &  t1_2,
Tensor2< double, 3, 3 > &  t2_1,
Tensor2_symmetric< double, 3 > &  t2s_1,
const Tensor2_symmetric< double, 3 > &  t2s_2,
const Tensor2_symmetric< double, 3 > &  t2s_3,
Dg< double, 3, 3 > &  t3dg_1,
const Dg< double, 3, 3 > &  t3dg_2,
const Dg< double, 3, 3 > &  t3dg_3 
)

Definition at line 7 of file test_T4ddg_05.cpp.

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