v0.14.0
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_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 }

◆ 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 }

◆ 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 }
test_T4ddg_02
void test_T4ddg_02(const Tensor2_symmetric< double, 3 > &t2s_2)
Definition: test_T4ddg_02.cpp:7
FTensor::Christof
Definition: Christof_value.hpp:9
FTensor::Tensor1< double, 3 >
FTensor::Tensor2_symmetric
Definition: Tensor2_symmetric_value.hpp:13
FTensor::Tensor2< double, 3, 3 >
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
FTensor::Number< 0 >
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_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_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_for_zero
void test_for_zero(const T &t, const std::string &s)
Definition: test_for_zero.hpp:7
FTensor::Tensor4
Definition: Tensor4_value.hpp:18
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
i
FTensor::Index< 'i', SPACE_DIM > i
Definition: hcurl_divergence_operator_2d.cpp:27
FTensor::Index< 'i', 3 >
convert.n
n
Definition: convert.py:82
v
const double v
phase velocity of light in medium (cm/ns)
Definition: initial_diffusion.cpp:40
FTensor::Dg
Definition: Dg_value.hpp:9
j
FTensor::Index< 'j', 3 > j
Definition: matrix_function.cpp:19
FTensor::Ddg< double, 3, 3 >
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
m
FTensor::Index< 'm', 3 > m
Definition: shallow_wave.cpp:80
k
FTensor::Index< 'k', 3 > k
Definition: matrix_function.cpp:20
l
FTensor::Index< 'l', 3 > l
Definition: matrix_function.cpp:21
Generated by Doxygen 1.8.17 and hosted at University of Glasgow