v0.14.0
Functions
test_T3dg.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_T3dg_01 (Tensor1< double, 3 > &t1_1, const Dg< double, 3, 3 > &t3dg_2)
 
void test_T3dg_02 (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_T3dg_03 (Tensor2_symmetric< double, 3 > &t2s_1, const Dg< double, 3, 3 > &t3dg_2)
 
void test_T3dg_04 (Tensor2< double, 3, 3 > &t2_1, const Dg< double, 3, 3 > &t3dg_2)
 
void test_T3dg_05 (Tensor2< double, 3, 3 > &t2_1, const Dg< double, 3, 3 > &t3dg_2)
 
void test_T3dg_06 (Tensor2_symmetric< double, 3 > &t2s_1, const Dg< double, 3, 3 > &t3dg_2)
 
void test_T3dg_07 (Tensor2< double, 3, 3 > &t2_1, const Dg< double, 3, 3 > &t3dg_2)
 
void test_T3dg_08 (Tensor2< double, 3, 3 > &t2_1, const Dg< double, 3, 3 > &t3dg_2)
 
void test_T3dg_09 (const Tensor1< double, 3 > &t1_2, const Tensor2_symmetric< double, 3 > &t2s_2, Dg< double, 3, 3 > &t3dg_1)
 
void test_T3dg_10 (Dg< double, 3, 3 > &t3dg_1)
 
void test_T3dg_11 (Dg< double, 3, 3 > &t3dg_1, const Dg< double, 3, 3 > &t3dg_2, const Dg< double, 3, 3 > &t3dg_3)
 
void test_T3dg_12 (Dg< double, 3, 3 > &t3dg_1, const Dg< double, 3, 3 > &t3dg_2, const Dg< double, 3, 3 > &t3dg_3)
 
void test_T3dg_13 (Dg< double, 3, 3 > &t3dg_1, const Dg< double, 3, 3 > &t3dg_2, const Dg< double, 3, 3 > &t3dg_3)
 
void test_T3dg_14 (Dg< double, 3, 3 > &t3dg_1, const Dg< double, 3, 3 > &t3dg_2)
 
void test_T3dg_15 (const Tensor1< double, 3 > &t1_2, Dg< double, 3, 3 > &t3dg_1, const Dg< double, 3, 3 > &t3dg_2, const Dg< double, 3, 3 > &t3dg_3)
 
void test_T3dg_16 (Dg< double, 3, 3 > &t3dg_1, const Dg< double, 3, 3 > &t3dg_2)
 
void test_T3dg_17 (const Tensor1< double, 3 > &t1_2, Tensor2_symmetric< double, 3 > &t2s_1, const Dg< double, 3, 3 > &t3dg_2, const Dg< double, 3, 3 > &t3dg_3)
 
void test_T3dg_18 (const Tensor1< double, 3 > &t1_2, Tensor2< double, 3, 3 > &t2_1, const Dg< double, 3, 3 > &t3dg_2, const Dg< double, 3, 3 > &t3dg_3)
 
void test_T3dg_19 (const Tensor1< double, 3 > &t1_2, Tensor2< double, 3, 3 > &t2_1, const Dg< double, 3, 3 > &t3dg_2, const Dg< double, 3, 3 > &t3dg_3)
 
void test_T3dg_20 (const Tensor2< double, 3, 3 > &t2_2, Dg< double, 3, 3 > &t3dg_1, const Dg< double, 3, 3 > &t3dg_2, const Dg< double, 3, 3 > &t3dg_3)
 
void test_T3dg_21 (const Tensor2< double, 3, 3 > &t2_2, Dg< double, 3, 3 > &t3dg_1, const Dg< double, 3, 3 > &t3dg_2, const Dg< double, 3, 3 > &t3dg_3)
 
void test_T3dg_22 (Tensor1< double, 3 > &t1_1, const Tensor2< double, 3, 3 > &t2_2, const Dg< double, 3, 3 > &t3dg_2)
 
void test_T3dg_23 (Tensor1< double, 3 > &t1_1, const Tensor2< double, 3, 3 > &t2_2, const Dg< double, 3, 3 > &t3dg_2)
 
void test_T3dg_24 (Tensor1< double, 3 > &t1_1, const Tensor2< double, 3, 3 > &t2_2, const Dg< double, 3, 3 > &t3dg_2)
 
void test_T3dg_25 (Tensor1< double, 3 > &t1_1, const Tensor2< double, 3, 3 > &t2_2, const Dg< double, 3, 3 > &t3dg_2)
 
void test_T3dg_26 (Tensor1< double, 3 > &t1_1, const Tensor2< double, 3, 3 > &t2_2, const Dg< double, 3, 3 > &t3dg_2)
 
void test_T3dg_27 (Tensor1< double, 3 > &t1_1, const Tensor2< double, 3, 3 > &t2_2, const Dg< double, 3, 3 > &t3dg_2)
 
void test_T3dg_28 (const Tensor2_symmetric< double, 3 > &t2s_2, Dg< double, 3, 3 > &t3dg_1, const Dg< double, 3, 3 > &t3dg_2, const Dg< double, 3, 3 > &t3dg_3)
 
void test_T3dg_29 (const Tensor2_symmetric< double, 3 > &t2s_2, Dg< double, 3, 3 > &t3dg_1, const Dg< double, 3, 3 > &t3dg_2, const Dg< double, 3, 3 > &t3dg_3)
 
void test_T3dg_30 (Tensor1< double, 3 > &t1_1, const Tensor2_symmetric< double, 3 > &t2s_2, const Dg< double, 3, 3 > &t3dg_2)
 
void test_T3dg_31 (Tensor1< double, 3 > &t1_1, const Tensor2_symmetric< double, 3 > &t2s_2, const Dg< double, 3, 3 > &t3dg_2)
 
void test_T3dg_32 (Tensor1< double, 3 > &t1_1, const Tensor2_symmetric< double, 3 > &t2s_2, const Dg< double, 3, 3 > &t3dg_2)
 
void test_T3dg_33 (Tensor1< double, 3 > &t1_1, const Tensor2_symmetric< double, 3 > &t2s_2, const Dg< double, 3, 3 > &t3dg_2)
 
void test_T3dg_34 (Tensor1< double, 3 > &t1_1, const Tensor2_symmetric< double, 3 > &t2s_2, const Dg< double, 3, 3 > &t3dg_2)
 
void test_T3dg_35 (Tensor1< double, 3 > &t1_1, const Tensor2_symmetric< double, 3 > &t2s_2, const Dg< double, 3, 3 > &t3dg_2)
 
void test_T3dg_36 (Tensor2< double, 3, 3 > &t2_1, const Tensor2_symmetric< double, 3 > &t2s_2, Dg< double, 3, 3 > &t3dg_1, const Dg< double, 3, 3 > &t3dg_2, const Dg< double, 3, 3 > &t3dg_3)
 
void test_T3dg_37 (const Tensor2< double, 3, 3 > &t2_2, const Tensor2_symmetric< double, 3 > &t2s_2, const Dg< double, 3, 3 > &t3dg_2, const Dg< double, 3, 3 > &t3dg_3)
 
void test_T3dg_038 (const Dg< double, 3, 3 > &t3dg_2, const Dg< double, 3, 3 > &t3dg_3)
 
void test_T3dg (Tensor1< double, 3 > &t1_1, const Tensor1< double, 3 > &t1_2, Tensor2< double, 3, 3 > &t2_1, const Tensor2< double, 3, 3 > &t2_2, 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_T3dg()

void test_T3dg ( Tensor1< double, 3 > &  t1_1,
const Tensor1< double, 3 > &  t1_2,
Tensor2< double, 3, 3 > &  t2_1,
const Tensor2< double, 3, 3 > &  t2_2,
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 98 of file test_T3dg.cpp.

105 {
106  test_T3dg_01(t1_1, t3dg_2);
107  test_T3dg_02(t2s_1, t2s_2, t2s_3, t3dg_1);
108  test_T3dg_03(t2s_1, t3dg_2);
109  test_T3dg_04(t2_1, t3dg_2);
110  test_T3dg_05(t2_1, t3dg_2);
111  test_T3dg_06(t2s_1, t3dg_2);
112  test_T3dg_07(t2_1, t3dg_2);
113  test_T3dg_08(t2_1, t3dg_2);
114  test_T3dg_09(t1_2, t2s_2, t3dg_1);
115  test_T3dg_10(t3dg_1);
116  test_T3dg_11(t3dg_1, t3dg_2, t3dg_3);
117  test_T3dg_12(t3dg_1, t3dg_2, t3dg_3);
118  test_T3dg_13(t3dg_1, t3dg_2, t3dg_3);
119  test_T3dg_14(t3dg_1, t3dg_2);
120  test_T3dg_15(t1_2, t3dg_1, t3dg_2, t3dg_3);
121  test_T3dg_16(t3dg_1, t3dg_2);
122  test_T3dg_17(t1_2, t2s_1, t3dg_2, t3dg_3);
123  test_T3dg_18(t1_2, t2_1, t3dg_2, t3dg_3);
124  test_T3dg_19(t1_2, t2_1, t3dg_2, t3dg_3);
125  test_T3dg_20(t2_2, t3dg_1, t3dg_2, t3dg_3);
126  test_T3dg_21(t2_2, t3dg_1, t3dg_2, t3dg_3);
127  test_T3dg_22(t1_1, t2_2, t3dg_2);
128  test_T3dg_23(t1_1, t2_2, t3dg_2);
129  test_T3dg_24(t1_1, t2_2, t3dg_2);
130  test_T3dg_25(t1_1, t2_2, t3dg_2);
131  test_T3dg_26(t1_1, t2_2, t3dg_2);
132  test_T3dg_27(t1_1, t2_2, t3dg_2);
133  test_T3dg_28(t2s_2, t3dg_1, t3dg_2, t3dg_3);
134  test_T3dg_29(t2s_2, t3dg_1, t3dg_2, t3dg_3);
135  test_T3dg_30(t1_1, t2s_2, t3dg_2);
136  test_T3dg_31(t1_1, t2s_2, t3dg_2);
137  test_T3dg_32(t1_1, t2s_2, t3dg_2);
138  test_T3dg_33(t1_1, t2s_2, t3dg_2);
139  test_T3dg_34(t1_1, t2s_2, t3dg_2);
140  test_T3dg_35(t1_1, t2s_2, t3dg_2);
141  test_T3dg_36(t2_1, t2s_2, t3dg_1, t3dg_2, t3dg_3);
142  test_T3dg_37(t2_2, t2s_2, t3dg_2, t3dg_3);
143  test_T3dg_038(t3dg_2, t3dg_3);
144 }

◆ test_T3dg_01()

void test_T3dg_01 ( Tensor1< double, 3 > &  t1_1,
const Dg< double, 3, 3 > &  t3dg_2 
)

Definition at line 7 of file test_T3dg_01.cpp.

8 {
9  Index<'i', 3> i;
10  Index<'j', 3> j;
11 
12  Number<0> N0;
13  Number<1> N1;
14  Number<2> N2;
15 
16  /* Dg tests */
17 
18  t1_1(i) = t3dg_2(i, j, j);
19  test_for_zero(t1_1(0)
20  - (t3dg_2(0, 0, 0) + t3dg_2(0, 1, 1) + t3dg_2(0, 2, 2)),
21  "T3dg(i,j,j)(0)");
22  test_for_zero(t1_1(1)
23  - (t3dg_2(1, 0, 0) + t3dg_2(1, 1, 1) + t3dg_2(1, 2, 2)),
24  "T3dg(i,j,j)(1)");
25  test_for_zero(t1_1(2)
26  - (t3dg_2(2, 0, 0) + t3dg_2(2, 1, 1) + t3dg_2(2, 2, 2)),
27  "T3dg(i,j,j)(2)");
28  t1_1(i) = t3dg_2(j, i, j);
29  test_for_zero(t1_1(0)
30  - (t3dg_2(0, 0, 0) + t3dg_2(1, 0, 1) + t3dg_2(2, 0, 2)),
31  "T3dg(j,i,j)(0)");
32  test_for_zero(t1_1(1)
33  - (t3dg_2(0, 1, 0) + t3dg_2(1, 1, 1) + t3dg_2(2, 1, 2)),
34  "T3dg(j,i,j)(1)");
35  test_for_zero(t1_1(2)
36  - (t3dg_2(0, 2, 0) + t3dg_2(1, 2, 1) + t3dg_2(2, 2, 2)),
37  "T3dg(j,i,j)(2)");
38  t1_1(i) = t3dg_2(j, j, i);
39  test_for_zero(t1_1(0)
40  - (t3dg_2(0, 0, 0) + t3dg_2(1, 1, 0) + t3dg_2(2, 2, 0)),
41  "T3dg(j,j,i)(0)");
42  test_for_zero(t1_1(1)
43  - (t3dg_2(0, 0, 1) + t3dg_2(1, 1, 1) + t3dg_2(2, 2, 1)),
44  "T3dg(j,j,i)(1)");
45  test_for_zero(t1_1(2)
46  - (t3dg_2(0, 0, 2) + t3dg_2(1, 1, 2) + t3dg_2(2, 2, 2)),
47  "T3dg(j,j,i)(2)");
48 }

◆ test_T3dg_02()

void test_T3dg_02 ( 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_T3dg_02.cpp.

11 {
12  Index<'i', 3> i;
13  Index<'j', 3> j;
14 
15  Number<0> N0;
16  Number<1> N1;
17  Number<2> N2;
18 
19  /* First Number<> tests */
20 
21  t3dg_1(i, j, N0) = t2s_1(i, j);
22  t3dg_1(i, j, N1) = t2s_2(i, j);
23  t3dg_1(i, j, N2) = t2s_3(i, j);
24  test_for_zero(t3dg_1(0, 0, 0) - t2s_1(0, 0), "T3dg(i,j,N)=T2s(i,j)(0,0,0)");
25  test_for_zero(t3dg_1(0, 1, 0) - t2s_1(0, 1), "T3dg(i,j,N)=T2s(i,j)(0,1,0)");
26  test_for_zero(t3dg_1(0, 2, 0) - t2s_1(0, 2), "T3dg(i,j,N)=T2s(i,j)(0,2,0)");
27  test_for_zero(t3dg_1(1, 1, 0) - t2s_1(1, 1), "T3dg(i,j,N)=T2s(i,j)(1,1,0)");
28  test_for_zero(t3dg_1(1, 2, 0) - t2s_1(1, 2), "T3dg(i,j,N)=T2s(i,j)(1,2,0)");
29  test_for_zero(t3dg_1(2, 2, 0) - t2s_1(2, 2), "T3dg(i,j,N)=T2s(i,j)(2,2,0)");
30  test_for_zero(t3dg_1(0, 0, 1) - t2s_2(0, 0), "T3dg(i,j,N)=T2s(i,j)(0,0,1)");
31  test_for_zero(t3dg_1(0, 1, 1) - t2s_2(0, 1), "T3dg(i,j,N)=T2s(i,j)(0,1,1)");
32  test_for_zero(t3dg_1(0, 2, 1) - t2s_2(0, 2), "T3dg(i,j,N)=T2s(i,j)(0,2,1)");
33  test_for_zero(t3dg_1(1, 1, 1) - t2s_2(1, 1), "T3dg(i,j,N)=T2s(i,j)(1,1,1)");
34  test_for_zero(t3dg_1(1, 2, 1) - t2s_2(1, 2), "T3dg(i,j,N)=T2s(i,j)(1,2,1)");
35  test_for_zero(t3dg_1(2, 2, 1) - t2s_2(2, 2), "T3dg(i,j,N)=T2s(i,j)(2,2,1)");
36  test_for_zero(t3dg_1(0, 0, 2) - t2s_3(0, 0), "T3dg(i,j,N)=T2s(i,j)(0,0,2)");
37  test_for_zero(t3dg_1(0, 1, 2) - t2s_3(0, 1), "T3dg(i,j,N)=T2s(i,j)(0,1,2)");
38  test_for_zero(t3dg_1(0, 2, 2) - t2s_3(0, 2), "T3dg(i,j,N)=T2s(i,j)(0,2,2)");
39  test_for_zero(t3dg_1(1, 1, 2) - t2s_3(1, 1), "T3dg(i,j,N)=T2s(i,j)(1,1,2)");
40  test_for_zero(t3dg_1(1, 2, 2) - t2s_3(1, 2), "T3dg(i,j,N)=T2s(i,j)(1,2,2)");
41  test_for_zero(t3dg_1(2, 2, 2) - t2s_3(2, 2), "T3dg(i,j,N)=T2s(i,j)(2,2,2)");
42 }

◆ test_T3dg_03()

void test_T3dg_03 ( Tensor2_symmetric< double, 3 > &  t2s_1,
const Dg< double, 3, 3 > &  t3dg_2 
)

Definition at line 7 of file test_T3dg_03.cpp.

9 {
10  Index<'i', 3> i;
11  Index<'j', 3> j;
12 
13  Number<0> N0;
14  Number<1> N1;
15  Number<2> N2;
16 
17  t2s_1(i, j) = t3dg_2(i, j, N0);
18  test_for_zero(t3dg_2(0, 0, 0) - t2s_1(0, 0), "T2s(i,j)=T3dg(i,j,N)(0,0,0)");
19  test_for_zero(t3dg_2(0, 1, 0) - t2s_1(0, 1), "T2s(i,j)=T3dg(i,j,N)(0,0,1)");
20  test_for_zero(t3dg_2(0, 2, 0) - t2s_1(0, 2), "T2s(i,j)=T3dg(i,j,N)(0,0,2)");
21  test_for_zero(t3dg_2(1, 0, 0) - t2s_1(1, 0), "T2s(i,j)=T3dg(i,j,N)(0,1,0)");
22  test_for_zero(t3dg_2(1, 1, 0) - t2s_1(1, 1), "T2s(i,j)=T3dg(i,j,N)(0,1,1)");
23  test_for_zero(t3dg_2(1, 2, 0) - t2s_1(1, 2), "T2s(i,j)=T3dg(i,j,N)(0,1,2)");
24  test_for_zero(t3dg_2(2, 0, 0) - t2s_1(2, 0), "T2s(i,j)=T3dg(i,j,N)(0,2,0)");
25  test_for_zero(t3dg_2(2, 1, 0) - t2s_1(2, 1), "T2s(i,j)=T3dg(i,j,N)(0,2,1)");
26  test_for_zero(t3dg_2(2, 2, 0) - t2s_1(2, 2), "T2s(i,j)=T3dg(i,j,N)(0,2,2)");
27 
28  t2s_1(i, j) = t3dg_2(i, j, N1);
29  test_for_zero(t3dg_2(0, 0, 1) - t2s_1(0, 0), "T2s(i,j)=T3dg(i,j,N)(1,0,0)");
30  test_for_zero(t3dg_2(0, 1, 1) - t2s_1(0, 1), "T2s(i,j)=T3dg(i,j,N)(1,0,1)");
31  test_for_zero(t3dg_2(0, 2, 1) - t2s_1(0, 2), "T2s(i,j)=T3dg(i,j,N)(1,0,2)");
32  test_for_zero(t3dg_2(1, 0, 1) - t2s_1(1, 0), "T2s(i,j)=T3dg(i,j,N)(1,1,0)");
33  test_for_zero(t3dg_2(1, 1, 1) - t2s_1(1, 1), "T2s(i,j)=T3dg(i,j,N)(1,1,1)");
34  test_for_zero(t3dg_2(1, 2, 1) - t2s_1(1, 2), "T2s(i,j)=T3dg(i,j,N)(1,1,2)");
35  test_for_zero(t3dg_2(2, 0, 1) - t2s_1(2, 0), "T2s(i,j)=T3dg(i,j,N)(1,2,0)");
36  test_for_zero(t3dg_2(2, 1, 1) - t2s_1(2, 1), "T2s(i,j)=T3dg(i,j,N)(1,2,1)");
37  test_for_zero(t3dg_2(2, 2, 1) - t2s_1(2, 2), "T2s(i,j)=T3dg(i,j,N)(1,2,2)");
38 
39  t2s_1(i, j) = t3dg_2(i, j, N2);
40  test_for_zero(t3dg_2(0, 0, 2) - t2s_1(0, 0), "T2s(i,j)=T3dg(i,j,N)(2,0,0)");
41  test_for_zero(t3dg_2(0, 1, 2) - t2s_1(0, 1), "T2s(i,j)=T3dg(i,j,N)(2,0,1)");
42  test_for_zero(t3dg_2(0, 2, 2) - t2s_1(0, 2), "T2s(i,j)=T3dg(i,j,N)(2,0,2)");
43  test_for_zero(t3dg_2(1, 0, 2) - t2s_1(1, 0), "T2s(i,j)=T3dg(i,j,N)(2,1,0)");
44  test_for_zero(t3dg_2(1, 1, 2) - t2s_1(1, 1), "T2s(i,j)=T3dg(i,j,N)(2,1,1)");
45  test_for_zero(t3dg_2(1, 2, 2) - t2s_1(1, 2), "T2s(i,j)=T3dg(i,j,N)(2,1,2)");
46  test_for_zero(t3dg_2(2, 0, 2) - t2s_1(2, 0), "T2s(i,j)=T3dg(i,j,N)(2,2,0)");
47  test_for_zero(t3dg_2(2, 1, 2) - t2s_1(2, 1), "T2s(i,j)=T3dg(i,j,N)(2,2,1)");
48  test_for_zero(t3dg_2(2, 2, 2) - t2s_1(2, 2), "T2s(i,j)=T3dg(i,j,N)(2,2,2)");
49 }

◆ test_T3dg_038()

void test_T3dg_038 ( const Dg< double, 3, 3 > &  t3dg_2,
const Dg< double, 3, 3 > &  t3dg_3 
)

Definition at line 7 of file test_T3dg_038.cpp.

8  {
9  Index<'i', 3> i;
10  Index<'j', 3> j;
11  Index<'k', 3> k;
12 
13  {
14  Dg<double, 3, 3> t3dg_3_1, t3dg_3_2;
15  t3dg_3_1(i, j, k) = t3dg_3(i, j, k);
16  t3dg_3_1(i, j, k) += t3dg_2(i, j, k);
17  for (int ii = 0; ii != 3;++ii)
18  for (int jj = 0; jj != 3;++jj)
19  for (int kk = 0; kk != 3;++kk) {
20  test_for_zero(t3dg_3_1(ii, jj, kk) - t3dg_2(ii, jj, kk) -
21  t3dg_3(ii, jj, kk),
22  "T3(i,j,k)+=T3(i,j,k)(" + to_string(ii) + "," +
23  to_string(jj) + "," + to_string(kk) + ")");
24  }
25 
26  t3dg_3_2(i, j, k) = t3dg_3_1(i, j, k);
27  t3dg_3_2(i, j, k) -= t3dg_3_1(i, j, k);
28  for (int ii = 0; ii != 3;++ii)
29  for (int jj = 0; jj != 3;++jj)
30  for (int kk = 0; kk != 3;++kk) {
31  test_for_zero(t3dg_3_1(ii, jj, kk) - t3dg_2(ii, jj, kk) -
32  t3dg_3(ii, jj, kk),
33  "T3(i,j,k)-=T3(i,j,k)(" + to_string(ii) + "," +
34  to_string(jj) + "," + to_string(kk) + ")");
35  }
36 
37  }
38 }

◆ test_T3dg_04()

void test_T3dg_04 ( Tensor2< double, 3, 3 > &  t2_1,
const Dg< double, 3, 3 > &  t3dg_2 
)

Definition at line 7 of file test_T3dg_04.cpp.

8 {
9  Index<'i', 3> i;
10  Index<'j', 3> j;
11 
12  Number<0> N0;
13  Number<1> N1;
14  Number<2> N2;
15 
16  /* Dg tests */
17 
18  t2_1(i, j) = t3dg_2(N0, i, j);
19  test_for_zero(t3dg_2(0, 0, 0) - t2_1(0, 0), "T2(i,j)=T3dg(N,i,j)(0,0,0)");
20  test_for_zero(t3dg_2(0, 0, 1) - t2_1(0, 1), "T2(i,j)=T3dg(N,i,j)(0,0,1)");
21  test_for_zero(t3dg_2(0, 0, 2) - t2_1(0, 2), "T2(i,j)=T3dg(N,i,j)(0,0,2)");
22  test_for_zero(t3dg_2(0, 1, 0) - t2_1(1, 0), "T2(i,j)=T3dg(N,i,j)(0,1,0)");
23  test_for_zero(t3dg_2(0, 1, 1) - t2_1(1, 1), "T2(i,j)=T3dg(N,i,j)(0,1,1)");
24  test_for_zero(t3dg_2(0, 1, 2) - t2_1(1, 2), "T2(i,j)=T3dg(N,i,j)(0,1,2)");
25  test_for_zero(t3dg_2(0, 2, 0) - t2_1(2, 0), "T2(i,j)=T3dg(N,i,j)(0,2,0)");
26  test_for_zero(t3dg_2(0, 2, 1) - t2_1(2, 1), "T2(i,j)=T3dg(N,i,j)(0,2,1)");
27  test_for_zero(t3dg_2(0, 2, 2) - t2_1(2, 2), "T2(i,j)=T3dg(N,i,j)(0,2,2)");
28 
29  t2_1(i, j) = t3dg_2(N1, i, j);
30  test_for_zero(t3dg_2(1, 0, 0) - t2_1(0, 0), "T2(i,j)=T3dg(N,i,j)(1,0,0)");
31  test_for_zero(t3dg_2(1, 0, 1) - t2_1(0, 1), "T2(i,j)=T3dg(N,i,j)(1,0,1)");
32  test_for_zero(t3dg_2(1, 0, 2) - t2_1(0, 2), "T2(i,j)=T3dg(N,i,j)(1,0,2)");
33  test_for_zero(t3dg_2(1, 1, 0) - t2_1(1, 0), "T2(i,j)=T3dg(N,i,j)(1,1,0)");
34  test_for_zero(t3dg_2(1, 1, 1) - t2_1(1, 1), "T2(i,j)=T3dg(N,i,j)(1,1,1)");
35  test_for_zero(t3dg_2(1, 1, 2) - t2_1(1, 2), "T2(i,j)=T3dg(N,i,j)(1,1,2)");
36  test_for_zero(t3dg_2(1, 2, 0) - t2_1(2, 0), "T2(i,j)=T3dg(N,i,j)(1,2,0)");
37  test_for_zero(t3dg_2(1, 2, 1) - t2_1(2, 1), "T2(i,j)=T3dg(N,i,j)(1,2,1)");
38  test_for_zero(t3dg_2(1, 2, 2) - t2_1(2, 2), "T2(i,j)=T3dg(N,i,j)(1,2,2)");
39 
40  t2_1(i, j) = t3dg_2(N2, i, j);
41  test_for_zero(t3dg_2(2, 0, 0) - t2_1(0, 0), "T2(i,j)=T3dg(N,i,j)(2,0,0)");
42  test_for_zero(t3dg_2(2, 0, 1) - t2_1(0, 1), "T2(i,j)=T3dg(N,i,j)(2,0,1)");
43  test_for_zero(t3dg_2(2, 0, 2) - t2_1(0, 2), "T2(i,j)=T3dg(N,i,j)(2,0,2)");
44  test_for_zero(t3dg_2(2, 1, 0) - t2_1(1, 0), "T2(i,j)=T3dg(N,i,j)(2,1,0)");
45  test_for_zero(t3dg_2(2, 1, 1) - t2_1(1, 1), "T2(i,j)=T3dg(N,i,j)(2,1,1)");
46  test_for_zero(t3dg_2(2, 1, 2) - t2_1(1, 2), "T2(i,j)=T3dg(N,i,j)(2,1,2)");
47  test_for_zero(t3dg_2(2, 2, 0) - t2_1(2, 0), "T2(i,j)=T3dg(N,i,j)(2,2,0)");
48  test_for_zero(t3dg_2(2, 2, 1) - t2_1(2, 1), "T2(i,j)=T3dg(N,i,j)(2,2,1)");
49  test_for_zero(t3dg_2(2, 2, 2) - t2_1(2, 2), "T2(i,j)=T3dg(N,i,j)(2,2,2)");
50 }

◆ test_T3dg_05()

void test_T3dg_05 ( Tensor2< double, 3, 3 > &  t2_1,
const Dg< double, 3, 3 > &  t3dg_2 
)

Definition at line 7 of file test_T3dg_05.cpp.

8 {
9  Index<'i', 3> i;
10  Index<'j', 3> j;
11 
12  Number<0> N0;
13  Number<1> N1;
14  Number<2> N2;
15 
16  /* Dg tests */
17 
18  t2_1(i, j) = t3dg_2(i, N0, j);
19  test_for_zero(t3dg_2(0, 0, 0) - t2_1(0, 0), "T2(i,j)=T3dg(i,N,j)(0,0,0)");
20  test_for_zero(t3dg_2(0, 0, 1) - t2_1(0, 1), "T2(i,j)=T3dg(i,N,j)(0,0,1)");
21  test_for_zero(t3dg_2(0, 0, 2) - t2_1(0, 2), "T2(i,j)=T3dg(i,N,j)(0,0,2)");
22  test_for_zero(t3dg_2(1, 0, 0) - t2_1(1, 0), "T2(i,j)=T3dg(i,N,j)(0,1,0)");
23  test_for_zero(t3dg_2(1, 0, 1) - t2_1(1, 1), "T2(i,j)=T3dg(i,N,j)(0,1,1)");
24  test_for_zero(t3dg_2(1, 0, 2) - t2_1(1, 2), "T2(i,j)=T3dg(i,N,j)(0,1,2)");
25  test_for_zero(t3dg_2(2, 0, 0) - t2_1(2, 0), "T2(i,j)=T3dg(i,N,j)(0,2,0)");
26  test_for_zero(t3dg_2(2, 0, 1) - t2_1(2, 1), "T2(i,j)=T3dg(i,N,j)(0,2,1)");
27  test_for_zero(t3dg_2(2, 0, 2) - t2_1(2, 2), "T2(i,j)=T3dg(i,N,j)(0,2,2)");
28 
29  t2_1(i, j) = t3dg_2(i, N1, j);
30  test_for_zero(t3dg_2(0, 1, 0) - t2_1(0, 0), "T2(i,j)=T3dg(i,N,j)(1,0,0)");
31  test_for_zero(t3dg_2(0, 1, 1) - t2_1(0, 1), "T2(i,j)=T3dg(i,N,j)(1,0,1)");
32  test_for_zero(t3dg_2(0, 1, 2) - t2_1(0, 2), "T2(i,j)=T3dg(i,N,j)(1,0,2)");
33  test_for_zero(t3dg_2(1, 1, 0) - t2_1(1, 0), "T2(i,j)=T3dg(i,N,j)(1,1,0)");
34  test_for_zero(t3dg_2(1, 1, 1) - t2_1(1, 1), "T2(i,j)=T3dg(i,N,j)(1,1,1)");
35  test_for_zero(t3dg_2(1, 1, 2) - t2_1(1, 2), "T2(i,j)=T3dg(i,N,j)(1,1,2)");
36  test_for_zero(t3dg_2(2, 1, 0) - t2_1(2, 0), "T2(i,j)=T3dg(i,N,j)(1,2,0)");
37  test_for_zero(t3dg_2(2, 1, 1) - t2_1(2, 1), "T2(i,j)=T3dg(i,N,j)(1,2,1)");
38  test_for_zero(t3dg_2(2, 1, 2) - t2_1(2, 2), "T2(i,j)=T3dg(i,N,j)(1,2,2)");
39 
40  t2_1(i, j) = t3dg_2(i, N2, j);
41  test_for_zero(t3dg_2(0, 2, 0) - t2_1(0, 0), "T2(i,j)=T3dg(i,N,j)(2,0,0)");
42  test_for_zero(t3dg_2(0, 2, 1) - t2_1(0, 1), "T2(i,j)=T3dg(i,N,j)(2,0,1)");
43  test_for_zero(t3dg_2(0, 2, 2) - t2_1(0, 2), "T2(i,j)=T3dg(i,N,j)(2,0,2)");
44  test_for_zero(t3dg_2(1, 2, 0) - t2_1(1, 0), "T2(i,j)=T3dg(i,N,j)(2,1,0)");
45  test_for_zero(t3dg_2(1, 2, 1) - t2_1(1, 1), "T2(i,j)=T3dg(i,N,j)(2,1,1)");
46  test_for_zero(t3dg_2(1, 2, 2) - t2_1(1, 2), "T2(i,j)=T3dg(i,N,j)(2,1,2)");
47  test_for_zero(t3dg_2(2, 2, 0) - t2_1(2, 0), "T2(i,j)=T3dg(i,N,j)(2,2,0)");
48  test_for_zero(t3dg_2(2, 2, 1) - t2_1(2, 1), "T2(i,j)=T3dg(i,N,j)(2,2,1)");
49  test_for_zero(t3dg_2(2, 2, 2) - t2_1(2, 2), "T2(i,j)=T3dg(i,N,j)(2,2,2)");
50 }

◆ test_T3dg_06()

void test_T3dg_06 ( Tensor2_symmetric< double, 3 > &  t2s_1,
const Dg< double, 3, 3 > &  t3dg_2 
)

Definition at line 7 of file test_T3dg_06.cpp.

9 {
10  Index<'i', 3> i;
11  Index<'j', 3> j;
12 
13  Number<0> N0;
14  Number<1> N1;
15  Number<2> N2;
16 
17  /* Dg tests */
18 
19  /* Now, test with actual numbers. */
20 
21  t2s_1(i, j) = t3dg_2(i, j, 0);
22  test_for_zero(t3dg_2(0, 0, 0) - t2s_1(0, 0), "T3dg(i,j,Num)(0,0,0)");
23  test_for_zero(t3dg_2(0, 1, 0) - t2s_1(0, 1), "T3dg(i,j,Num)(0,0,1)");
24  test_for_zero(t3dg_2(0, 2, 0) - t2s_1(0, 2), "T3dg(i,j,Num)(0,0,2)");
25  test_for_zero(t3dg_2(1, 0, 0) - t2s_1(1, 0), "T3dg(i,j,Num)(0,1,0)");
26  test_for_zero(t3dg_2(1, 1, 0) - t2s_1(1, 1), "T3dg(i,j,Num)(0,1,1)");
27  test_for_zero(t3dg_2(1, 2, 0) - t2s_1(1, 2), "T3dg(i,j,Num)(0,1,2)");
28  test_for_zero(t3dg_2(2, 0, 0) - t2s_1(2, 0), "T3dg(i,j,Num)(0,2,0)");
29  test_for_zero(t3dg_2(2, 1, 0) - t2s_1(2, 1), "T3dg(i,j,Num)(0,2,1)");
30  test_for_zero(t3dg_2(2, 2, 0) - t2s_1(2, 2), "T3dg(i,j,Num)(0,2,2)");
31 
32  t2s_1(i, j) = t3dg_2(i, j, 1);
33  test_for_zero(t3dg_2(0, 0, 1) - t2s_1(0, 0), "T3dg(i,j,Num)(1,0,0)");
34  test_for_zero(t3dg_2(0, 1, 1) - t2s_1(0, 1), "T3dg(i,j,Num)(1,0,1)");
35  test_for_zero(t3dg_2(0, 2, 1) - t2s_1(0, 2), "T3dg(i,j,Num)(1,0,2)");
36  test_for_zero(t3dg_2(1, 0, 1) - t2s_1(1, 0), "T3dg(i,j,Num)(1,1,0)");
37  test_for_zero(t3dg_2(1, 1, 1) - t2s_1(1, 1), "T3dg(i,j,Num)(1,1,1)");
38  test_for_zero(t3dg_2(1, 2, 1) - t2s_1(1, 2), "T3dg(i,j,Num)(1,1,2)");
39  test_for_zero(t3dg_2(2, 0, 1) - t2s_1(2, 0), "T3dg(i,j,Num)(1,2,0)");
40  test_for_zero(t3dg_2(2, 1, 1) - t2s_1(2, 1), "T3dg(i,j,Num)(1,2,1)");
41  test_for_zero(t3dg_2(2, 2, 1) - t2s_1(2, 2), "T3dg(i,j,Num)(1,2,2)");
42 
43  t2s_1(i, j) = t3dg_2(i, j, 2);
44  test_for_zero(t3dg_2(0, 0, 2) - t2s_1(0, 0), "T3dg(i,j,Num)(2,0,0)");
45  test_for_zero(t3dg_2(0, 1, 2) - t2s_1(0, 1), "T3dg(i,j,Num)(2,0,1)");
46  test_for_zero(t3dg_2(0, 2, 2) - t2s_1(0, 2), "T3dg(i,j,Num)(2,0,2)");
47  test_for_zero(t3dg_2(1, 0, 2) - t2s_1(1, 0), "T3dg(i,j,Num)(2,1,0)");
48  test_for_zero(t3dg_2(1, 1, 2) - t2s_1(1, 1), "T3dg(i,j,Num)(2,1,1)");
49  test_for_zero(t3dg_2(1, 2, 2) - t2s_1(1, 2), "T3dg(i,j,Num)(2,1,2)");
50  test_for_zero(t3dg_2(2, 0, 2) - t2s_1(2, 0), "T3dg(i,j,Num)(2,2,0)");
51  test_for_zero(t3dg_2(2, 1, 2) - t2s_1(2, 1), "T3dg(i,j,Num)(2,2,1)");
52  test_for_zero(t3dg_2(2, 2, 2) - t2s_1(2, 2), "T3dg(i,j,Num)(2,2,2)");
53 }

◆ test_T3dg_07()

void test_T3dg_07 ( Tensor2< double, 3, 3 > &  t2_1,
const Dg< double, 3, 3 > &  t3dg_2 
)

Definition at line 7 of file test_T3dg_07.cpp.

8 {
9  Index<'i', 3> i;
10  Index<'j', 3> j;
11 
12  Number<0> N0;
13  Number<1> N1;
14  Number<2> N2;
15 
16  /* Dg tests */
17 
18  /* Now, test with actual numbers. */
19 
20  t2_1(i, j) = t3dg_2(0, i, j);
21  test_for_zero(t3dg_2(0, 0, 0) - t2_1(0, 0), "T3dg(Num,i,j)(0,0,0)");
22  test_for_zero(t3dg_2(0, 0, 1) - t2_1(0, 1), "T3dg(Num,i,j)(0,0,1)");
23  test_for_zero(t3dg_2(0, 0, 2) - t2_1(0, 2), "T3dg(Num,i,j)(0,0,2)");
24  test_for_zero(t3dg_2(0, 1, 0) - t2_1(1, 0), "T3dg(Num,i,j)(0,1,0)");
25  test_for_zero(t3dg_2(0, 1, 1) - t2_1(1, 1), "T3dg(Num,i,j)(0,1,1)");
26  test_for_zero(t3dg_2(0, 1, 2) - t2_1(1, 2), "T3dg(Num,i,j)(0,1,2)");
27  test_for_zero(t3dg_2(0, 2, 0) - t2_1(2, 0), "T3dg(Num,i,j)(0,2,0)");
28  test_for_zero(t3dg_2(0, 2, 1) - t2_1(2, 1), "T3dg(Num,i,j)(0,2,1)");
29  test_for_zero(t3dg_2(0, 2, 2) - t2_1(2, 2), "T3dg(Num,i,j)(0,2,2)");
30 
31  t2_1(i, j) = t3dg_2(1, i, j);
32  test_for_zero(t3dg_2(1, 0, 0) - t2_1(0, 0), "T3dg(Num,i,j)(1,0,0)");
33  test_for_zero(t3dg_2(1, 0, 1) - t2_1(0, 1), "T3dg(Num,i,j)(1,0,1)");
34  test_for_zero(t3dg_2(1, 0, 2) - t2_1(0, 2), "T3dg(Num,i,j)(1,0,2)");
35  test_for_zero(t3dg_2(1, 1, 0) - t2_1(1, 0), "T3dg(Num,i,j)(1,1,0)");
36  test_for_zero(t3dg_2(1, 1, 1) - t2_1(1, 1), "T3dg(Num,i,j)(1,1,1)");
37  test_for_zero(t3dg_2(1, 1, 2) - t2_1(1, 2), "T3dg(Num,i,j)(1,1,2)");
38  test_for_zero(t3dg_2(1, 2, 0) - t2_1(2, 0), "T3dg(Num,i,j)(1,2,0)");
39  test_for_zero(t3dg_2(1, 2, 1) - t2_1(2, 1), "T3dg(Num,i,j)(1,2,1)");
40  test_for_zero(t3dg_2(1, 2, 2) - t2_1(2, 2), "T3dg(Num,i,j)(1,2,2)");
41 
42  t2_1(i, j) = t3dg_2(2, i, j);
43  test_for_zero(t3dg_2(2, 0, 0) - t2_1(0, 0), "T3dg(Num,i,j)(2,0,0)");
44  test_for_zero(t3dg_2(2, 0, 1) - t2_1(0, 1), "T3dg(Num,i,j)(2,0,1)");
45  test_for_zero(t3dg_2(2, 0, 2) - t2_1(0, 2), "T3dg(Num,i,j)(2,0,2)");
46  test_for_zero(t3dg_2(2, 1, 0) - t2_1(1, 0), "T3dg(Num,i,j)(2,1,0)");
47  test_for_zero(t3dg_2(2, 1, 1) - t2_1(1, 1), "T3dg(Num,i,j)(2,1,1)");
48  test_for_zero(t3dg_2(2, 1, 2) - t2_1(1, 2), "T3dg(Num,i,j)(2,1,2)");
49  test_for_zero(t3dg_2(2, 2, 0) - t2_1(2, 0), "T3dg(Num,i,j)(2,2,0)");
50  test_for_zero(t3dg_2(2, 2, 1) - t2_1(2, 1), "T3dg(Num,i,j)(2,2,1)");
51  test_for_zero(t3dg_2(2, 2, 2) - t2_1(2, 2), "T3dg(Num,i,j)(2,2,2)");
52 }

◆ test_T3dg_08()

void test_T3dg_08 ( Tensor2< double, 3, 3 > &  t2_1,
const Dg< double, 3, 3 > &  t3dg_2 
)

Definition at line 7 of file test_T3dg_08.cpp.

8 {
9  Index<'i', 3> i;
10  Index<'j', 3> j;
11 
12  Number<0> N0;
13  Number<1> N1;
14  Number<2> N2;
15 
16  /* Dg tests */
17 
18  /* Now, test with actual numbers. */
19 
20  t2_1(i, j) = t3dg_2(i, 0, j);
21  test_for_zero(t3dg_2(0, 0, 0) - t2_1(0, 0), "T3dg(i,Num,j)(0,0,0)");
22  test_for_zero(t3dg_2(0, 0, 1) - t2_1(0, 1), "T3dg(i,Num,j)(0,0,1)");
23  test_for_zero(t3dg_2(0, 0, 2) - t2_1(0, 2), "T3dg(i,Num,j)(0,0,2)");
24  test_for_zero(t3dg_2(1, 0, 0) - t2_1(1, 0), "T3dg(i,Num,j)(0,1,0)");
25  test_for_zero(t3dg_2(1, 0, 1) - t2_1(1, 1), "T3dg(i,Num,j)(0,1,1)");
26  test_for_zero(t3dg_2(1, 0, 2) - t2_1(1, 2), "T3dg(i,Num,j)(0,1,2)");
27  test_for_zero(t3dg_2(2, 0, 0) - t2_1(2, 0), "T3dg(i,Num,j)(0,2,0)");
28  test_for_zero(t3dg_2(2, 0, 1) - t2_1(2, 1), "T3dg(i,Num,j)(0,2,1)");
29  test_for_zero(t3dg_2(2, 0, 2) - t2_1(2, 2), "T3dg(i,Num,j)(0,2,2)");
30 
31  t2_1(i, j) = t3dg_2(i, 1, j);
32  test_for_zero(t3dg_2(0, 1, 0) - t2_1(0, 0), "T3dg(i,Num,j)(1,0,0)");
33  test_for_zero(t3dg_2(0, 1, 1) - t2_1(0, 1), "T3dg(i,Num,j)(1,0,1)");
34  test_for_zero(t3dg_2(0, 1, 2) - t2_1(0, 2), "T3dg(i,Num,j)(1,0,2)");
35  test_for_zero(t3dg_2(1, 1, 0) - t2_1(1, 0), "T3dg(i,Num,j)(1,1,0)");
36  test_for_zero(t3dg_2(1, 1, 1) - t2_1(1, 1), "T3dg(i,Num,j)(1,1,1)");
37  test_for_zero(t3dg_2(1, 1, 2) - t2_1(1, 2), "T3dg(i,Num,j)(1,1,2)");
38  test_for_zero(t3dg_2(2, 1, 0) - t2_1(2, 0), "T3dg(i,Num,j)(1,2,0)");
39  test_for_zero(t3dg_2(2, 1, 1) - t2_1(2, 1), "T3dg(i,Num,j)(1,2,1)");
40  test_for_zero(t3dg_2(2, 1, 2) - t2_1(2, 2), "T3dg(i,Num,j)(1,2,2)");
41 
42  t2_1(i, j) = t3dg_2(i, 2, j);
43  test_for_zero(t3dg_2(0, 2, 0) - t2_1(0, 0), "T3dg(i,Num,j)(2,0,0)");
44  test_for_zero(t3dg_2(0, 2, 1) - t2_1(0, 1), "T3dg(i,Num,j)(2,0,1)");
45  test_for_zero(t3dg_2(0, 2, 2) - t2_1(0, 2), "T3dg(i,Num,j)(2,0,2)");
46  test_for_zero(t3dg_2(1, 2, 0) - t2_1(1, 0), "T3dg(i,Num,j)(2,1,0)");
47  test_for_zero(t3dg_2(1, 2, 1) - t2_1(1, 1), "T3dg(i,Num,j)(2,1,1)");
48  test_for_zero(t3dg_2(1, 2, 2) - t2_1(1, 2), "T3dg(i,Num,j)(2,1,2)");
49  test_for_zero(t3dg_2(2, 2, 0) - t2_1(2, 0), "T3dg(i,Num,j)(2,2,0)");
50  test_for_zero(t3dg_2(2, 2, 1) - t2_1(2, 1), "T3dg(i,Num,j)(2,2,1)");
51  test_for_zero(t3dg_2(2, 2, 2) - t2_1(2, 2), "T3dg(i,Num,j)(2,2,2)");
52 }

◆ test_T3dg_09()

void test_T3dg_09 ( const Tensor1< double, 3 > &  t1_2,
const Tensor2_symmetric< double, 3 > &  t2s_2,
Dg< double, 3, 3 > &  t3dg_1 
)

Definition at line 7 of file test_T3dg_09.cpp.

10 {
11  Index<'i', 3> i;
12  Index<'j', 3> j;
13  Index<'k', 3> k;
14 
15  Number<0> N0;
16  Number<1> N1;
17  Number<2> N2;
18 
19  /* Dg tests */
20 
21  t3dg_1(i, j, k) = t2s_2(i, j) * t1_2(k);
22  test_for_zero(t3dg_1(0, 0, 0) - t2s_2(0, 0) * t1_2(0),
23  "T2s(i,j)*T1(k)(0,0,0)");
24  test_for_zero(t3dg_1(0, 0, 1) - t2s_2(0, 0) * t1_2(1),
25  "T2s(i,j)*T1(k)(0,0,1)");
26  test_for_zero(t3dg_1(0, 0, 2) - t2s_2(0, 0) * t1_2(2),
27  "T2s(i,j)*T1(k)(0,0,2)");
28  test_for_zero(t3dg_1(0, 1, 0) - t2s_2(0, 1) * t1_2(0),
29  "T2s(i,j)*T1(k)(0,1,0)");
30  test_for_zero(t3dg_1(0, 1, 1) - t2s_2(0, 1) * t1_2(1),
31  "T2s(i,j)*T1(k)(0,1,1)");
32  test_for_zero(t3dg_1(0, 1, 2) - t2s_2(0, 1) * t1_2(2),
33  "T2s(i,j)*T1(k)(0,1,2)");
34  test_for_zero(t3dg_1(0, 2, 0) - t2s_2(0, 2) * t1_2(0),
35  "T2s(i,j)*T1(k)(0,2,0)");
36  test_for_zero(t3dg_1(0, 2, 1) - t2s_2(0, 2) * t1_2(1),
37  "T2s(i,j)*T1(k)(0,2,1)");
38  test_for_zero(t3dg_1(0, 2, 2) - t2s_2(0, 2) * t1_2(2),
39  "T2s(i,j)*T1(k)(0,2,2)");
40  test_for_zero(t3dg_1(1, 0, 0) - t2s_2(1, 0) * t1_2(0),
41  "T2s(i,j)*T1(k)(1,0,0)");
42  test_for_zero(t3dg_1(1, 0, 1) - t2s_2(1, 0) * t1_2(1),
43  "T2s(i,j)*T1(k)(1,0,1)");
44  test_for_zero(t3dg_1(1, 0, 2) - t2s_2(1, 0) * t1_2(2),
45  "T2s(i,j)*T1(k)(1,0,2)");
46  test_for_zero(t3dg_1(1, 1, 0) - t2s_2(1, 1) * t1_2(0),
47  "T2s(i,j)*T1(k)(1,1,0)");
48  test_for_zero(t3dg_1(1, 1, 1) - t2s_2(1, 1) * t1_2(1),
49  "T2s(i,j)*T1(k)(1,1,1)");
50  test_for_zero(t3dg_1(1, 1, 2) - t2s_2(1, 1) * t1_2(2),
51  "T2s(i,j)*T1(k)(1,1,2)");
52  test_for_zero(t3dg_1(1, 2, 0) - t2s_2(1, 2) * t1_2(0),
53  "T2s(i,j)*T1(k)(1,2,0)");
54  test_for_zero(t3dg_1(1, 2, 1) - t2s_2(1, 2) * t1_2(1),
55  "T2s(i,j)*T1(k)(1,2,1)");
56  test_for_zero(t3dg_1(1, 2, 2) - t2s_2(1, 2) * t1_2(2),
57  "T2s(i,j)*T1(k)(1,2,2)");
58  test_for_zero(t3dg_1(2, 0, 0) - t2s_2(2, 0) * t1_2(0),
59  "T2s(i,j)*T1(k)(2,0,0)");
60  test_for_zero(t3dg_1(2, 0, 1) - t2s_2(2, 0) * t1_2(1),
61  "T2s(i,j)*T1(k)(2,0,1)");
62  test_for_zero(t3dg_1(2, 0, 2) - t2s_2(2, 0) * t1_2(2),
63  "T2s(i,j)*T1(k)(2,0,2)");
64  test_for_zero(t3dg_1(2, 1, 0) - t2s_2(2, 1) * t1_2(0),
65  "T2s(i,j)*T1(k)(2,1,0)");
66  test_for_zero(t3dg_1(2, 1, 1) - t2s_2(2, 1) * t1_2(1),
67  "T2s(i,j)*T1(k)(2,1,1)");
68  test_for_zero(t3dg_1(2, 1, 2) - t2s_2(2, 1) * t1_2(2),
69  "T2s(i,j)*T1(k)(2,1,2)");
70  test_for_zero(t3dg_1(2, 2, 0) - t2s_2(2, 2) * t1_2(0),
71  "T2s(i,j)*T1(k)(2,2,0)");
72  test_for_zero(t3dg_1(2, 2, 1) - t2s_2(2, 2) * t1_2(1),
73  "T2s(i,j)*T1(k)(2,2,1)");
74  test_for_zero(t3dg_1(2, 2, 2) - t2s_2(2, 2) * t1_2(2),
75  "T2s(i,j)*T1(k)(2,2,2)");
76 }

◆ test_T3dg_10()

void test_T3dg_10 ( Dg< double, 3, 3 > &  t3dg_1)

Definition at line 7 of file test_T3dg_10.cpp.

8 {
9  Index<'i', 3> i;
10  Index<'j', 3> j;
11  Index<'k', 3> k;
12 
13  Number<0> N0;
14  Number<1> N1;
15  Number<2> N2;
16 
17  /* Dg tests */
18 
19  t3dg_1(i, j, k) = 10;
20  test_for_zero(t3dg_1(0, 0, 0) - 10, "T3dg=T(0,0,0)");
21  test_for_zero(t3dg_1(0, 0, 1) - 10, "T3dg=T(0,0,1)");
22  test_for_zero(t3dg_1(0, 0, 2) - 10, "T3dg=T(0,0,2)");
23  test_for_zero(t3dg_1(0, 1, 0) - 10, "T3dg=T(0,1,0)");
24  test_for_zero(t3dg_1(0, 1, 1) - 10, "T3dg=T(0,1,1)");
25  test_for_zero(t3dg_1(0, 1, 2) - 10, "T3dg=T(0,1,2)");
26  test_for_zero(t3dg_1(0, 2, 0) - 10, "T3dg=T(0,2,0)");
27  test_for_zero(t3dg_1(0, 2, 1) - 10, "T3dg=T(0,2,1)");
28  test_for_zero(t3dg_1(0, 2, 2) - 10, "T3dg=T(0,2,2)");
29  test_for_zero(t3dg_1(1, 0, 0) - 10, "T3dg=T(1,0,0)");
30  test_for_zero(t3dg_1(1, 0, 1) - 10, "T3dg=T(1,0,1)");
31  test_for_zero(t3dg_1(1, 0, 2) - 10, "T3dg=T(1,0,2)");
32  test_for_zero(t3dg_1(1, 1, 0) - 10, "T3dg=T(1,1,0)");
33  test_for_zero(t3dg_1(1, 1, 1) - 10, "T3dg=T(1,1,1)");
34  test_for_zero(t3dg_1(1, 1, 2) - 10, "T3dg=T(1,1,2)");
35  test_for_zero(t3dg_1(1, 2, 0) - 10, "T3dg=T(1,2,0)");
36  test_for_zero(t3dg_1(1, 2, 1) - 10, "T3dg=T(1,2,1)");
37  test_for_zero(t3dg_1(1, 2, 2) - 10, "T3dg=T(1,2,2)");
38  test_for_zero(t3dg_1(2, 0, 0) - 10, "T3dg=T(2,0,0)");
39  test_for_zero(t3dg_1(2, 0, 1) - 10, "T3dg=T(2,0,1)");
40  test_for_zero(t3dg_1(2, 0, 2) - 10, "T3dg=T(2,0,2)");
41  test_for_zero(t3dg_1(2, 1, 0) - 10, "T3dg=T(2,1,0)");
42  test_for_zero(t3dg_1(2, 1, 1) - 10, "T3dg=T(2,1,1)");
43  test_for_zero(t3dg_1(2, 1, 2) - 10, "T3dg=T(2,1,2)");
44  test_for_zero(t3dg_1(2, 2, 0) - 10, "T3dg=T(2,2,0)");
45  test_for_zero(t3dg_1(2, 2, 1) - 10, "T3dg=T(2,2,1)");
46  test_for_zero(t3dg_1(2, 2, 2) - 10, "T3dg=T(2,2,2)");
47 }

◆ test_T3dg_11()

void test_T3dg_11 ( 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_T3dg_11.cpp.

9 {
10  Index<'i', 3> i;
11  Index<'j', 3> j;
12  Index<'k', 3> k;
13 
14  Number<0> N0;
15  Number<1> N1;
16  Number<2> N2;
17 
18  /* Dg tests */
19 
20  t3dg_1(i, j, k) = t3dg_2(i, j, k) + t3dg_3(i, j, k);
21  test_for_zero(t3dg_1(0, 0, 0) - (t3dg_2(0, 0, 0) + t3dg_3(0, 0, 0)),
22  "T3dg(i,j,k)+T3dg(i,j,k)(0,0,0)");
23  test_for_zero(t3dg_1(0, 0, 1) - (t3dg_2(0, 0, 1) + t3dg_3(0, 0, 1)),
24  "T3dg(i,j,k)+T3dg(i,j,k)(0,0,1)");
25  test_for_zero(t3dg_1(0, 0, 2) - (t3dg_2(0, 0, 2) + t3dg_3(0, 0, 2)),
26  "T3dg(i,j,k)+T3dg(i,j,k)(0,0,2)");
27  test_for_zero(t3dg_1(0, 1, 0) - (t3dg_2(0, 1, 0) + t3dg_3(0, 1, 0)),
28  "T3dg(i,j,k)+T3dg(i,j,k)(0,1,0)");
29  test_for_zero(t3dg_1(0, 1, 1) - (t3dg_2(0, 1, 1) + t3dg_3(0, 1, 1)),
30  "T3dg(i,j,k)+T3dg(i,j,k)(0,1,1)");
31  test_for_zero(t3dg_1(0, 1, 2) - (t3dg_2(0, 1, 2) + t3dg_3(0, 1, 2)),
32  "T3dg(i,j,k)+T3dg(i,j,k)(0,1,2)");
33  test_for_zero(t3dg_1(0, 2, 0) - (t3dg_2(0, 2, 0) + t3dg_3(0, 2, 0)),
34  "T3dg(i,j,k)+T3dg(i,j,k)(0,2,0)");
35  test_for_zero(t3dg_1(0, 2, 1) - (t3dg_2(0, 2, 1) + t3dg_3(0, 2, 1)),
36  "T3dg(i,j,k)+T3dg(i,j,k)(0,2,1)");
37  test_for_zero(t3dg_1(0, 2, 2) - (t3dg_2(0, 2, 2) + t3dg_3(0, 2, 2)),
38  "T3dg(i,j,k)+T3dg(i,j,k)(0,2,2)");
39  test_for_zero(t3dg_1(1, 0, 0) - (t3dg_2(1, 0, 0) + t3dg_3(1, 0, 0)),
40  "T3dg(i,j,k)+T3dg(i,j,k)(1,0,0)");
41  test_for_zero(t3dg_1(1, 0, 1) - (t3dg_2(1, 0, 1) + t3dg_3(1, 0, 1)),
42  "T3dg(i,j,k)+T3dg(i,j,k)(1,0,1)");
43  test_for_zero(t3dg_1(1, 0, 2) - (t3dg_2(1, 0, 2) + t3dg_3(1, 0, 2)),
44  "T3dg(i,j,k)+T3dg(i,j,k)(1,0,2)");
45  test_for_zero(t3dg_1(1, 1, 0) - (t3dg_2(1, 1, 0) + t3dg_3(1, 1, 0)),
46  "T3dg(i,j,k)+T3dg(i,j,k)(1,1,0)");
47  test_for_zero(t3dg_1(1, 1, 1) - (t3dg_2(1, 1, 1) + t3dg_3(1, 1, 1)),
48  "T3dg(i,j,k)+T3dg(i,j,k)(1,1,1)");
49  test_for_zero(t3dg_1(1, 1, 2) - (t3dg_2(1, 1, 2) + t3dg_3(1, 1, 2)),
50  "T3dg(i,j,k)+T3dg(i,j,k)(1,1,2)");
51  test_for_zero(t3dg_1(1, 2, 0) - (t3dg_2(1, 2, 0) + t3dg_3(1, 2, 0)),
52  "T3dg(i,j,k)+T3dg(i,j,k)(1,2,0)");
53  test_for_zero(t3dg_1(1, 2, 1) - (t3dg_2(1, 2, 1) + t3dg_3(1, 2, 1)),
54  "T3dg(i,j,k)+T3dg(i,j,k)(1,2,1)");
55  test_for_zero(t3dg_1(1, 2, 2) - (t3dg_2(1, 2, 2) + t3dg_3(1, 2, 2)),
56  "T3dg(i,j,k)+T3dg(i,j,k)(1,2,2)");
57  test_for_zero(t3dg_1(2, 0, 0) - (t3dg_2(2, 0, 0) + t3dg_3(2, 0, 0)),
58  "T3dg(i,j,k)+T3dg(i,j,k)(2,0,0)");
59  test_for_zero(t3dg_1(2, 0, 1) - (t3dg_2(2, 0, 1) + t3dg_3(2, 0, 1)),
60  "T3dg(i,j,k)+T3dg(i,j,k)(2,0,1)");
61  test_for_zero(t3dg_1(2, 0, 2) - (t3dg_2(2, 0, 2) + t3dg_3(2, 0, 2)),
62  "T3dg(i,j,k)+T3dg(i,j,k)(2,0,2)");
63  test_for_zero(t3dg_1(2, 1, 0) - (t3dg_2(2, 1, 0) + t3dg_3(2, 1, 0)),
64  "T3dg(i,j,k)+T3dg(i,j,k)(2,1,0)");
65  test_for_zero(t3dg_1(2, 1, 1) - (t3dg_2(2, 1, 1) + t3dg_3(2, 1, 1)),
66  "T3dg(i,j,k)+T3dg(i,j,k)(2,1,1)");
67  test_for_zero(t3dg_1(2, 1, 2) - (t3dg_2(2, 1, 2) + t3dg_3(2, 1, 2)),
68  "T3dg(i,j,k)+T3dg(i,j,k)(2,1,2)");
69  test_for_zero(t3dg_1(2, 2, 0) - (t3dg_2(2, 2, 0) + t3dg_3(2, 2, 0)),
70  "T3dg(i,j,k)+T3dg(i,j,k)(2,2,0)");
71  test_for_zero(t3dg_1(2, 2, 1) - (t3dg_2(2, 2, 1) + t3dg_3(2, 2, 1)),
72  "T3dg(i,j,k)+T3dg(i,j,k)(2,2,1)");
73  test_for_zero(t3dg_1(2, 2, 2) - (t3dg_2(2, 2, 2) + t3dg_3(2, 2, 2)),
74  "T3dg(i,j,k)+T3dg(i,j,k)(2,2,2)");
75 }

◆ test_T3dg_12()

void test_T3dg_12 ( 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_T3dg_12.cpp.

9 {
10  Index<'i', 3> i;
11  Index<'j', 3> j;
12  Index<'k', 3> k;
13 
14  Number<0> N0;
15  Number<1> N1;
16  Number<2> N2;
17 
18  /* Dg tests */
19 
20  t3dg_1(i, j, k) = t3dg_2(i, j, k) - t3dg_3(i, j, k);
21  test_for_zero(t3dg_1(0, 0, 0) - (t3dg_2(0, 0, 0) - t3dg_3(0, 0, 0)),
22  "T3dg(i,j,k)-T3dg(i,j,k)(0,0,0)");
23  test_for_zero(t3dg_1(0, 0, 1) - (t3dg_2(0, 0, 1) - t3dg_3(0, 0, 1)),
24  "T3dg(i,j,k)-T3dg(i,j,k)(0,0,1)");
25  test_for_zero(t3dg_1(0, 0, 2) - (t3dg_2(0, 0, 2) - t3dg_3(0, 0, 2)),
26  "T3dg(i,j,k)-T3dg(i,j,k)(0,0,2)");
27  test_for_zero(t3dg_1(0, 1, 0) - (t3dg_2(0, 1, 0) - t3dg_3(0, 1, 0)),
28  "T3dg(i,j,k)-T3dg(i,j,k)(0,1,0)");
29  test_for_zero(t3dg_1(0, 1, 1) - (t3dg_2(0, 1, 1) - t3dg_3(0, 1, 1)),
30  "T3dg(i,j,k)-T3dg(i,j,k)(0,1,1)");
31  test_for_zero(t3dg_1(0, 1, 2) - (t3dg_2(0, 1, 2) - t3dg_3(0, 1, 2)),
32  "T3dg(i,j,k)-T3dg(i,j,k)(0,1,2)");
33  test_for_zero(t3dg_1(0, 2, 0) - (t3dg_2(0, 2, 0) - t3dg_3(0, 2, 0)),
34  "T3dg(i,j,k)-T3dg(i,j,k)(0,2,0)");
35  test_for_zero(t3dg_1(0, 2, 1) - (t3dg_2(0, 2, 1) - t3dg_3(0, 2, 1)),
36  "T3dg(i,j,k)-T3dg(i,j,k)(0,2,1)");
37  test_for_zero(t3dg_1(0, 2, 2) - (t3dg_2(0, 2, 2) - t3dg_3(0, 2, 2)),
38  "T3dg(i,j,k)-T3dg(i,j,k)(0,2,2)");
39  test_for_zero(t3dg_1(1, 0, 0) - (t3dg_2(1, 0, 0) - t3dg_3(1, 0, 0)),
40  "T3dg(i,j,k)-T3dg(i,j,k)(1,0,0)");
41  test_for_zero(t3dg_1(1, 0, 1) - (t3dg_2(1, 0, 1) - t3dg_3(1, 0, 1)),
42  "T3dg(i,j,k)-T3dg(i,j,k)(1,0,1)");
43  test_for_zero(t3dg_1(1, 0, 2) - (t3dg_2(1, 0, 2) - t3dg_3(1, 0, 2)),
44  "T3dg(i,j,k)-T3dg(i,j,k)(1,0,2)");
45  test_for_zero(t3dg_1(1, 1, 0) - (t3dg_2(1, 1, 0) - t3dg_3(1, 1, 0)),
46  "T3dg(i,j,k)-T3dg(i,j,k)(1,1,0)");
47  test_for_zero(t3dg_1(1, 1, 1) - (t3dg_2(1, 1, 1) - t3dg_3(1, 1, 1)),
48  "T3dg(i,j,k)-T3dg(i,j,k)(1,1,1)");
49  test_for_zero(t3dg_1(1, 1, 2) - (t3dg_2(1, 1, 2) - t3dg_3(1, 1, 2)),
50  "T3dg(i,j,k)-T3dg(i,j,k)(1,1,2)");
51  test_for_zero(t3dg_1(1, 2, 0) - (t3dg_2(1, 2, 0) - t3dg_3(1, 2, 0)),
52  "T3dg(i,j,k)-T3dg(i,j,k)(1,2,0)");
53  test_for_zero(t3dg_1(1, 2, 1) - (t3dg_2(1, 2, 1) - t3dg_3(1, 2, 1)),
54  "T3dg(i,j,k)-T3dg(i,j,k)(1,2,1)");
55  test_for_zero(t3dg_1(1, 2, 2) - (t3dg_2(1, 2, 2) - t3dg_3(1, 2, 2)),
56  "T3dg(i,j,k)-T3dg(i,j,k)(1,2,2)");
57  test_for_zero(t3dg_1(2, 0, 0) - (t3dg_2(2, 0, 0) - t3dg_3(2, 0, 0)),
58  "T3dg(i,j,k)-T3dg(i,j,k)(2,0,0)");
59  test_for_zero(t3dg_1(2, 0, 1) - (t3dg_2(2, 0, 1) - t3dg_3(2, 0, 1)),
60  "T3dg(i,j,k)-T3dg(i,j,k)(2,0,1)");
61  test_for_zero(t3dg_1(2, 0, 2) - (t3dg_2(2, 0, 2) - t3dg_3(2, 0, 2)),
62  "T3dg(i,j,k)-T3dg(i,j,k)(2,0,2)");
63  test_for_zero(t3dg_1(2, 1, 0) - (t3dg_2(2, 1, 0) - t3dg_3(2, 1, 0)),
64  "T3dg(i,j,k)-T3dg(i,j,k)(2,1,0)");
65  test_for_zero(t3dg_1(2, 1, 1) - (t3dg_2(2, 1, 1) - t3dg_3(2, 1, 1)),
66  "T3dg(i,j,k)-T3dg(i,j,k)(2,1,1)");
67  test_for_zero(t3dg_1(2, 1, 2) - (t3dg_2(2, 1, 2) - t3dg_3(2, 1, 2)),
68  "T3dg(i,j,k)-T3dg(i,j,k)(2,1,2)");
69  test_for_zero(t3dg_1(2, 2, 0) - (t3dg_2(2, 2, 0) - t3dg_3(2, 2, 0)),
70  "T3dg(i,j,k)-T3dg(i,j,k)(2,2,0)");
71  test_for_zero(t3dg_1(2, 2, 1) - (t3dg_2(2, 2, 1) - t3dg_3(2, 2, 1)),
72  "T3dg(i,j,k)-T3dg(i,j,k)(2,2,1)");
73  test_for_zero(t3dg_1(2, 2, 2) - (t3dg_2(2, 2, 2) - t3dg_3(2, 2, 2)),
74  "T3dg(i,j,k)-T3dg(i,j,k)(2,2,2)");
75 }

◆ test_T3dg_13()

void test_T3dg_13 ( 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_T3dg_13.cpp.

9 {
10  Index<'i', 3> i;
11  Index<'j', 3> j;
12  Index<'k', 3> k;
13 
14  Number<0> N0;
15  Number<1> N1;
16  Number<2> N2;
17 
18  /* Dg tests */
19 
20  t3dg_1(i, j, k) = t3dg_2(i, j, k) + t3dg_3(j, i, k);
21  test_for_zero(t3dg_1(0, 0, 0) - (t3dg_2(0, 0, 0) + t3dg_3(0, 0, 0)),
22  "T3dg(i,j,k)+T3dg(j,i,k)(0,0,0)");
23  test_for_zero(t3dg_1(0, 0, 1) - (t3dg_2(0, 0, 1) + t3dg_3(0, 0, 1)),
24  "T3dg(i,j,k)+T3dg(j,i,k)(0,0,1)");
25  test_for_zero(t3dg_1(0, 0, 2) - (t3dg_2(0, 0, 2) + t3dg_3(0, 0, 2)),
26  "T3dg(i,j,k)+T3dg(j,i,k)(0,0,2)");
27  test_for_zero(t3dg_1(0, 1, 0) - (t3dg_2(0, 1, 0) + t3dg_3(0, 1, 0)),
28  "T3dg(i,j,k)+T3dg(j,i,k)(0,1,0)");
29  test_for_zero(t3dg_1(0, 1, 1) - (t3dg_2(0, 1, 1) + t3dg_3(0, 1, 1)),
30  "T3dg(i,j,k)+T3dg(j,i,k)(0,1,1)");
31  test_for_zero(t3dg_1(0, 1, 2) - (t3dg_2(0, 1, 2) + t3dg_3(0, 1, 2)),
32  "T3dg(i,j,k)+T3dg(j,i,k)(0,1,2)");
33  test_for_zero(t3dg_1(0, 2, 0) - (t3dg_2(0, 2, 0) + t3dg_3(0, 2, 0)),
34  "T3dg(i,j,k)+T3dg(j,i,k)(0,2,0)");
35  test_for_zero(t3dg_1(0, 2, 1) - (t3dg_2(0, 2, 1) + t3dg_3(0, 2, 1)),
36  "T3dg(i,j,k)+T3dg(j,i,k)(0,2,1)");
37  test_for_zero(t3dg_1(0, 2, 2) - (t3dg_2(0, 2, 2) + t3dg_3(0, 2, 2)),
38  "T3dg(i,j,k)+T3dg(j,i,k)(0,2,2)");
39  test_for_zero(t3dg_1(1, 0, 0) - (t3dg_2(1, 0, 0) + t3dg_3(1, 0, 0)),
40  "T3dg(i,j,k)+T3dg(j,i,k)(1,0,0)");
41  test_for_zero(t3dg_1(1, 0, 1) - (t3dg_2(1, 0, 1) + t3dg_3(1, 0, 1)),
42  "T3dg(i,j,k)+T3dg(j,i,k)(1,0,1)");
43  test_for_zero(t3dg_1(1, 0, 2) - (t3dg_2(1, 0, 2) + t3dg_3(1, 0, 2)),
44  "T3dg(i,j,k)+T3dg(j,i,k)(1,0,2)");
45  test_for_zero(t3dg_1(1, 1, 0) - (t3dg_2(1, 1, 0) + t3dg_3(1, 1, 0)),
46  "T3dg(i,j,k)+T3dg(j,i,k)(1,1,0)");
47  test_for_zero(t3dg_1(1, 1, 1) - (t3dg_2(1, 1, 1) + t3dg_3(1, 1, 1)),
48  "T3dg(i,j,k)+T3dg(j,i,k)(1,1,1)");
49  test_for_zero(t3dg_1(1, 1, 2) - (t3dg_2(1, 1, 2) + t3dg_3(1, 1, 2)),
50  "T3dg(i,j,k)+T3dg(j,i,k)(1,1,2)");
51  test_for_zero(t3dg_1(1, 2, 0) - (t3dg_2(1, 2, 0) + t3dg_3(1, 2, 0)),
52  "T3dg(i,j,k)+T3dg(j,i,k)(1,2,0)");
53  test_for_zero(t3dg_1(1, 2, 1) - (t3dg_2(1, 2, 1) + t3dg_3(1, 2, 1)),
54  "T3dg(i,j,k)+T3dg(j,i,k)(1,2,1)");
55  test_for_zero(t3dg_1(1, 2, 2) - (t3dg_2(1, 2, 2) + t3dg_3(1, 2, 2)),
56  "T3dg(i,j,k)+T3dg(j,i,k)(1,2,2)");
57  test_for_zero(t3dg_1(2, 0, 0) - (t3dg_2(2, 0, 0) + t3dg_3(2, 0, 0)),
58  "T3dg(i,j,k)+T3dg(j,i,k)(2,0,0)");
59  test_for_zero(t3dg_1(2, 0, 1) - (t3dg_2(2, 0, 1) + t3dg_3(2, 0, 1)),
60  "T3dg(i,j,k)+T3dg(j,i,k)(2,0,1)");
61  test_for_zero(t3dg_1(2, 0, 2) - (t3dg_2(2, 0, 2) + t3dg_3(2, 0, 2)),
62  "T3dg(i,j,k)+T3dg(j,i,k)(2,0,2)");
63  test_for_zero(t3dg_1(2, 1, 0) - (t3dg_2(2, 1, 0) + t3dg_3(2, 1, 0)),
64  "T3dg(i,j,k)+T3dg(j,i,k)(2,1,0)");
65  test_for_zero(t3dg_1(2, 1, 1) - (t3dg_2(2, 1, 1) + t3dg_3(2, 1, 1)),
66  "T3dg(i,j,k)+T3dg(j,i,k)(2,1,1)");
67  test_for_zero(t3dg_1(2, 1, 2) - (t3dg_2(2, 1, 2) + t3dg_3(2, 1, 2)),
68  "T3dg(i,j,k)+T3dg(j,i,k)(2,1,2)");
69  test_for_zero(t3dg_1(2, 2, 0) - (t3dg_2(2, 2, 0) + t3dg_3(2, 2, 0)),
70  "T3dg(i,j,k)+T3dg(j,i,k)(2,2,0)");
71  test_for_zero(t3dg_1(2, 2, 1) - (t3dg_2(2, 2, 1) + t3dg_3(2, 2, 1)),
72  "T3dg(i,j,k)+T3dg(j,i,k)(2,2,1)");
73  test_for_zero(t3dg_1(2, 2, 2) - (t3dg_2(2, 2, 2) + t3dg_3(2, 2, 2)),
74  "T3dg(i,j,k)+T3dg(j,i,k)(2,2,2)");
75 }

◆ test_T3dg_14()

void test_T3dg_14 ( Dg< double, 3, 3 > &  t3dg_1,
const Dg< double, 3, 3 > &  t3dg_2 
)

Definition at line 7 of file test_T3dg_14.cpp.

8 {
9  Index<'i', 3> i;
10  Index<'j', 3> j;
11  Index<'k', 3> k;
12 
13  Number<0> N0;
14  Number<1> N1;
15  Number<2> N2;
16 
17  /* Dg tests */
18 
19  t3dg_1(i, j, k) = -t3dg_2(i, j, k);
20  test_for_zero(t3dg_1(0, 0, 0) + t3dg_2(0, 0, 0), "-T3dg(0,0,0)");
21  test_for_zero(t3dg_1(0, 0, 1) + t3dg_2(0, 0, 1), "-T3dg(0,0,1)");
22  test_for_zero(t3dg_1(0, 0, 2) + t3dg_2(0, 0, 2), "-T3dg(0,0,2)");
23  test_for_zero(t3dg_1(0, 1, 0) + t3dg_2(0, 1, 0), "-T3dg(0,1,0)");
24  test_for_zero(t3dg_1(0, 1, 1) + t3dg_2(0, 1, 1), "-T3dg(0,1,1)");
25  test_for_zero(t3dg_1(0, 1, 2) + t3dg_2(0, 1, 2), "-T3dg(0,1,2)");
26  test_for_zero(t3dg_1(0, 2, 0) + t3dg_2(0, 2, 0), "-T3dg(0,2,0)");
27  test_for_zero(t3dg_1(0, 2, 1) + t3dg_2(0, 2, 1), "-T3dg(0,2,1)");
28  test_for_zero(t3dg_1(0, 2, 2) + t3dg_2(0, 2, 2), "-T3dg(0,2,2)");
29  test_for_zero(t3dg_1(1, 0, 0) + t3dg_2(1, 0, 0), "-T3dg(1,0,0)");
30  test_for_zero(t3dg_1(1, 0, 1) + t3dg_2(1, 0, 1), "-T3dg(1,0,1)");
31  test_for_zero(t3dg_1(1, 0, 2) + t3dg_2(1, 0, 2), "-T3dg(1,0,2)");
32  test_for_zero(t3dg_1(1, 1, 0) + t3dg_2(1, 1, 0), "-T3dg(1,1,0)");
33  test_for_zero(t3dg_1(1, 1, 1) + t3dg_2(1, 1, 1), "-T3dg(1,1,1)");
34  test_for_zero(t3dg_1(1, 1, 2) + t3dg_2(1, 1, 2), "-T3dg(1,1,2)");
35  test_for_zero(t3dg_1(1, 2, 0) + t3dg_2(1, 2, 0), "-T3dg(1,2,0)");
36  test_for_zero(t3dg_1(1, 2, 1) + t3dg_2(1, 2, 1), "-T3dg(1,2,1)");
37  test_for_zero(t3dg_1(1, 2, 2) + t3dg_2(1, 2, 2), "-T3dg(1,2,2)");
38  test_for_zero(t3dg_1(2, 0, 0) + t3dg_2(2, 0, 0), "-T3dg(2,0,0)");
39  test_for_zero(t3dg_1(2, 0, 1) + t3dg_2(2, 0, 1), "-T3dg(2,0,1)");
40  test_for_zero(t3dg_1(2, 0, 2) + t3dg_2(2, 0, 2), "-T3dg(2,0,2)");
41  test_for_zero(t3dg_1(2, 1, 0) + t3dg_2(2, 1, 0), "-T3dg(2,1,0)");
42  test_for_zero(t3dg_1(2, 1, 1) + t3dg_2(2, 1, 1), "-T3dg(2,1,1)");
43  test_for_zero(t3dg_1(2, 1, 2) + t3dg_2(2, 1, 2), "-T3dg(2,1,2)");
44  test_for_zero(t3dg_1(2, 2, 0) + t3dg_2(2, 2, 0), "-T3dg(2,2,0)");
45  test_for_zero(t3dg_1(2, 2, 1) + t3dg_2(2, 2, 1), "-T3dg(2,2,1)");
46  test_for_zero(t3dg_1(2, 2, 2) + t3dg_2(2, 2, 2), "-T3dg(2,2,2)");
47 }

◆ test_T3dg_15()

void test_T3dg_15 ( const Tensor1< double, 3 > &  t1_2,
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_T3dg_15.cpp.

10 {
11  Index<'i', 3> i;
12  Index<'j', 3> j;
13  Index<'k', 3> k;
14 
15  Number<0> N0;
16  Number<1> N1;
17  Number<2> N2;
18 
19  /* Dg tests */
20 
21  t3dg_1(i, j, k) = (t3dg_2(i, j, k) & t1_2(k));
22  test_for_zero(t3dg_1(0, 0, 0) - (t3dg_2(0, 0, 0) * t1_2(0)),
23  "T3dg(i,j,k)&T1(k)(0,0,0)");
24  test_for_zero(t3dg_1(0, 0, 1) - (t3dg_2(0, 0, 1) * t1_2(1)),
25  "T3dg(i,j,k)&T1(k)(0,0,1)");
26  test_for_zero(t3dg_1(0, 0, 2) - (t3dg_2(0, 0, 2) * t1_2(2)),
27  "T3dg(i,j,k)&T1(k)(0,0,2)");
28  test_for_zero(t3dg_1(0, 1, 0) - (t3dg_2(0, 1, 0) * t1_2(0)),
29  "T3dg(i,j,k)&T1(k)(0,1,0)");
30  test_for_zero(t3dg_1(0, 1, 1) - (t3dg_2(0, 1, 1) * t1_2(1)),
31  "T3dg(i,j,k)&T1(k)(0,1,1)");
32  test_for_zero(t3dg_1(0, 1, 2) - (t3dg_2(0, 1, 2) * t1_2(2)),
33  "T3dg(i,j,k)&T1(k)(0,1,2)");
34  test_for_zero(t3dg_1(0, 2, 0) - (t3dg_2(0, 2, 0) * t1_2(0)),
35  "T3dg(i,j,k)&T1(k)(0,2,0)");
36  test_for_zero(t3dg_1(0, 2, 1) - (t3dg_2(0, 2, 1) * t1_2(1)),
37  "T3dg(i,j,k)&T1(k)(0,2,1)");
38  test_for_zero(t3dg_1(0, 2, 2) - (t3dg_2(0, 2, 2) * t1_2(2)),
39  "T3dg(i,j,k)&T1(k)(0,2,2)");
40  test_for_zero(t3dg_1(1, 0, 0) - (t3dg_2(1, 0, 0) * t1_2(0)),
41  "T3dg(i,j,k)&T1(k)(1,0,0)");
42  test_for_zero(t3dg_1(1, 0, 1) - (t3dg_2(1, 0, 1) * t1_2(1)),
43  "T3dg(i,j,k)&T1(k)(1,0,1)");
44  test_for_zero(t3dg_1(1, 0, 2) - (t3dg_2(1, 0, 2) * t1_2(2)),
45  "T3dg(i,j,k)&T1(k)(1,0,2)");
46  test_for_zero(t3dg_1(1, 1, 0) - (t3dg_2(1, 1, 0) * t1_2(0)),
47  "T3dg(i,j,k)&T1(k)(1,1,0)");
48  test_for_zero(t3dg_1(1, 1, 1) - (t3dg_2(1, 1, 1) * t1_2(1)),
49  "T3dg(i,j,k)&T1(k)(1,1,1)");
50  test_for_zero(t3dg_1(1, 1, 2) - (t3dg_2(1, 1, 2) * t1_2(2)),
51  "T3dg(i,j,k)&T1(k)(1,1,2)");
52  test_for_zero(t3dg_1(1, 2, 0) - (t3dg_2(1, 2, 0) * t1_2(0)),
53  "T3dg(i,j,k)&T1(k)(1,2,0)");
54  test_for_zero(t3dg_1(1, 2, 1) - (t3dg_2(1, 2, 1) * t1_2(1)),
55  "T3dg(i,j,k)&T1(k)(1,2,1)");
56  test_for_zero(t3dg_1(1, 2, 2) - (t3dg_2(1, 2, 2) * t1_2(2)),
57  "T3dg(i,j,k)&T1(k)(1,2,2)");
58  test_for_zero(t3dg_1(2, 0, 0) - (t3dg_2(2, 0, 0) * t1_2(0)),
59  "T3dg(i,j,k)&T1(k)(2,0,0)");
60  test_for_zero(t3dg_1(2, 0, 1) - (t3dg_2(2, 0, 1) * t1_2(1)),
61  "T3dg(i,j,k)&T1(k)(2,0,1)");
62  test_for_zero(t3dg_1(2, 0, 2) - (t3dg_2(2, 0, 2) * t1_2(2)),
63  "T3dg(i,j,k)&T1(k)(2,0,2)");
64  test_for_zero(t3dg_1(2, 1, 0) - (t3dg_2(2, 1, 0) * t1_2(0)),
65  "T3dg(i,j,k)&T1(k)(2,1,0)");
66  test_for_zero(t3dg_1(2, 1, 1) - (t3dg_2(2, 1, 1) * t1_2(1)),
67  "T3dg(i,j,k)&T1(k)(2,1,1)");
68  test_for_zero(t3dg_1(2, 1, 2) - (t3dg_2(2, 1, 2) * t1_2(2)),
69  "T3dg(i,j,k)&T1(k)(2,1,2)");
70  test_for_zero(t3dg_1(2, 2, 0) - (t3dg_2(2, 2, 0) * t1_2(0)),
71  "T3dg(i,j,k)&T1(k)(2,2,0)");
72  test_for_zero(t3dg_1(2, 2, 1) - (t3dg_2(2, 2, 1) * t1_2(1)),
73  "T3dg(i,j,k)&T1(k)(2,2,1)");
74  test_for_zero(t3dg_1(2, 2, 2) - (t3dg_2(2, 2, 2) * t1_2(2)),
75  "T3dg(i,j,k)&T1(k)(2,2,2)");
76 
77  t3dg_1(i, j, k) = (t1_2(k) & t3dg_3(i, j, k));
78  test_for_zero(t3dg_1(0, 0, 0) - (t3dg_3(0, 0, 0) * t1_2(0)),
79  "T1(k)&T3dg(i,j,k)(0,0,0)");
80  test_for_zero(t3dg_1(0, 0, 1) - (t3dg_3(0, 0, 1) * t1_2(1)),
81  "T1(k)&T3dg(i,j,k)(0,0,1)");
82  test_for_zero(t3dg_1(0, 0, 2) - (t3dg_3(0, 0, 2) * t1_2(2)),
83  "T1(k)&T3dg(i,j,k)(0,0,2)");
84  test_for_zero(t3dg_1(0, 1, 0) - (t3dg_3(0, 1, 0) * t1_2(0)),
85  "T1(k)&T3dg(i,j,k)(0,1,0)");
86  test_for_zero(t3dg_1(0, 1, 1) - (t3dg_3(0, 1, 1) * t1_2(1)),
87  "T1(k)&T3dg(i,j,k)(0,1,1)");
88  test_for_zero(t3dg_1(0, 1, 2) - (t3dg_3(0, 1, 2) * t1_2(2)),
89  "T1(k)&T3dg(i,j,k)(0,1,2)");
90  test_for_zero(t3dg_1(0, 2, 0) - (t3dg_3(0, 2, 0) * t1_2(0)),
91  "T1(k)&T3dg(i,j,k)(0,2,0)");
92  test_for_zero(t3dg_1(0, 2, 1) - (t3dg_3(0, 2, 1) * t1_2(1)),
93  "T1(k)&T3dg(i,j,k)(0,2,1)");
94  test_for_zero(t3dg_1(0, 2, 2) - (t3dg_3(0, 2, 2) * t1_2(2)),
95  "T1(k)&T3dg(i,j,k)(0,2,2)");
96  test_for_zero(t3dg_1(1, 0, 0) - (t3dg_3(1, 0, 0) * t1_2(0)),
97  "T1(k)&T3dg(i,j,k)(1,0,0)");
98  test_for_zero(t3dg_1(1, 0, 1) - (t3dg_3(1, 0, 1) * t1_2(1)),
99  "T1(k)&T3dg(i,j,k)(1,0,1)");
100  test_for_zero(t3dg_1(1, 0, 2) - (t3dg_3(1, 0, 2) * t1_2(2)),
101  "T1(k)&T3dg(i,j,k)(1,0,2)");
102  test_for_zero(t3dg_1(1, 1, 0) - (t3dg_3(1, 1, 0) * t1_2(0)),
103  "T1(k)&T3dg(i,j,k)(1,1,0)");
104  test_for_zero(t3dg_1(1, 1, 1) - (t3dg_3(1, 1, 1) * t1_2(1)),
105  "T1(k)&T3dg(i,j,k)(1,1,1)");
106  test_for_zero(t3dg_1(1, 1, 2) - (t3dg_3(1, 1, 2) * t1_2(2)),
107  "T1(k)&T3dg(i,j,k)(1,1,2)");
108  test_for_zero(t3dg_1(1, 2, 0) - (t3dg_3(1, 2, 0) * t1_2(0)),
109  "T1(k)&T3dg(i,j,k)(1,2,0)");
110  test_for_zero(t3dg_1(1, 2, 1) - (t3dg_3(1, 2, 1) * t1_2(1)),
111  "T1(k)&T3dg(i,j,k)(1,2,1)");
112  test_for_zero(t3dg_1(1, 2, 2) - (t3dg_3(1, 2, 2) * t1_2(2)),
113  "T1(k)&T3dg(i,j,k)(1,2,2)");
114  test_for_zero(t3dg_1(2, 0, 0) - (t3dg_3(2, 0, 0) * t1_2(0)),
115  "T1(k)&T3dg(i,j,k)(2,0,0)");
116  test_for_zero(t3dg_1(2, 0, 1) - (t3dg_3(2, 0, 1) * t1_2(1)),
117  "T1(k)&T3dg(i,j,k)(2,0,1)");
118  test_for_zero(t3dg_1(2, 0, 2) - (t3dg_3(2, 0, 2) * t1_2(2)),
119  "T1(k)&T3dg(i,j,k)(2,0,2)");
120  test_for_zero(t3dg_1(2, 1, 0) - (t3dg_3(2, 1, 0) * t1_2(0)),
121  "T1(k)&T3dg(i,j,k)(2,1,0)");
122  test_for_zero(t3dg_1(2, 1, 1) - (t3dg_3(2, 1, 1) * t1_2(1)),
123  "T1(k)&T3dg(i,j,k)(2,1,1)");
124  test_for_zero(t3dg_1(2, 1, 2) - (t3dg_3(2, 1, 2) * t1_2(2)),
125  "T1(k)&T3dg(i,j,k)(2,1,2)");
126  test_for_zero(t3dg_1(2, 2, 0) - (t3dg_3(2, 2, 0) * t1_2(0)),
127  "T1(k)&T3dg(i,j,k)(2,2,0)");
128  test_for_zero(t3dg_1(2, 2, 1) - (t3dg_3(2, 2, 1) * t1_2(1)),
129  "T1(k)&T3dg(i,j,k)(2,2,1)");
130  test_for_zero(t3dg_1(2, 2, 2) - (t3dg_3(2, 2, 2) * t1_2(2)),
131  "T1(k)&T3dg(i,j,k)(2,2,2)");
132 }

◆ test_T3dg_16()

void test_T3dg_16 ( Dg< double, 3, 3 > &  t3dg_1,
const Dg< double, 3, 3 > &  t3dg_2 
)

Definition at line 7 of file test_T3dg_16.cpp.

8 {
9  Index<'i', 3> i;
10  Index<'j', 3> j;
11  Index<'k', 3> k;
12 
13  Number<0> N0;
14  Number<1> N1;
15  Number<2> N2;
16 
17  /* Dg tests */
18 
19  t3dg_1(i, j, k) = t3dg_2(i, j, k) * 10;
20  test_for_zero(t3dg_1(0, 0, 0) - t3dg_2(0, 0, 0) * 10, "T3dg*T(0,0,0)");
21  test_for_zero(t3dg_1(0, 0, 1) - t3dg_2(0, 0, 1) * 10, "T3dg*T(0,0,1)");
22  test_for_zero(t3dg_1(0, 0, 2) - t3dg_2(0, 0, 2) * 10, "T3dg*T(0,0,2)");
23  test_for_zero(t3dg_1(0, 1, 0) - t3dg_2(0, 1, 0) * 10, "T3dg*T(0,1,0)");
24  test_for_zero(t3dg_1(0, 1, 1) - t3dg_2(0, 1, 1) * 10, "T3dg*T(0,1,1)");
25  test_for_zero(t3dg_1(0, 1, 2) - t3dg_2(0, 1, 2) * 10, "T3dg*T(0,1,2)");
26  test_for_zero(t3dg_1(0, 2, 0) - t3dg_2(0, 2, 0) * 10, "T3dg*T(0,2,0)");
27  test_for_zero(t3dg_1(0, 2, 1) - t3dg_2(0, 2, 1) * 10, "T3dg*T(0,2,1)");
28  test_for_zero(t3dg_1(0, 2, 2) - t3dg_2(0, 2, 2) * 10, "T3dg*T(0,2,2)");
29  test_for_zero(t3dg_1(1, 0, 0) - t3dg_2(1, 0, 0) * 10, "T3dg*T(1,0,0)");
30  test_for_zero(t3dg_1(1, 0, 1) - t3dg_2(1, 0, 1) * 10, "T3dg*T(1,0,1)");
31  test_for_zero(t3dg_1(1, 0, 2) - t3dg_2(1, 0, 2) * 10, "T3dg*T(1,0,2)");
32  test_for_zero(t3dg_1(1, 1, 0) - t3dg_2(1, 1, 0) * 10, "T3dg*T(1,1,0)");
33  test_for_zero(t3dg_1(1, 1, 1) - t3dg_2(1, 1, 1) * 10, "T3dg*T(1,1,1)");
34  test_for_zero(t3dg_1(1, 1, 2) - t3dg_2(1, 1, 2) * 10, "T3dg*T(1,1,2)");
35  test_for_zero(t3dg_1(1, 2, 0) - t3dg_2(1, 2, 0) * 10, "T3dg*T(1,2,0)");
36  test_for_zero(t3dg_1(1, 2, 1) - t3dg_2(1, 2, 1) * 10, "T3dg*T(1,2,1)");
37  test_for_zero(t3dg_1(1, 2, 2) - t3dg_2(1, 2, 2) * 10, "T3dg*T(1,2,2)");
38  test_for_zero(t3dg_1(2, 0, 0) - t3dg_2(2, 0, 0) * 10, "T3dg*T(2,0,0)");
39  test_for_zero(t3dg_1(2, 0, 1) - t3dg_2(2, 0, 1) * 10, "T3dg*T(2,0,1)");
40  test_for_zero(t3dg_1(2, 0, 2) - t3dg_2(2, 0, 2) * 10, "T3dg*T(2,0,2)");
41  test_for_zero(t3dg_1(2, 1, 0) - t3dg_2(2, 1, 0) * 10, "T3dg*T(2,1,0)");
42  test_for_zero(t3dg_1(2, 1, 1) - t3dg_2(2, 1, 1) * 10, "T3dg*T(2,1,1)");
43  test_for_zero(t3dg_1(2, 1, 2) - t3dg_2(2, 1, 2) * 10, "T3dg*T(2,1,2)");
44  test_for_zero(t3dg_1(2, 2, 0) - t3dg_2(2, 2, 0) * 10, "T3dg*T(2,2,0)");
45  test_for_zero(t3dg_1(2, 2, 1) - t3dg_2(2, 2, 1) * 10, "T3dg*T(2,2,1)");
46  test_for_zero(t3dg_1(2, 2, 2) - t3dg_2(2, 2, 2) * 10, "T3dg*T(2,2,2)");
47 
48  t3dg_1(i, j, k) = t3dg_2(i, j, k) / 10;
49  test_for_zero(t3dg_1(0, 0, 0) - t3dg_2(0, 0, 0) / 10, "T3dg/T(0,0,0)");
50  test_for_zero(t3dg_1(0, 0, 1) - t3dg_2(0, 0, 1) / 10, "T3dg/T(0,0,1)");
51  test_for_zero(t3dg_1(0, 0, 2) - t3dg_2(0, 0, 2) / 10, "T3dg/T(0,0,2)");
52  test_for_zero(t3dg_1(0, 1, 0) - t3dg_2(0, 1, 0) / 10, "T3dg/T(0,1,0)");
53  test_for_zero(t3dg_1(0, 1, 1) - t3dg_2(0, 1, 1) / 10, "T3dg/T(0,1,1)");
54  test_for_zero(t3dg_1(0, 1, 2) - t3dg_2(0, 1, 2) / 10, "T3dg/T(0,1,2)");
55  test_for_zero(t3dg_1(0, 2, 0) - t3dg_2(0, 2, 0) / 10, "T3dg/T(0,2,0)");
56  test_for_zero(t3dg_1(0, 2, 1) - t3dg_2(0, 2, 1) / 10, "T3dg/T(0,2,1)");
57  test_for_zero(t3dg_1(0, 2, 2) - t3dg_2(0, 2, 2) / 10, "T3dg/T(0,2,2)");
58  test_for_zero(t3dg_1(1, 0, 0) - t3dg_2(1, 0, 0) / 10, "T3dg/T(1,0,0)");
59  test_for_zero(t3dg_1(1, 0, 1) - t3dg_2(1, 0, 1) / 10, "T3dg/T(1,0,1)");
60  test_for_zero(t3dg_1(1, 0, 2) - t3dg_2(1, 0, 2) / 10, "T3dg/T(1,0,2)");
61  test_for_zero(t3dg_1(1, 1, 0) - t3dg_2(1, 1, 0) / 10, "T3dg/T(1,1,0)");
62  test_for_zero(t3dg_1(1, 1, 1) - t3dg_2(1, 1, 1) / 10, "T3dg/T(1,1,1)");
63  test_for_zero(t3dg_1(1, 1, 2) - t3dg_2(1, 1, 2) / 10, "T3dg/T(1,1,2)");
64  test_for_zero(t3dg_1(1, 2, 0) - t3dg_2(1, 2, 0) / 10, "T3dg/T(1,2,0)");
65  test_for_zero(t3dg_1(1, 2, 1) - t3dg_2(1, 2, 1) / 10, "T3dg/T(1,2,1)");
66  test_for_zero(t3dg_1(1, 2, 2) - t3dg_2(1, 2, 2) / 10, "T3dg/T(1,2,2)");
67  test_for_zero(t3dg_1(2, 0, 0) - t3dg_2(2, 0, 0) / 10, "T3dg/T(2,0,0)");
68  test_for_zero(t3dg_1(2, 0, 1) - t3dg_2(2, 0, 1) / 10, "T3dg/T(2,0,1)");
69  test_for_zero(t3dg_1(2, 0, 2) - t3dg_2(2, 0, 2) / 10, "T3dg/T(2,0,2)");
70  test_for_zero(t3dg_1(2, 1, 0) - t3dg_2(2, 1, 0) / 10, "T3dg/T(2,1,0)");
71  test_for_zero(t3dg_1(2, 1, 1) - t3dg_2(2, 1, 1) / 10, "T3dg/T(2,1,1)");
72  test_for_zero(t3dg_1(2, 1, 2) - t3dg_2(2, 1, 2) / 10, "T3dg/T(2,1,2)");
73  test_for_zero(t3dg_1(2, 2, 0) - t3dg_2(2, 2, 0) / 10, "T3dg/T(2,2,0)");
74  test_for_zero(t3dg_1(2, 2, 1) - t3dg_2(2, 2, 1) / 10, "T3dg/T(2,2,1)");
75  test_for_zero(t3dg_1(2, 2, 2) - t3dg_2(2, 2, 2) / 10, "T3dg/T(2,2,2)");
76 }

◆ test_T3dg_17()

void test_T3dg_17 ( const Tensor1< double, 3 > &  t1_2,
Tensor2_symmetric< double, 3 > &  t2s_1,
const Dg< double, 3, 3 > &  t3dg_2,
const Dg< double, 3, 3 > &  t3dg_3 
)

Definition at line 7 of file test_T3dg_17.cpp.

11 {
12  Index<'i', 3> i;
13  Index<'j', 3> j;
14  Index<'k', 3> k;
15 
16  Number<0> N0;
17  Number<1> N1;
18  Number<2> N2;
19 
20  /* Dg tests */
21 
22  t2s_1(i, j) = t3dg_2(i, j, k) * t1_2(k);
23  test_for_zero(t2s_1(0, 0)
24  - (t3dg_2(0, 0, 0) * t1_2(0) + t3dg_2(0, 0, 1) * t1_2(1)
25  + t3dg_2(0, 0, 2) * t1_2(2)),
26  "T3dg(i,j,k)*T1(k)(0,0)");
27  test_for_zero(t2s_1(0, 1)
28  - (t3dg_2(0, 1, 0) * t1_2(0) + t3dg_2(0, 1, 1) * t1_2(1)
29  + t3dg_2(0, 1, 2) * t1_2(2)),
30  "T3dg(i,j,k)*T1(k)(0,1)");
31  test_for_zero(t2s_1(0, 2)
32  - (t3dg_2(0, 2, 0) * t1_2(0) + t3dg_2(0, 2, 1) * t1_2(1)
33  + t3dg_2(0, 2, 2) * t1_2(2)),
34  "T3dg(i,j,k)*T1(k)(0,2)");
35  test_for_zero(t2s_1(1, 0)
36  - (t3dg_2(1, 0, 0) * t1_2(0) + t3dg_2(1, 0, 1) * t1_2(1)
37  + t3dg_2(1, 0, 2) * t1_2(2)),
38  "T3dg(i,j,k)*T1(k)(1,0)");
39  test_for_zero(t2s_1(1, 1)
40  - (t3dg_2(1, 1, 0) * t1_2(0) + t3dg_2(1, 1, 1) * t1_2(1)
41  + t3dg_2(1, 1, 2) * t1_2(2)),
42  "T3dg(i,j,k)*T1(k)(1,1)");
43  test_for_zero(t2s_1(1, 2)
44  - (t3dg_2(1, 2, 0) * t1_2(0) + t3dg_2(1, 2, 1) * t1_2(1)
45  + t3dg_2(1, 2, 2) * t1_2(2)),
46  "T3dg(i,j,k)*T1(k)(1,2)");
47  test_for_zero(t2s_1(2, 0)
48  - (t3dg_2(2, 0, 0) * t1_2(0) + t3dg_2(2, 0, 1) * t1_2(1)
49  + t3dg_2(2, 0, 2) * t1_2(2)),
50  "T3dg(i,j,k)*T1(k)(2,0)");
51  test_for_zero(t2s_1(2, 1)
52  - (t3dg_2(2, 1, 0) * t1_2(0) + t3dg_2(2, 1, 1) * t1_2(1)
53  + t3dg_2(2, 1, 2) * t1_2(2)),
54  "T3dg(i,j,k)*T1(k)(2,1)");
55  test_for_zero(t2s_1(2, 2)
56  - (t3dg_2(2, 2, 0) * t1_2(0) + t3dg_2(2, 2, 1) * t1_2(1)
57  + t3dg_2(2, 2, 2) * t1_2(2)),
58  "T3dg(i,j,k)*T1(k)(2,2)");
59 
60  t2s_1(i, j) = t1_2(k) * t3dg_3(i, j, k);
61  test_for_zero(t2s_1(0, 0)
62  - (t3dg_3(0, 0, 0) * t1_2(0) + t3dg_3(0, 0, 1) * t1_2(1)
63  + t3dg_3(0, 0, 2) * t1_2(2)),
64  "T1(k)*T3dg(i,j,k)(0,0)");
65  test_for_zero(t2s_1(0, 1)
66  - (t3dg_3(0, 1, 0) * t1_2(0) + t3dg_3(0, 1, 1) * t1_2(1)
67  + t3dg_3(0, 1, 2) * t1_2(2)),
68  "T1(k)*T3dg(i,j,k)(0,1)");
69  test_for_zero(t2s_1(0, 2)
70  - (t3dg_3(0, 2, 0) * t1_2(0) + t3dg_3(0, 2, 1) * t1_2(1)
71  + t3dg_3(0, 2, 2) * t1_2(2)),
72  "T1(k)*T3dg(i,j,k)(0,2)");
73  test_for_zero(t2s_1(1, 0)
74  - (t3dg_3(1, 0, 0) * t1_2(0) + t3dg_3(1, 0, 1) * t1_2(1)
75  + t3dg_3(1, 0, 2) * t1_2(2)),
76  "T1(k)*T3dg(i,j,k)(1,0)");
77  test_for_zero(t2s_1(1, 1)
78  - (t3dg_3(1, 1, 0) * t1_2(0) + t3dg_3(1, 1, 1) * t1_2(1)
79  + t3dg_3(1, 1, 2) * t1_2(2)),
80  "T1(k)*T3dg(i,j,k)(1,1)");
81  test_for_zero(t2s_1(1, 2)
82  - (t3dg_3(1, 2, 0) * t1_2(0) + t3dg_3(1, 2, 1) * t1_2(1)
83  + t3dg_3(1, 2, 2) * t1_2(2)),
84  "T1(k)*T3dg(i,j,k)(1,2)");
85  test_for_zero(t2s_1(2, 0)
86  - (t3dg_3(2, 0, 0) * t1_2(0) + t3dg_3(2, 0, 1) * t1_2(1)
87  + t3dg_3(2, 0, 2) * t1_2(2)),
88  "T1(k)*T3dg(i,j,k)(2,0)");
89  test_for_zero(t2s_1(2, 1)
90  - (t3dg_3(2, 1, 0) * t1_2(0) + t3dg_3(2, 1, 1) * t1_2(1)
91  + t3dg_3(2, 1, 2) * t1_2(2)),
92  "T1(k)*T3dg(i,j,k)(2,1)");
93  test_for_zero(t2s_1(2, 2)
94  - (t3dg_3(2, 2, 0) * t1_2(0) + t3dg_3(2, 2, 1) * t1_2(1)
95  + t3dg_3(2, 2, 2) * t1_2(2)),
96  "T1(k)*T3dg(i,j,k)(2,2)");
97 }

◆ test_T3dg_18()

void test_T3dg_18 ( const Tensor1< double, 3 > &  t1_2,
Tensor2< double, 3, 3 > &  t2_1,
const Dg< double, 3, 3 > &  t3dg_2,
const Dg< double, 3, 3 > &  t3dg_3 
)

Definition at line 7 of file test_T3dg_18.cpp.

10 {
11  Index<'i', 3> i;
12  Index<'j', 3> j;
13  Index<'k', 3> k;
14 
15  Number<0> N0;
16  Number<1> N1;
17  Number<2> N2;
18 
19  /* Dg tests */
20 
21  t2_1(i, j) = t3dg_2(i, k, j) * t1_2(k);
22  test_for_zero(t2_1(0, 0)
23  - (t3dg_2(0, 0, 0) * t1_2(0) + t3dg_2(0, 1, 0) * t1_2(1)
24  + t3dg_2(0, 2, 0) * t1_2(2)),
25  "T3dg(i,k,j)*T1(k)(0,0)");
26  test_for_zero(t2_1(0, 1)
27  - (t3dg_2(0, 0, 1) * t1_2(0) + t3dg_2(0, 1, 1) * t1_2(1)
28  + t3dg_2(0, 2, 1) * t1_2(2)),
29  "T3dg(i,k,j)*T1(k)(0,1)");
30  test_for_zero(t2_1(0, 2)
31  - (t3dg_2(0, 0, 2) * t1_2(0) + t3dg_2(0, 1, 2) * t1_2(1)
32  + t3dg_2(0, 2, 2) * t1_2(2)),
33  "T3dg(i,k,j)*T1(k)(0,2)");
34  test_for_zero(t2_1(1, 0)
35  - (t3dg_2(1, 0, 0) * t1_2(0) + t3dg_2(1, 1, 0) * t1_2(1)
36  + t3dg_2(1, 2, 0) * t1_2(2)),
37  "T3dg(i,k,j)*T1(k)(1,0)");
38  test_for_zero(t2_1(1, 1)
39  - (t3dg_2(1, 0, 1) * t1_2(0) + t3dg_2(1, 1, 1) * t1_2(1)
40  + t3dg_2(1, 2, 1) * t1_2(2)),
41  "T3dg(i,k,j)*T1(k)(1,1)");
42  test_for_zero(t2_1(1, 2)
43  - (t3dg_2(1, 0, 2) * t1_2(0) + t3dg_2(1, 1, 2) * t1_2(1)
44  + t3dg_2(1, 2, 2) * t1_2(2)),
45  "T3dg(i,k,j)*T1(k)(1,2)");
46  test_for_zero(t2_1(2, 0)
47  - (t3dg_2(2, 0, 0) * t1_2(0) + t3dg_2(2, 1, 0) * t1_2(1)
48  + t3dg_2(2, 2, 0) * t1_2(2)),
49  "T3dg(i,k,j)*T1(k)(2,0)");
50  test_for_zero(t2_1(2, 1)
51  - (t3dg_2(2, 0, 1) * t1_2(0) + t3dg_2(2, 1, 1) * t1_2(1)
52  + t3dg_2(2, 2, 1) * t1_2(2)),
53  "T3dg(i,k,j)*T1(k)(2,1)");
54  test_for_zero(t2_1(2, 2)
55  - (t3dg_2(2, 0, 2) * t1_2(0) + t3dg_2(2, 1, 2) * t1_2(1)
56  + t3dg_2(2, 2, 2) * t1_2(2)),
57  "T3dg(i,k,j)*T1(k)(2,2)");
58 
59  t2_1(i, j) = t1_2(k) * t3dg_3(i, k, j);
60  test_for_zero(t2_1(0, 0)
61  - (t3dg_3(0, 0, 0) * t1_2(0) + t3dg_3(0, 1, 0) * t1_2(1)
62  + t3dg_3(0, 2, 0) * t1_2(2)),
63  "T1(k)*T3dg(i,k,j)(0,0)");
64  test_for_zero(t2_1(0, 1)
65  - (t3dg_3(0, 0, 1) * t1_2(0) + t3dg_3(0, 1, 1) * t1_2(1)
66  + t3dg_3(0, 2, 1) * t1_2(2)),
67  "T1(k)*T3dg(i,k,j)(0,1)");
68  test_for_zero(t2_1(0, 2)
69  - (t3dg_3(0, 0, 2) * t1_2(0) + t3dg_3(0, 1, 2) * t1_2(1)
70  + t3dg_3(0, 2, 2) * t1_2(2)),
71  "T1(k)*T3dg(i,k,j)(0,2)");
72  test_for_zero(t2_1(1, 0)
73  - (t3dg_3(1, 0, 0) * t1_2(0) + t3dg_3(1, 1, 0) * t1_2(1)
74  + t3dg_3(1, 2, 0) * t1_2(2)),
75  "T1(k)*T3dg(i,k,j)(1,0)");
76  test_for_zero(t2_1(1, 1)
77  - (t3dg_3(1, 0, 1) * t1_2(0) + t3dg_3(1, 1, 1) * t1_2(1)
78  + t3dg_3(1, 2, 1) * t1_2(2)),
79  "T1(k)*T3dg(i,k,j)(1,1)");
80  test_for_zero(t2_1(1, 2)
81  - (t3dg_3(1, 0, 2) * t1_2(0) + t3dg_3(1, 1, 2) * t1_2(1)
82  + t3dg_3(1, 2, 2) * t1_2(2)),
83  "T1(k)*T3dg(i,k,j)(1,2)");
84  test_for_zero(t2_1(2, 0)
85  - (t3dg_3(2, 0, 0) * t1_2(0) + t3dg_3(2, 1, 0) * t1_2(1)
86  + t3dg_3(2, 2, 0) * t1_2(2)),
87  "T1(k)*T3dg(i,k,j)(2,0)");
88  test_for_zero(t2_1(2, 1)
89  - (t3dg_3(2, 0, 1) * t1_2(0) + t3dg_3(2, 1, 1) * t1_2(1)
90  + t3dg_3(2, 2, 1) * t1_2(2)),
91  "T1(k)*T3dg(i,k,j)(2,1)");
92  test_for_zero(t2_1(2, 2)
93  - (t3dg_3(2, 0, 2) * t1_2(0) + t3dg_3(2, 1, 2) * t1_2(1)
94  + t3dg_3(2, 2, 2) * t1_2(2)),
95  "T1(k)*T3dg(i,k,j)(2,2)");
96 }

◆ test_T3dg_19()

void test_T3dg_19 ( const Tensor1< double, 3 > &  t1_2,
Tensor2< double, 3, 3 > &  t2_1,
const Dg< double, 3, 3 > &  t3dg_2,
const Dg< double, 3, 3 > &  t3dg_3 
)

Definition at line 7 of file test_T3dg_19.cpp.

10 {
11  Index<'i', 3> i;
12  Index<'j', 3> j;
13  Index<'k', 3> k;
14 
15  Number<0> N0;
16  Number<1> N1;
17  Number<2> N2;
18 
19  /* Dg tests */
20 
21  t2_1(i, j) = t3dg_2(k, i, j) * t1_2(k);
22  test_for_zero(t2_1(0, 0)
23  - (t3dg_2(0, 0, 0) * t1_2(0) + t3dg_2(1, 0, 0) * t1_2(1)
24  + t3dg_2(2, 0, 0) * t1_2(2)),
25  "T3dg(k,i,j)*T1(k)(0,0)");
26  test_for_zero(t2_1(0, 1)
27  - (t3dg_2(0, 0, 1) * t1_2(0) + t3dg_2(1, 0, 1) * t1_2(1)
28  + t3dg_2(2, 0, 1) * t1_2(2)),
29  "T3dg(k,i,j)*T1(k)(0,1)");
30  test_for_zero(t2_1(0, 2)
31  - (t3dg_2(0, 0, 2) * t1_2(0) + t3dg_2(1, 0, 2) * t1_2(1)
32  + t3dg_2(2, 0, 2) * t1_2(2)),
33  "T3dg(k,i,j)*T1(k)(0,2)");
34  test_for_zero(t2_1(1, 0)
35  - (t3dg_2(0, 1, 0) * t1_2(0) + t3dg_2(1, 1, 0) * t1_2(1)
36  + t3dg_2(2, 1, 0) * t1_2(2)),
37  "T3dg(k,i,j)*T1(k)(1,0)");
38  test_for_zero(t2_1(1, 1)
39  - (t3dg_2(0, 1, 1) * t1_2(0) + t3dg_2(1, 1, 1) * t1_2(1)
40  + t3dg_2(2, 1, 1) * t1_2(2)),
41  "T3dg(k,i,j)*T1(k)(1,1)");
42  test_for_zero(t2_1(1, 2)
43  - (t3dg_2(0, 1, 2) * t1_2(0) + t3dg_2(1, 1, 2) * t1_2(1)
44  + t3dg_2(2, 1, 2) * t1_2(2)),
45  "T3dg(k,i,j)*T1(k)(1,2)");
46  test_for_zero(t2_1(2, 0)
47  - (t3dg_2(0, 2, 0) * t1_2(0) + t3dg_2(1, 2, 0) * t1_2(1)
48  + t3dg_2(2, 2, 0) * t1_2(2)),
49  "T3dg(k,i,j)*T1(k)(2,0)");
50  test_for_zero(t2_1(2, 1)
51  - (t3dg_2(0, 2, 1) * t1_2(0) + t3dg_2(1, 2, 1) * t1_2(1)
52  + t3dg_2(2, 2, 1) * t1_2(2)),
53  "T3dg(k,i,j)*T1(k)(2,1)");
54  test_for_zero(t2_1(2, 2)
55  - (t3dg_2(0, 2, 2) * t1_2(0) + t3dg_2(1, 2, 2) * t1_2(1)
56  + t3dg_2(2, 2, 2) * t1_2(2)),
57  "T3dg(k,i,j)*T1(k)(2,2)");
58 
59  t2_1(i, j) = t1_2(k) * t3dg_3(k, i, j);
60  test_for_zero(t2_1(0, 0)
61  - (t3dg_3(0, 0, 0) * t1_2(0) + t3dg_3(1, 0, 0) * t1_2(1)
62  + t3dg_3(2, 0, 0) * t1_2(2)),
63  "T1(k)*T3dg(k,i,j)(0,0)");
64  test_for_zero(t2_1(0, 1)
65  - (t3dg_3(0, 0, 1) * t1_2(0) + t3dg_3(1, 0, 1) * t1_2(1)
66  + t3dg_3(2, 0, 1) * t1_2(2)),
67  "T1(k)*T3dg(k,i,j)(0,1)");
68  test_for_zero(t2_1(0, 2)
69  - (t3dg_3(0, 0, 2) * t1_2(0) + t3dg_3(1, 0, 2) * t1_2(1)
70  + t3dg_3(2, 0, 2) * t1_2(2)),
71  "T1(k)*T3dg(k,i,j)(0,2)");
72  test_for_zero(t2_1(1, 0)
73  - (t3dg_3(0, 1, 0) * t1_2(0) + t3dg_3(1, 1, 0) * t1_2(1)
74  + t3dg_3(2, 1, 0) * t1_2(2)),
75  "T1(k)*T3dg(k,i,j)(1,0)");
76  test_for_zero(t2_1(1, 1)
77  - (t3dg_3(0, 1, 1) * t1_2(0) + t3dg_3(1, 1, 1) * t1_2(1)
78  + t3dg_3(2, 1, 1) * t1_2(2)),
79  "T1(k)*T3dg(k,i,j)(1,1)");
80  test_for_zero(t2_1(1, 2)
81  - (t3dg_3(0, 1, 2) * t1_2(0) + t3dg_3(1, 1, 2) * t1_2(1)
82  + t3dg_3(2, 1, 2) * t1_2(2)),
83  "T1(k)*T3dg(k,i,j)(1,2)");
84  test_for_zero(t2_1(2, 0)
85  - (t3dg_3(0, 2, 0) * t1_2(0) + t3dg_3(1, 2, 0) * t1_2(1)
86  + t3dg_3(2, 2, 0) * t1_2(2)),
87  "T1(k)*T3dg(k,i,j)(2,0)");
88  test_for_zero(t2_1(2, 1)
89  - (t3dg_3(0, 2, 1) * t1_2(0) + t3dg_3(1, 2, 1) * t1_2(1)
90  + t3dg_3(2, 2, 1) * t1_2(2)),
91  "T1(k)*T3dg(k,i,j)(2,1)");
92  test_for_zero(t2_1(2, 2)
93  - (t3dg_3(0, 2, 2) * t1_2(0) + t3dg_3(1, 2, 2) * t1_2(1)
94  + t3dg_3(2, 2, 2) * t1_2(2)),
95  "T1(k)*T3dg(k,i,j)(2,2)");
96 }

◆ test_T3dg_20()

void test_T3dg_20 ( const Tensor2< double, 3, 3 > &  t2_2,
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_T3dg_20.cpp.

10 {
11  Index<'i', 3> i;
12  Index<'j', 3> j;
13  Index<'k', 3> k;
14  Index<'l', 3> l;
15 
16  Number<0> N0;
17  Number<1> N1;
18  Number<2> N2;
19 
20  /* Dg tests */
21 
22  t3dg_1(i, j, k) = t3dg_2(i, j, l) * t2_2(l, k);
23  test_for_zero(t3dg_1(0, 0, 0)
24  - (t3dg_2(0, 0, 0) * t2_2(0, 0)
25  + t3dg_2(0, 0, 1) * t2_2(1, 0)
26  + t3dg_2(0, 0, 2) * t2_2(2, 0)),
27  "T3dg(i,j,l)*T2(l,k)(0,0,0)");
28  test_for_zero(t3dg_1(0, 0, 1)
29  - (t3dg_2(0, 0, 0) * t2_2(0, 1)
30  + t3dg_2(0, 0, 1) * t2_2(1, 1)
31  + t3dg_2(0, 0, 2) * t2_2(2, 1)),
32  "T3dg(i,j,l)*T2(l,k)(0,0,1)");
33  test_for_zero(t3dg_1(0, 0, 2)
34  - (t3dg_2(0, 0, 0) * t2_2(0, 2)
35  + t3dg_2(0, 0, 1) * t2_2(1, 2)
36  + t3dg_2(0, 0, 2) * t2_2(2, 2)),
37  "T3dg(i,j,l)*T2(l,k)(0,0,2)");
38  test_for_zero(t3dg_1(0, 1, 0)
39  - (t3dg_2(0, 1, 0) * t2_2(0, 0)
40  + t3dg_2(0, 1, 1) * t2_2(1, 0)
41  + t3dg_2(0, 1, 2) * t2_2(2, 0)),
42  "T3dg(i,j,l)*T2(l,k)(0,1,0)");
43  test_for_zero(t3dg_1(0, 1, 1)
44  - (t3dg_2(0, 1, 0) * t2_2(0, 1)
45  + t3dg_2(0, 1, 1) * t2_2(1, 1)
46  + t3dg_2(0, 1, 2) * t2_2(2, 1)),
47  "T3dg(i,j,l)*T2(l,k)(0,1,1)");
48  test_for_zero(t3dg_1(0, 1, 2)
49  - (t3dg_2(0, 1, 0) * t2_2(0, 2)
50  + t3dg_2(0, 1, 1) * t2_2(1, 2)
51  + t3dg_2(0, 1, 2) * t2_2(2, 2)),
52  "T3dg(i,j,l)*T2(l,k)(0,1,2)");
53  test_for_zero(t3dg_1(0, 2, 0)
54  - (t3dg_2(0, 2, 0) * t2_2(0, 0)
55  + t3dg_2(0, 2, 1) * t2_2(1, 0)
56  + t3dg_2(0, 2, 2) * t2_2(2, 0)),
57  "T3dg(i,j,l)*T2(l,k)(0,2,0)");
58  test_for_zero(t3dg_1(0, 2, 1)
59  - (t3dg_2(0, 2, 0) * t2_2(0, 1)
60  + t3dg_2(0, 2, 1) * t2_2(1, 1)
61  + t3dg_2(0, 2, 2) * t2_2(2, 1)),
62  "T3dg(i,j,l)*T2(l,k)(0,2,1)");
63  test_for_zero(t3dg_1(0, 2, 2)
64  - (t3dg_2(0, 2, 0) * t2_2(0, 2)
65  + t3dg_2(0, 2, 1) * t2_2(1, 2)
66  + t3dg_2(0, 2, 2) * t2_2(2, 2)),
67  "T3dg(i,j,l)*T2(l,k)(0,2,2)");
68  test_for_zero(t3dg_1(1, 0, 0)
69  - (t3dg_2(1, 0, 0) * t2_2(0, 0)
70  + t3dg_2(1, 0, 1) * t2_2(1, 0)
71  + t3dg_2(1, 0, 2) * t2_2(2, 0)),
72  "T3dg(i,j,l)*T2(l,k)(1,0,0)");
73  test_for_zero(t3dg_1(1, 0, 1)
74  - (t3dg_2(1, 0, 0) * t2_2(0, 1)
75  + t3dg_2(1, 0, 1) * t2_2(1, 1)
76  + t3dg_2(1, 0, 2) * t2_2(2, 1)),
77  "T3dg(i,j,l)*T2(l,k)(1,0,1)");
78  test_for_zero(t3dg_1(1, 0, 2)
79  - (t3dg_2(1, 0, 0) * t2_2(0, 2)
80  + t3dg_2(1, 0, 1) * t2_2(1, 2)
81  + t3dg_2(1, 0, 2) * t2_2(2, 2)),
82  "T3dg(i,j,l)*T2(l,k)(1,0,2)");
83  test_for_zero(t3dg_1(1, 1, 0)
84  - (t3dg_2(1, 1, 0) * t2_2(0, 0)
85  + t3dg_2(1, 1, 1) * t2_2(1, 0)
86  + t3dg_2(1, 1, 2) * t2_2(2, 0)),
87  "T3dg(i,j,l)*T2(l,k)(1,1,0)");
88  test_for_zero(t3dg_1(1, 1, 1)
89  - (t3dg_2(1, 1, 0) * t2_2(0, 1)
90  + t3dg_2(1, 1, 1) * t2_2(1, 1)
91  + t3dg_2(1, 1, 2) * t2_2(2, 1)),
92  "T3dg(i,j,l)*T2(l,k)(1,1,1)");
93  test_for_zero(t3dg_1(1, 1, 2)
94  - (t3dg_2(1, 1, 0) * t2_2(0, 2)
95  + t3dg_2(1, 1, 1) * t2_2(1, 2)
96  + t3dg_2(1, 1, 2) * t2_2(2, 2)),
97  "T3dg(i,j,l)*T2(l,k)(1,1,2)");
98  test_for_zero(t3dg_1(1, 2, 0)
99  - (t3dg_2(1, 2, 0) * t2_2(0, 0)
100  + t3dg_2(1, 2, 1) * t2_2(1, 0)
101  + t3dg_2(1, 2, 2) * t2_2(2, 0)),
102  "T3dg(i,j,l)*T2(l,k)(1,2,0)");
103  test_for_zero(t3dg_1(1, 2, 1)
104  - (t3dg_2(1, 2, 0) * t2_2(0, 1)
105  + t3dg_2(1, 2, 1) * t2_2(1, 1)
106  + t3dg_2(1, 2, 2) * t2_2(2, 1)),
107  "T3dg(i,j,l)*T2(l,k)(1,2,1)");
108  test_for_zero(t3dg_1(1, 2, 2)
109  - (t3dg_2(1, 2, 0) * t2_2(0, 2)
110  + t3dg_2(1, 2, 1) * t2_2(1, 2)
111  + t3dg_2(1, 2, 2) * t2_2(2, 2)),
112  "T3dg(i,j,l)*T2(l,k)(1,2,2)");
113  test_for_zero(t3dg_1(2, 0, 0)
114  - (t3dg_2(2, 0, 0) * t2_2(0, 0)
115  + t3dg_2(2, 0, 1) * t2_2(1, 0)
116  + t3dg_2(2, 0, 2) * t2_2(2, 0)),
117  "T3dg(i,j,l)*T2(l,k)(2,0,0)");
118  test_for_zero(t3dg_1(2, 0, 1)
119  - (t3dg_2(2, 0, 0) * t2_2(0, 1)
120  + t3dg_2(2, 0, 1) * t2_2(1, 1)
121  + t3dg_2(2, 0, 2) * t2_2(2, 1)),
122  "T3dg(i,j,l)*T2(l,k)(2,0,1)");
123  test_for_zero(t3dg_1(2, 0, 2)
124  - (t3dg_2(2, 0, 0) * t2_2(0, 2)
125  + t3dg_2(2, 0, 1) * t2_2(1, 2)
126  + t3dg_2(2, 0, 2) * t2_2(2, 2)),
127  "T3dg(i,j,l)*T2(l,k)(2,0,2)");
128  test_for_zero(t3dg_1(2, 1, 0)
129  - (t3dg_2(2, 1, 0) * t2_2(0, 0)
130  + t3dg_2(2, 1, 1) * t2_2(1, 0)
131  + t3dg_2(2, 1, 2) * t2_2(2, 0)),
132  "T3dg(i,j,l)*T2(l,k)(2,1,0)");
133  test_for_zero(t3dg_1(2, 1, 1)
134  - (t3dg_2(2, 1, 0) * t2_2(0, 1)
135  + t3dg_2(2, 1, 1) * t2_2(1, 1)
136  + t3dg_2(2, 1, 2) * t2_2(2, 1)),
137  "T3dg(i,j,l)*T2(l,k)(2,1,1)");
138  test_for_zero(t3dg_1(2, 1, 2)
139  - (t3dg_2(2, 1, 0) * t2_2(0, 2)
140  + t3dg_2(2, 1, 1) * t2_2(1, 2)
141  + t3dg_2(2, 1, 2) * t2_2(2, 2)),
142  "T3dg(i,j,l)*T2(l,k)(2,1,2)");
143  test_for_zero(t3dg_1(2, 2, 0)
144  - (t3dg_2(2, 2, 0) * t2_2(0, 0)
145  + t3dg_2(2, 2, 1) * t2_2(1, 0)
146  + t3dg_2(2, 2, 2) * t2_2(2, 0)),
147  "T3dg(i,j,l)*T2(l,k)(2,2,0)");
148  test_for_zero(t3dg_1(2, 2, 1)
149  - (t3dg_2(2, 2, 0) * t2_2(0, 1)
150  + t3dg_2(2, 2, 1) * t2_2(1, 1)
151  + t3dg_2(2, 2, 2) * t2_2(2, 1)),
152  "T3dg(i,j,l)*T2(l,k)(2,2,1)");
153  test_for_zero(t3dg_1(2, 2, 2)
154  - (t3dg_2(2, 2, 0) * t2_2(0, 2)
155  + t3dg_2(2, 2, 1) * t2_2(1, 2)
156  + t3dg_2(2, 2, 2) * t2_2(2, 2)),
157  "T3dg(i,j,l)*T2(l,k)(2,2,2)");
158 
159  t3dg_1(i, j, k) = t2_2(l, k) * t3dg_3(i, j, l);
160  test_for_zero(t3dg_1(0, 0, 0)
161  - (t3dg_3(0, 0, 0) * t2_2(0, 0)
162  + t3dg_3(0, 0, 1) * t2_2(1, 0)
163  + t3dg_3(0, 0, 2) * t2_2(2, 0)),
164  "T2(l,k)*T3dg(i,j,l)(0,0,0)");
165  test_for_zero(t3dg_1(0, 0, 1)
166  - (t3dg_3(0, 0, 0) * t2_2(0, 1)
167  + t3dg_3(0, 0, 1) * t2_2(1, 1)
168  + t3dg_3(0, 0, 2) * t2_2(2, 1)),
169  "T2(l,k)*T3dg(i,j,l)(0,0,1)");
170  test_for_zero(t3dg_1(0, 0, 2)
171  - (t3dg_3(0, 0, 0) * t2_2(0, 2)
172  + t3dg_3(0, 0, 1) * t2_2(1, 2)
173  + t3dg_3(0, 0, 2) * t2_2(2, 2)),
174  "T2(l,k)*T3dg(i,j,l)(0,0,2)");
175  test_for_zero(t3dg_1(0, 1, 0)
176  - (t3dg_3(0, 1, 0) * t2_2(0, 0)
177  + t3dg_3(0, 1, 1) * t2_2(1, 0)
178  + t3dg_3(0, 1, 2) * t2_2(2, 0)),
179  "T2(l,k)*T3dg(i,j,l)(0,1,0)");
180  test_for_zero(t3dg_1(0, 1, 1)
181  - (t3dg_3(0, 1, 0) * t2_2(0, 1)
182  + t3dg_3(0, 1, 1) * t2_2(1, 1)
183  + t3dg_3(0, 1, 2) * t2_2(2, 1)),
184  "T2(l,k)*T3dg(i,j,l)(0,1,1)");
185  test_for_zero(t3dg_1(0, 1, 2)
186  - (t3dg_3(0, 1, 0) * t2_2(0, 2)
187  + t3dg_3(0, 1, 1) * t2_2(1, 2)
188  + t3dg_3(0, 1, 2) * t2_2(2, 2)),
189  "T2(l,k)*T3dg(i,j,l)(0,1,2)");
190  test_for_zero(t3dg_1(0, 2, 0)
191  - (t3dg_3(0, 2, 0) * t2_2(0, 0)
192  + t3dg_3(0, 2, 1) * t2_2(1, 0)
193  + t3dg_3(0, 2, 2) * t2_2(2, 0)),
194  "T2(l,k)*T3dg(i,j,l)(0,2,0)");
195  test_for_zero(t3dg_1(0, 2, 1)
196  - (t3dg_3(0, 2, 0) * t2_2(0, 1)
197  + t3dg_3(0, 2, 1) * t2_2(1, 1)
198  + t3dg_3(0, 2, 2) * t2_2(2, 1)),
199  "T2(l,k)*T3dg(i,j,l)(0,2,1)");
200  test_for_zero(t3dg_1(0, 2, 2)
201  - (t3dg_3(0, 2, 0) * t2_2(0, 2)
202  + t3dg_3(0, 2, 1) * t2_2(1, 2)
203  + t3dg_3(0, 2, 2) * t2_2(2, 2)),
204  "T2(l,k)*T3dg(i,j,l)(0,2,2)");
205  test_for_zero(t3dg_1(1, 0, 0)
206  - (t3dg_3(1, 0, 0) * t2_2(0, 0)
207  + t3dg_3(1, 0, 1) * t2_2(1, 0)
208  + t3dg_3(1, 0, 2) * t2_2(2, 0)),
209  "T2(l,k)*T3dg(i,j,l)(1,0,0)");
210  test_for_zero(t3dg_1(1, 0, 1)
211  - (t3dg_3(1, 0, 0) * t2_2(0, 1)
212  + t3dg_3(1, 0, 1) * t2_2(1, 1)
213  + t3dg_3(1, 0, 2) * t2_2(2, 1)),
214  "T2(l,k)*T3dg(i,j,l)(1,0,1)");
215  test_for_zero(t3dg_1(1, 0, 2)
216  - (t3dg_3(1, 0, 0) * t2_2(0, 2)
217  + t3dg_3(1, 0, 1) * t2_2(1, 2)
218  + t3dg_3(1, 0, 2) * t2_2(2, 2)),
219  "T2(l,k)*T3dg(i,j,l)(1,0,2)");
220  test_for_zero(t3dg_1(1, 1, 0)
221  - (t3dg_3(1, 1, 0) * t2_2(0, 0)
222  + t3dg_3(1, 1, 1) * t2_2(1, 0)
223  + t3dg_3(1, 1, 2) * t2_2(2, 0)),
224  "T2(l,k)*T3dg(i,j,l)(1,1,0)");
225  test_for_zero(t3dg_1(1, 1, 1)
226  - (t3dg_3(1, 1, 0) * t2_2(0, 1)
227  + t3dg_3(1, 1, 1) * t2_2(1, 1)
228  + t3dg_3(1, 1, 2) * t2_2(2, 1)),
229  "T2(l,k)*T3dg(i,j,l)(1,1,1)");
230  test_for_zero(t3dg_1(1, 1, 2)
231  - (t3dg_3(1, 1, 0) * t2_2(0, 2)
232  + t3dg_3(1, 1, 1) * t2_2(1, 2)
233  + t3dg_3(1, 1, 2) * t2_2(2, 2)),
234  "T2(l,k)*T3dg(i,j,l)(1,1,2)");
235  test_for_zero(t3dg_1(1, 2, 0)
236  - (t3dg_3(1, 2, 0) * t2_2(0, 0)
237  + t3dg_3(1, 2, 1) * t2_2(1, 0)
238  + t3dg_3(1, 2, 2) * t2_2(2, 0)),
239  "T2(l,k)*T3dg(i,j,l)(1,2,0)");
240  test_for_zero(t3dg_1(1, 2, 1)
241  - (t3dg_3(1, 2, 0) * t2_2(0, 1)
242  + t3dg_3(1, 2, 1) * t2_2(1, 1)
243  + t3dg_3(1, 2, 2) * t2_2(2, 1)),
244  "T2(l,k)*T3dg(i,j,l)(1,2,1)");
245  test_for_zero(t3dg_1(1, 2, 2)
246  - (t3dg_3(1, 2, 0) * t2_2(0, 2)
247  + t3dg_3(1, 2, 1) * t2_2(1, 2)
248  + t3dg_3(1, 2, 2) * t2_2(2, 2)),
249  "T2(l,k)*T3dg(i,j,l)(1,2,2)");
250  test_for_zero(t3dg_1(2, 0, 0)
251  - (t3dg_3(2, 0, 0) * t2_2(0, 0)
252  + t3dg_3(2, 0, 1) * t2_2(1, 0)
253  + t3dg_3(2, 0, 2) * t2_2(2, 0)),
254  "T2(l,k)*T3dg(i,j,l)(2,0,0)");
255  test_for_zero(t3dg_1(2, 0, 1)
256  - (t3dg_3(2, 0, 0) * t2_2(0, 1)
257  + t3dg_3(2, 0, 1) * t2_2(1, 1)
258  + t3dg_3(2, 0, 2) * t2_2(2, 1)),
259  "T2(l,k)*T3dg(i,j,l)(2,0,1)");
260  test_for_zero(t3dg_1(2, 0, 2)
261  - (t3dg_3(2, 0, 0) * t2_2(0, 2)
262  + t3dg_3(2, 0, 1) * t2_2(1, 2)
263  + t3dg_3(2, 0, 2) * t2_2(2, 2)),
264  "T2(l,k)*T3dg(i,j,l)(2,0,2)");
265  test_for_zero(t3dg_1(2, 1, 0)
266  - (t3dg_3(2, 1, 0) * t2_2(0, 0)
267  + t3dg_3(2, 1, 1) * t2_2(1, 0)
268  + t3dg_3(2, 1, 2) * t2_2(2, 0)),
269  "T2(l,k)*T3dg(i,j,l)(2,1,0)");
270  test_for_zero(t3dg_1(2, 1, 1)
271  - (t3dg_3(2, 1, 0) * t2_2(0, 1)
272  + t3dg_3(2, 1, 1) * t2_2(1, 1)
273  + t3dg_3(2, 1, 2) * t2_2(2, 1)),
274  "T2(l,k)*T3dg(i,j,l)(2,1,1)");
275  test_for_zero(t3dg_1(2, 1, 2)
276  - (t3dg_3(2, 1, 0) * t2_2(0, 2)
277  + t3dg_3(2, 1, 1) * t2_2(1, 2)
278  + t3dg_3(2, 1, 2) * t2_2(2, 2)),
279  "T2(l,k)*T3dg(i,j,l)(2,1,2)");
280  test_for_zero(t3dg_1(2, 2, 0)
281  - (t3dg_3(2, 2, 0) * t2_2(0, 0)
282  + t3dg_3(2, 2, 1) * t2_2(1, 0)
283  + t3dg_3(2, 2, 2) * t2_2(2, 0)),
284  "T2(l,k)*T3dg(i,j,l)(2,2,0)");
285  test_for_zero(t3dg_1(2, 2, 1)
286  - (t3dg_3(2, 2, 0) * t2_2(0, 1)
287  + t3dg_3(2, 2, 1) * t2_2(1, 1)
288  + t3dg_3(2, 2, 2) * t2_2(2, 1)),
289  "T2(l,k)*T3dg(i,j,l)(2,2,1)");
290  test_for_zero(t3dg_1(2, 2, 2)
291  - (t3dg_3(2, 2, 0) * t2_2(0, 2)
292  + t3dg_3(2, 2, 1) * t2_2(1, 2)
293  + t3dg_3(2, 2, 2) * t2_2(2, 2)),
294  "T2(l,k)*T3dg(i,j,l)(2,2,2)");
295 }

◆ test_T3dg_21()

void test_T3dg_21 ( const Tensor2< double, 3, 3 > &  t2_2,
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_T3dg_21.cpp.

10 {
11  Index<'i', 3> i;
12  Index<'j', 3> j;
13  Index<'k', 3> k;
14  Index<'l', 3> l;
15 
16  Number<0> N0;
17  Number<1> N1;
18  Number<2> N2;
19 
20  /* Dg tests */
21 
22  t3dg_1(i, j, k) = t3dg_2(i, j, l) * t2_2(k, l);
23  test_for_zero(t3dg_1(0, 0, 0)
24  - (t3dg_2(0, 0, 0) * t2_2(0, 0)
25  + t3dg_2(0, 0, 1) * t2_2(0, 1)
26  + t3dg_2(0, 0, 2) * t2_2(0, 2)),
27  "T3dg(i,j,l)*T2(k,l)(0,0,0)");
28  test_for_zero(t3dg_1(0, 0, 1)
29  - (t3dg_2(0, 0, 0) * t2_2(1, 0)
30  + t3dg_2(0, 0, 1) * t2_2(1, 1)
31  + t3dg_2(0, 0, 2) * t2_2(1, 2)),
32  "T3dg(i,j,l)*T2(k,l)(0,0,1)");
33  test_for_zero(t3dg_1(0, 0, 2)
34  - (t3dg_2(0, 0, 0) * t2_2(2, 0)
35  + t3dg_2(0, 0, 1) * t2_2(2, 1)
36  + t3dg_2(0, 0, 2) * t2_2(2, 2)),
37  "T3dg(i,j,l)*T2(k,l)(0,0,2)");
38  test_for_zero(t3dg_1(0, 1, 0)
39  - (t3dg_2(0, 1, 0) * t2_2(0, 0)
40  + t3dg_2(0, 1, 1) * t2_2(0, 1)
41  + t3dg_2(0, 1, 2) * t2_2(0, 2)),
42  "T3dg(i,j,l)*T2(k,l)(0,1,0)");
43  test_for_zero(t3dg_1(0, 1, 1)
44  - (t3dg_2(0, 1, 0) * t2_2(1, 0)
45  + t3dg_2(0, 1, 1) * t2_2(1, 1)
46  + t3dg_2(0, 1, 2) * t2_2(1, 2)),
47  "T3dg(i,j,l)*T2(k,l)(0,1,1)");
48  test_for_zero(t3dg_1(0, 1, 2)
49  - (t3dg_2(0, 1, 0) * t2_2(2, 0)
50  + t3dg_2(0, 1, 1) * t2_2(2, 1)
51  + t3dg_2(0, 1, 2) * t2_2(2, 2)),
52  "T3dg(i,j,l)*T2(k,l)(0,1,2)");
53  test_for_zero(t3dg_1(0, 2, 0)
54  - (t3dg_2(0, 2, 0) * t2_2(0, 0)
55  + t3dg_2(0, 2, 1) * t2_2(0, 1)
56  + t3dg_2(0, 2, 2) * t2_2(0, 2)),
57  "T3dg(i,j,l)*T2(k,l)(0,2,0)");
58  test_for_zero(t3dg_1(0, 2, 1)
59  - (t3dg_2(0, 2, 0) * t2_2(1, 0)
60  + t3dg_2(0, 2, 1) * t2_2(1, 1)
61  + t3dg_2(0, 2, 2) * t2_2(1, 2)),
62  "T3dg(i,j,l)*T2(k,l)(0,2,1)");
63  test_for_zero(t3dg_1(0, 2, 2)
64  - (t3dg_2(0, 2, 0) * t2_2(2, 0)
65  + t3dg_2(0, 2, 1) * t2_2(2, 1)
66  + t3dg_2(0, 2, 2) * t2_2(2, 2)),
67  "T3dg(i,j,l)*T2(k,l)(0,2,2)");
68  test_for_zero(t3dg_1(1, 0, 0)
69  - (t3dg_2(1, 0, 0) * t2_2(0, 0)
70  + t3dg_2(1, 0, 1) * t2_2(0, 1)
71  + t3dg_2(1, 0, 2) * t2_2(0, 2)),
72  "T3dg(i,j,l)*T2(k,l)(1,0,0)");
73  test_for_zero(t3dg_1(1, 0, 1)
74  - (t3dg_2(1, 0, 0) * t2_2(1, 0)
75  + t3dg_2(1, 0, 1) * t2_2(1, 1)
76  + t3dg_2(1, 0, 2) * t2_2(1, 2)),
77  "T3dg(i,j,l)*T2(k,l)(1,0,1)");
78  test_for_zero(t3dg_1(1, 0, 2)
79  - (t3dg_2(1, 0, 0) * t2_2(2, 0)
80  + t3dg_2(1, 0, 1) * t2_2(2, 1)
81  + t3dg_2(1, 0, 2) * t2_2(2, 2)),
82  "T3dg(i,j,l)*T2(k,l)(1,0,2)");
83  test_for_zero(t3dg_1(1, 1, 0)
84  - (t3dg_2(1, 1, 0) * t2_2(0, 0)
85  + t3dg_2(1, 1, 1) * t2_2(0, 1)
86  + t3dg_2(1, 1, 2) * t2_2(0, 2)),
87  "T3dg(i,j,l)*T2(k,l)(1,1,0)");
88  test_for_zero(t3dg_1(1, 1, 1)
89  - (t3dg_2(1, 1, 0) * t2_2(1, 0)
90  + t3dg_2(1, 1, 1) * t2_2(1, 1)
91  + t3dg_2(1, 1, 2) * t2_2(1, 2)),
92  "T3dg(i,j,l)*T2(k,l)(1,1,1)");
93  test_for_zero(t3dg_1(1, 1, 2)
94  - (t3dg_2(1, 1, 0) * t2_2(2, 0)
95  + t3dg_2(1, 1, 1) * t2_2(2, 1)
96  + t3dg_2(1, 1, 2) * t2_2(2, 2)),
97  "T3dg(i,j,l)*T2(k,l)(1,1,2)");
98  test_for_zero(t3dg_1(1, 2, 0)
99  - (t3dg_2(1, 2, 0) * t2_2(0, 0)
100  + t3dg_2(1, 2, 1) * t2_2(0, 1)
101  + t3dg_2(1, 2, 2) * t2_2(0, 2)),
102  "T3dg(i,j,l)*T2(k,l)(1,2,0)");
103  test_for_zero(t3dg_1(1, 2, 1)
104  - (t3dg_2(1, 2, 0) * t2_2(1, 0)
105  + t3dg_2(1, 2, 1) * t2_2(1, 1)
106  + t3dg_2(1, 2, 2) * t2_2(1, 2)),
107  "T3dg(i,j,l)*T2(k,l)(1,2,1)");
108  test_for_zero(t3dg_1(1, 2, 2)
109  - (t3dg_2(1, 2, 0) * t2_2(2, 0)
110  + t3dg_2(1, 2, 1) * t2_2(2, 1)
111  + t3dg_2(1, 2, 2) * t2_2(2, 2)),
112  "T3dg(i,j,l)*T2(k,l)(1,2,2)");
113  test_for_zero(t3dg_1(2, 0, 0)
114  - (t3dg_2(2, 0, 0) * t2_2(0, 0)
115  + t3dg_2(2, 0, 1) * t2_2(0, 1)
116  + t3dg_2(2, 0, 2) * t2_2(0, 2)),
117  "T3dg(i,j,l)*T2(k,l)(2,0,0)");
118  test_for_zero(t3dg_1(2, 0, 1)
119  - (t3dg_2(2, 0, 0) * t2_2(1, 0)
120  + t3dg_2(2, 0, 1) * t2_2(1, 1)
121  + t3dg_2(2, 0, 2) * t2_2(1, 2)),
122  "T3dg(i,j,l)*T2(k,l)(2,0,1)");
123  test_for_zero(t3dg_1(2, 0, 2)
124  - (t3dg_2(2, 0, 0) * t2_2(2, 0)
125  + t3dg_2(2, 0, 1) * t2_2(2, 1)
126  + t3dg_2(2, 0, 2) * t2_2(2, 2)),
127  "T3dg(i,j,l)*T2(k,l)(2,0,2)");
128  test_for_zero(t3dg_1(2, 1, 0)
129  - (t3dg_2(2, 1, 0) * t2_2(0, 0)
130  + t3dg_2(2, 1, 1) * t2_2(0, 1)
131  + t3dg_2(2, 1, 2) * t2_2(0, 2)),
132  "T3dg(i,j,l)*T2(k,l)(2,1,0)");
133  test_for_zero(t3dg_1(2, 1, 1)
134  - (t3dg_2(2, 1, 0) * t2_2(1, 0)
135  + t3dg_2(2, 1, 1) * t2_2(1, 1)
136  + t3dg_2(2, 1, 2) * t2_2(1, 2)),
137  "T3dg(i,j,l)*T2(k,l)(2,1,1)");
138  test_for_zero(t3dg_1(2, 1, 2)
139  - (t3dg_2(2, 1, 0) * t2_2(2, 0)
140  + t3dg_2(2, 1, 1) * t2_2(2, 1)
141  + t3dg_2(2, 1, 2) * t2_2(2, 2)),
142  "T3dg(i,j,l)*T2(k,l)(2,1,2)");
143  test_for_zero(t3dg_1(2, 2, 0)
144  - (t3dg_2(2, 2, 0) * t2_2(0, 0)
145  + t3dg_2(2, 2, 1) * t2_2(0, 1)
146  + t3dg_2(2, 2, 2) * t2_2(0, 2)),
147  "T3dg(i,j,l)*T2(k,l)(2,2,0)");
148  test_for_zero(t3dg_1(2, 2, 1)
149  - (t3dg_2(2, 2, 0) * t2_2(1, 0)
150  + t3dg_2(2, 2, 1) * t2_2(1, 1)
151  + t3dg_2(2, 2, 2) * t2_2(1, 2)),
152  "T3dg(i,j,l)*T2(k,l)(2,2,1)");
153  test_for_zero(t3dg_1(2, 2, 2)
154  - (t3dg_2(2, 2, 0) * t2_2(2, 0)
155  + t3dg_2(2, 2, 1) * t2_2(2, 1)
156  + t3dg_2(2, 2, 2) * t2_2(2, 2)),
157  "T3dg(i,j,l)*T2(k,l)(2,2,2)");
158 
159  t3dg_1(i, j, k) = t2_2(k, l) * t3dg_3(i, j, l);
160  test_for_zero(t3dg_1(0, 0, 0)
161  - (t3dg_3(0, 0, 0) * t2_2(0, 0)
162  + t3dg_3(0, 0, 1) * t2_2(0, 1)
163  + t3dg_3(0, 0, 2) * t2_2(0, 2)),
164  "T2(k,l)*T3dg(i,j,l)(0,0,0)");
165  test_for_zero(t3dg_1(0, 0, 1)
166  - (t3dg_3(0, 0, 0) * t2_2(1, 0)
167  + t3dg_3(0, 0, 1) * t2_2(1, 1)
168  + t3dg_3(0, 0, 2) * t2_2(1, 2)),
169  "T2(k,l)*T3dg(i,j,l)(0,0,1)");
170  test_for_zero(t3dg_1(0, 0, 2)
171  - (t3dg_3(0, 0, 0) * t2_2(2, 0)
172  + t3dg_3(0, 0, 1) * t2_2(2, 1)
173  + t3dg_3(0, 0, 2) * t2_2(2, 2)),
174  "T2(k,l)*T3dg(i,j,l)(0,0,2)");
175  test_for_zero(t3dg_1(0, 1, 0)
176  - (t3dg_3(0, 1, 0) * t2_2(0, 0)
177  + t3dg_3(0, 1, 1) * t2_2(0, 1)
178  + t3dg_3(0, 1, 2) * t2_2(0, 2)),
179  "T2(k,l)*T3dg(i,j,l)(0,1,0)");
180  test_for_zero(t3dg_1(0, 1, 1)
181  - (t3dg_3(0, 1, 0) * t2_2(1, 0)
182  + t3dg_3(0, 1, 1) * t2_2(1, 1)
183  + t3dg_3(0, 1, 2) * t2_2(1, 2)),
184  "T2(k,l)*T3dg(i,j,l)(0,1,1)");
185  test_for_zero(t3dg_1(0, 1, 2)
186  - (t3dg_3(0, 1, 0) * t2_2(2, 0)
187  + t3dg_3(0, 1, 1) * t2_2(2, 1)
188  + t3dg_3(0, 1, 2) * t2_2(2, 2)),
189  "T2(k,l)*T3dg(i,j,l)(0,1,2)");
190  test_for_zero(t3dg_1(0, 2, 0)
191  - (t3dg_3(0, 2, 0) * t2_2(0, 0)
192  + t3dg_3(0, 2, 1) * t2_2(0, 1)
193  + t3dg_3(0, 2, 2) * t2_2(0, 2)),
194  "T2(k,l)*T3dg(i,j,l)(0,2,0)");
195  test_for_zero(t3dg_1(0, 2, 1)
196  - (t3dg_3(0, 2, 0) * t2_2(1, 0)
197  + t3dg_3(0, 2, 1) * t2_2(1, 1)
198  + t3dg_3(0, 2, 2) * t2_2(1, 2)),
199  "T2(k,l)*T3dg(i,j,l)(0,2,1)");
200  test_for_zero(t3dg_1(0, 2, 2)
201  - (t3dg_3(0, 2, 0) * t2_2(2, 0)
202  + t3dg_3(0, 2, 1) * t2_2(2, 1)
203  + t3dg_3(0, 2, 2) * t2_2(2, 2)),
204  "T2(k,l)*T3dg(i,j,l)(0,2,2)");
205  test_for_zero(t3dg_1(1, 0, 0)
206  - (t3dg_3(1, 0, 0) * t2_2(0, 0)
207  + t3dg_3(1, 0, 1) * t2_2(0, 1)
208  + t3dg_3(1, 0, 2) * t2_2(0, 2)),
209  "T2(k,l)*T3dg(i,j,l)(1,0,0)");
210  test_for_zero(t3dg_1(1, 0, 1)
211  - (t3dg_3(1, 0, 0) * t2_2(1, 0)
212  + t3dg_3(1, 0, 1) * t2_2(1, 1)
213  + t3dg_3(1, 0, 2) * t2_2(1, 2)),
214  "T2(k,l)*T3dg(i,j,l)(1,0,1)");
215  test_for_zero(t3dg_1(1, 0, 2)
216  - (t3dg_3(1, 0, 0) * t2_2(2, 0)
217  + t3dg_3(1, 0, 1) * t2_2(2, 1)
218  + t3dg_3(1, 0, 2) * t2_2(2, 2)),
219  "T2(k,l)*T3dg(i,j,l)(1,0,2)");
220  test_for_zero(t3dg_1(1, 1, 0)
221  - (t3dg_3(1, 1, 0) * t2_2(0, 0)
222  + t3dg_3(1, 1, 1) * t2_2(0, 1)
223  + t3dg_3(1, 1, 2) * t2_2(0, 2)),
224  "T2(k,l)*T3dg(i,j,l)(1,1,0)");
225  test_for_zero(t3dg_1(1, 1, 1)
226  - (t3dg_3(1, 1, 0) * t2_2(1, 0)
227  + t3dg_3(1, 1, 1) * t2_2(1, 1)
228  + t3dg_3(1, 1, 2) * t2_2(1, 2)),
229  "T2(k,l)*T3dg(i,j,l)(1,1,1)");
230  test_for_zero(t3dg_1(1, 1, 2)
231  - (t3dg_3(1, 1, 0) * t2_2(2, 0)
232  + t3dg_3(1, 1, 1) * t2_2(2, 1)
233  + t3dg_3(1, 1, 2) * t2_2(2, 2)),
234  "T2(k,l)*T3dg(i,j,l)(1,1,2)");
235  test_for_zero(t3dg_1(1, 2, 0)
236  - (t3dg_3(1, 2, 0) * t2_2(0, 0)
237  + t3dg_3(1, 2, 1) * t2_2(0, 1)
238  + t3dg_3(1, 2, 2) * t2_2(0, 2)),
239  "T2(k,l)*T3dg(i,j,l)(1,2,0)");
240  test_for_zero(t3dg_1(1, 2, 1)
241  - (t3dg_3(1, 2, 0) * t2_2(1, 0)
242  + t3dg_3(1, 2, 1) * t2_2(1, 1)
243  + t3dg_3(1, 2, 2) * t2_2(1, 2)),
244  "T2(k,l)*T3dg(i,j,l)(1,2,1)");
245  test_for_zero(t3dg_1(1, 2, 2)
246  - (t3dg_3(1, 2, 0) * t2_2(2, 0)
247  + t3dg_3(1, 2, 1) * t2_2(2, 1)
248  + t3dg_3(1, 2, 2) * t2_2(2, 2)),
249  "T2(k,l)*T3dg(i,j,l)(1,2,2)");
250  test_for_zero(t3dg_1(2, 0, 0)
251  - (t3dg_3(2, 0, 0) * t2_2(0, 0)
252  + t3dg_3(2, 0, 1) * t2_2(0, 1)
253  + t3dg_3(2, 0, 2) * t2_2(0, 2)),
254  "T2(k,l)*T3dg(i,j,l)(2,0,0)");
255  test_for_zero(t3dg_1(2, 0, 1)
256  - (t3dg_3(2, 0, 0) * t2_2(1, 0)
257  + t3dg_3(2, 0, 1) * t2_2(1, 1)
258  + t3dg_3(2, 0, 2) * t2_2(1, 2)),
259  "T2(k,l)*T3dg(i,j,l)(2,0,1)");
260  test_for_zero(t3dg_1(2, 0, 2)
261  - (t3dg_3(2, 0, 0) * t2_2(2, 0)
262  + t3dg_3(2, 0, 1) * t2_2(2, 1)
263  + t3dg_3(2, 0, 2) * t2_2(2, 2)),
264  "T2(k,l)*T3dg(i,j,l)(2,0,2)");
265  test_for_zero(t3dg_1(2, 1, 0)
266  - (t3dg_3(2, 1, 0) * t2_2(0, 0)
267  + t3dg_3(2, 1, 1) * t2_2(0, 1)
268  + t3dg_3(2, 1, 2) * t2_2(0, 2)),
269  "T2(k,l)*T3dg(i,j,l)(2,1,0)");
270  test_for_zero(t3dg_1(2, 1, 1)
271  - (t3dg_3(2, 1, 0) * t2_2(1, 0)
272  + t3dg_3(2, 1, 1) * t2_2(1, 1)
273  + t3dg_3(2, 1, 2) * t2_2(1, 2)),
274  "T2(k,l)*T3dg(i,j,l)(2,1,1)");
275  test_for_zero(t3dg_1(2, 1, 2)
276  - (t3dg_3(2, 1, 0) * t2_2(2, 0)
277  + t3dg_3(2, 1, 1) * t2_2(2, 1)
278  + t3dg_3(2, 1, 2) * t2_2(2, 2)),
279  "T2(k,l)*T3dg(i,j,l)(2,1,2)");
280  test_for_zero(t3dg_1(2, 2, 0)
281  - (t3dg_3(2, 2, 0) * t2_2(0, 0)
282  + t3dg_3(2, 2, 1) * t2_2(0, 1)
283  + t3dg_3(2, 2, 2) * t2_2(0, 2)),
284  "T2(k,l)*T3dg(i,j,l)(2,2,0)");
285  test_for_zero(t3dg_1(2, 2, 1)
286  - (t3dg_3(2, 2, 0) * t2_2(1, 0)
287  + t3dg_3(2, 2, 1) * t2_2(1, 1)
288  + t3dg_3(2, 2, 2) * t2_2(1, 2)),
289  "T2(k,l)*T3dg(i,j,l)(2,2,1)");
290  test_for_zero(t3dg_1(2, 2, 2)
291  - (t3dg_3(2, 2, 0) * t2_2(2, 0)
292  + t3dg_3(2, 2, 1) * t2_2(2, 1)
293  + t3dg_3(2, 2, 2) * t2_2(2, 2)),
294  "T2(k,l)*T3dg(i,j,l)(2,2,2)");
295 }

◆ test_T3dg_22()

void test_T3dg_22 ( Tensor1< double, 3 > &  t1_1,
const Tensor2< double, 3, 3 > &  t2_2,
const Dg< double, 3, 3 > &  t3dg_2 
)

Definition at line 7 of file test_T3dg_22.cpp.

9 {
10  Index<'i', 3> i;
11  Index<'j', 3> j;
12  Index<'k', 3> k;
13 
14  Number<0> N0;
15  Number<1> N1;
16  Number<2> N2;
17 
18  /* Dg tests */
19 
20  t1_1(i) = t3dg_2(i, j, k) * t2_2(j, k);
21  test_for_zero(
22  t1_1(0)
23  - (t3dg_2(0, 0, 0) * t2_2(0, 0) + t3dg_2(0, 0, 1) * t2_2(0, 1)
24  + t3dg_2(0, 0, 2) * t2_2(0, 2) + t3dg_2(0, 1, 0) * t2_2(1, 0)
25  + t3dg_2(0, 1, 1) * t2_2(1, 1) + t3dg_2(0, 1, 2) * t2_2(1, 2)
26  + t3dg_2(0, 2, 0) * t2_2(2, 0) + t3dg_2(0, 2, 1) * t2_2(2, 1)
27  + t3dg_2(0, 2, 2) * t2_2(2, 2)),
28  "T3dg(i,j,k)*T2(j,k)(0)");
29  test_for_zero(
30  t1_1(1)
31  - (t3dg_2(1, 0, 0) * t2_2(0, 0) + t3dg_2(1, 0, 1) * t2_2(0, 1)
32  + t3dg_2(1, 0, 2) * t2_2(0, 2) + t3dg_2(1, 1, 0) * t2_2(1, 0)
33  + t3dg_2(1, 1, 1) * t2_2(1, 1) + t3dg_2(1, 1, 2) * t2_2(1, 2)
34  + t3dg_2(1, 2, 0) * t2_2(2, 0) + t3dg_2(1, 2, 1) * t2_2(2, 1)
35  + t3dg_2(1, 2, 2) * t2_2(2, 2)),
36  "T3dg(i,j,k)*T2(j,k)(1)");
37  test_for_zero(
38  t1_1(2)
39  - (t3dg_2(2, 0, 0) * t2_2(0, 0) + t3dg_2(2, 0, 1) * t2_2(0, 1)
40  + t3dg_2(2, 0, 2) * t2_2(0, 2) + t3dg_2(2, 1, 0) * t2_2(1, 0)
41  + t3dg_2(2, 1, 1) * t2_2(1, 1) + t3dg_2(2, 1, 2) * t2_2(1, 2)
42  + t3dg_2(2, 2, 0) * t2_2(2, 0) + t3dg_2(2, 2, 1) * t2_2(2, 1)
43  + t3dg_2(2, 2, 2) * t2_2(2, 2)),
44  "T3dg(i,j,k)*T2(j,k)(2)");
45 
46  t1_1(i) = t2_2(j, k) * t3dg_2(i, j, k);
47  test_for_zero(
48  t1_1(0)
49  - (t3dg_2(0, 0, 0) * t2_2(0, 0) + t3dg_2(0, 0, 1) * t2_2(0, 1)
50  + t3dg_2(0, 0, 2) * t2_2(0, 2) + t3dg_2(0, 1, 0) * t2_2(1, 0)
51  + t3dg_2(0, 1, 1) * t2_2(1, 1) + t3dg_2(0, 1, 2) * t2_2(1, 2)
52  + t3dg_2(0, 2, 0) * t2_2(2, 0) + t3dg_2(0, 2, 1) * t2_2(2, 1)
53  + t3dg_2(0, 2, 2) * t2_2(2, 2)),
54  "T2(j,k)*T3dg(i,j,k)(0)");
55  test_for_zero(
56  t1_1(1)
57  - (t3dg_2(1, 0, 0) * t2_2(0, 0) + t3dg_2(1, 0, 1) * t2_2(0, 1)
58  + t3dg_2(1, 0, 2) * t2_2(0, 2) + t3dg_2(1, 1, 0) * t2_2(1, 0)
59  + t3dg_2(1, 1, 1) * t2_2(1, 1) + t3dg_2(1, 1, 2) * t2_2(1, 2)
60  + t3dg_2(1, 2, 0) * t2_2(2, 0) + t3dg_2(1, 2, 1) * t2_2(2, 1)
61  + t3dg_2(1, 2, 2) * t2_2(2, 2)),
62  "T2(j,k)*T3dg(i,j,k)(1)");
63  test_for_zero(
64  t1_1(2)
65  - (t3dg_2(2, 0, 0) * t2_2(0, 0) + t3dg_2(2, 0, 1) * t2_2(0, 1)
66  + t3dg_2(2, 0, 2) * t2_2(0, 2) + t3dg_2(2, 1, 0) * t2_2(1, 0)
67  + t3dg_2(2, 1, 1) * t2_2(1, 1) + t3dg_2(2, 1, 2) * t2_2(1, 2)
68  + t3dg_2(2, 2, 0) * t2_2(2, 0) + t3dg_2(2, 2, 1) * t2_2(2, 1)
69  + t3dg_2(2, 2, 2) * t2_2(2, 2)),
70  "T2(j,k)*T3dg(i,j,k)(2)");
71 }

◆ test_T3dg_23()

void test_T3dg_23 ( Tensor1< double, 3 > &  t1_1,
const Tensor2< double, 3, 3 > &  t2_2,
const Dg< double, 3, 3 > &  t3dg_2 
)

Definition at line 7 of file test_T3dg_23.cpp.

9 {
10  Index<'i', 3> i;
11  Index<'j', 3> j;
12  Index<'k', 3> k;
13 
14  Number<0> N0;
15  Number<1> N1;
16  Number<2> N2;
17 
18  /* Dg tests */
19 
20  t1_1(i) = t3dg_2(i, j, k) * t2_2(k, j);
21  test_for_zero(
22  t1_1(0)
23  - (t3dg_2(0, 0, 0) * t2_2(0, 0) + t3dg_2(0, 0, 1) * t2_2(1, 0)
24  + t3dg_2(0, 0, 2) * t2_2(2, 0) + t3dg_2(0, 1, 0) * t2_2(0, 1)
25  + t3dg_2(0, 1, 1) * t2_2(1, 1) + t3dg_2(0, 1, 2) * t2_2(2, 1)
26  + t3dg_2(0, 2, 0) * t2_2(0, 2) + t3dg_2(0, 2, 1) * t2_2(1, 2)
27  + t3dg_2(0, 2, 2) * t2_2(2, 2)),
28  "T3dg(i,j,k)*T2(k,j)(0)");
29  test_for_zero(
30  t1_1(1)
31  - (t3dg_2(1, 0, 0) * t2_2(0, 0) + t3dg_2(1, 0, 1) * t2_2(1, 0)
32  + t3dg_2(1, 0, 2) * t2_2(2, 0) + t3dg_2(1, 1, 0) * t2_2(0, 1)
33  + t3dg_2(1, 1, 1) * t2_2(1, 1) + t3dg_2(1, 1, 2) * t2_2(2, 1)
34  + t3dg_2(1, 2, 0) * t2_2(0, 2) + t3dg_2(1, 2, 1) * t2_2(1, 2)
35  + t3dg_2(1, 2, 2) * t2_2(2, 2)),
36  "T3dg(i,j,k)*T2(k,j)(1)");
37  test_for_zero(
38  t1_1(2)
39  - (t3dg_2(2, 0, 0) * t2_2(0, 0) + t3dg_2(2, 0, 1) * t2_2(1, 0)
40  + t3dg_2(2, 0, 2) * t2_2(2, 0) + t3dg_2(2, 1, 0) * t2_2(0, 1)
41  + t3dg_2(2, 1, 1) * t2_2(1, 1) + t3dg_2(2, 1, 2) * t2_2(2, 1)
42  + t3dg_2(2, 2, 0) * t2_2(0, 2) + t3dg_2(2, 2, 1) * t2_2(1, 2)
43  + t3dg_2(2, 2, 2) * t2_2(2, 2)),
44  "T3dg(i,j,k)*T2(k,j)(2)");
45 
46  t1_1(i) = t2_2(k, j) * t3dg_2(i, j, k);
47  test_for_zero(
48  t1_1(0)
49  - (t3dg_2(0, 0, 0) * t2_2(0, 0) + t3dg_2(0, 0, 1) * t2_2(1, 0)
50  + t3dg_2(0, 0, 2) * t2_2(2, 0) + t3dg_2(0, 1, 0) * t2_2(0, 1)
51  + t3dg_2(0, 1, 1) * t2_2(1, 1) + t3dg_2(0, 1, 2) * t2_2(2, 1)
52  + t3dg_2(0, 2, 0) * t2_2(0, 2) + t3dg_2(0, 2, 1) * t2_2(1, 2)
53  + t3dg_2(0, 2, 2) * t2_2(2, 2)),
54  "T2(k,j)*T3dg(i,j,k)(0)");
55  test_for_zero(
56  t1_1(1)
57  - (t3dg_2(1, 0, 0) * t2_2(0, 0) + t3dg_2(1, 0, 1) * t2_2(1, 0)
58  + t3dg_2(1, 0, 2) * t2_2(2, 0) + t3dg_2(1, 1, 0) * t2_2(0, 1)
59  + t3dg_2(1, 1, 1) * t2_2(1, 1) + t3dg_2(1, 1, 2) * t2_2(2, 1)
60  + t3dg_2(1, 2, 0) * t2_2(0, 2) + t3dg_2(1, 2, 1) * t2_2(1, 2)
61  + t3dg_2(1, 2, 2) * t2_2(2, 2)),
62  "T2(k,j)*T3dg(i,j,k)(1)");
63  test_for_zero(
64  t1_1(2)
65  - (t3dg_2(2, 0, 0) * t2_2(0, 0) + t3dg_2(2, 0, 1) * t2_2(1, 0)
66  + t3dg_2(2, 0, 2) * t2_2(2, 0) + t3dg_2(2, 1, 0) * t2_2(0, 1)
67  + t3dg_2(2, 1, 1) * t2_2(1, 1) + t3dg_2(2, 1, 2) * t2_2(2, 1)
68  + t3dg_2(2, 2, 0) * t2_2(0, 2) + t3dg_2(2, 2, 1) * t2_2(1, 2)
69  + t3dg_2(2, 2, 2) * t2_2(2, 2)),
70  "T2(k,j)*T3dg(i,j,k)(2)");
71 }

◆ test_T3dg_24()

void test_T3dg_24 ( Tensor1< double, 3 > &  t1_1,
const Tensor2< double, 3, 3 > &  t2_2,
const Dg< double, 3, 3 > &  t3dg_2 
)

Definition at line 7 of file test_T3dg_24.cpp.

9 {
10  Index<'i', 3> i;
11  Index<'j', 3> j;
12  Index<'k', 3> k;
13 
14  Number<0> N0;
15  Number<1> N1;
16  Number<2> N2;
17 
18  /* Dg tests */
19 
20  t1_1(i) = t3dg_2(j, i, k) * t2_2(j, k);
21  test_for_zero(
22  t1_1(0)
23  - (t3dg_2(0, 0, 0) * t2_2(0, 0) + t3dg_2(0, 0, 1) * t2_2(0, 1)
24  + t3dg_2(0, 0, 2) * t2_2(0, 2) + t3dg_2(1, 0, 0) * t2_2(1, 0)
25  + t3dg_2(1, 0, 1) * t2_2(1, 1) + t3dg_2(1, 0, 2) * t2_2(1, 2)
26  + t3dg_2(2, 0, 0) * t2_2(2, 0) + t3dg_2(2, 0, 1) * t2_2(2, 1)
27  + t3dg_2(2, 0, 2) * t2_2(2, 2)),
28  "T3dg(j,i,k)*T2(j,k)(0)");
29  test_for_zero(
30  t1_1(1)
31  - (t3dg_2(0, 1, 0) * t2_2(0, 0) + t3dg_2(0, 1, 1) * t2_2(0, 1)
32  + t3dg_2(0, 1, 2) * t2_2(0, 2) + t3dg_2(1, 1, 0) * t2_2(1, 0)
33  + t3dg_2(1, 1, 1) * t2_2(1, 1) + t3dg_2(1, 1, 2) * t2_2(1, 2)
34  + t3dg_2(2, 1, 0) * t2_2(2, 0) + t3dg_2(2, 1, 1) * t2_2(2, 1)
35  + t3dg_2(2, 1, 2) * t2_2(2, 2)),
36  "T3dg(j,i,k)*T2(j,k)(1)");
37  test_for_zero(
38  t1_1(2)
39  - (t3dg_2(0, 2, 0) * t2_2(0, 0) + t3dg_2(0, 2, 1) * t2_2(0, 1)
40  + t3dg_2(0, 2, 2) * t2_2(0, 2) + t3dg_2(1, 2, 0) * t2_2(1, 0)
41  + t3dg_2(1, 2, 1) * t2_2(1, 1) + t3dg_2(1, 2, 2) * t2_2(1, 2)
42  + t3dg_2(2, 2, 0) * t2_2(2, 0) + t3dg_2(2, 2, 1) * t2_2(2, 1)
43  + t3dg_2(2, 2, 2) * t2_2(2, 2)),
44  "T3dg(j,i,k)*T2(j,k)(2)");
45 
46  t1_1(i) = t2_2(j, k) * t3dg_2(j, i, k);
47  test_for_zero(
48  t1_1(0)
49  - (t3dg_2(0, 0, 0) * t2_2(0, 0) + t3dg_2(0, 0, 1) * t2_2(0, 1)
50  + t3dg_2(0, 0, 2) * t2_2(0, 2) + t3dg_2(1, 0, 0) * t2_2(1, 0)
51  + t3dg_2(1, 0, 1) * t2_2(1, 1) + t3dg_2(1, 0, 2) * t2_2(1, 2)
52  + t3dg_2(2, 0, 0) * t2_2(2, 0) + t3dg_2(2, 0, 1) * t2_2(2, 1)
53  + t3dg_2(2, 0, 2) * t2_2(2, 2)),
54  "T2(j,k)*T3dg(j,i,k)(0)");
55  test_for_zero(
56  t1_1(1)
57  - (t3dg_2(0, 1, 0) * t2_2(0, 0) + t3dg_2(0, 1, 1) * t2_2(0, 1)
58  + t3dg_2(0, 1, 2) * t2_2(0, 2) + t3dg_2(1, 1, 0) * t2_2(1, 0)
59  + t3dg_2(1, 1, 1) * t2_2(1, 1) + t3dg_2(1, 1, 2) * t2_2(1, 2)
60  + t3dg_2(2, 1, 0) * t2_2(2, 0) + t3dg_2(2, 1, 1) * t2_2(2, 1)
61  + t3dg_2(2, 1, 2) * t2_2(2, 2)),
62  "T2(j,k)*T3dg(j,i,k)(1)");
63  test_for_zero(
64  t1_1(2)
65  - (t3dg_2(0, 2, 0) * t2_2(0, 0) + t3dg_2(0, 2, 1) * t2_2(0, 1)
66  + t3dg_2(0, 2, 2) * t2_2(0, 2) + t3dg_2(1, 2, 0) * t2_2(1, 0)
67  + t3dg_2(1, 2, 1) * t2_2(1, 1) + t3dg_2(1, 2, 2) * t2_2(1, 2)
68  + t3dg_2(2, 2, 0) * t2_2(2, 0) + t3dg_2(2, 2, 1) * t2_2(2, 1)
69  + t3dg_2(2, 2, 2) * t2_2(2, 2)),
70  "T2(j,k)*T3dg(j,i,k)(2)");
71 }

◆ test_T3dg_25()

void test_T3dg_25 ( Tensor1< double, 3 > &  t1_1,
const Tensor2< double, 3, 3 > &  t2_2,
const Dg< double, 3, 3 > &  t3dg_2 
)

Definition at line 7 of file test_T3dg_25.cpp.

9 {
10  Index<'i', 3> i;
11  Index<'j', 3> j;
12  Index<'k', 3> k;
13 
14  Number<0> N0;
15  Number<1> N1;
16  Number<2> N2;
17 
18  /* Dg tests */
19 
20  t1_1(i) = t3dg_2(j, i, k) * t2_2(k, j);
21  test_for_zero(
22  t1_1(0)
23  - (t3dg_2(0, 0, 0) * t2_2(0, 0) + t3dg_2(0, 0, 1) * t2_2(1, 0)
24  + t3dg_2(0, 0, 2) * t2_2(2, 0) + t3dg_2(1, 0, 0) * t2_2(0, 1)
25  + t3dg_2(1, 0, 1) * t2_2(1, 1) + t3dg_2(1, 0, 2) * t2_2(2, 1)
26  + t3dg_2(2, 0, 0) * t2_2(0, 2) + t3dg_2(2, 0, 1) * t2_2(1, 2)
27  + t3dg_2(2, 0, 2) * t2_2(2, 2)),
28  "T3dg(j,i,k)*T2(k,j)(0)");
29  test_for_zero(
30  t1_1(1)
31  - (t3dg_2(0, 1, 0) * t2_2(0, 0) + t3dg_2(0, 1, 1) * t2_2(1, 0)
32  + t3dg_2(0, 1, 2) * t2_2(2, 0) + t3dg_2(1, 1, 0) * t2_2(0, 1)
33  + t3dg_2(1, 1, 1) * t2_2(1, 1) + t3dg_2(1, 1, 2) * t2_2(2, 1)
34  + t3dg_2(2, 1, 0) * t2_2(0, 2) + t3dg_2(2, 1, 1) * t2_2(1, 2)
35  + t3dg_2(2, 1, 2) * t2_2(2, 2)),
36  "T3dg(j,i,k)*T2(k,j)(1)");
37  test_for_zero(
38  t1_1(2)
39  - (t3dg_2(0, 2, 0) * t2_2(0, 0) + t3dg_2(0, 2, 1) * t2_2(1, 0)
40  + t3dg_2(0, 2, 2) * t2_2(2, 0) + t3dg_2(1, 2, 0) * t2_2(0, 1)
41  + t3dg_2(1, 2, 1) * t2_2(1, 1) + t3dg_2(1, 2, 2) * t2_2(2, 1)
42  + t3dg_2(2, 2, 0) * t2_2(0, 2) + t3dg_2(2, 2, 1) * t2_2(1, 2)
43  + t3dg_2(2, 2, 2) * t2_2(2, 2)),
44  "T3dg(j,i,k)*T2(k,j)(2)");
45 
46  t1_1(i) = t2_2(k, j) * t3dg_2(j, i, k);
47  test_for_zero(
48  t1_1(0)
49  - (t3dg_2(0, 0, 0) * t2_2(0, 0) + t3dg_2(0, 0, 1) * t2_2(1, 0)
50  + t3dg_2(0, 0, 2) * t2_2(2, 0) + t3dg_2(1, 0, 0) * t2_2(0, 1)
51  + t3dg_2(1, 0, 1) * t2_2(1, 1) + t3dg_2(1, 0, 2) * t2_2(2, 1)
52  + t3dg_2(2, 0, 0) * t2_2(0, 2) + t3dg_2(2, 0, 1) * t2_2(1, 2)
53  + t3dg_2(2, 0, 2) * t2_2(2, 2)),
54  "T2(k,j)*T3dg(j,i,k)(0)");
55  test_for_zero(
56  t1_1(1)
57  - (t3dg_2(0, 1, 0) * t2_2(0, 0) + t3dg_2(0, 1, 1) * t2_2(1, 0)
58  + t3dg_2(0, 1, 2) * t2_2(2, 0) + t3dg_2(1, 1, 0) * t2_2(0, 1)
59  + t3dg_2(1, 1, 1) * t2_2(1, 1) + t3dg_2(1, 1, 2) * t2_2(2, 1)
60  + t3dg_2(2, 1, 0) * t2_2(0, 2) + t3dg_2(2, 1, 1) * t2_2(1, 2)
61  + t3dg_2(2, 1, 2) * t2_2(2, 2)),
62  "T2(k,j)*T3dg(j,i,k)(1)");
63  test_for_zero(
64  t1_1(2)
65  - (t3dg_2(0, 2, 0) * t2_2(0, 0) + t3dg_2(0, 2, 1) * t2_2(1, 0)
66  + t3dg_2(0, 2, 2) * t2_2(2, 0) + t3dg_2(1, 2, 0) * t2_2(0, 1)
67  + t3dg_2(1, 2, 1) * t2_2(1, 1) + t3dg_2(1, 2, 2) * t2_2(2, 1)
68  + t3dg_2(2, 2, 0) * t2_2(0, 2) + t3dg_2(2, 2, 1) * t2_2(1, 2)
69  + t3dg_2(2, 2, 2) * t2_2(2, 2)),
70  "T2(k,j)*T3dg(j,i,k)(2)");
71 }

◆ test_T3dg_26()

void test_T3dg_26 ( Tensor1< double, 3 > &  t1_1,
const Tensor2< double, 3, 3 > &  t2_2,
const Dg< double, 3, 3 > &  t3dg_2 
)

Definition at line 7 of file test_T3dg_26.cpp.

9 {
10  Index<'i', 3> i;
11  Index<'j', 3> j;
12  Index<'k', 3> k;
13 
14  Number<0> N0;
15  Number<1> N1;
16  Number<2> N2;
17 
18  /* Dg tests */
19 
20  t1_1(i) = t3dg_2(j, k, i) * t2_2(j, k);
21  test_for_zero(
22  t1_1(0)
23  - (t3dg_2(0, 0, 0) * t2_2(0, 0) + t3dg_2(0, 1, 0) * t2_2(0, 1)
24  + t3dg_2(0, 2, 0) * t2_2(0, 2) + t3dg_2(1, 0, 0) * t2_2(1, 0)
25  + t3dg_2(1, 1, 0) * t2_2(1, 1) + t3dg_2(1, 2, 0) * t2_2(1, 2)
26  + t3dg_2(2, 0, 0) * t2_2(2, 0) + t3dg_2(2, 1, 0) * t2_2(2, 1)
27  + t3dg_2(2, 2, 0) * t2_2(2, 2)),
28  "T3dg(j,k,i)*T2(j,k)(0)");
29  test_for_zero(
30  t1_1(1)
31  - (t3dg_2(0, 0, 1) * t2_2(0, 0) + t3dg_2(0, 1, 1) * t2_2(0, 1)
32  + t3dg_2(0, 2, 1) * t2_2(0, 2) + t3dg_2(1, 0, 1) * t2_2(1, 0)
33  + t3dg_2(1, 1, 1) * t2_2(1, 1) + t3dg_2(1, 2, 1) * t2_2(1, 2)
34  + t3dg_2(2, 0, 1) * t2_2(2, 0) + t3dg_2(2, 1, 1) * t2_2(2, 1)
35  + t3dg_2(2, 2, 1) * t2_2(2, 2)),
36  "T3dg(j,k,i)*T2(j,k)(1)");
37  test_for_zero(
38  t1_1(2)
39  - (t3dg_2(0, 0, 2) * t2_2(0, 0) + t3dg_2(0, 1, 2) * t2_2(0, 1)
40  + t3dg_2(0, 2, 2) * t2_2(0, 2) + t3dg_2(1, 0, 2) * t2_2(1, 0)
41  + t3dg_2(1, 1, 2) * t2_2(1, 1) + t3dg_2(1, 2, 2) * t2_2(1, 2)
42  + t3dg_2(2, 0, 2) * t2_2(2, 0) + t3dg_2(2, 1, 2) * t2_2(2, 1)
43  + t3dg_2(2, 2, 2) * t2_2(2, 2)),
44  "T3dg(j,k,i)*T2(j,k)(2)");
45 
46  t1_1(i) = t2_2(j, k) * t3dg_2(j, k, i);
47  test_for_zero(
48  t1_1(0)
49  - (t3dg_2(0, 0, 0) * t2_2(0, 0) + t3dg_2(0, 1, 0) * t2_2(0, 1)
50  + t3dg_2(0, 2, 0) * t2_2(0, 2) + t3dg_2(1, 0, 0) * t2_2(1, 0)
51  + t3dg_2(1, 1, 0) * t2_2(1, 1) + t3dg_2(1, 2, 0) * t2_2(1, 2)
52  + t3dg_2(2, 0, 0) * t2_2(2, 0) + t3dg_2(2, 1, 0) * t2_2(2, 1)
53  + t3dg_2(2, 2, 0) * t2_2(2, 2)),
54  "T2(j,k)*T3dg(j,k,i)(0)");
55  test_for_zero(
56  t1_1(1)
57  - (t3dg_2(0, 0, 1) * t2_2(0, 0) + t3dg_2(0, 1, 1) * t2_2(0, 1)
58  + t3dg_2(0, 2, 1) * t2_2(0, 2) + t3dg_2(1, 0, 1) * t2_2(1, 0)
59  + t3dg_2(1, 1, 1) * t2_2(1, 1) + t3dg_2(1, 2, 1) * t2_2(1, 2)
60  + t3dg_2(2, 0, 1) * t2_2(2, 0) + t3dg_2(2, 1, 1) * t2_2(2, 1)
61  + t3dg_2(2, 2, 1) * t2_2(2, 2)),
62  "T2(j,k)*T3dg(j,k,i)(1)");
63  test_for_zero(
64  t1_1(2)
65  - (t3dg_2(0, 0, 2) * t2_2(0, 0) + t3dg_2(0, 1, 2) * t2_2(0, 1)
66  + t3dg_2(0, 2, 2) * t2_2(0, 2) + t3dg_2(1, 0, 2) * t2_2(1, 0)
67  + t3dg_2(1, 1, 2) * t2_2(1, 1) + t3dg_2(1, 2, 2) * t2_2(1, 2)
68  + t3dg_2(2, 0, 2) * t2_2(2, 0) + t3dg_2(2, 1, 2) * t2_2(2, 1)
69  + t3dg_2(2, 2, 2) * t2_2(2, 2)),
70  "T2(j,k)*T3dg(j,k,i)(2)");
71 }

◆ test_T3dg_27()

void test_T3dg_27 ( Tensor1< double, 3 > &  t1_1,
const Tensor2< double, 3, 3 > &  t2_2,
const Dg< double, 3, 3 > &  t3dg_2 
)

Definition at line 7 of file test_T3dg_27.cpp.

9 {
10  Index<'i', 3> i;
11  Index<'j', 3> j;
12  Index<'k', 3> k;
13 
14  Number<0> N0;
15  Number<1> N1;
16  Number<2> N2;
17 
18  /* Dg tests */
19 
20  t1_1(i) = t3dg_2(j, k, i) * t2_2(k, j);
21  test_for_zero(
22  t1_1(0)
23  - (t3dg_2(0, 0, 0) * t2_2(0, 0) + t3dg_2(0, 1, 0) * t2_2(1, 0)
24  + t3dg_2(0, 2, 0) * t2_2(2, 0) + t3dg_2(1, 0, 0) * t2_2(0, 1)
25  + t3dg_2(1, 1, 0) * t2_2(1, 1) + t3dg_2(1, 2, 0) * t2_2(2, 1)
26  + t3dg_2(2, 0, 0) * t2_2(0, 2) + t3dg_2(2, 1, 0) * t2_2(1, 2)
27  + t3dg_2(2, 2, 0) * t2_2(2, 2)),
28  "T3dg(j,k,i)*T2(k,j)(0)");
29  test_for_zero(
30  t1_1(1)
31  - (t3dg_2(0, 0, 1) * t2_2(0, 0) + t3dg_2(0, 1, 1) * t2_2(1, 0)
32  + t3dg_2(0, 2, 1) * t2_2(2, 0) + t3dg_2(1, 0, 1) * t2_2(0, 1)
33  + t3dg_2(1, 1, 1) * t2_2(1, 1) + t3dg_2(1, 2, 1) * t2_2(2, 1)
34  + t3dg_2(2, 0, 1) * t2_2(0, 2) + t3dg_2(2, 1, 1) * t2_2(1, 2)
35  + t3dg_2(2, 2, 1) * t2_2(2, 2)),
36  "T3dg(j,k,i)*T2(k,j)(1)");
37  test_for_zero(
38  t1_1(2)
39  - (t3dg_2(0, 0, 2) * t2_2(0, 0) + t3dg_2(0, 1, 2) * t2_2(1, 0)
40  + t3dg_2(0, 2, 2) * t2_2(2, 0) + t3dg_2(1, 0, 2) * t2_2(0, 1)
41  + t3dg_2(1, 1, 2) * t2_2(1, 1) + t3dg_2(1, 2, 2) * t2_2(2, 1)
42  + t3dg_2(2, 0, 2) * t2_2(0, 2) + t3dg_2(2, 1, 2) * t2_2(1, 2)
43  + t3dg_2(2, 2, 2) * t2_2(2, 2)),
44  "T3dg(j,k,i)*T2(k,j)(2)");
45 
46  t1_1(i) = t2_2(k, j) * t3dg_2(j, k, i);
47  test_for_zero(
48  t1_1(0)
49  - (t3dg_2(0, 0, 0) * t2_2(0, 0) + t3dg_2(0, 1, 0) * t2_2(1, 0)
50  + t3dg_2(0, 2, 0) * t2_2(2, 0) + t3dg_2(1, 0, 0) * t2_2(0, 1)
51  + t3dg_2(1, 1, 0) * t2_2(1, 1) + t3dg_2(1, 2, 0) * t2_2(2, 1)
52  + t3dg_2(2, 0, 0) * t2_2(0, 2) + t3dg_2(2, 1, 0) * t2_2(1, 2)
53  + t3dg_2(2, 2, 0) * t2_2(2, 2)),
54  "T2(k,j)*T3dg(j,k,i)(0)");
55  test_for_zero(
56  t1_1(1)
57  - (t3dg_2(0, 0, 1) * t2_2(0, 0) + t3dg_2(0, 1, 1) * t2_2(1, 0)
58  + t3dg_2(0, 2, 1) * t2_2(2, 0) + t3dg_2(1, 0, 1) * t2_2(0, 1)
59  + t3dg_2(1, 1, 1) * t2_2(1, 1) + t3dg_2(1, 2, 1) * t2_2(2, 1)
60  + t3dg_2(2, 0, 1) * t2_2(0, 2) + t3dg_2(2, 1, 1) * t2_2(1, 2)
61  + t3dg_2(2, 2, 1) * t2_2(2, 2)),
62  "T2(k,j)*T3dg(j,k,i)(1)");
63  test_for_zero(
64  t1_1(2)
65  - (t3dg_2(0, 0, 2) * t2_2(0, 0) + t3dg_2(0, 1, 2) * t2_2(1, 0)
66  + t3dg_2(0, 2, 2) * t2_2(2, 0) + t3dg_2(1, 0, 2) * t2_2(0, 1)
67  + t3dg_2(1, 1, 2) * t2_2(1, 1) + t3dg_2(1, 2, 2) * t2_2(2, 1)
68  + t3dg_2(2, 0, 2) * t2_2(0, 2) + t3dg_2(2, 1, 2) * t2_2(1, 2)
69  + t3dg_2(2, 2, 2) * t2_2(2, 2)),
70  "T2(k,j)*T3dg(j,k,i)(2)");
71 }

◆ test_T3dg_28()

void test_T3dg_28 ( const Tensor2_symmetric< double, 3 > &  t2s_2,
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_T3dg_28.cpp.

10 {
11  Index<'i', 3> i;
12  Index<'j', 3> j;
13  Index<'k', 3> k;
14  Index<'l', 3> l;
15 
16  Number<0> N0;
17  Number<1> N1;
18  Number<2> N2;
19 
20  /* Dg tests */
21 
22  t3dg_1(i, j, k) = t3dg_2(i, j, l) * t2s_2(l, k);
23  test_for_zero(t3dg_1(0, 0, 0)
24  - (t3dg_2(0, 0, 0) * t2s_2(0, 0)
25  + t3dg_2(0, 0, 1) * t2s_2(1, 0)
26  + t3dg_2(0, 0, 2) * t2s_2(2, 0)),
27  "T3dg(i,j,l)*T2s(l,k)(0,0,0)");
28  test_for_zero(t3dg_1(0, 0, 1)
29  - (t3dg_2(0, 0, 0) * t2s_2(0, 1)
30  + t3dg_2(0, 0, 1) * t2s_2(1, 1)
31  + t3dg_2(0, 0, 2) * t2s_2(2, 1)),
32  "T3dg(i,j,l)*T2s(l,k)(0,0,1)");
33  test_for_zero(t3dg_1(0, 0, 2)
34  - (t3dg_2(0, 0, 0) * t2s_2(0, 2)
35  + t3dg_2(0, 0, 1) * t2s_2(1, 2)
36  + t3dg_2(0, 0, 2) * t2s_2(2, 2)),
37  "T3dg(i,j,l)*T2s(l,k)(0,0,2)");
38  test_for_zero(t3dg_1(0, 1, 0)
39  - (t3dg_2(0, 1, 0) * t2s_2(0, 0)
40  + t3dg_2(0, 1, 1) * t2s_2(1, 0)
41  + t3dg_2(0, 1, 2) * t2s_2(2, 0)),
42  "T3dg(i,j,l)*T2s(l,k)(0,1,0)");
43  test_for_zero(t3dg_1(0, 1, 1)
44  - (t3dg_2(0, 1, 0) * t2s_2(0, 1)
45  + t3dg_2(0, 1, 1) * t2s_2(1, 1)
46  + t3dg_2(0, 1, 2) * t2s_2(2, 1)),
47  "T3dg(i,j,l)*T2s(l,k)(0,1,1)");
48  test_for_zero(t3dg_1(0, 1, 2)
49  - (t3dg_2(0, 1, 0) * t2s_2(0, 2)
50  + t3dg_2(0, 1, 1) * t2s_2(1, 2)
51  + t3dg_2(0, 1, 2) * t2s_2(2, 2)),
52  "T3dg(i,j,l)*T2s(l,k)(0,1,2)");
53  test_for_zero(t3dg_1(0, 2, 0)
54  - (t3dg_2(0, 2, 0) * t2s_2(0, 0)
55  + t3dg_2(0, 2, 1) * t2s_2(1, 0)
56  + t3dg_2(0, 2, 2) * t2s_2(2, 0)),
57  "T3dg(i,j,l)*T2s(l,k)(0,2,0)");
58  test_for_zero(t3dg_1(0, 2, 1)
59  - (t3dg_2(0, 2, 0) * t2s_2(0, 1)
60  + t3dg_2(0, 2, 1) * t2s_2(1, 1)
61  + t3dg_2(0, 2, 2) * t2s_2(2, 1)),
62  "T3dg(i,j,l)*T2s(l,k)(0,2,1)");
63  test_for_zero(t3dg_1(0, 2, 2)
64  - (t3dg_2(0, 2, 0) * t2s_2(0, 2)
65  + t3dg_2(0, 2, 1) * t2s_2(1, 2)
66  + t3dg_2(0, 2, 2) * t2s_2(2, 2)),
67  "T3dg(i,j,l)*T2s(l,k)(0,2,2)");
68  test_for_zero(t3dg_1(1, 0, 0)
69  - (t3dg_2(1, 0, 0) * t2s_2(0, 0)
70  + t3dg_2(1, 0, 1) * t2s_2(1, 0)
71  + t3dg_2(1, 0, 2) * t2s_2(2, 0)),
72  "T3dg(i,j,l)*T2s(l,k)(1,0,0)");
73  test_for_zero(t3dg_1(1, 0, 1)
74  - (t3dg_2(1, 0, 0) * t2s_2(0, 1)
75  + t3dg_2(1, 0, 1) * t2s_2(1, 1)
76  + t3dg_2(1, 0, 2) * t2s_2(2, 1)),
77  "T3dg(i,j,l)*T2s(l,k)(1,0,1)");
78  test_for_zero(t3dg_1(1, 0, 2)
79  - (t3dg_2(1, 0, 0) * t2s_2(0, 2)
80  + t3dg_2(1, 0, 1) * t2s_2(1, 2)
81  + t3dg_2(1, 0, 2) * t2s_2(2, 2)),
82  "T3dg(i,j,l)*T2s(l,k)(1,0,2)");
83  test_for_zero(t3dg_1(1, 1, 0)
84  - (t3dg_2(1, 1, 0) * t2s_2(0, 0)
85  + t3dg_2(1, 1, 1) * t2s_2(1, 0)
86  + t3dg_2(1, 1, 2) * t2s_2(2, 0)),
87  "T3dg(i,j,l)*T2s(l,k)(1,1,0)");
88  test_for_zero(t3dg_1(1, 1, 1)
89  - (t3dg_2(1, 1, 0) * t2s_2(0, 1)
90  + t3dg_2(1, 1, 1) * t2s_2(1, 1)
91  + t3dg_2(1, 1, 2) * t2s_2(2, 1)),
92  "T3dg(i,j,l)*T2s(l,k)(1,1,1)");
93  test_for_zero(t3dg_1(1, 1, 2)
94  - (t3dg_2(1, 1, 0) * t2s_2(0, 2)
95  + t3dg_2(1, 1, 1) * t2s_2(1, 2)
96  + t3dg_2(1, 1, 2) * t2s_2(2, 2)),
97  "T3dg(i,j,l)*T2s(l,k)(1,1,2)");
98  test_for_zero(t3dg_1(1, 2, 0)
99  - (t3dg_2(1, 2, 0) * t2s_2(0, 0)
100  + t3dg_2(1, 2, 1) * t2s_2(1, 0)
101  + t3dg_2(1, 2, 2) * t2s_2(2, 0)),
102  "T3dg(i,j,l)*T2s(l,k)(1,2,0)");
103  test_for_zero(t3dg_1(1, 2, 1)
104  - (t3dg_2(1, 2, 0) * t2s_2(0, 1)
105  + t3dg_2(1, 2, 1) * t2s_2(1, 1)
106  + t3dg_2(1, 2, 2) * t2s_2(2, 1)),
107  "T3dg(i,j,l)*T2s(l,k)(1,2,1)");
108  test_for_zero(t3dg_1(1, 2, 2)
109  - (t3dg_2(1, 2, 0) * t2s_2(0, 2)
110  + t3dg_2(1, 2, 1) * t2s_2(1, 2)
111  + t3dg_2(1, 2, 2) * t2s_2(2, 2)),
112  "T3dg(i,j,l)*T2s(l,k)(1,2,2)");
113  test_for_zero(t3dg_1(2, 0, 0)
114  - (t3dg_2(2, 0, 0) * t2s_2(0, 0)
115  + t3dg_2(2, 0, 1) * t2s_2(1, 0)
116  + t3dg_2(2, 0, 2) * t2s_2(2, 0)),
117  "T3dg(i,j,l)*T2s(l,k)(2,0,0)");
118  test_for_zero(t3dg_1(2, 0, 1)
119  - (t3dg_2(2, 0, 0) * t2s_2(0, 1)
120  + t3dg_2(2, 0, 1) * t2s_2(1, 1)
121  + t3dg_2(2, 0, 2) * t2s_2(2, 1)),
122  "T3dg(i,j,l)*T2s(l,k)(2,0,1)");
123  test_for_zero(t3dg_1(2, 0, 2)
124  - (t3dg_2(2, 0, 0) * t2s_2(0, 2)
125  + t3dg_2(2, 0, 1) * t2s_2(1, 2)
126  + t3dg_2(2, 0, 2) * t2s_2(2, 2)),
127  "T3dg(i,j,l)*T2s(l,k)(2,0,2)");
128  test_for_zero(t3dg_1(2, 1, 0)
129  - (t3dg_2(2, 1, 0) * t2s_2(0, 0)
130  + t3dg_2(2, 1, 1) * t2s_2(1, 0)
131  + t3dg_2(2, 1, 2) * t2s_2(2, 0)),
132  "T3dg(i,j,l)*T2s(l,k)(2,1,0)");
133  test_for_zero(t3dg_1(2, 1, 1)
134  - (t3dg_2(2, 1, 0) * t2s_2(0, 1)
135  + t3dg_2(2, 1, 1) * t2s_2(1, 1)
136  + t3dg_2(2, 1, 2) * t2s_2(2, 1)),
137  "T3dg(i,j,l)*T2s(l,k)(2,1,1)");
138  test_for_zero(t3dg_1(2, 1, 2)
139  - (t3dg_2(2, 1, 0) * t2s_2(0, 2)
140  + t3dg_2(2, 1, 1) * t2s_2(1, 2)
141  + t3dg_2(2, 1, 2) * t2s_2(2, 2)),
142  "T3dg(i,j,l)*T2s(l,k)(2,1,2)");
143  test_for_zero(t3dg_1(2, 2, 0)
144  - (t3dg_2(2, 2, 0) * t2s_2(0, 0)
145  + t3dg_2(2, 2, 1) * t2s_2(1, 0)
146  + t3dg_2(2, 2, 2) * t2s_2(2, 0)),
147  "T3dg(i,j,l)*T2s(l,k)(2,2,0)");
148  test_for_zero(t3dg_1(2, 2, 1)
149  - (t3dg_2(2, 2, 0) * t2s_2(0, 1)
150  + t3dg_2(2, 2, 1) * t2s_2(1, 1)
151  + t3dg_2(2, 2, 2) * t2s_2(2, 1)),
152  "T3dg(i,j,l)*T2s(l,k)(2,2,1)");
153  test_for_zero(t3dg_1(2, 2, 2)
154  - (t3dg_2(2, 2, 0) * t2s_2(0, 2)
155  + t3dg_2(2, 2, 1) * t2s_2(1, 2)
156  + t3dg_2(2, 2, 2) * t2s_2(2, 2)),
157  "T3dg(i,j,l)*T2s(l,k)(2,2,2)");
158 
159  t3dg_1(i, j, k) = t2s_2(l, k) * t3dg_3(i, j, l);
160  test_for_zero(t3dg_1(0, 0, 0)
161  - (t3dg_3(0, 0, 0) * t2s_2(0, 0)
162  + t3dg_3(0, 0, 1) * t2s_2(1, 0)
163  + t3dg_3(0, 0, 2) * t2s_2(2, 0)),
164  "T2s(l,k)*T3dg(i,j,l)(0,0,0)");
165  test_for_zero(t3dg_1(0, 0, 1)
166  - (t3dg_3(0, 0, 0) * t2s_2(0, 1)
167  + t3dg_3(0, 0, 1) * t2s_2(1, 1)
168  + t3dg_3(0, 0, 2) * t2s_2(2, 1)),
169  "T2s(l,k)*T3dg(i,j,l)(0,0,1)");
170  test_for_zero(t3dg_1(0, 0, 2)
171  - (t3dg_3(0, 0, 0) * t2s_2(0, 2)
172  + t3dg_3(0, 0, 1) * t2s_2(1, 2)
173  + t3dg_3(0, 0, 2) * t2s_2(2, 2)),
174  "T2s(l,k)*T3dg(i,j,l)(0,0,2)");
175  test_for_zero(t3dg_1(0, 1, 0)
176  - (t3dg_3(0, 1, 0) * t2s_2(0, 0)
177  + t3dg_3(0, 1, 1) * t2s_2(1, 0)
178  + t3dg_3(0, 1, 2) * t2s_2(2, 0)),
179  "T2s(l,k)*T3dg(i,j,l)(0,1,0)");
180  test_for_zero(t3dg_1(0, 1, 1)
181  - (t3dg_3(0, 1, 0) * t2s_2(0, 1)
182  + t3dg_3(0, 1, 1) * t2s_2(1, 1)
183  + t3dg_3(0, 1, 2) * t2s_2(2, 1)),
184  "T2s(l,k)*T3dg(i,j,l)(0,1,1)");
185  test_for_zero(t3dg_1(0, 1, 2)
186  - (t3dg_3(0, 1, 0) * t2s_2(0, 2)
187  + t3dg_3(0, 1, 1) * t2s_2(1, 2)
188  + t3dg_3(0, 1, 2) * t2s_2(2, 2)),
189  "T2s(l,k)*T3dg(i,j,l)(0,1,2)");
190  test_for_zero(t3dg_1(0, 2, 0)
191  - (t3dg_3(0, 2, 0) * t2s_2(0, 0)
192  + t3dg_3(0, 2, 1) * t2s_2(1, 0)
193  + t3dg_3(0, 2, 2) * t2s_2(2, 0)),
194  "T2s(l,k)*T3dg(i,j,l)(0,2,0)");
195  test_for_zero(t3dg_1(0, 2, 1)
196  - (t3dg_3(0, 2, 0) * t2s_2(0, 1)
197  + t3dg_3(0, 2, 1) * t2s_2(1, 1)
198  + t3dg_3(0, 2, 2) * t2s_2(2, 1)),
199  "T2s(l,k)*T3dg(i,j,l)(0,2,1)");
200  test_for_zero(t3dg_1(0, 2, 2)
201  - (t3dg_3(0, 2, 0) * t2s_2(0, 2)
202  + t3dg_3(0, 2, 1) * t2s_2(1, 2)
203  + t3dg_3(0, 2, 2) * t2s_2(2, 2)),
204  "T2s(l,k)*T3dg(i,j,l)(0,2,2)");
205  test_for_zero(t3dg_1(1, 0, 0)
206  - (t3dg_3(1, 0, 0) * t2s_2(0, 0)
207  + t3dg_3(1, 0, 1) * t2s_2(1, 0)
208  + t3dg_3(1, 0, 2) * t2s_2(2, 0)),
209  "T2s(l,k)*T3dg(i,j,l)(1,0,0)");
210  test_for_zero(t3dg_1(1, 0, 1)
211  - (t3dg_3(1, 0, 0) * t2s_2(0, 1)
212  + t3dg_3(1, 0, 1) * t2s_2(1, 1)
213  + t3dg_3(1, 0, 2) * t2s_2(2, 1)),
214  "T2s(l,k)*T3dg(i,j,l)(1,0,1)");
215  test_for_zero(t3dg_1(1, 0, 2)
216  - (t3dg_3(1, 0, 0) * t2s_2(0, 2)
217  + t3dg_3(1, 0, 1) * t2s_2(1, 2)
218  + t3dg_3(1, 0, 2) * t2s_2(2, 2)),
219  "T2s(l,k)*T3dg(i,j,l)(1,0,2)");
220  test_for_zero(t3dg_1(1, 1, 0)
221  - (t3dg_3(1, 1, 0) * t2s_2(0, 0)
222  + t3dg_3(1, 1, 1) * t2s_2(1, 0)
223  + t3dg_3(1, 1, 2) * t2s_2(2, 0)),
224  "T2s(l,k)*T3dg(i,j,l)(1,1,0)");
225  test_for_zero(t3dg_1(1, 1, 1)
226  - (t3dg_3(1, 1, 0) * t2s_2(0, 1)
227  + t3dg_3(1, 1, 1) * t2s_2(1, 1)
228  + t3dg_3(1, 1, 2) * t2s_2(2, 1)),
229  "T2s(l,k)*T3dg(i,j,l)(1,1,1)");
230  test_for_zero(t3dg_1(1, 1, 2)
231  - (t3dg_3(1, 1, 0) * t2s_2(0, 2)
232  + t3dg_3(1, 1, 1) * t2s_2(1, 2)
233  + t3dg_3(1, 1, 2) * t2s_2(2, 2)),
234  "T2s(l,k)*T3dg(i,j,l)(1,1,2)");
235  test_for_zero(t3dg_1(1, 2, 0)
236  - (t3dg_3(1, 2, 0) * t2s_2(0, 0)
237  + t3dg_3(1, 2, 1) * t2s_2(1, 0)
238  + t3dg_3(1, 2, 2) * t2s_2(2, 0)),
239  "T2s(l,k)*T3dg(i,j,l)(1,2,0)");
240  test_for_zero(t3dg_1(1, 2, 1)
241  - (t3dg_3(1, 2, 0) * t2s_2(0, 1)
242  + t3dg_3(1, 2, 1) * t2s_2(1, 1)
243  + t3dg_3(1, 2, 2) * t2s_2(2, 1)),
244  "T2s(l,k)*T3dg(i,j,l)(1,2,1)");
245  test_for_zero(t3dg_1(1, 2, 2)
246  - (t3dg_3(1, 2, 0) * t2s_2(0, 2)
247  + t3dg_3(1, 2, 1) * t2s_2(1, 2)
248  + t3dg_3(1, 2, 2) * t2s_2(2, 2)),
249  "T2s(l,k)*T3dg(i,j,l)(1,2,2)");
250  test_for_zero(t3dg_1(2, 0, 0)
251  - (t3dg_3(2, 0, 0) * t2s_2(0, 0)
252  + t3dg_3(2, 0, 1) * t2s_2(1, 0)
253  + t3dg_3(2, 0, 2) * t2s_2(2, 0)),
254  "T2s(l,k)*T3dg(i,j,l)(2,0,0)");
255  test_for_zero(t3dg_1(2, 0, 1)
256  - (t3dg_3(2, 0, 0) * t2s_2(0, 1)
257  + t3dg_3(2, 0, 1) * t2s_2(1, 1)
258  + t3dg_3(2, 0, 2) * t2s_2(2, 1)),
259  "T2s(l,k)*T3dg(i,j,l)(2,0,1)");
260  test_for_zero(t3dg_1(2, 0, 2)
261  - (t3dg_3(2, 0, 0) * t2s_2(0, 2)
262  + t3dg_3(2, 0, 1) * t2s_2(1, 2)
263  + t3dg_3(2, 0, 2) * t2s_2(2, 2)),
264  "T2s(l,k)*T3dg(i,j,l)(2,0,2)");
265  test_for_zero(t3dg_1(2, 1, 0)
266  - (t3dg_3(2, 1, 0) * t2s_2(0, 0)
267  + t3dg_3(2, 1, 1) * t2s_2(1, 0)
268  + t3dg_3(2, 1, 2) * t2s_2(2, 0)),
269  "T2s(l,k)*T3dg(i,j,l)(2,1,0)");
270  test_for_zero(t3dg_1(2, 1, 1)
271  - (t3dg_3(2, 1, 0) * t2s_2(0, 1)
272  + t3dg_3(2, 1, 1) * t2s_2(1, 1)
273  + t3dg_3(2, 1, 2) * t2s_2(2, 1)),
274  "T2s(l,k)*T3dg(i,j,l)(2,1,1)");
275  test_for_zero(t3dg_1(2, 1, 2)
276  - (t3dg_3(2, 1, 0) * t2s_2(0, 2)
277  + t3dg_3(2, 1, 1) * t2s_2(1, 2)
278  + t3dg_3(2, 1, 2) * t2s_2(2, 2)),
279  "T2s(l,k)*T3dg(i,j,l)(2,1,2)");
280  test_for_zero(t3dg_1(2, 2, 0)
281  - (t3dg_3(2, 2, 0) * t2s_2(0, 0)
282  + t3dg_3(2, 2, 1) * t2s_2(1, 0)
283  + t3dg_3(2, 2, 2) * t2s_2(2, 0)),
284  "T2s(l,k)*T3dg(i,j,l)(2,2,0)");
285  test_for_zero(t3dg_1(2, 2, 1)
286  - (t3dg_3(2, 2, 0) * t2s_2(0, 1)
287  + t3dg_3(2, 2, 1) * t2s_2(1, 1)
288  + t3dg_3(2, 2, 2) * t2s_2(2, 1)),
289  "T2s(l,k)*T3dg(i,j,l)(2,2,1)");
290  test_for_zero(t3dg_1(2, 2, 2)
291  - (t3dg_3(2, 2, 0) * t2s_2(0, 2)
292  + t3dg_3(2, 2, 1) * t2s_2(1, 2)
293  + t3dg_3(2, 2, 2) * t2s_2(2, 2)),
294  "T2s(l,k)*T3dg(i,j,l)(2,2,2)");
295 }

◆ test_T3dg_29()

void test_T3dg_29 ( const Tensor2_symmetric< double, 3 > &  t2s_2,
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_T3dg_29.cpp.

10 {
11  Index<'i', 3> i;
12  Index<'j', 3> j;
13  Index<'k', 3> k;
14  Index<'l', 3> l;
15 
16  Number<0> N0;
17  Number<1> N1;
18  Number<2> N2;
19 
20  /* Dg tests */
21 
22  t3dg_1(i, j, k) = t3dg_2(i, j, l) * t2s_2(k, l);
23  test_for_zero(t3dg_1(0, 0, 0)
24  - (t3dg_2(0, 0, 0) * t2s_2(0, 0)
25  + t3dg_2(0, 0, 1) * t2s_2(0, 1)
26  + t3dg_2(0, 0, 2) * t2s_2(0, 2)),
27  "T3dg(i,j,l)*T2s(k,l)(0,0,0)");
28  test_for_zero(t3dg_1(0, 0, 1)
29  - (t3dg_2(0, 0, 0) * t2s_2(1, 0)
30  + t3dg_2(0, 0, 1) * t2s_2(1, 1)
31  + t3dg_2(0, 0, 2) * t2s_2(1, 2)),
32  "T3dg(i,j,l)*T2s(k,l)(0,0,1)");
33  test_for_zero(t3dg_1(0, 0, 2)
34  - (t3dg_2(0, 0, 0) * t2s_2(2, 0)
35  + t3dg_2(0, 0, 1) * t2s_2(2, 1)
36  + t3dg_2(0, 0, 2) * t2s_2(2, 2)),
37  "T3dg(i,j,l)*T2s(k,l)(0,0,2)");
38  test_for_zero(t3dg_1(0, 1, 0)
39  - (t3dg_2(0, 1, 0) * t2s_2(0, 0)
40  + t3dg_2(0, 1, 1) * t2s_2(0, 1)
41  + t3dg_2(0, 1, 2) * t2s_2(0, 2)),
42  "T3dg(i,j,l)*T2s(k,l)(0,1,0)");
43  test_for_zero(t3dg_1(0, 1, 1)
44  - (t3dg_2(0, 1, 0) * t2s_2(1, 0)
45  + t3dg_2(0, 1, 1) * t2s_2(1, 1)
46  + t3dg_2(0, 1, 2) * t2s_2(1, 2)),
47  "T3dg(i,j,l)*T2s(k,l)(0,1,1)");
48  test_for_zero(t3dg_1(0, 1, 2)
49  - (t3dg_2(0, 1, 0) * t2s_2(2, 0)
50  + t3dg_2(0, 1, 1) * t2s_2(2, 1)
51  + t3dg_2(0, 1, 2) * t2s_2(2, 2)),
52  "T3dg(i,j,l)*T2s(k,l)(0,1,2)");
53  test_for_zero(t3dg_1(0, 2, 0)
54  - (t3dg_2(0, 2, 0) * t2s_2(0, 0)
55  + t3dg_2(0, 2, 1) * t2s_2(0, 1)
56  + t3dg_2(0, 2, 2) * t2s_2(0, 2)),
57  "T3dg(i,j,l)*T2s(k,l)(0,2,0)");
58  test_for_zero(t3dg_1(0, 2, 1)
59  - (t3dg_2(0, 2, 0) * t2s_2(1, 0)
60  + t3dg_2(0, 2, 1) * t2s_2(1, 1)
61  + t3dg_2(0, 2, 2) * t2s_2(1, 2)),
62  "T3dg(i,j,l)*T2s(k,l)(0,2,1)");
63  test_for_zero(t3dg_1(0, 2, 2)
64  - (t3dg_2(0, 2, 0) * t2s_2(2, 0)
65  + t3dg_2(0, 2, 1) * t2s_2(2, 1)
66  + t3dg_2(0, 2, 2) * t2s_2(2, 2)),
67  "T3dg(i,j,l)*T2s(k,l)(0,2,2)");
68  test_for_zero(t3dg_1(1, 0, 0)
69  - (t3dg_2(1, 0, 0) * t2s_2(0, 0)
70  + t3dg_2(1, 0, 1) * t2s_2(0, 1)
71  + t3dg_2(1, 0, 2) * t2s_2(0, 2)),
72  "T3dg(i,j,l)*T2s(k,l)(1,0,0)");
73  test_for_zero(t3dg_1(1, 0, 1)
74  - (t3dg_2(1, 0, 0) * t2s_2(1, 0)
75  + t3dg_2(1, 0, 1) * t2s_2(1, 1)
76  + t3dg_2(1, 0, 2) * t2s_2(1, 2)),
77  "T3dg(i,j,l)*T2s(k,l)(1,0,1)");
78  test_for_zero(t3dg_1(1, 0, 2)
79  - (t3dg_2(1, 0, 0) * t2s_2(2, 0)
80  + t3dg_2(1, 0, 1) * t2s_2(2, 1)
81  + t3dg_2(1, 0, 2) * t2s_2(2, 2)),
82  "T3dg(i,j,l)*T2s(k,l)(1,0,2)");
83  test_for_zero(t3dg_1(1, 1, 0)
84  - (t3dg_2(1, 1, 0) * t2s_2(0, 0)
85  + t3dg_2(1, 1, 1) * t2s_2(0, 1)
86  + t3dg_2(1, 1, 2) * t2s_2(0, 2)),
87  "T3dg(i,j,l)*T2s(k,l)(1,1,0)");
88  test_for_zero(t3dg_1(1, 1, 1)
89  - (t3dg_2(1, 1, 0) * t2s_2(1, 0)
90  + t3dg_2(1, 1, 1) * t2s_2(1, 1)
91  + t3dg_2(1, 1, 2) * t2s_2(1, 2)),
92  "T3dg(i,j,l)*T2s(k,l)(1,1,1)");
93  test_for_zero(t3dg_1(1, 1, 2)
94  - (t3dg_2(1, 1, 0) * t2s_2(2, 0)
95  + t3dg_2(1, 1, 1) * t2s_2(2, 1)
96  + t3dg_2(1, 1, 2) * t2s_2(2, 2)),
97  "T3dg(i,j,l)*T2s(k,l)(1,1,2)");
98  test_for_zero(t3dg_1(1, 2, 0)
99  - (t3dg_2(1, 2, 0) * t2s_2(0, 0)
100  + t3dg_2(1, 2, 1) * t2s_2(0, 1)
101  + t3dg_2(1, 2, 2) * t2s_2(0, 2)),
102  "T3dg(i,j,l)*T2s(k,l)(1,2,0)");
103  test_for_zero(t3dg_1(1, 2, 1)
104  - (t3dg_2(1, 2, 0) * t2s_2(1, 0)
105  + t3dg_2(1, 2, 1) * t2s_2(1, 1)
106  + t3dg_2(1, 2, 2) * t2s_2(1, 2)),
107  "T3dg(i,j,l)*T2s(k,l)(1,2,1)");
108  test_for_zero(t3dg_1(1, 2, 2)
109  - (t3dg_2(1, 2, 0) * t2s_2(2, 0)
110  + t3dg_2(1, 2, 1) * t2s_2(2, 1)
111  + t3dg_2(1, 2, 2) * t2s_2(2, 2)),
112  "T3dg(i,j,l)*T2s(k,l)(1,2,2)");
113  test_for_zero(t3dg_1(2, 0, 0)
114  - (t3dg_2(2, 0, 0) * t2s_2(0, 0)
115  + t3dg_2(2, 0, 1) * t2s_2(0, 1)
116  + t3dg_2(2, 0, 2) * t2s_2(0, 2)),
117  "T3dg(i,j,l)*T2s(k,l)(2,0,0)");
118  test_for_zero(t3dg_1(2, 0, 1)
119  - (t3dg_2(2, 0, 0) * t2s_2(1, 0)
120  + t3dg_2(2, 0, 1) * t2s_2(1, 1)
121  + t3dg_2(2, 0, 2) * t2s_2(1, 2)),
122  "T3dg(i,j,l)*T2s(k,l)(2,0,1)");
123  test_for_zero(t3dg_1(2, 0, 2)
124  - (t3dg_2(2, 0, 0) * t2s_2(2, 0)
125  + t3dg_2(2, 0, 1) * t2s_2(2, 1)
126  + t3dg_2(2, 0, 2) * t2s_2(2, 2)),
127  "T3dg(i,j,l)*T2s(k,l)(2,0,2)");
128  test_for_zero(t3dg_1(2, 1, 0)
129  - (t3dg_2(2, 1, 0) * t2s_2(0, 0)
130  + t3dg_2(2, 1, 1) * t2s_2(0, 1)
131  + t3dg_2(2, 1, 2) * t2s_2(0, 2)),
132  "T3dg(i,j,l)*T2s(k,l)(2,1,0)");
133  test_for_zero(t3dg_1(2, 1, 1)
134  - (t3dg_2(2, 1, 0) * t2s_2(1, 0)
135  + t3dg_2(2, 1, 1) * t2s_2(1, 1)
136  + t3dg_2(2, 1, 2) * t2s_2(1, 2)),
137  "T3dg(i,j,l)*T2s(k,l)(2,1,1)");
138  test_for_zero(t3dg_1(2, 1, 2)
139  - (t3dg_2(2, 1, 0) * t2s_2(2, 0)
140  + t3dg_2(2, 1, 1) * t2s_2(2, 1)
141  + t3dg_2(2, 1, 2) * t2s_2(2, 2)),
142  "T3dg(i,j,l)*T2s(k,l)(2,1,2)");
143  test_for_zero(t3dg_1(2, 2, 0)
144  - (t3dg_2(2, 2, 0) * t2s_2(0, 0)
145  + t3dg_2(2, 2, 1) * t2s_2(0, 1)
146  + t3dg_2(2, 2, 2) * t2s_2(0, 2)),
147  "T3dg(i,j,l)*T2s(k,l)(2,2,0)");
148  test_for_zero(t3dg_1(2, 2, 1)
149  - (t3dg_2(2, 2, 0) * t2s_2(1, 0)
150  + t3dg_2(2, 2, 1) * t2s_2(1, 1)
151  + t3dg_2(2, 2, 2) * t2s_2(1, 2)),
152  "T3dg(i,j,l)*T2s(k,l)(2,2,1)");
153  test_for_zero(t3dg_1(2, 2, 2)
154  - (t3dg_2(2, 2, 0) * t2s_2(2, 0)
155  + t3dg_2(2, 2, 1) * t2s_2(2, 1)
156  + t3dg_2(2, 2, 2) * t2s_2(2, 2)),
157  "T3dg(i,j,l)*T2s(k,l)(2,2,2)");
158 
159  t3dg_1(i, j, k) = t2s_2(k, l) * t3dg_3(i, j, l);
160  test_for_zero(t3dg_1(0, 0, 0)
161  - (t3dg_3(0, 0, 0) * t2s_2(0, 0)
162  + t3dg_3(0, 0, 1) * t2s_2(0, 1)
163  + t3dg_3(0, 0, 2) * t2s_2(0, 2)),
164  "T2s(k,l)*T3dg(i,j,l)(0,0,0)");
165  test_for_zero(t3dg_1(0, 0, 1)
166  - (t3dg_3(0, 0, 0) * t2s_2(1, 0)
167  + t3dg_3(0, 0, 1) * t2s_2(1, 1)
168  + t3dg_3(0, 0, 2) * t2s_2(1, 2)),
169  "T2s(k,l)*T3dg(i,j,l)(0,0,1)");
170  test_for_zero(t3dg_1(0, 0, 2)
171  - (t3dg_3(0, 0, 0) * t2s_2(2, 0)
172  + t3dg_3(0, 0, 1) * t2s_2(2, 1)
173  + t3dg_3(0, 0, 2) * t2s_2(2, 2)),
174  "T2s(k,l)*T3dg(i,j,l)(0,0,2)");
175  test_for_zero(t3dg_1(0, 1, 0)
176  - (t3dg_3(0, 1, 0) * t2s_2(0, 0)
177  + t3dg_3(0, 1, 1) * t2s_2(0, 1)
178  + t3dg_3(0, 1, 2) * t2s_2(0, 2)),
179  "T2s(k,l)*T3dg(i,j,l)(0,1,0)");
180  test_for_zero(t3dg_1(0, 1, 1)
181  - (t3dg_3(0, 1, 0) * t2s_2(1, 0)
182  + t3dg_3(0, 1, 1) * t2s_2(1, 1)
183  + t3dg_3(0, 1, 2) * t2s_2(1, 2)),
184  "T2s(k,l)*T3dg(i,j,l)(0,1,1)");
185  test_for_zero(t3dg_1(0, 1, 2)
186  - (t3dg_3(0, 1, 0) * t2s_2(2, 0)
187  + t3dg_3(0, 1, 1) * t2s_2(2, 1)
188  + t3dg_3(0, 1, 2) * t2s_2(2, 2)),
189  "T2s(k,l)*T3dg(i,j,l)(0,1,2)");
190  test_for_zero(t3dg_1(0, 2, 0)
191  - (t3dg_3(0, 2, 0) * t2s_2(0, 0)
192  + t3dg_3(0, 2, 1) * t2s_2(0, 1)
193  + t3dg_3(0, 2, 2) * t2s_2(0, 2)),
194  "T2s(k,l)*T3dg(i,j,l)(0,2,0)");
195  test_for_zero(t3dg_1(0, 2, 1)
196  - (t3dg_3(0, 2, 0) * t2s_2(1, 0)
197  + t3dg_3(0, 2, 1) * t2s_2(1, 1)
198  + t3dg_3(0, 2, 2) * t2s_2(1, 2)),
199  "T2s(k,l)*T3dg(i,j,l)(0,2,1)");
200  test_for_zero(t3dg_1(0, 2, 2)
201  - (t3dg_3(0, 2, 0) * t2s_2(2, 0)
202  + t3dg_3(0, 2, 1) * t2s_2(2, 1)
203  + t3dg_3(0, 2, 2) * t2s_2(2, 2)),
204  "T2s(k,l)*T3dg(i,j,l)(0,2,2)");
205  test_for_zero(t3dg_1(1, 0, 0)
206  - (t3dg_3(1, 0, 0) * t2s_2(0, 0)
207  + t3dg_3(1, 0, 1) * t2s_2(0, 1)
208  + t3dg_3(1, 0, 2) * t2s_2(0, 2)),
209  "T2s(k,l)*T3dg(i,j,l)(1,0,0)");
210  test_for_zero(t3dg_1(1, 0, 1)
211  - (t3dg_3(1, 0, 0) * t2s_2(1, 0)
212  + t3dg_3(1, 0, 1) * t2s_2(1, 1)
213  + t3dg_3(1, 0, 2) * t2s_2(1, 2)),
214  "T2s(k,l)*T3dg(i,j,l)(1,0,1)");
215  test_for_zero(t3dg_1(1, 0, 2)
216  - (t3dg_3(1, 0, 0) * t2s_2(2, 0)
217  + t3dg_3(1, 0, 1) * t2s_2(2, 1)
218  + t3dg_3(1, 0, 2) * t2s_2(2, 2)),
219  "T2s(k,l)*T3dg(i,j,l)(1,0,2)");
220  test_for_zero(t3dg_1(1, 1, 0)
221  - (t3dg_3(1, 1, 0) * t2s_2(0, 0)
222  + t3dg_3(1, 1, 1) * t2s_2(0, 1)
223  + t3dg_3(1, 1, 2) * t2s_2(0, 2)),
224  "T2s(k,l)*T3dg(i,j,l)(1,1,0)");
225  test_for_zero(t3dg_1(1, 1, 1)
226  - (t3dg_3(1, 1, 0) * t2s_2(1, 0)
227  + t3dg_3(1, 1, 1) * t2s_2(1, 1)
228  + t3dg_3(1, 1, 2) * t2s_2(1, 2)),
229  "T2s(k,l)*T3dg(i,j,l)(1,1,1)");
230  test_for_zero(t3dg_1(1, 1, 2)
231  - (t3dg_3(1, 1, 0) * t2s_2(2, 0)
232  + t3dg_3(1, 1, 1) * t2s_2(2, 1)
233  + t3dg_3(1, 1, 2) * t2s_2(2, 2)),
234  "T2s(k,l)*T3dg(i,j,l)(1,1,2)");
235  test_for_zero(t3dg_1(1, 2, 0)
236  - (t3dg_3(1, 2, 0) * t2s_2(0, 0)
237  + t3dg_3(1, 2, 1) * t2s_2(0, 1)
238  + t3dg_3(1, 2, 2) * t2s_2(0, 2)),
239  "T2s(k,l)*T3dg(i,j,l)(1,2,0)");
240  test_for_zero(t3dg_1(1, 2, 1)
241  - (t3dg_3(1, 2, 0) * t2s_2(1, 0)
242  + t3dg_3(1, 2, 1) * t2s_2(1, 1)
243  + t3dg_3(1, 2, 2) * t2s_2(1, 2)),
244  "T2s(k,l)*T3dg(i,j,l)(1,2,1)");
245  test_for_zero(t3dg_1(1, 2, 2)
246  - (t3dg_3(1, 2, 0) * t2s_2(2, 0)
247  + t3dg_3(1, 2, 1) * t2s_2(2, 1)
248  + t3dg_3(1, 2, 2) * t2s_2(2, 2)),
249  "T2s(k,l)*T3dg(i,j,l)(1,2,2)");
250  test_for_zero(t3dg_1(2, 0, 0)
251  - (t3dg_3(2, 0, 0) * t2s_2(0, 0)
252  + t3dg_3(2, 0, 1) * t2s_2(0, 1)
253  + t3dg_3(2, 0, 2) * t2s_2(0, 2)),
254  "T2s(k,l)*T3dg(i,j,l)(2,0,0)");
255  test_for_zero(t3dg_1(2, 0, 1)
256  - (t3dg_3(2, 0, 0) * t2s_2(1, 0)
257  + t3dg_3(2, 0, 1) * t2s_2(1, 1)
258  + t3dg_3(2, 0, 2) * t2s_2(1, 2)),
259  "T2s(k,l)*T3dg(i,j,l)(2,0,1)");
260  test_for_zero(t3dg_1(2, 0, 2)
261  - (t3dg_3(2, 0, 0) * t2s_2(2, 0)
262  + t3dg_3(2, 0, 1) * t2s_2(2, 1)
263  + t3dg_3(2, 0, 2) * t2s_2(2, 2)),
264  "T2s(k,l)*T3dg(i,j,l)(2,0,2)");
265  test_for_zero(t3dg_1(2, 1, 0)
266  - (t3dg_3(2, 1, 0) * t2s_2(0, 0)
267  + t3dg_3(2, 1, 1) * t2s_2(0, 1)
268  + t3dg_3(2, 1, 2) * t2s_2(0, 2)),
269  "T2s(k,l)*T3dg(i,j,l)(2,1,0)");
270  test_for_zero(t3dg_1(2, 1, 1)
271  - (t3dg_3(2, 1, 0) * t2s_2(1, 0)
272  + t3dg_3(2, 1, 1) * t2s_2(1, 1)
273  + t3dg_3(2, 1, 2) * t2s_2(1, 2)),
274  "T2s(k,l)*T3dg(i,j,l)(2,1,1)");
275  test_for_zero(t3dg_1(2, 1, 2)
276  - (t3dg_3(2, 1, 0) * t2s_2(2, 0)
277  + t3dg_3(2, 1, 1) * t2s_2(2, 1)
278  + t3dg_3(2, 1, 2) * t2s_2(2, 2)),
279  "T2s(k,l)*T3dg(i,j,l)(2,1,2)");
280  test_for_zero(t3dg_1(2, 2, 0)
281  - (t3dg_3(2, 2, 0) * t2s_2(0, 0)
282  + t3dg_3(2, 2, 1) * t2s_2(0, 1)
283  + t3dg_3(2, 2, 2) * t2s_2(0, 2)),
284  "T2s(k,l)*T3dg(i,j,l)(2,2,0)");
285  test_for_zero(t3dg_1(2, 2, 1)
286  - (t3dg_3(2, 2, 0) * t2s_2(1, 0)
287  + t3dg_3(2, 2, 1) * t2s_2(1, 1)
288  + t3dg_3(2, 2, 2) * t2s_2(1, 2)),
289  "T2s(k,l)*T3dg(i,j,l)(2,2,1)");
290  test_for_zero(t3dg_1(2, 2, 2)
291  - (t3dg_3(2, 2, 0) * t2s_2(2, 0)
292  + t3dg_3(2, 2, 1) * t2s_2(2, 1)
293  + t3dg_3(2, 2, 2) * t2s_2(2, 2)),
294  "T2s(k,l)*T3dg(i,j,l)(2,2,2)");
295 }

◆ test_T3dg_30()

void test_T3dg_30 ( Tensor1< double, 3 > &  t1_1,
const Tensor2_symmetric< double, 3 > &  t2s_2,
const Dg< double, 3, 3 > &  t3dg_2 
)

Definition at line 7 of file test_T3dg_30.cpp.

10 {
11  Index<'i', 3> i;
12  Index<'j', 3> j;
13  Index<'k', 3> k;
14 
15  Number<0> N0;
16  Number<1> N1;
17  Number<2> N2;
18 
19  /* Dg tests */
20 
21  t1_1(i) = t3dg_2(i, j, k) * t2s_2(j, k);
22  test_for_zero(
23  t1_1(0)
24  - (t3dg_2(0, 0, 0) * t2s_2(0, 0) + t3dg_2(0, 0, 1) * t2s_2(0, 1)
25  + t3dg_2(0, 0, 2) * t2s_2(0, 2) + t3dg_2(0, 1, 0) * t2s_2(1, 0)
26  + t3dg_2(0, 1, 1) * t2s_2(1, 1) + t3dg_2(0, 1, 2) * t2s_2(1, 2)
27  + t3dg_2(0, 2, 0) * t2s_2(2, 0) + t3dg_2(0, 2, 1) * t2s_2(2, 1)
28  + t3dg_2(0, 2, 2) * t2s_2(2, 2)),
29  "T3dg(i,j,k)*T2s(j,k)(0)");
30  test_for_zero(
31  t1_1(1)
32  - (t3dg_2(1, 0, 0) * t2s_2(0, 0) + t3dg_2(1, 0, 1) * t2s_2(0, 1)
33  + t3dg_2(1, 0, 2) * t2s_2(0, 2) + t3dg_2(1, 1, 0) * t2s_2(1, 0)
34  + t3dg_2(1, 1, 1) * t2s_2(1, 1) + t3dg_2(1, 1, 2) * t2s_2(1, 2)
35  + t3dg_2(1, 2, 0) * t2s_2(2, 0) + t3dg_2(1, 2, 1) * t2s_2(2, 1)
36  + t3dg_2(1, 2, 2) * t2s_2(2, 2)),
37  "T3dg(i,j,k)*T2s(j,k)(1)");
38  test_for_zero(
39  t1_1(2)
40  - (t3dg_2(2, 0, 0) * t2s_2(0, 0) + t3dg_2(2, 0, 1) * t2s_2(0, 1)
41  + t3dg_2(2, 0, 2) * t2s_2(0, 2) + t3dg_2(2, 1, 0) * t2s_2(1, 0)
42  + t3dg_2(2, 1, 1) * t2s_2(1, 1) + t3dg_2(2, 1, 2) * t2s_2(1, 2)
43  + t3dg_2(2, 2, 0) * t2s_2(2, 0) + t3dg_2(2, 2, 1) * t2s_2(2, 1)
44  + t3dg_2(2, 2, 2) * t2s_2(2, 2)),
45  "T3dg(i,j,k)*T2s(j,k)(2)");
46 
47  t1_1(i) = t2s_2(j, k) * t3dg_2(i, j, k);
48  test_for_zero(
49  t1_1(0)
50  - (t3dg_2(0, 0, 0) * t2s_2(0, 0) + t3dg_2(0, 0, 1) * t2s_2(0, 1)
51  + t3dg_2(0, 0, 2) * t2s_2(0, 2) + t3dg_2(0, 1, 0) * t2s_2(1, 0)
52  + t3dg_2(0, 1, 1) * t2s_2(1, 1) + t3dg_2(0, 1, 2) * t2s_2(1, 2)
53  + t3dg_2(0, 2, 0) * t2s_2(2, 0) + t3dg_2(0, 2, 1) * t2s_2(2, 1)
54  + t3dg_2(0, 2, 2) * t2s_2(2, 2)),
55  "T2s(j,k)*T3dg(i,j,k)(0)");
56  test_for_zero(
57  t1_1(1)
58  - (t3dg_2(1, 0, 0) * t2s_2(0, 0) + t3dg_2(1, 0, 1) * t2s_2(0, 1)
59  + t3dg_2(1, 0, 2) * t2s_2(0, 2) + t3dg_2(1, 1, 0) * t2s_2(1, 0)
60  + t3dg_2(1, 1, 1) * t2s_2(1, 1) + t3dg_2(1, 1, 2) * t2s_2(1, 2)
61  + t3dg_2(1, 2, 0) * t2s_2(2, 0) + t3dg_2(1, 2, 1) * t2s_2(2, 1)
62  + t3dg_2(1, 2, 2) * t2s_2(2, 2)),
63  "T2s(j,k)*T3dg(i,j,k)(1)");
64  test_for_zero(
65  t1_1(2)
66  - (t3dg_2(2, 0, 0) * t2s_2(0, 0) + t3dg_2(2, 0, 1) * t2s_2(0, 1)
67  + t3dg_2(2, 0, 2) * t2s_2(0, 2) + t3dg_2(2, 1, 0) * t2s_2(1, 0)
68  + t3dg_2(2, 1, 1) * t2s_2(1, 1) + t3dg_2(2, 1, 2) * t2s_2(1, 2)
69  + t3dg_2(2, 2, 0) * t2s_2(2, 0) + t3dg_2(2, 2, 1) * t2s_2(2, 1)
70  + t3dg_2(2, 2, 2) * t2s_2(2, 2)),
71  "T2s(j,k)*T3dg(i,j,k)(2)");
72 }

◆ test_T3dg_31()

void test_T3dg_31 ( Tensor1< double, 3 > &  t1_1,
const Tensor2_symmetric< double, 3 > &  t2s_2,
const Dg< double, 3, 3 > &  t3dg_2 
)

Definition at line 7 of file test_T3dg_31.cpp.

10 {
11  Index<'i', 3> i;
12  Index<'j', 3> j;
13  Index<'k', 3> k;
14 
15  Number<0> N0;
16  Number<1> N1;
17  Number<2> N2;
18 
19  /* Dg tests */
20 
21  t1_1(i) = t3dg_2(i, j, k) * t2s_2(k, j);
22  test_for_zero(
23  t1_1(0)
24  - (t3dg_2(0, 0, 0) * t2s_2(0, 0) + t3dg_2(0, 0, 1) * t2s_2(1, 0)
25  + t3dg_2(0, 0, 2) * t2s_2(2, 0) + t3dg_2(0, 1, 0) * t2s_2(0, 1)
26  + t3dg_2(0, 1, 1) * t2s_2(1, 1) + t3dg_2(0, 1, 2) * t2s_2(2, 1)
27  + t3dg_2(0, 2, 0) * t2s_2(0, 2) + t3dg_2(0, 2, 1) * t2s_2(1, 2)
28  + t3dg_2(0, 2, 2) * t2s_2(2, 2)),
29  "T3dg(i,j,k)*T2s(k,j)(0)");
30  test_for_zero(
31  t1_1(1)
32  - (t3dg_2(1, 0, 0) * t2s_2(0, 0) + t3dg_2(1, 0, 1) * t2s_2(1, 0)
33  + t3dg_2(1, 0, 2) * t2s_2(2, 0) + t3dg_2(1, 1, 0) * t2s_2(0, 1)
34  + t3dg_2(1, 1, 1) * t2s_2(1, 1) + t3dg_2(1, 1, 2) * t2s_2(2, 1)
35  + t3dg_2(1, 2, 0) * t2s_2(0, 2) + t3dg_2(1, 2, 1) * t2s_2(1, 2)
36  + t3dg_2(1, 2, 2) * t2s_2(2, 2)),
37  "T3dg(i,j,k)*T2s(k,j)(1)");
38  test_for_zero(
39  t1_1(2)
40  - (t3dg_2(2, 0, 0) * t2s_2(0, 0) + t3dg_2(2, 0, 1) * t2s_2(1, 0)
41  + t3dg_2(2, 0, 2) * t2s_2(2, 0) + t3dg_2(2, 1, 0) * t2s_2(0, 1)
42  + t3dg_2(2, 1, 1) * t2s_2(1, 1) + t3dg_2(2, 1, 2) * t2s_2(2, 1)
43  + t3dg_2(2, 2, 0) * t2s_2(0, 2) + t3dg_2(2, 2, 1) * t2s_2(1, 2)
44  + t3dg_2(2, 2, 2) * t2s_2(2, 2)),
45  "T3dg(i,j,k)*T2s(k,j)(2)");
46 
47  t1_1(i) = t2s_2(k, j) * t3dg_2(i, j, k);
48  test_for_zero(
49  t1_1(0)
50  - (t3dg_2(0, 0, 0) * t2s_2(0, 0) + t3dg_2(0, 0, 1) * t2s_2(1, 0)
51  + t3dg_2(0, 0, 2) * t2s_2(2, 0) + t3dg_2(0, 1, 0) * t2s_2(0, 1)
52  + t3dg_2(0, 1, 1) * t2s_2(1, 1) + t3dg_2(0, 1, 2) * t2s_2(2, 1)
53  + t3dg_2(0, 2, 0) * t2s_2(0, 2) + t3dg_2(0, 2, 1) * t2s_2(1, 2)
54  + t3dg_2(0, 2, 2) * t2s_2(2, 2)),
55  "T2s(k,j)*T3dg(i,j,k)(0)");
56  test_for_zero(
57  t1_1(1)
58  - (t3dg_2(1, 0, 0) * t2s_2(0, 0) + t3dg_2(1, 0, 1) * t2s_2(1, 0)
59  + t3dg_2(1, 0, 2) * t2s_2(2, 0) + t3dg_2(1, 1, 0) * t2s_2(0, 1)
60  + t3dg_2(1, 1, 1) * t2s_2(1, 1) + t3dg_2(1, 1, 2) * t2s_2(2, 1)
61  + t3dg_2(1, 2, 0) * t2s_2(0, 2) + t3dg_2(1, 2, 1) * t2s_2(1, 2)
62  + t3dg_2(1, 2, 2) * t2s_2(2, 2)),
63  "T2s(k,j)*T3dg(i,j,k)(1)");
64  test_for_zero(
65  t1_1(2)
66  - (t3dg_2(2, 0, 0) * t2s_2(0, 0) + t3dg_2(2, 0, 1) * t2s_2(1, 0)
67  + t3dg_2(2, 0, 2) * t2s_2(2, 0) + t3dg_2(2, 1, 0) * t2s_2(0, 1)
68  + t3dg_2(2, 1, 1) * t2s_2(1, 1) + t3dg_2(2, 1, 2) * t2s_2(2, 1)
69  + t3dg_2(2, 2, 0) * t2s_2(0, 2) + t3dg_2(2, 2, 1) * t2s_2(1, 2)
70  + t3dg_2(2, 2, 2) * t2s_2(2, 2)),
71  "T2s(k,j)*T3dg(i,j,k)(2)");
72 }

◆ test_T3dg_32()

void test_T3dg_32 ( Tensor1< double, 3 > &  t1_1,
const Tensor2_symmetric< double, 3 > &  t2s_2,
const Dg< double, 3, 3 > &  t3dg_2 
)

Definition at line 7 of file test_T3dg_32.cpp.

10 {
11  Index<'i', 3> i;
12  Index<'j', 3> j;
13  Index<'k', 3> k;
14 
15  Number<0> N0;
16  Number<1> N1;
17  Number<2> N2;
18 
19  /* Dg tests */
20 
21  t1_1(i) = t3dg_2(j, i, k) * t2s_2(j, k);
22  test_for_zero(
23  t1_1(0)
24  - (t3dg_2(0, 0, 0) * t2s_2(0, 0) + t3dg_2(0, 0, 1) * t2s_2(0, 1)
25  + t3dg_2(0, 0, 2) * t2s_2(0, 2) + t3dg_2(1, 0, 0) * t2s_2(1, 0)
26  + t3dg_2(1, 0, 1) * t2s_2(1, 1) + t3dg_2(1, 0, 2) * t2s_2(1, 2)
27  + t3dg_2(2, 0, 0) * t2s_2(2, 0) + t3dg_2(2, 0, 1) * t2s_2(2, 1)
28  + t3dg_2(2, 0, 2) * t2s_2(2, 2)),
29  "T3dg(j,i,k)*T2s(j,k)(0)");
30  test_for_zero(
31  t1_1(1)
32  - (t3dg_2(0, 1, 0) * t2s_2(0, 0) + t3dg_2(0, 1, 1) * t2s_2(0, 1)
33  + t3dg_2(0, 1, 2) * t2s_2(0, 2) + t3dg_2(1, 1, 0) * t2s_2(1, 0)
34  + t3dg_2(1, 1, 1) * t2s_2(1, 1) + t3dg_2(1, 1, 2) * t2s_2(1, 2)
35  + t3dg_2(2, 1, 0) * t2s_2(2, 0) + t3dg_2(2, 1, 1) * t2s_2(2, 1)
36  + t3dg_2(2, 1, 2) * t2s_2(2, 2)),
37  "T3dg(j,i,k)*T2s(j,k)(1)");
38  test_for_zero(
39  t1_1(2)
40  - (t3dg_2(0, 2, 0) * t2s_2(0, 0) + t3dg_2(0, 2, 1) * t2s_2(0, 1)
41  + t3dg_2(0, 2, 2) * t2s_2(0, 2) + t3dg_2(1, 2, 0) * t2s_2(1, 0)
42  + t3dg_2(1, 2, 1) * t2s_2(1, 1) + t3dg_2(1, 2, 2) * t2s_2(1, 2)
43  + t3dg_2(2, 2, 0) * t2s_2(2, 0) + t3dg_2(2, 2, 1) * t2s_2(2, 1)
44  + t3dg_2(2, 2, 2) * t2s_2(2, 2)),
45  "T3dg(j,i,k)*T2s(j,k)(2)");
46 
47  t1_1(i) = t2s_2(j, k) * t3dg_2(j, i, k);
48  test_for_zero(
49  t1_1(0)
50  - (t3dg_2(0, 0, 0) * t2s_2(0, 0) + t3dg_2(0, 0, 1) * t2s_2(0, 1)
51  + t3dg_2(0, 0, 2) * t2s_2(0, 2) + t3dg_2(1, 0, 0) * t2s_2(1, 0)
52  + t3dg_2(1, 0, 1) * t2s_2(1, 1) + t3dg_2(1, 0, 2) * t2s_2(1, 2)
53  + t3dg_2(2, 0, 0) * t2s_2(2, 0) + t3dg_2(2, 0, 1) * t2s_2(2, 1)
54  + t3dg_2(2, 0, 2) * t2s_2(2, 2)),
55  "T2s(j,k)*T3dg(j,i,k)(0)");
56  test_for_zero(
57  t1_1(1)
58  - (t3dg_2(0, 1, 0) * t2s_2(0, 0) + t3dg_2(0, 1, 1) * t2s_2(0, 1)
59  + t3dg_2(0, 1, 2) * t2s_2(0, 2) + t3dg_2(1, 1, 0) * t2s_2(1, 0)
60  + t3dg_2(1, 1, 1) * t2s_2(1, 1) + t3dg_2(1, 1, 2) * t2s_2(1, 2)
61  + t3dg_2(2, 1, 0) * t2s_2(2, 0) + t3dg_2(2, 1, 1) * t2s_2(2, 1)
62  + t3dg_2(2, 1, 2) * t2s_2(2, 2)),
63  "T2s(j,k)*T3dg(j,i,k)(1)");
64  test_for_zero(
65  t1_1(2)
66  - (t3dg_2(0, 2, 0) * t2s_2(0, 0) + t3dg_2(0, 2, 1) * t2s_2(0, 1)
67  + t3dg_2(0, 2, 2) * t2s_2(0, 2) + t3dg_2(1, 2, 0) * t2s_2(1, 0)
68  + t3dg_2(1, 2, 1) * t2s_2(1, 1) + t3dg_2(1, 2, 2) * t2s_2(1, 2)
69  + t3dg_2(2, 2, 0) * t2s_2(2, 0) + t3dg_2(2, 2, 1) * t2s_2(2, 1)
70  + t3dg_2(2, 2, 2) * t2s_2(2, 2)),
71  "T2s(j,k)*T3dg(j,i,k)(2)");
72 }

◆ test_T3dg_33()

void test_T3dg_33 ( Tensor1< double, 3 > &  t1_1,
const Tensor2_symmetric< double, 3 > &  t2s_2,
const Dg< double, 3, 3 > &  t3dg_2 
)

Definition at line 7 of file test_T3dg_33.cpp.

10 {
11  Index<'i', 3> i;
12  Index<'j', 3> j;
13  Index<'k', 3> k;
14 
15  Number<0> N0;
16  Number<1> N1;
17  Number<2> N2;
18 
19  /* Dg tests */
20 
21  t1_1(i) = t3dg_2(j, i, k) * t2s_2(k, j);
22  test_for_zero(
23  t1_1(0)
24  - (t3dg_2(0, 0, 0) * t2s_2(0, 0) + t3dg_2(0, 0, 1) * t2s_2(1, 0)
25  + t3dg_2(0, 0, 2) * t2s_2(2, 0) + t3dg_2(1, 0, 0) * t2s_2(0, 1)
26  + t3dg_2(1, 0, 1) * t2s_2(1, 1) + t3dg_2(1, 0, 2) * t2s_2(2, 1)
27  + t3dg_2(2, 0, 0) * t2s_2(0, 2) + t3dg_2(2, 0, 1) * t2s_2(1, 2)
28  + t3dg_2(2, 0, 2) * t2s_2(2, 2)),
29  "T3dg(j,i,k)*T2s(k,j)(0)");
30  test_for_zero(
31  t1_1(1)
32  - (t3dg_2(0, 1, 0) * t2s_2(0, 0) + t3dg_2(0, 1, 1) * t2s_2(1, 0)
33  + t3dg_2(0, 1, 2) * t2s_2(2, 0) + t3dg_2(1, 1, 0) * t2s_2(0, 1)
34  + t3dg_2(1, 1, 1) * t2s_2(1, 1) + t3dg_2(1, 1, 2) * t2s_2(2, 1)
35  + t3dg_2(2, 1, 0) * t2s_2(0, 2) + t3dg_2(2, 1, 1) * t2s_2(1, 2)
36  + t3dg_2(2, 1, 2) * t2s_2(2, 2)),
37  "T3dg(j,i,k)*T2s(k,j)(1)");
38  test_for_zero(
39  t1_1(2)
40  - (t3dg_2(0, 2, 0) * t2s_2(0, 0) + t3dg_2(0, 2, 1) * t2s_2(1, 0)
41  + t3dg_2(0, 2, 2) * t2s_2(2, 0) + t3dg_2(1, 2, 0) * t2s_2(0, 1)
42  + t3dg_2(1, 2, 1) * t2s_2(1, 1) + t3dg_2(1, 2, 2) * t2s_2(2, 1)
43  + t3dg_2(2, 2, 0) * t2s_2(0, 2) + t3dg_2(2, 2, 1) * t2s_2(1, 2)
44  + t3dg_2(2, 2, 2) * t2s_2(2, 2)),
45  "T3dg(j,i,k)*T2s(k,j)(2)");
46 
47  t1_1(i) = t2s_2(k, j) * t3dg_2(j, i, k);
48  test_for_zero(
49  t1_1(0)
50  - (t3dg_2(0, 0, 0) * t2s_2(0, 0) + t3dg_2(0, 0, 1) * t2s_2(1, 0)
51  + t3dg_2(0, 0, 2) * t2s_2(2, 0) + t3dg_2(1, 0, 0) * t2s_2(0, 1)
52  + t3dg_2(1, 0, 1) * t2s_2(1, 1) + t3dg_2(1, 0, 2) * t2s_2(2, 1)
53  + t3dg_2(2, 0, 0) * t2s_2(0, 2) + t3dg_2(2, 0, 1) * t2s_2(1, 2)
54  + t3dg_2(2, 0, 2) * t2s_2(2, 2)),
55  "T2s(k,j)*T3dg(j,i,k)(0)");
56  test_for_zero(
57  t1_1(1)
58  - (t3dg_2(0, 1, 0) * t2s_2(0, 0) + t3dg_2(0, 1, 1) * t2s_2(1, 0)
59  + t3dg_2(0, 1, 2) * t2s_2(2, 0) + t3dg_2(1, 1, 0) * t2s_2(0, 1)
60  + t3dg_2(1, 1, 1) * t2s_2(1, 1) + t3dg_2(1, 1, 2) * t2s_2(2, 1)
61  + t3dg_2(2, 1, 0) * t2s_2(0, 2) + t3dg_2(2, 1, 1) * t2s_2(1, 2)
62  + t3dg_2(2, 1, 2) * t2s_2(2, 2)),
63  "T2s(k,j)*T3dg(j,i,k)(1)");
64  test_for_zero(
65  t1_1(2)
66  - (t3dg_2(0, 2, 0) * t2s_2(0, 0) + t3dg_2(0, 2, 1) * t2s_2(1, 0)
67  + t3dg_2(0, 2, 2) * t2s_2(2, 0) + t3dg_2(1, 2, 0) * t2s_2(0, 1)
68  + t3dg_2(1, 2, 1) * t2s_2(1, 1) + t3dg_2(1, 2, 2) * t2s_2(2, 1)
69  + t3dg_2(2, 2, 0) * t2s_2(0, 2) + t3dg_2(2, 2, 1) * t2s_2(1, 2)
70  + t3dg_2(2, 2, 2) * t2s_2(2, 2)),
71  "T2s(k,j)*T3dg(j,i,k)(2)");
72 }

◆ test_T3dg_34()

void test_T3dg_34 ( Tensor1< double, 3 > &  t1_1,
const Tensor2_symmetric< double, 3 > &  t2s_2,
const Dg< double, 3, 3 > &  t3dg_2 
)

Definition at line 7 of file test_T3dg_34.cpp.

10 {
11  Index<'i', 3> i;
12  Index<'j', 3> j;
13  Index<'k', 3> k;
14 
15  Number<0> N0;
16  Number<1> N1;
17  Number<2> N2;
18 
19  /* Dg tests */
20 
21  t1_1(i) = t3dg_2(j, k, i) * t2s_2(j, k);
22  test_for_zero(
23  t1_1(0)
24  - (t3dg_2(0, 0, 0) * t2s_2(0, 0) + t3dg_2(0, 1, 0) * t2s_2(0, 1)
25  + t3dg_2(0, 2, 0) * t2s_2(0, 2) + t3dg_2(1, 0, 0) * t2s_2(1, 0)
26  + t3dg_2(1, 1, 0) * t2s_2(1, 1) + t3dg_2(1, 2, 0) * t2s_2(1, 2)
27  + t3dg_2(2, 0, 0) * t2s_2(2, 0) + t3dg_2(2, 1, 0) * t2s_2(2, 1)
28  + t3dg_2(2, 2, 0) * t2s_2(2, 2)),
29  "T3dg(j,k,i)*T2s(j,k)(0)");
30  test_for_zero(
31  t1_1(1)
32  - (t3dg_2(0, 0, 1) * t2s_2(0, 0) + t3dg_2(0, 1, 1) * t2s_2(0, 1)
33  + t3dg_2(0, 2, 1) * t2s_2(0, 2) + t3dg_2(1, 0, 1) * t2s_2(1, 0)
34  + t3dg_2(1, 1, 1) * t2s_2(1, 1) + t3dg_2(1, 2, 1) * t2s_2(1, 2)
35  + t3dg_2(2, 0, 1) * t2s_2(2, 0) + t3dg_2(2, 1, 1) * t2s_2(2, 1)
36  + t3dg_2(2, 2, 1) * t2s_2(2, 2)),
37  "T3dg(j,k,i)*T2s(j,k)(1)");
38  test_for_zero(
39  t1_1(2)
40  - (t3dg_2(0, 0, 2) * t2s_2(0, 0) + t3dg_2(0, 1, 2) * t2s_2(0, 1)
41  + t3dg_2(0, 2, 2) * t2s_2(0, 2) + t3dg_2(1, 0, 2) * t2s_2(1, 0)
42  + t3dg_2(1, 1, 2) * t2s_2(1, 1) + t3dg_2(1, 2, 2) * t2s_2(1, 2)
43  + t3dg_2(2, 0, 2) * t2s_2(2, 0) + t3dg_2(2, 1, 2) * t2s_2(2, 1)
44  + t3dg_2(2, 2, 2) * t2s_2(2, 2)),
45  "T3dg(j,k,i)*T2s(j,k)(2)");
46 
47  t1_1(i) = t2s_2(j, k) * t3dg_2(j, k, i);
48  test_for_zero(
49  t1_1(0)
50  - (t3dg_2(0, 0, 0) * t2s_2(0, 0) + t3dg_2(0, 1, 0) * t2s_2(0, 1)
51  + t3dg_2(0, 2, 0) * t2s_2(0, 2) + t3dg_2(1, 0, 0) * t2s_2(1, 0)
52  + t3dg_2(1, 1, 0) * t2s_2(1, 1) + t3dg_2(1, 2, 0) * t2s_2(1, 2)
53  + t3dg_2(2, 0, 0) * t2s_2(2, 0) + t3dg_2(2, 1, 0) * t2s_2(2, 1)
54  + t3dg_2(2, 2, 0) * t2s_2(2, 2)),
55  "T2s(j,k)*T3dg(j,k,i)(0)");
56  test_for_zero(
57  t1_1(1)
58  - (t3dg_2(0, 0, 1) * t2s_2(0, 0) + t3dg_2(0, 1, 1) * t2s_2(0, 1)
59  + t3dg_2(0, 2, 1) * t2s_2(0, 2) + t3dg_2(1, 0, 1) * t2s_2(1, 0)
60  + t3dg_2(1, 1, 1) * t2s_2(1, 1) + t3dg_2(1, 2, 1) * t2s_2(1, 2)
61  + t3dg_2(2, 0, 1) * t2s_2(2, 0) + t3dg_2(2, 1, 1) * t2s_2(2, 1)
62  + t3dg_2(2, 2, 1) * t2s_2(2, 2)),
63  "T2s(j,k)*T3dg(j,k,i)(1)");
64  test_for_zero(
65  t1_1(2)
66  - (t3dg_2(0, 0, 2) * t2s_2(0, 0) + t3dg_2(0, 1, 2) * t2s_2(0, 1)
67  + t3dg_2(0, 2, 2) * t2s_2(0, 2) + t3dg_2(1, 0, 2) * t2s_2(1, 0)
68  + t3dg_2(1, 1, 2) * t2s_2(1, 1) + t3dg_2(1, 2, 2) * t2s_2(1, 2)
69  + t3dg_2(2, 0, 2) * t2s_2(2, 0) + t3dg_2(2, 1, 2) * t2s_2(2, 1)
70  + t3dg_2(2, 2, 2) * t2s_2(2, 2)),
71  "T2s(j,k)*T3dg(j,k,i)(2)");
72 }

◆ test_T3dg_35()

void test_T3dg_35 ( Tensor1< double, 3 > &  t1_1,
const Tensor2_symmetric< double, 3 > &  t2s_2,
const Dg< double, 3, 3 > &  t3dg_2 
)

Definition at line 7 of file test_T3dg_35.cpp.

10 {
11  Index<'i', 3> i;
12  Index<'j', 3> j;
13  Index<'k', 3> k;
14 
15  Number<0> N0;
16  Number<1> N1;
17  Number<2> N2;
18 
19  /* Dg tests */
20 
21  t1_1(i) = t3dg_2(j, k, i) * t2s_2(k, j);
22  test_for_zero(
23  t1_1(0)
24  - (t3dg_2(0, 0, 0) * t2s_2(0, 0) + t3dg_2(0, 1, 0) * t2s_2(1, 0)
25  + t3dg_2(0, 2, 0) * t2s_2(2, 0) + t3dg_2(1, 0, 0) * t2s_2(0, 1)
26  + t3dg_2(1, 1, 0) * t2s_2(1, 1) + t3dg_2(1, 2, 0) * t2s_2(2, 1)
27  + t3dg_2(2, 0, 0) * t2s_2(0, 2) + t3dg_2(2, 1, 0) * t2s_2(1, 2)
28  + t3dg_2(2, 2, 0) * t2s_2(2, 2)),
29  "T3dg(j,k,i)*T2s(k,j)(0)");
30  test_for_zero(
31  t1_1(1)
32  - (t3dg_2(0, 0, 1) * t2s_2(0, 0) + t3dg_2(0, 1, 1) * t2s_2(1, 0)
33  + t3dg_2(0, 2, 1) * t2s_2(2, 0) + t3dg_2(1, 0, 1) * t2s_2(0, 1)
34  + t3dg_2(1, 1, 1) * t2s_2(1, 1) + t3dg_2(1, 2, 1) * t2s_2(2, 1)
35  + t3dg_2(2, 0, 1) * t2s_2(0, 2) + t3dg_2(2, 1, 1) * t2s_2(1, 2)
36  + t3dg_2(2, 2, 1) * t2s_2(2, 2)),
37  "T3dg(j,k,i)*T2s(k,j)(1)");
38  test_for_zero(
39  t1_1(2)
40  - (t3dg_2(0, 0, 2) * t2s_2(0, 0) + t3dg_2(0, 1, 2) * t2s_2(1, 0)
41  + t3dg_2(0, 2, 2) * t2s_2(2, 0) + t3dg_2(1, 0, 2) * t2s_2(0, 1)
42  + t3dg_2(1, 1, 2) * t2s_2(1, 1) + t3dg_2(1, 2, 2) * t2s_2(2, 1)
43  + t3dg_2(2, 0, 2) * t2s_2(0, 2) + t3dg_2(2, 1, 2) * t2s_2(1, 2)
44  + t3dg_2(2, 2, 2) * t2s_2(2, 2)),
45  "T3dg(j,k,i)*T2s(k,j)(2)");
46 
47  t1_1(i) = t2s_2(k, j) * t3dg_2(j, k, i);
48  test_for_zero(
49  t1_1(0)
50  - (t3dg_2(0, 0, 0) * t2s_2(0, 0) + t3dg_2(0, 1, 0) * t2s_2(1, 0)
51  + t3dg_2(0, 2, 0) * t2s_2(2, 0) + t3dg_2(1, 0, 0) * t2s_2(0, 1)
52  + t3dg_2(1, 1, 0) * t2s_2(1, 1) + t3dg_2(1, 2, 0) * t2s_2(2, 1)
53  + t3dg_2(2, 0, 0) * t2s_2(0, 2) + t3dg_2(2, 1, 0) * t2s_2(1, 2)
54  + t3dg_2(2, 2, 0) * t2s_2(2, 2)),
55  "T2s(k,j)*T3dg(j,k,i)(0)");
56  test_for_zero(
57  t1_1(1)
58  - (t3dg_2(0, 0, 1) * t2s_2(0, 0) + t3dg_2(0, 1, 1) * t2s_2(1, 0)
59  + t3dg_2(0, 2, 1) * t2s_2(2, 0) + t3dg_2(1, 0, 1) * t2s_2(0, 1)
60  + t3dg_2(1, 1, 1) * t2s_2(1, 1) + t3dg_2(1, 2, 1) * t2s_2(2, 1)
61  + t3dg_2(2, 0, 1) * t2s_2(0, 2) + t3dg_2(2, 1, 1) * t2s_2(1, 2)
62  + t3dg_2(2, 2, 1) * t2s_2(2, 2)),
63  "T2s(k,j)*T3dg(j,k,i)(1)");
64  test_for_zero(
65  t1_1(2)
66  - (t3dg_2(0, 0, 2) * t2s_2(0, 0) + t3dg_2(0, 1, 2) * t2s_2(1, 0)
67  + t3dg_2(0, 2, 2) * t2s_2(2, 0) + t3dg_2(1, 0, 2) * t2s_2(0, 1)
68  + t3dg_2(1, 1, 2) * t2s_2(1, 1) + t3dg_2(1, 2, 2) * t2s_2(2, 1)
69  + t3dg_2(2, 0, 2) * t2s_2(0, 2) + t3dg_2(2, 1, 2) * t2s_2(1, 2)
70  + t3dg_2(2, 2, 2) * t2s_2(2, 2)),
71  "T2s(k,j)*T3dg(j,k,i)(2)");
72 }

◆ test_T3dg_36()

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

◆ test_T3dg_37()

void test_T3dg_37 ( const Tensor2< double, 3, 3 > &  t2_2,
const Tensor2_symmetric< double, 3 > &  t2s_2,
const Dg< double, 3, 3 > &  t3dg_2,
const Dg< double, 3, 3 > &  t3dg_3 
)

Definition at line 7 of file test_T3dg_37.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  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(0, 0, 0)
22  - (t3dg_2(0, 0, 0) + t3dg_3(0, 0, 0)),
23  "T3dg(i,j,k)+T3(k,j,i)(0,0,0)");
24  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(0, 0, 1)
25  - (t3dg_2(0, 0, 1) + t3dg_3(1, 0, 0)),
26  "T3dg(i,j,k)+T3(k,j,i)(0,0,1)");
27  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(0, 0, 2)
28  - (t3dg_2(0, 0, 2) + t3dg_3(2, 0, 0)),
29  "T3dg(i,j,k)+T3(k,j,i)(0,0,2)");
30  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(0, 1, 0)
31  - (t3dg_2(0, 1, 0) + t3dg_3(0, 1, 0)),
32  "T3dg(i,j,k)+T3(k,j,i)(0,1,0)");
33  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(0, 1, 1)
34  - (t3dg_2(0, 1, 1) + t3dg_3(1, 1, 0)),
35  "T3dg(i,j,k)+T3(k,j,i)(0,1,1)");
36  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(0, 1, 2)
37  - (t3dg_2(0, 1, 2) + t3dg_3(2, 1, 0)),
38  "T3dg(i,j,k)+T3(k,j,i)(0,1,2)");
39  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(0, 2, 0)
40  - (t3dg_2(0, 2, 0) + t3dg_3(0, 2, 0)),
41  "T3dg(i,j,k)+T3(k,j,i)(0,2,0)");
42  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(0, 2, 1)
43  - (t3dg_2(0, 2, 1) + t3dg_3(1, 2, 0)),
44  "T3dg(i,j,k)+T3(k,j,i)(0,2,1)");
45  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(0, 2, 2)
46  - (t3dg_2(0, 2, 2) + t3dg_3(2, 2, 0)),
47  "T3dg(i,j,k)+T3(k,j,i)(0,2,2)");
48  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(1, 0, 0)
49  - (t3dg_2(1, 0, 0) + t3dg_3(0, 0, 1)),
50  "T3dg(i,j,k)+T3(k,j,i)(1,0,0)");
51  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(1, 0, 1)
52  - (t3dg_2(1, 0, 1) + t3dg_3(1, 0, 1)),
53  "T3dg(i,j,k)+T3(k,j,i)(1,0,1)");
54  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(1, 0, 2)
55  - (t3dg_2(1, 0, 2) + t3dg_3(2, 0, 1)),
56  "T3dg(i,j,k)+T3(k,j,i)(1,0,2)");
57  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(1, 1, 0)
58  - (t3dg_2(1, 1, 0) + t3dg_3(0, 1, 1)),
59  "T3dg(i,j,k)+T3(k,j,i)(1,1,0)");
60  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(1, 1, 1)
61  - (t3dg_2(1, 1, 1) + t3dg_3(1, 1, 1)),
62  "T3dg(i,j,k)+T3(k,j,i)(1,1,1)");
63  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(1, 1, 2)
64  - (t3dg_2(1, 1, 2) + t3dg_3(2, 1, 1)),
65  "T3dg(i,j,k)+T3(k,j,i)(1,1,2)");
66  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(1, 2, 0)
67  - (t3dg_2(1, 2, 0) + t3dg_3(0, 2, 1)),
68  "T3dg(i,j,k)+T3(k,j,i)(1,2,0)");
69  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(1, 2, 1)
70  - (t3dg_2(1, 2, 1) + t3dg_3(1, 2, 1)),
71  "T3dg(i,j,k)+T3(k,j,i)(1,2,1)");
72  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(1, 2, 2)
73  - (t3dg_2(1, 2, 2) + t3dg_3(2, 2, 1)),
74  "T3dg(i,j,k)+T3(k,j,i)(1,2,2)");
75  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(2, 0, 0)
76  - (t3dg_2(2, 0, 0) + t3dg_3(0, 0, 2)),
77  "T3dg(i,j,k)+T3(k,j,i)(2,0,0)");
78  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(2, 0, 1)
79  - (t3dg_2(2, 0, 1) + t3dg_3(1, 0, 2)),
80  "T3dg(i,j,k)+T3(k,j,i)(2,0,1)");
81  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(2, 0, 2)
82  - (t3dg_2(2, 0, 2) + t3dg_3(2, 0, 2)),
83  "T3dg(i,j,k)+T3(k,j,i)(2,0,2)");
84  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(2, 1, 0)
85  - (t3dg_2(2, 1, 0) + t3dg_3(0, 1, 2)),
86  "T3dg(i,j,k)+T3(k,j,i)(2,1,0)");
87  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(2, 1, 1)
88  - (t3dg_2(2, 1, 1) + t3dg_3(1, 1, 2)),
89  "T3dg(i,j,k)+T3(k,j,i)(2,1,1)");
90  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(2, 1, 2)
91  - (t3dg_2(2, 1, 2) + t3dg_3(2, 1, 2)),
92  "T3dg(i,j,k)+T3(k,j,i)(2,1,2)");
93  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(2, 2, 0)
94  - (t3dg_2(2, 2, 0) + t3dg_3(0, 2, 2)),
95  "T3dg(i,j,k)+T3(k,j,i)(2,2,0)");
96  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(2, 2, 1)
97  - (t3dg_2(2, 2, 1) + t3dg_3(1, 2, 2)),
98  "T3dg(i,j,k)+T3(k,j,i)(2,2,1)");
99  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(2, 2, 2)
100  - (t3dg_2(2, 2, 2) + t3dg_3(2, 2, 2)),
101  "T3dg(i,j,k)+T3(k,j,i)(2,2,2)");
102 
103  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(0, 0, 0)
104  - (t3dg_2(0, 0, 0) - t3dg_3(0, 0, 0)),
105  "T3dg(i,j,k)-T3(k,j,i)(0,0,0)");
106  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(0, 0, 1)
107  - (t3dg_2(0, 0, 1) - t3dg_3(1, 0, 0)),
108  "T3dg(i,j,k)-T3(k,j,i)(0,0,1)");
109  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(0, 0, 2)
110  - (t3dg_2(0, 0, 2) - t3dg_3(2, 0, 0)),
111  "T3dg(i,j,k)-T3(k,j,i)(0,0,2)");
112  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(0, 1, 0)
113  - (t3dg_2(0, 1, 0) - t3dg_3(0, 1, 0)),
114  "T3dg(i,j,k)-T3(k,j,i)(0,1,0)");
115  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(0, 1, 1)
116  - (t3dg_2(0, 1, 1) - t3dg_3(1, 1, 0)),
117  "T3dg(i,j,k)-T3(k,j,i)(0,1,1)");
118  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(0, 1, 2)
119  - (t3dg_2(0, 1, 2) - t3dg_3(2, 1, 0)),
120  "T3dg(i,j,k)-T3(k,j,i)(0,1,2)");
121  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(0, 2, 0)
122  - (t3dg_2(0, 2, 0) - t3dg_3(0, 2, 0)),
123  "T3dg(i,j,k)-T3(k,j,i)(0,2,0)");
124  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(0, 2, 1)
125  - (t3dg_2(0, 2, 1) - t3dg_3(1, 2, 0)),
126  "T3dg(i,j,k)-T3(k,j,i)(0,2,1)");
127  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(0, 2, 2)
128  - (t3dg_2(0, 2, 2) - t3dg_3(2, 2, 0)),
129  "T3dg(i,j,k)-T3(k,j,i)(0,2,2)");
130  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(1, 0, 0)
131  - (t3dg_2(1, 0, 0) - t3dg_3(0, 0, 1)),
132  "T3dg(i,j,k)-T3(k,j,i)(1,0,0)");
133  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(1, 0, 1)
134  - (t3dg_2(1, 0, 1) - t3dg_3(1, 0, 1)),
135  "T3dg(i,j,k)-T3(k,j,i)(1,0,1)");
136  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(1, 0, 2)
137  - (t3dg_2(1, 0, 2) - t3dg_3(2, 0, 1)),
138  "T3dg(i,j,k)-T3(k,j,i)(1,0,2)");
139  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(1, 1, 0)
140  - (t3dg_2(1, 1, 0) - t3dg_3(0, 1, 1)),
141  "T3dg(i,j,k)-T3(k,j,i)(1,1,0)");
142  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(1, 1, 1)
143  - (t3dg_2(1, 1, 1) - t3dg_3(1, 1, 1)),
144  "T3dg(i,j,k)-T3(k,j,i)(1,1,1)");
145  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(1, 1, 2)
146  - (t3dg_2(1, 1, 2) - t3dg_3(2, 1, 1)),
147  "T3dg(i,j,k)-T3(k,j,i)(1,1,2)");
148  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(1, 2, 0)
149  - (t3dg_2(1, 2, 0) - t3dg_3(0, 2, 1)),
150  "T3dg(i,j,k)-T3(k,j,i)(1,2,0)");
151  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(1, 2, 1)
152  - (t3dg_2(1, 2, 1) - t3dg_3(1, 2, 1)),
153  "T3dg(i,j,k)-T3(k,j,i)(1,2,1)");
154  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(1, 2, 2)
155  - (t3dg_2(1, 2, 2) - t3dg_3(2, 2, 1)),
156  "T3dg(i,j,k)-T3(k,j,i)(1,2,2)");
157  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(2, 0, 0)
158  - (t3dg_2(2, 0, 0) - t3dg_3(0, 0, 2)),
159  "T3dg(i,j,k)-T3(k,j,i)(2,0,0)");
160  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(2, 0, 1)
161  - (t3dg_2(2, 0, 1) - t3dg_3(1, 0, 2)),
162  "T3dg(i,j,k)-T3(k,j,i)(2,0,1)");
163  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(2, 0, 2)
164  - (t3dg_2(2, 0, 2) - t3dg_3(2, 0, 2)),
165  "T3dg(i,j,k)-T3(k,j,i)(2,0,2)");
166  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(2, 1, 0)
167  - (t3dg_2(2, 1, 0) - t3dg_3(0, 1, 2)),
168  "T3dg(i,j,k)-T3(k,j,i)(2,1,0)");
169  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(2, 1, 1)
170  - (t3dg_2(2, 1, 1) - t3dg_3(1, 1, 2)),
171  "T3dg(i,j,k)-T3(k,j,i)(2,1,1)");
172  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(2, 1, 2)
173  - (t3dg_2(2, 1, 2) - t3dg_3(2, 1, 2)),
174  "T3dg(i,j,k)-T3(k,j,i)(2,1,2)");
175  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(2, 2, 0)
176  - (t3dg_2(2, 2, 0) - t3dg_3(0, 2, 2)),
177  "T3dg(i,j,k)-T3(k,j,i)(2,2,0)");
178  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(2, 2, 1)
179  - (t3dg_2(2, 2, 1) - t3dg_3(1, 2, 2)),
180  "T3dg(i,j,k)-T3(k,j,i)(2,2,1)");
181  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(2, 2, 2)
182  - (t3dg_2(2, 2, 2) - t3dg_3(2, 2, 2)),
183  "T3dg(i,j,k)-T3(k,j,i)(2,2,2)");
184 
185  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(0, 0, 0)
186  - (t3dg_2(0, 0, 0) * t2_2(0, 0)
187  + t3dg_2(0, 1, 0) * t2_2(1, 0)
188  + t3dg_2(0, 2, 0) * t2_2(2, 0)),
189  "T3dg(i,j,k)*T2(j,l)(0,0,0)");
190  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(0, 0, 1)
191  - (t3dg_2(0, 0, 0) * t2_2(0, 1)
192  + t3dg_2(0, 1, 0) * t2_2(1, 1)
193  + t3dg_2(0, 2, 0) * t2_2(2, 1)),
194  "T3dg(i,j,k)*T2(j,l)(0,0,1)");
195  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(0, 0, 2)
196  - (t3dg_2(0, 0, 0) * t2_2(0, 2)
197  + t3dg_2(0, 1, 0) * t2_2(1, 2)
198  + t3dg_2(0, 2, 0) * t2_2(2, 2)),
199  "T3dg(i,j,k)*T2(j,l)(0,0,2)");
200  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(0, 1, 0)
201  - (t3dg_2(0, 0, 1) * t2_2(0, 0)
202  + t3dg_2(0, 1, 1) * t2_2(1, 0)
203  + t3dg_2(0, 2, 1) * t2_2(2, 0)),
204  "T3dg(i,j,k)*T2(j,l)(0,1,0)");
205  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(0, 1, 1)
206  - (t3dg_2(0, 0, 1) * t2_2(0, 1)
207  + t3dg_2(0, 1, 1) * t2_2(1, 1)
208  + t3dg_2(0, 2, 1) * t2_2(2, 1)),
209  "T3dg(i,j,k)*T2(j,l)(0,1,1)");
210  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(0, 1, 2)
211  - (t3dg_2(0, 0, 1) * t2_2(0, 2)
212  + t3dg_2(0, 1, 1) * t2_2(1, 2)
213  + t3dg_2(0, 2, 1) * t2_2(2, 2)),
214  "T3dg(i,j,k)*T2(j,l)(0,1,2)");
215  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(0, 2, 0)
216  - (t3dg_2(0, 0, 2) * t2_2(0, 0)
217  + t3dg_2(0, 1, 2) * t2_2(1, 0)
218  + t3dg_2(0, 2, 2) * t2_2(2, 0)),
219  "T3dg(i,j,k)*T2(j,l)(0,2,0)");
220  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(0, 2, 1)
221  - (t3dg_2(0, 0, 2) * t2_2(0, 1)
222  + t3dg_2(0, 1, 2) * t2_2(1, 1)
223  + t3dg_2(0, 2, 2) * t2_2(2, 1)),
224  "T3dg(i,j,k)*T2(j,l)(0,2,1)");
225  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(0, 2, 2)
226  - (t3dg_2(0, 0, 2) * t2_2(0, 2)
227  + t3dg_2(0, 1, 2) * t2_2(1, 2)
228  + t3dg_2(0, 2, 2) * t2_2(2, 2)),
229  "T3dg(i,j,k)*T2(j,l)(0,2,2)");
230  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(1, 0, 0)
231  - (t3dg_2(1, 0, 0) * t2_2(0, 0)
232  + t3dg_2(1, 1, 0) * t2_2(1, 0)
233  + t3dg_2(1, 2, 0) * t2_2(2, 0)),
234  "T3dg(i,j,k)*T2(j,l)(1,0,0)");
235  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(1, 0, 1)
236  - (t3dg_2(1, 0, 0) * t2_2(0, 1)
237  + t3dg_2(1, 1, 0) * t2_2(1, 1)
238  + t3dg_2(1, 2, 0) * t2_2(2, 1)),
239  "T3dg(i,j,k)*T2(j,l)(1,0,1)");
240  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(1, 0, 2)
241  - (t3dg_2(1, 0, 0) * t2_2(0, 2)
242  + t3dg_2(1, 1, 0) * t2_2(1, 2)
243  + t3dg_2(1, 2, 0) * t2_2(2, 2)),
244  "T3dg(i,j,k)*T2(j,l)(1,0,2)");
245  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(1, 1, 0)
246  - (t3dg_2(1, 0, 1) * t2_2(0, 0)
247  + t3dg_2(1, 1, 1) * t2_2(1, 0)
248  + t3dg_2(1, 2, 1) * t2_2(2, 0)),
249  "T3dg(i,j,k)*T2(j,l)(1,1,0)");
250  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(1, 1, 1)
251  - (t3dg_2(1, 0, 1) * t2_2(0, 1)
252  + t3dg_2(1, 1, 1) * t2_2(1, 1)
253  + t3dg_2(1, 2, 1) * t2_2(2, 1)),
254  "T3dg(i,j,k)*T2(j,l)(1,1,1)");
255  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(1, 1, 2)
256  - (t3dg_2(1, 0, 1) * t2_2(0, 2)
257  + t3dg_2(1, 1, 1) * t2_2(1, 2)
258  + t3dg_2(1, 2, 1) * t2_2(2, 2)),
259  "T3dg(i,j,k)*T2(j,l)(1,1,2)");
260  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(1, 2, 0)
261  - (t3dg_2(1, 0, 2) * t2_2(0, 0)
262  + t3dg_2(1, 1, 2) * t2_2(1, 0)
263  + t3dg_2(1, 2, 2) * t2_2(2, 0)),
264  "T3dg(i,j,k)*T2(j,l)(1,2,0)");
265  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(1, 2, 1)
266  - (t3dg_2(1, 0, 2) * t2_2(0, 1)
267  + t3dg_2(1, 1, 2) * t2_2(1, 1)
268  + t3dg_2(1, 2, 2) * t2_2(2, 1)),
269  "T3dg(i,j,k)*T2(j,l)(1,2,1)");
270  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(1, 2, 2)
271  - (t3dg_2(1, 0, 2) * t2_2(0, 2)
272  + t3dg_2(1, 1, 2) * t2_2(1, 2)
273  + t3dg_2(1, 2, 2) * t2_2(2, 2)),
274  "T3dg(i,j,k)*T2(j,l)(1,2,2)");
275  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(2, 0, 0)
276  - (t3dg_2(2, 0, 0) * t2_2(0, 0)
277  + t3dg_2(2, 1, 0) * t2_2(1, 0)
278  + t3dg_2(2, 2, 0) * t2_2(2, 0)),
279  "T3dg(i,j,k)*T2(j,l)(2,0,0)");
280  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(2, 0, 1)
281  - (t3dg_2(2, 0, 0) * t2_2(0, 1)
282  + t3dg_2(2, 1, 0) * t2_2(1, 1)
283  + t3dg_2(2, 2, 0) * t2_2(2, 1)),
284  "T3dg(i,j,k)*T2(j,l)(2,0,1)");
285  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(2, 0, 2)
286  - (t3dg_2(2, 0, 0) * t2_2(0, 2)
287  + t3dg_2(2, 1, 0) * t2_2(1, 2)
288  + t3dg_2(2, 2, 0) * t2_2(2, 2)),
289  "T3dg(i,j,k)*T2(j,l)(2,0,2)");
290  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(2, 1, 0)
291  - (t3dg_2(2, 0, 1) * t2_2(0, 0)
292  + t3dg_2(2, 1, 1) * t2_2(1, 0)
293  + t3dg_2(2, 2, 1) * t2_2(2, 0)),
294  "T3dg(i,j,k)*T2(j,l)(2,1,0)");
295  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(2, 1, 1)
296  - (t3dg_2(2, 0, 1) * t2_2(0, 1)
297  + t3dg_2(2, 1, 1) * t2_2(1, 1)
298  + t3dg_2(2, 2, 1) * t2_2(2, 1)),
299  "T3dg(i,j,k)*T2(j,l)(2,1,1)");
300  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(2, 1, 2)
301  - (t3dg_2(2, 0, 1) * t2_2(0, 2)
302  + t3dg_2(2, 1, 1) * t2_2(1, 2)
303  + t3dg_2(2, 2, 1) * t2_2(2, 2)),
304  "T3dg(i,j,k)*T2(j,l)(2,1,2)");
305  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(2, 2, 0)
306  - (t3dg_2(2, 0, 2) * t2_2(0, 0)
307  + t3dg_2(2, 1, 2) * t2_2(1, 0)
308  + t3dg_2(2, 2, 2) * t2_2(2, 0)),
309  "T3dg(i,j,k)*T2(j,l)(2,2,0)");
310  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(2, 2, 1)
311  - (t3dg_2(2, 0, 2) * t2_2(0, 1)
312  + t3dg_2(2, 1, 2) * t2_2(1, 1)
313  + t3dg_2(2, 2, 2) * t2_2(2, 1)),
314  "T3dg(i,j,k)*T2(j,l)(2,2,1)");
315  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(2, 2, 2)
316  - (t3dg_2(2, 0, 2) * t2_2(0, 2)
317  + t3dg_2(2, 1, 2) * t2_2(1, 2)
318  + t3dg_2(2, 2, 2) * t2_2(2, 2)),
319  "T3dg(i,j,k)*T2(j,l)(2,2,2)");
320 
321  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(0, 0, 0)
322  - (t3dg_3(0, 0, 0) * t2_2(0, 0)
323  + t3dg_3(0, 1, 0) * t2_2(0, 1)
324  + t3dg_3(0, 2, 0) * t2_2(0, 2)),
325  "T3dg(i,j,k)*T2(l,j)(0,0,0)");
326  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(0, 0, 1)
327  - (t3dg_3(0, 0, 0) * t2_2(1, 0)
328  + t3dg_3(0, 1, 0) * t2_2(1, 1)
329  + t3dg_3(0, 2, 0) * t2_2(1, 2)),
330  "T3dg(i,j,k)*T2(l,j)(0,0,1)");
331  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(0, 0, 2)
332  - (t3dg_3(0, 0, 0) * t2_2(2, 0)
333  + t3dg_3(0, 1, 0) * t2_2(2, 1)
334  + t3dg_3(0, 2, 0) * t2_2(2, 2)),
335  "T3dg(i,j,k)*T2(l,j)(0,0,2)");
336  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(0, 1, 0)
337  - (t3dg_3(0, 0, 1) * t2_2(0, 0)
338  + t3dg_3(0, 1, 1) * t2_2(0, 1)
339  + t3dg_3(0, 2, 1) * t2_2(0, 2)),
340  "T3dg(i,j,k)*T2(l,j)(0,1,0)");
341  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(0, 1, 1)
342  - (t3dg_3(0, 0, 1) * t2_2(1, 0)
343  + t3dg_3(0, 1, 1) * t2_2(1, 1)
344  + t3dg_3(0, 2, 1) * t2_2(1, 2)),
345  "T3dg(i,j,k)*T2(l,j)(0,1,1)");
346  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(0, 1, 2)
347  - (t3dg_3(0, 0, 1) * t2_2(2, 0)
348  + t3dg_3(0, 1, 1) * t2_2(2, 1)
349  + t3dg_3(0, 2, 1) * t2_2(2, 2)),
350  "T3dg(i,j,k)*T2(l,j)(0,1,2)");
351  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(0, 2, 0)
352  - (t3dg_3(0, 0, 2) * t2_2(0, 0)
353  + t3dg_3(0, 1, 2) * t2_2(0, 1)
354  + t3dg_3(0, 2, 2) * t2_2(0, 2)),
355  "T3dg(i,j,k)*T2(l,j)(0,2,0)");
356  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(0, 2, 1)
357  - (t3dg_3(0, 0, 2) * t2_2(1, 0)
358  + t3dg_3(0, 1, 2) * t2_2(1, 1)
359  + t3dg_3(0, 2, 2) * t2_2(1, 2)),
360  "T3dg(i,j,k)*T2(l,j)(0,2,1)");
361  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(0, 2, 2)
362  - (t3dg_3(0, 0, 2) * t2_2(2, 0)
363  + t3dg_3(0, 1, 2) * t2_2(2, 1)
364  + t3dg_3(0, 2, 2) * t2_2(2, 2)),
365  "T3dg(i,j,k)*T2(l,j)(0,2,2)");
366  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(1, 0, 0)
367  - (t3dg_3(1, 0, 0) * t2_2(0, 0)
368  + t3dg_3(1, 1, 0) * t2_2(0, 1)
369  + t3dg_3(1, 2, 0) * t2_2(0, 2)),
370  "T3dg(i,j,k)*T2(l,j)(1,0,0)");
371  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(1, 0, 1)
372  - (t3dg_3(1, 0, 0) * t2_2(1, 0)
373  + t3dg_3(1, 1, 0) * t2_2(1, 1)
374  + t3dg_3(1, 2, 0) * t2_2(1, 2)),
375  "T3dg(i,j,k)*T2(l,j)(1,0,1)");
376  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(1, 0, 2)
377  - (t3dg_3(1, 0, 0) * t2_2(2, 0)
378  + t3dg_3(1, 1, 0) * t2_2(2, 1)
379  + t3dg_3(1, 2, 0) * t2_2(2, 2)),
380  "T3dg(i,j,k)*T2(l,j)(1,0,2)");
381  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(1, 1, 0)
382  - (t3dg_3(1, 0, 1) * t2_2(0, 0)
383  + t3dg_3(1, 1, 1) * t2_2(0, 1)
384  + t3dg_3(1, 2, 1) * t2_2(0, 2)),
385  "T3dg(i,j,k)*T2(l,j)(1,1,0)");
386  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(1, 1, 1)
387  - (t3dg_3(1, 0, 1) * t2_2(1, 0)
388  + t3dg_3(1, 1, 1) * t2_2(1, 1)
389  + t3dg_3(1, 2, 1) * t2_2(1, 2)),
390  "T3dg(i,j,k)*T2(l,j)(1,1,1)");
391  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(1, 1, 2)
392  - (t3dg_3(1, 0, 1) * t2_2(2, 0)
393  + t3dg_3(1, 1, 1) * t2_2(2, 1)
394  + t3dg_3(1, 2, 1) * t2_2(2, 2)),
395  "T3dg(i,j,k)*T2(l,j)(1,1,2)");
396  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(1, 2, 0)
397  - (t3dg_3(1, 0, 2) * t2_2(0, 0)
398  + t3dg_3(1, 1, 2) * t2_2(0, 1)
399  + t3dg_3(1, 2, 2) * t2_2(0, 2)),
400  "T3dg(i,j,k)*T2(l,j)(1,2,0)");
401  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(1, 2, 1)
402  - (t3dg_3(1, 0, 2) * t2_2(1, 0)
403  + t3dg_3(1, 1, 2) * t2_2(1, 1)
404  + t3dg_3(1, 2, 2) * t2_2(1, 2)),
405  "T3dg(i,j,k)*T2(l,j)(1,2,1)");
406  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(1, 2, 2)
407  - (t3dg_3(1, 0, 2) * t2_2(2, 0)
408  + t3dg_3(1, 1, 2) * t2_2(2, 1)
409  + t3dg_3(1, 2, 2) * t2_2(2, 2)),
410  "T3dg(i,j,k)*T2(l,j)(1,2,2)");
411  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(2, 0, 0)
412  - (t3dg_3(2, 0, 0) * t2_2(0, 0)
413  + t3dg_3(2, 1, 0) * t2_2(0, 1)
414  + t3dg_3(2, 2, 0) * t2_2(0, 2)),
415  "T3dg(i,j,k)*T2(l,j)(2,0,0)");
416  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(2, 0, 1)
417  - (t3dg_3(2, 0, 0) * t2_2(1, 0)
418  + t3dg_3(2, 1, 0) * t2_2(1, 1)
419  + t3dg_3(2, 2, 0) * t2_2(1, 2)),
420  "T3dg(i,j,k)*T2(l,j)(2,0,1)");
421  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(2, 0, 2)
422  - (t3dg_3(2, 0, 0) * t2_2(2, 0)
423  + t3dg_3(2, 1, 0) * t2_2(2, 1)
424  + t3dg_3(2, 2, 0) * t2_2(2, 2)),
425  "T3dg(i,j,k)*T2(l,j)(2,0,2)");
426  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(2, 1, 0)
427  - (t3dg_3(2, 0, 1) * t2_2(0, 0)
428  + t3dg_3(2, 1, 1) * t2_2(0, 1)
429  + t3dg_3(2, 2, 1) * t2_2(0, 2)),
430  "T3dg(i,j,k)*T2(l,j)(2,1,0)");
431  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(2, 1, 1)
432  - (t3dg_3(2, 0, 1) * t2_2(1, 0)
433  + t3dg_3(2, 1, 1) * t2_2(1, 1)
434  + t3dg_3(2, 2, 1) * t2_2(1, 2)),
435  "T3dg(i,j,k)*T2(l,j)(2,1,1)");
436  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(2, 1, 2)
437  - (t3dg_3(2, 0, 1) * t2_2(2, 0)
438  + t3dg_3(2, 1, 1) * t2_2(2, 1)
439  + t3dg_3(2, 2, 1) * t2_2(2, 2)),
440  "T3dg(i,j,k)*T2(l,j)(2,1,2)");
441  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(2, 2, 0)
442  - (t3dg_3(2, 0, 2) * t2_2(0, 0)
443  + t3dg_3(2, 1, 2) * t2_2(0, 1)
444  + t3dg_3(2, 2, 2) * t2_2(0, 2)),
445  "T3dg(i,j,k)*T2(l,j)(2,2,0)");
446  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(2, 2, 1)
447  - (t3dg_3(2, 0, 2) * t2_2(1, 0)
448  + t3dg_3(2, 1, 2) * t2_2(1, 1)
449  + t3dg_3(2, 2, 2) * t2_2(1, 2)),
450  "T3dg(i,j,k)*T2(l,j)(2,2,1)");
451  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(2, 2, 2)
452  - (t3dg_3(2, 0, 2) * t2_2(2, 0)
453  + t3dg_3(2, 1, 2) * t2_2(2, 1)
454  + t3dg_3(2, 2, 2) * t2_2(2, 2)),
455  "T3dg(i,j,k)*T2(l,j)(2,2,2)");
456 
457  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(0, 0, 0)
458  - (t3dg_3(0, 0, 0) * t2_2(0, 0)
459  + t3dg_3(0, 1, 0) * t2_2(1, 0)
460  + t3dg_3(0, 2, 0) * t2_2(2, 0)),
461  "T2(j,l)*T3dg(i,j,k)(0,0,0)");
462  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(0, 0, 1)
463  - (t3dg_3(0, 0, 0) * t2_2(0, 1)
464  + t3dg_3(0, 1, 0) * t2_2(1, 1)
465  + t3dg_3(0, 2, 0) * t2_2(2, 1)),
466  "T2(j,l)*T3dg(i,j,k)(0,0,1)");
467  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(0, 0, 2)
468  - (t3dg_3(0, 0, 0) * t2_2(0, 2)
469  + t3dg_3(0, 1, 0) * t2_2(1, 2)
470  + t3dg_3(0, 2, 0) * t2_2(2, 2)),
471  "T2(j,l)*T3dg(i,j,k)(0,0,2)");
472  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(0, 1, 0)
473  - (t3dg_3(0, 0, 1) * t2_2(0, 0)
474  + t3dg_3(0, 1, 1) * t2_2(1, 0)
475  + t3dg_3(0, 2, 1) * t2_2(2, 0)),
476  "T2(j,l)*T3dg(i,j,k)(0,1,0)");
477  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(0, 1, 1)
478  - (t3dg_3(0, 0, 1) * t2_2(0, 1)
479  + t3dg_3(0, 1, 1) * t2_2(1, 1)
480  + t3dg_3(0, 2, 1) * t2_2(2, 1)),
481  "T2(j,l)*T3dg(i,j,k)(0,1,1)");
482  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(0, 1, 2)
483  - (t3dg_3(0, 0, 1) * t2_2(0, 2)
484  + t3dg_3(0, 1, 1) * t2_2(1, 2)
485  + t3dg_3(0, 2, 1) * t2_2(2, 2)),
486  "T2(j,l)*T3dg(i,j,k)(0,1,2)");
487  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(0, 2, 0)
488  - (t3dg_3(0, 0, 2) * t2_2(0, 0)
489  + t3dg_3(0, 1, 2) * t2_2(1, 0)
490  + t3dg_3(0, 2, 2) * t2_2(2, 0)),
491  "T2(j,l)*T3dg(i,j,k)(0,2,0)");
492  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(0, 2, 1)
493  - (t3dg_3(0, 0, 2) * t2_2(0, 1)
494  + t3dg_3(0, 1, 2) * t2_2(1, 1)
495  + t3dg_3(0, 2, 2) * t2_2(2, 1)),
496  "T2(j,l)*T3dg(i,j,k)(0,2,1)");
497  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(0, 2, 2)
498  - (t3dg_3(0, 0, 2) * t2_2(0, 2)
499  + t3dg_3(0, 1, 2) * t2_2(1, 2)
500  + t3dg_3(0, 2, 2) * t2_2(2, 2)),
501  "T2(j,l)*T3dg(i,j,k)(0,2,2)");
502  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(1, 0, 0)
503  - (t3dg_3(1, 0, 0) * t2_2(0, 0)
504  + t3dg_3(1, 1, 0) * t2_2(1, 0)
505  + t3dg_3(1, 2, 0) * t2_2(2, 0)),
506  "T2(j,l)*T3dg(i,j,k)(1,0,0)");
507  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(1, 0, 1)
508  - (t3dg_3(1, 0, 0) * t2_2(0, 1)
509  + t3dg_3(1, 1, 0) * t2_2(1, 1)
510  + t3dg_3(1, 2, 0) * t2_2(2, 1)),
511  "T2(j,l)*T3dg(i,j,k)(1,0,1)");
512  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(1, 0, 2)
513  - (t3dg_3(1, 0, 0) * t2_2(0, 2)
514  + t3dg_3(1, 1, 0) * t2_2(1, 2)
515  + t3dg_3(1, 2, 0) * t2_2(2, 2)),
516  "T2(j,l)*T3dg(i,j,k)(1,0,2)");
517  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(1, 1, 0)
518  - (t3dg_3(1, 0, 1) * t2_2(0, 0)
519  + t3dg_3(1, 1, 1) * t2_2(1, 0)
520  + t3dg_3(1, 2, 1) * t2_2(2, 0)),
521  "T2(j,l)*T3dg(i,j,k)(1,1,0)");
522  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(1, 1, 1)
523  - (t3dg_3(1, 0, 1) * t2_2(0, 1)
524  + t3dg_3(1, 1, 1) * t2_2(1, 1)
525  + t3dg_3(1, 2, 1) * t2_2(2, 1)),
526  "T2(j,l)*T3dg(i,j,k)(1,1,1)");
527  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(1, 1, 2)
528  - (t3dg_3(1, 0, 1) * t2_2(0, 2)
529  + t3dg_3(1, 1, 1) * t2_2(1, 2)
530  + t3dg_3(1, 2, 1) * t2_2(2, 2)),
531  "T2(j,l)*T3dg(i,j,k)(1,1,2)");
532  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(1, 2, 0)
533  - (t3dg_3(1, 0, 2) * t2_2(0, 0)
534  + t3dg_3(1, 1, 2) * t2_2(1, 0)
535  + t3dg_3(1, 2, 2) * t2_2(2, 0)),
536  "T2(j,l)*T3dg(i,j,k)(1,2,0)");
537  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(1, 2, 1)
538  - (t3dg_3(1, 0, 2) * t2_2(0, 1)
539  + t3dg_3(1, 1, 2) * t2_2(1, 1)
540  + t3dg_3(1, 2, 2) * t2_2(2, 1)),
541  "T2(j,l)*T3dg(i,j,k)(1,2,1)");
542  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(1, 2, 2)
543  - (t3dg_3(1, 0, 2) * t2_2(0, 2)
544  + t3dg_3(1, 1, 2) * t2_2(1, 2)
545  + t3dg_3(1, 2, 2) * t2_2(2, 2)),
546  "T2(j,l)*T3dg(i,j,k)(1,2,2)");
547  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(2, 0, 0)
548  - (t3dg_3(2, 0, 0) * t2_2(0, 0)
549  + t3dg_3(2, 1, 0) * t2_2(1, 0)
550  + t3dg_3(2, 2, 0) * t2_2(2, 0)),
551  "T2(j,l)*T3dg(i,j,k)(2,0,0)");
552  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(2, 0, 1)
553  - (t3dg_3(2, 0, 0) * t2_2(0, 1)
554  + t3dg_3(2, 1, 0) * t2_2(1, 1)
555  + t3dg_3(2, 2, 0) * t2_2(2, 1)),
556  "T2(j,l)*T3dg(i,j,k)(2,0,1)");
557  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(2, 0, 2)
558  - (t3dg_3(2, 0, 0) * t2_2(0, 2)
559  + t3dg_3(2, 1, 0) * t2_2(1, 2)
560  + t3dg_3(2, 2, 0) * t2_2(2, 2)),
561  "T2(j,l)*T3dg(i,j,k)(2,0,2)");
562  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(2, 1, 0)
563  - (t3dg_3(2, 0, 1) * t2_2(0, 0)
564  + t3dg_3(2, 1, 1) * t2_2(1, 0)
565  + t3dg_3(2, 2, 1) * t2_2(2, 0)),
566  "T2(j,l)*T3dg(i,j,k)(2,1,0)");
567  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(2, 1, 1)
568  - (t3dg_3(2, 0, 1) * t2_2(0, 1)
569  + t3dg_3(2, 1, 1) * t2_2(1, 1)
570  + t3dg_3(2, 2, 1) * t2_2(2, 1)),
571  "T2(j,l)*T3dg(i,j,k)(2,1,1)");
572  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(2, 1, 2)
573  - (t3dg_3(2, 0, 1) * t2_2(0, 2)
574  + t3dg_3(2, 1, 1) * t2_2(1, 2)
575  + t3dg_3(2, 2, 1) * t2_2(2, 2)),
576  "T2(j,l)*T3dg(i,j,k)(2,1,2)");
577  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(2, 2, 0)
578  - (t3dg_3(2, 0, 2) * t2_2(0, 0)
579  + t3dg_3(2, 1, 2) * t2_2(1, 0)
580  + t3dg_3(2, 2, 2) * t2_2(2, 0)),
581  "T2(j,l)*T3dg(i,j,k)(2,2,0)");
582  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(2, 2, 1)
583  - (t3dg_3(2, 0, 2) * t2_2(0, 1)
584  + t3dg_3(2, 1, 2) * t2_2(1, 1)
585  + t3dg_3(2, 2, 2) * t2_2(2, 1)),
586  "T2(j,l)*T3dg(i,j,k)(2,2,1)");
587  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(2, 2, 2)
588  - (t3dg_3(2, 0, 2) * t2_2(0, 2)
589  + t3dg_3(2, 1, 2) * t2_2(1, 2)
590  + t3dg_3(2, 2, 2) * t2_2(2, 2)),
591  "T2(j,l)*T3dg(i,j,k)(2,2,2)");
592 
593  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(0, 0, 0)
594  - (t3dg_3(0, 0, 0) * t2_2(0, 0)
595  + t3dg_3(0, 1, 0) * t2_2(0, 1)
596  + t3dg_3(0, 2, 0) * t2_2(0, 2)),
597  "T2(l,j)*T3dg(i,j,k)(0,0,0)");
598  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(0, 0, 1)
599  - (t3dg_3(0, 0, 0) * t2_2(1, 0)
600  + t3dg_3(0, 1, 0) * t2_2(1, 1)
601  + t3dg_3(0, 2, 0) * t2_2(1, 2)),
602  "T2(l,j)*T3dg(i,j,k)(0,0,1)");
603  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(0, 0, 2)
604  - (t3dg_3(0, 0, 0) * t2_2(2, 0)
605  + t3dg_3(0, 1, 0) * t2_2(2, 1)
606  + t3dg_3(0, 2, 0) * t2_2(2, 2)),
607  "T2(l,j)*T3dg(i,j,k)(0,0,2)");
608  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(0, 1, 0)
609  - (t3dg_3(0, 0, 1) * t2_2(0, 0)
610  + t3dg_3(0, 1, 1) * t2_2(0, 1)
611  + t3dg_3(0, 2, 1) * t2_2(0, 2)),
612  "T2(l,j)*T3dg(i,j,k)(0,1,0)");
613  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(0, 1, 1)
614  - (t3dg_3(0, 0, 1) * t2_2(1, 0)
615  + t3dg_3(0, 1, 1) * t2_2(1, 1)
616  + t3dg_3(0, 2, 1) * t2_2(1, 2)),
617  "T2(l,j)*T3dg(i,j,k)(0,1,1)");
618  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(0, 1, 2)
619  - (t3dg_3(0, 0, 1) * t2_2(2, 0)
620  + t3dg_3(0, 1, 1) * t2_2(2, 1)
621  + t3dg_3(0, 2, 1) * t2_2(2, 2)),
622  "T2(l,j)*T3dg(i,j,k)(0,1,2)");
623  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(0, 2, 0)
624  - (t3dg_3(0, 0, 2) * t2_2(0, 0)
625  + t3dg_3(0, 1, 2) * t2_2(0, 1)
626  + t3dg_3(0, 2, 2) * t2_2(0, 2)),
627  "T2(l,j)*T3dg(i,j,k)(0,2,0)");
628  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(0, 2, 1)
629  - (t3dg_3(0, 0, 2) * t2_2(1, 0)
630  + t3dg_3(0, 1, 2) * t2_2(1, 1)
631  + t3dg_3(0, 2, 2) * t2_2(1, 2)),
632  "T2(l,j)*T3dg(i,j,k)(0,2,1)");
633  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(0, 2, 2)
634  - (t3dg_3(0, 0, 2) * t2_2(2, 0)
635  + t3dg_3(0, 1, 2) * t2_2(2, 1)
636  + t3dg_3(0, 2, 2) * t2_2(2, 2)),
637  "T2(l,j)*T3dg(i,j,k)(0,2,2)");
638  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(1, 0, 0)
639  - (t3dg_3(1, 0, 0) * t2_2(0, 0)
640  + t3dg_3(1, 1, 0) * t2_2(0, 1)
641  + t3dg_3(1, 2, 0) * t2_2(0, 2)),
642  "T2(l,j)*T3dg(i,j,k)(1,0,0)");
643  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(1, 0, 1)
644  - (t3dg_3(1, 0, 0) * t2_2(1, 0)
645  + t3dg_3(1, 1, 0) * t2_2(1, 1)
646  + t3dg_3(1, 2, 0) * t2_2(1, 2)),
647  "T2(l,j)*T3dg(i,j,k)(1,0,1)");
648  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(1, 0, 2)
649  - (t3dg_3(1, 0, 0) * t2_2(2, 0)
650  + t3dg_3(1, 1, 0) * t2_2(2, 1)
651  + t3dg_3(1, 2, 0) * t2_2(2, 2)),
652  "T2(l,j)*T3dg(i,j,k)(1,0,2)");
653  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(1, 1, 0)
654  - (t3dg_3(1, 0, 1) * t2_2(0, 0)
655  + t3dg_3(1, 1, 1) * t2_2(0, 1)
656  + t3dg_3(1, 2, 1) * t2_2(0, 2)),
657  "T2(l,j)*T3dg(i,j,k)(1,1,0)");
658  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(1, 1, 1)
659  - (t3dg_3(1, 0, 1) * t2_2(1, 0)
660  + t3dg_3(1, 1, 1) * t2_2(1, 1)
661  + t3dg_3(1, 2, 1) * t2_2(1, 2)),
662  "T2(l,j)*T3dg(i,j,k)(1,1,1)");
663  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(1, 1, 2)
664  - (t3dg_3(1, 0, 1) * t2_2(2, 0)
665  + t3dg_3(1, 1, 1) * t2_2(2, 1)
666  + t3dg_3(1, 2, 1) * t2_2(2, 2)),
667  "T2(l,j)*T3dg(i,j,k)(1,1,2)");
668  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(1, 2, 0)
669  - (t3dg_3(1, 0, 2) * t2_2(0, 0)
670  + t3dg_3(1, 1, 2) * t2_2(0, 1)
671  + t3dg_3(1, 2, 2) * t2_2(0, 2)),
672  "T2(l,j)*T3dg(i,j,k)(1,2,0)");
673  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(1, 2, 1)
674  - (t3dg_3(1, 0, 2) * t2_2(1, 0)
675  + t3dg_3(1, 1, 2) * t2_2(1, 1)
676  + t3dg_3(1, 2, 2) * t2_2(1, 2)),
677  "T2(l,j)*T3dg(i,j,k)(1,2,1)");
678  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(1, 2, 2)
679  - (t3dg_3(1, 0, 2) * t2_2(2, 0)
680  + t3dg_3(1, 1, 2) * t2_2(2, 1)
681  + t3dg_3(1, 2, 2) * t2_2(2, 2)),
682  "T2(l,j)*T3dg(i,j,k)(1,2,2)");
683  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(2, 0, 0)
684  - (t3dg_3(2, 0, 0) * t2_2(0, 0)
685  + t3dg_3(2, 1, 0) * t2_2(0, 1)
686  + t3dg_3(2, 2, 0) * t2_2(0, 2)),
687  "T2(l,j)*T3dg(i,j,k)(2,0,0)");
688  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(2, 0, 1)
689  - (t3dg_3(2, 0, 0) * t2_2(1, 0)
690  + t3dg_3(2, 1, 0) * t2_2(1, 1)
691  + t3dg_3(2, 2, 0) * t2_2(1, 2)),
692  "T2(l,j)*T3dg(i,j,k)(2,0,1)");
693  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(2, 0, 2)
694  - (t3dg_3(2, 0, 0) * t2_2(2, 0)
695  + t3dg_3(2, 1, 0) * t2_2(2, 1)
696  + t3dg_3(2, 2, 0) * t2_2(2, 2)),
697  "T2(l,j)*T3dg(i,j,k)(2,0,2)");
698  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(2, 1, 0)
699  - (t3dg_3(2, 0, 1) * t2_2(0, 0)
700  + t3dg_3(2, 1, 1) * t2_2(0, 1)
701  + t3dg_3(2, 2, 1) * t2_2(0, 2)),
702  "T2(l,j)*T3dg(i,j,k)(2,1,0)");
703  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(2, 1, 1)
704  - (t3dg_3(2, 0, 1) * t2_2(1, 0)
705  + t3dg_3(2, 1, 1) * t2_2(1, 1)
706  + t3dg_3(2, 2, 1) * t2_2(1, 2)),
707  "T2(l,j)*T3dg(i,j,k)(2,1,1)");
708  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(2, 1, 2)
709  - (t3dg_3(2, 0, 1) * t2_2(2, 0)
710  + t3dg_3(2, 1, 1) * t2_2(2, 1)
711  + t3dg_3(2, 2, 1) * t2_2(2, 2)),
712  "T2(l,j)*T3dg(i,j,k)(2,1,2)");
713  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(2, 2, 0)
714  - (t3dg_3(2, 0, 2) * t2_2(0, 0)
715  + t3dg_3(2, 1, 2) * t2_2(0, 1)
716  + t3dg_3(2, 2, 2) * t2_2(0, 2)),
717  "T2(l,j)*T3dg(i,j,k)(2,2,0)");
718  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(2, 2, 1)
719  - (t3dg_3(2, 0, 2) * t2_2(1, 0)
720  + t3dg_3(2, 1, 2) * t2_2(1, 1)
721  + t3dg_3(2, 2, 2) * t2_2(1, 2)),
722  "T2(l,j)*T3dg(i,j,k)(2,2,1)");
723  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(2, 2, 2)
724  - (t3dg_3(2, 0, 2) * t2_2(2, 0)
725  + t3dg_3(2, 1, 2) * t2_2(2, 1)
726  + t3dg_3(2, 2, 2) * t2_2(2, 2)),
727  "T2(l,j)*T3dg(i,j,k)(2,2,2)");
728 
729  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(0, 0, 0)
730  - (t3dg_2(0, 0, 0) * t2s_2(0, 0)
731  + t3dg_2(0, 1, 0) * t2s_2(1, 0)
732  + t3dg_2(0, 2, 0) * t2s_2(2, 0)),
733  "T3dg(i,j,k)*T2s(j,l)(0,0,0)");
734  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(0, 0, 1)
735  - (t3dg_2(0, 0, 0) * t2s_2(0, 1)
736  + t3dg_2(0, 1, 0) * t2s_2(1, 1)
737  + t3dg_2(0, 2, 0) * t2s_2(2, 1)),
738  "T3dg(i,j,k)*T2s(j,l)(0,0,1)");
739  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(0, 0, 2)
740  - (t3dg_2(0, 0, 0) * t2s_2(0, 2)
741  + t3dg_2(0, 1, 0) * t2s_2(1, 2)
742  + t3dg_2(0, 2, 0) * t2s_2(2, 2)),
743  "T3dg(i,j,k)*T2s(j,l)(0,0,2)");
744  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(0, 1, 0)
745  - (t3dg_2(0, 0, 1) * t2s_2(0, 0)
746  + t3dg_2(0, 1, 1) * t2s_2(1, 0)
747  + t3dg_2(0, 2, 1) * t2s_2(2, 0)),
748  "T3dg(i,j,k)*T2s(j,l)(0,1,0)");
749  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(0, 1, 1)
750  - (t3dg_2(0, 0, 1) * t2s_2(0, 1)
751  + t3dg_2(0, 1, 1) * t2s_2(1, 1)
752  + t3dg_2(0, 2, 1) * t2s_2(2, 1)),
753  "T3dg(i,j,k)*T2s(j,l)(0,1,1)");
754  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(0, 1, 2)
755  - (t3dg_2(0, 0, 1) * t2s_2(0, 2)
756  + t3dg_2(0, 1, 1) * t2s_2(1, 2)
757  + t3dg_2(0, 2, 1) * t2s_2(2, 2)),
758  "T3dg(i,j,k)*T2s(j,l)(0,1,2)");
759  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(0, 2, 0)
760  - (t3dg_2(0, 0, 2) * t2s_2(0, 0)
761  + t3dg_2(0, 1, 2) * t2s_2(1, 0)
762  + t3dg_2(0, 2, 2) * t2s_2(2, 0)),
763  "T3dg(i,j,k)*T2s(j,l)(0,2,0)");
764  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(0, 2, 1)
765  - (t3dg_2(0, 0, 2) * t2s_2(0, 1)
766  + t3dg_2(0, 1, 2) * t2s_2(1, 1)
767  + t3dg_2(0, 2, 2) * t2s_2(2, 1)),
768  "T3dg(i,j,k)*T2s(j,l)(0,2,1)");
769  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(0, 2, 2)
770  - (t3dg_2(0, 0, 2) * t2s_2(0, 2)
771  + t3dg_2(0, 1, 2) * t2s_2(1, 2)
772  + t3dg_2(0, 2, 2) * t2s_2(2, 2)),
773  "T3dg(i,j,k)*T2s(j,l)(0,2,2)");
774  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(1, 0, 0)
775  - (t3dg_2(1, 0, 0) * t2s_2(0, 0)
776  + t3dg_2(1, 1, 0) * t2s_2(1, 0)
777  + t3dg_2(1, 2, 0) * t2s_2(2, 0)),
778  "T3dg(i,j,k)*T2s(j,l)(1,0,0)");
779  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(1, 0, 1)
780  - (t3dg_2(1, 0, 0) * t2s_2(0, 1)
781  + t3dg_2(1, 1, 0) * t2s_2(1, 1)
782  + t3dg_2(1, 2, 0) * t2s_2(2, 1)),
783  "T3dg(i,j,k)*T2s(j,l)(1,0,1)");
784  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(1, 0, 2)
785  - (t3dg_2(1, 0, 0) * t2s_2(0, 2)
786  + t3dg_2(1, 1, 0) * t2s_2(1, 2)
787  + t3dg_2(1, 2, 0) * t2s_2(2, 2)),
788  "T3dg(i,j,k)*T2s(j,l)(1,0,2)");
789  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(1, 1, 0)
790  - (t3dg_2(1, 0, 1) * t2s_2(0, 0)
791  + t3dg_2(1, 1, 1) * t2s_2(1, 0)
792  + t3dg_2(1, 2, 1) * t2s_2(2, 0)),
793  "T3dg(i,j,k)*T2s(j,l)(1,1,0)");
794  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(1, 1, 1)
795  - (t3dg_2(1, 0, 1) * t2s_2(0, 1)
796  + t3dg_2(1, 1, 1) * t2s_2(1, 1)
797  + t3dg_2(1, 2, 1) * t2s_2(2, 1)),
798  "T3dg(i,j,k)*T2s(j,l)(1,1,1)");
799  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(1, 1, 2)
800  - (t3dg_2(1, 0, 1) * t2s_2(0, 2)
801  + t3dg_2(1, 1, 1) * t2s_2(1, 2)
802  + t3dg_2(1, 2, 1) * t2s_2(2, 2)),
803  "T3dg(i,j,k)*T2s(j,l)(1,1,2)");
804  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(1, 2, 0)
805  - (t3dg_2(1, 0, 2) * t2s_2(0, 0)
806  + t3dg_2(1, 1, 2) * t2s_2(1, 0)
807  + t3dg_2(1, 2, 2) * t2s_2(2, 0)),
808  "T3dg(i,j,k)*T2s(j,l)(1,2,0)");
809  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(1, 2, 1)
810  - (t3dg_2(1, 0, 2) * t2s_2(0, 1)
811  + t3dg_2(1, 1, 2) * t2s_2(1, 1)
812  + t3dg_2(1, 2, 2) * t2s_2(2, 1)),
813  "T3dg(i,j,k)*T2s(j,l)(1,2,1)");
814  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(1, 2, 2)
815  - (t3dg_2(1, 0, 2) * t2s_2(0, 2)
816  + t3dg_2(1, 1, 2) * t2s_2(1, 2)
817  + t3dg_2(1, 2, 2) * t2s_2(2, 2)),
818  "T3dg(i,j,k)*T2s(j,l)(1,2,2)");
819  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(2, 0, 0)
820  - (t3dg_2(2, 0, 0) * t2s_2(0, 0)
821  + t3dg_2(2, 1, 0) * t2s_2(1, 0)
822  + t3dg_2(2, 2, 0) * t2s_2(2, 0)),
823  "T3dg(i,j,k)*T2s(j,l)(2,0,0)");
824  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(2, 0, 1)
825  - (t3dg_2(2, 0, 0) * t2s_2(0, 1)
826  + t3dg_2(2, 1, 0) * t2s_2(1, 1)
827  + t3dg_2(2, 2, 0) * t2s_2(2, 1)),
828  "T3dg(i,j,k)*T2s(j,l)(2,0,1)");
829  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(2, 0, 2)
830  - (t3dg_2(2, 0, 0) * t2s_2(0, 2)
831  + t3dg_2(2, 1, 0) * t2s_2(1, 2)
832  + t3dg_2(2, 2, 0) * t2s_2(2, 2)),
833  "T3dg(i,j,k)*T2s(j,l)(2,0,2)");
834  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(2, 1, 0)
835  - (t3dg_2(2, 0, 1) * t2s_2(0, 0)
836  + t3dg_2(2, 1, 1) * t2s_2(1, 0)
837  + t3dg_2(2, 2, 1) * t2s_2(2, 0)),
838  "T3dg(i,j,k)*T2s(j,l)(2,1,0)");
839  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(2, 1, 1)
840  - (t3dg_2(2, 0, 1) * t2s_2(0, 1)
841  + t3dg_2(2, 1, 1) * t2s_2(1, 1)
842  + t3dg_2(2, 2, 1) * t2s_2(2, 1)),
843  "T3dg(i,j,k)*T2s(j,l)(2,1,1)");
844  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(2, 1, 2)
845  - (t3dg_2(2, 0, 1) * t2s_2(0, 2)
846  + t3dg_2(2, 1, 1) * t2s_2(1, 2)
847  + t3dg_2(2, 2, 1) * t2s_2(2, 2)),
848  "T3dg(i,j,k)*T2s(j,l)(2,1,2)");
849  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(2, 2, 0)
850  - (t3dg_2(2, 0, 2) * t2s_2(0, 0)
851  + t3dg_2(2, 1, 2) * t2s_2(1, 0)
852  + t3dg_2(2, 2, 2) * t2s_2(2, 0)),
853  "T3dg(i,j,k)*T2s(j,l)(2,2,0)");
854  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(2, 2, 1)
855  - (t3dg_2(2, 0, 2) * t2s_2(0, 1)
856  + t3dg_2(2, 1, 2) * t2s_2(1, 1)
857  + t3dg_2(2, 2, 2) * t2s_2(2, 1)),
858  "T3dg(i,j,k)*T2s(j,l)(2,2,1)");
859  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(2, 2, 2)
860  - (t3dg_2(2, 0, 2) * t2s_2(0, 2)
861  + t3dg_2(2, 1, 2) * t2s_2(1, 2)
862  + t3dg_2(2, 2, 2) * t2s_2(2, 2)),
863  "T3dg(i,j,k)*T2s(j,l)(2,2,2)");
864 
865  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(0, 0, 0)
866  - (t3dg_3(0, 0, 0) * t2s_2(0, 0)
867  + t3dg_3(0, 1, 0) * t2s_2(0, 1)
868  + t3dg_3(0, 2, 0) * t2s_2(0, 2)),
869  "T3dg(i,j,k)*T2s(l,j)(0,0,0)");
870  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(0, 0, 1)
871  - (t3dg_3(0, 0, 0) * t2s_2(1, 0)
872  + t3dg_3(0, 1, 0) * t2s_2(1, 1)
873  + t3dg_3(0, 2, 0) * t2s_2(1, 2)),
874  "T3dg(i,j,k)*T2s(l,j)(0,0,1)");
875  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(0, 0, 2)
876  - (t3dg_3(0, 0, 0) * t2s_2(2, 0)
877  + t3dg_3(0, 1, 0) * t2s_2(2, 1)
878  + t3dg_3(0, 2, 0) * t2s_2(2, 2)),
879  "T3dg(i,j,k)*T2s(l,j)(0,0,2)");
880  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(0, 1, 0)
881  - (t3dg_3(0, 0, 1) * t2s_2(0, 0)
882  + t3dg_3(0, 1, 1) * t2s_2(0, 1)
883  + t3dg_3(0, 2, 1) * t2s_2(0, 2)),
884  "T3dg(i,j,k)*T2s(l,j)(0,1,0)");
885  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(0, 1, 1)
886  - (t3dg_3(0, 0, 1) * t2s_2(1, 0)
887  + t3dg_3(0, 1, 1) * t2s_2(1, 1)
888  + t3dg_3(0, 2, 1) * t2s_2(1, 2)),
889  "T3dg(i,j,k)*T2s(l,j)(0,1,1)");
890  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(0, 1, 2)
891  - (t3dg_3(0, 0, 1) * t2s_2(2, 0)
892  + t3dg_3(0, 1, 1) * t2s_2(2, 1)
893  + t3dg_3(0, 2, 1) * t2s_2(2, 2)),
894  "T3dg(i,j,k)*T2s(l,j)(0,1,2)");
895  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(0, 2, 0)
896  - (t3dg_3(0, 0, 2) * t2s_2(0, 0)
897  + t3dg_3(0, 1, 2) * t2s_2(0, 1)
898  + t3dg_3(0, 2, 2) * t2s_2(0, 2)),
899  "T3dg(i,j,k)*T2s(l,j)(0,2,0)");
900  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(0, 2, 1)
901  - (t3dg_3(0, 0, 2) * t2s_2(1, 0)
902  + t3dg_3(0, 1, 2) * t2s_2(1, 1)
903  + t3dg_3(0, 2, 2) * t2s_2(1, 2)),
904  "T3dg(i,j,k)*T2s(l,j)(0,2,1)");
905  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(0, 2, 2)
906  - (t3dg_3(0, 0, 2) * t2s_2(2, 0)
907  + t3dg_3(0, 1, 2) * t2s_2(2, 1)
908  + t3dg_3(0, 2, 2) * t2s_2(2, 2)),
909  "T3dg(i,j,k)*T2s(l,j)(0,2,2)");
910  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(1, 0, 0)
911  - (t3dg_3(1, 0, 0) * t2s_2(0, 0)
912  + t3dg_3(1, 1, 0) * t2s_2(0, 1)
913  + t3dg_3(1, 2, 0) * t2s_2(0, 2)),
914  "T3dg(i,j,k)*T2s(l,j)(1,0,0)");
915  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(1, 0, 1)
916  - (t3dg_3(1, 0, 0) * t2s_2(1, 0)
917  + t3dg_3(1, 1, 0) * t2s_2(1, 1)
918  + t3dg_3(1, 2, 0) * t2s_2(1, 2)),
919  "T3dg(i,j,k)*T2s(l,j)(1,0,1)");
920  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(1, 0, 2)
921  - (t3dg_3(1, 0, 0) * t2s_2(2, 0)
922  + t3dg_3(1, 1, 0) * t2s_2(2, 1)
923  + t3dg_3(1, 2, 0) * t2s_2(2, 2)),
924  "T3dg(i,j,k)*T2s(l,j)(1,0,2)");
925  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(1, 1, 0)
926  - (t3dg_3(1, 0, 1) * t2s_2(0, 0)
927  + t3dg_3(1, 1, 1) * t2s_2(0, 1)
928  + t3dg_3(1, 2, 1) * t2s_2(0, 2)),
929  "T3dg(i,j,k)*T2s(l,j)(1,1,0)");
930  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(1, 1, 1)
931  - (t3dg_3(1, 0, 1) * t2s_2(1, 0)
932  + t3dg_3(1, 1, 1) * t2s_2(1, 1)
933  + t3dg_3(1, 2, 1) * t2s_2(1, 2)),
934  "T3dg(i,j,k)*T2s(l,j)(1,1,1)");
935  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(1, 1, 2)
936  - (t3dg_3(1, 0, 1) * t2s_2(2, 0)
937  + t3dg_3(1, 1, 1) * t2s_2(2, 1)
938  + t3dg_3(1, 2, 1) * t2s_2(2, 2)),
939  "T3dg(i,j,k)*T2s(l,j)(1,1,2)");
940  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(1, 2, 0)
941  - (t3dg_3(1, 0, 2) * t2s_2(0, 0)
942  + t3dg_3(1, 1, 2) * t2s_2(0, 1)
943  + t3dg_3(1, 2, 2) * t2s_2(0, 2)),
944  "T3dg(i,j,k)*T2s(l,j)(1,2,0)");
945  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(1, 2, 1)
946  - (t3dg_3(1, 0, 2) * t2s_2(1, 0)
947  + t3dg_3(1, 1, 2) * t2s_2(1, 1)
948  + t3dg_3(1, 2, 2) * t2s_2(1, 2)),
949  "T3dg(i,j,k)*T2s(l,j)(1,2,1)");
950  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(1, 2, 2)
951  - (t3dg_3(1, 0, 2) * t2s_2(2, 0)
952  + t3dg_3(1, 1, 2) * t2s_2(2, 1)
953  + t3dg_3(1, 2, 2) * t2s_2(2, 2)),
954  "T3dg(i,j,k)*T2s(l,j)(1,2,2)");
955  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(2, 0, 0)
956  - (t3dg_3(2, 0, 0) * t2s_2(0, 0)
957  + t3dg_3(2, 1, 0) * t2s_2(0, 1)
958  + t3dg_3(2, 2, 0) * t2s_2(0, 2)),
959  "T3dg(i,j,k)*T2s(l,j)(2,0,0)");
960  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(2, 0, 1)
961  - (t3dg_3(2, 0, 0) * t2s_2(1, 0)
962  + t3dg_3(2, 1, 0) * t2s_2(1, 1)
963  + t3dg_3(2, 2, 0) * t2s_2(1, 2)),
964  "T3dg(i,j,k)*T2s(l,j)(2,0,1)");
965  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(2, 0, 2)
966  - (t3dg_3(2, 0, 0) * t2s_2(2, 0)
967  + t3dg_3(2, 1, 0) * t2s_2(2, 1)
968  + t3dg_3(2, 2, 0) * t2s_2(2, 2)),
969  "T3dg(i,j,k)*T2s(l,j)(2,0,2)");
970  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(2, 1, 0)
971  - (t3dg_3(2, 0, 1) * t2s_2(0, 0)
972  + t3dg_3(2, 1, 1) * t2s_2(0, 1)
973  + t3dg_3(2, 2, 1) * t2s_2(0, 2)),
974  "T3dg(i,j,k)*T2s(l,j)(2,1,0)");
975  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(2, 1, 1)
976  - (t3dg_3(2, 0, 1) * t2s_2(1, 0)
977  + t3dg_3(2, 1, 1) * t2s_2(1, 1)
978  + t3dg_3(2, 2, 1) * t2s_2(1, 2)),
979  "T3dg(i,j,k)*T2s(l,j)(2,1,1)");
980  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(2, 1, 2)
981  - (t3dg_3(2, 0, 1) * t2s_2(2, 0)
982  + t3dg_3(2, 1, 1) * t2s_2(2, 1)
983  + t3dg_3(2, 2, 1) * t2s_2(2, 2)),
984  "T3dg(i,j,k)*T2s(l,j)(2,1,2)");
985  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(2, 2, 0)
986  - (t3dg_3(2, 0, 2) * t2s_2(0, 0)
987  + t3dg_3(2, 1, 2) * t2s_2(0, 1)
988  + t3dg_3(2, 2, 2) * t2s_2(0, 2)),
989  "T3dg(i,j,k)*T2s(l,j)(2,2,0)");
990  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(2, 2, 1)
991  - (t3dg_3(2, 0, 2) * t2s_2(1, 0)
992  + t3dg_3(2, 1, 2) * t2s_2(1, 1)
993  + t3dg_3(2, 2, 2) * t2s_2(1, 2)),
994  "T3dg(i,j,k)*T2s(l,j)(2,2,1)");
995  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(2, 2, 2)
996  - (t3dg_3(2, 0, 2) * t2s_2(2, 0)
997  + t3dg_3(2, 1, 2) * t2s_2(2, 1)
998  + t3dg_3(2, 2, 2) * t2s_2(2, 2)),
999  "T3dg(i,j,k)*T2s(l,j)(2,2,2)");
1000 
1001  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(0, 0, 0)
1002  - (t3dg_3(0, 0, 0) * t2s_2(0, 0)
1003  + t3dg_3(0, 1, 0) * t2s_2(1, 0)
1004  + t3dg_3(0, 2, 0) * t2s_2(2, 0)),
1005  "T2s(j,l)*T3dg(i,j,k)(0,0,0)");
1006  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(0, 0, 1)
1007  - (t3dg_3(0, 0, 0) * t2s_2(0, 1)
1008  + t3dg_3(0, 1, 0) * t2s_2(1, 1)
1009  + t3dg_3(0, 2, 0) * t2s_2(2, 1)),
1010  "T2s(j,l)*T3dg(i,j,k)(0,0,1)");
1011  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(0, 0, 2)
1012  - (t3dg_3(0, 0, 0) * t2s_2(0, 2)
1013  + t3dg_3(0, 1, 0) * t2s_2(1, 2)
1014  + t3dg_3(0, 2, 0) * t2s_2(2, 2)),
1015  "T2s(j,l)*T3dg(i,j,k)(0,0,2)");
1016  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(0, 1, 0)
1017  - (t3dg_3(0, 0, 1) * t2s_2(0, 0)
1018  + t3dg_3(0, 1, 1) * t2s_2(1, 0)
1019  + t3dg_3(0, 2, 1) * t2s_2(2, 0)),
1020  "T2s(j,l)*T3dg(i,j,k)(0,1,0)");
1021  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(0, 1, 1)
1022  - (t3dg_3(0, 0, 1) * t2s_2(0, 1)
1023  + t3dg_3(0, 1, 1) * t2s_2(1, 1)
1024  + t3dg_3(0, 2, 1) * t2s_2(2, 1)),
1025  "T2s(j,l)*T3dg(i,j,k)(0,1,1)");
1026  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(0, 1, 2)
1027  - (t3dg_3(0, 0, 1) * t2s_2(0, 2)
1028  + t3dg_3(0, 1, 1) * t2s_2(1, 2)
1029  + t3dg_3(0, 2, 1) * t2s_2(2, 2)),
1030  "T2s(j,l)*T3dg(i,j,k)(0,1,2)");
1031  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(0, 2, 0)
1032  - (t3dg_3(0, 0, 2) * t2s_2(0, 0)
1033  + t3dg_3(0, 1, 2) * t2s_2(1, 0)
1034  + t3dg_3(0, 2, 2) * t2s_2(2, 0)),
1035  "T2s(j,l)*T3dg(i,j,k)(0,2,0)");
1036  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(0, 2, 1)
1037  - (t3dg_3(0, 0, 2) * t2s_2(0, 1)
1038  + t3dg_3(0, 1, 2) * t2s_2(1, 1)
1039  + t3dg_3(0, 2, 2) * t2s_2(2, 1)),
1040  "T2s(j,l)*T3dg(i,j,k)(0,2,1)");
1041  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(0, 2, 2)
1042  - (t3dg_3(0, 0, 2) * t2s_2(0, 2)
1043  + t3dg_3(0, 1, 2) * t2s_2(1, 2)
1044  + t3dg_3(0, 2, 2) * t2s_2(2, 2)),
1045  "T2s(j,l)*T3dg(i,j,k)(0,2,2)");
1046  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(1, 0, 0)
1047  - (t3dg_3(1, 0, 0) * t2s_2(0, 0)
1048  + t3dg_3(1, 1, 0) * t2s_2(1, 0)
1049  + t3dg_3(1, 2, 0) * t2s_2(2, 0)),
1050  "T2s(j,l)*T3dg(i,j,k)(1,0,0)");
1051  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(1, 0, 1)
1052  - (t3dg_3(1, 0, 0) * t2s_2(0, 1)
1053  + t3dg_3(1, 1, 0) * t2s_2(1, 1)
1054  + t3dg_3(1, 2, 0) * t2s_2(2, 1)),
1055  "T2s(j,l)*T3dg(i,j,k)(1,0,1)");
1056  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(1, 0, 2)
1057  - (t3dg_3(1, 0, 0) * t2s_2(0, 2)
1058  + t3dg_3(1, 1, 0) * t2s_2(1, 2)
1059  + t3dg_3(1, 2, 0) * t2s_2(2, 2)),
1060  "T2s(j,l)*T3dg(i,j,k)(1,0,2)");
1061  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(1, 1, 0)
1062  - (t3dg_3(1, 0, 1) * t2s_2(0, 0)
1063  + t3dg_3(1, 1, 1) * t2s_2(1, 0)
1064  + t3dg_3(1, 2, 1) * t2s_2(2, 0)),
1065  "T2s(j,l)*T3dg(i,j,k)(1,1,0)");
1066  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(1, 1, 1)
1067  - (t3dg_3(1, 0, 1) * t2s_2(0, 1)
1068  + t3dg_3(1, 1, 1) * t2s_2(1, 1)
1069  + t3dg_3(1, 2, 1) * t2s_2(2, 1)),
1070  "T2s(j,l)*T3dg(i,j,k)(1,1,1)");
1071  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(1, 1, 2)
1072  - (t3dg_3(1, 0, 1) * t2s_2(0, 2)
1073  + t3dg_3(1, 1, 1) * t2s_2(1, 2)
1074  + t3dg_3(1, 2, 1) * t2s_2(2, 2)),
1075  "T2s(j,l)*T3dg(i,j,k)(1,1,2)");
1076  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(1, 2, 0)
1077  - (t3dg_3(1, 0, 2) * t2s_2(0, 0)
1078  + t3dg_3(1, 1, 2) * t2s_2(1, 0)
1079  + t3dg_3(1, 2, 2) * t2s_2(2, 0)),
1080  "T2s(j,l)*T3dg(i,j,k)(1,2,0)");
1081  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(1, 2, 1)
1082  - (t3dg_3(1, 0, 2) * t2s_2(0, 1)
1083  + t3dg_3(1, 1, 2) * t2s_2(1, 1)
1084  + t3dg_3(1, 2, 2) * t2s_2(2, 1)),
1085  "T2s(j,l)*T3dg(i,j,k)(1,2,1)");
1086  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(1, 2, 2)
1087  - (t3dg_3(1, 0, 2) * t2s_2(0, 2)
1088  + t3dg_3(1, 1, 2) * t2s_2(1, 2)
1089  + t3dg_3(1, 2, 2) * t2s_2(2, 2)),
1090  "T2s(j,l)*T3dg(i,j,k)(1,2,2)");
1091  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(2, 0, 0)
1092  - (t3dg_3(2, 0, 0) * t2s_2(0, 0)
1093  + t3dg_3(2, 1, 0) * t2s_2(1, 0)
1094  + t3dg_3(2, 2, 0) * t2s_2(2, 0)),
1095  "T2s(j,l)*T3dg(i,j,k)(2,0,0)");
1096  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(2, 0, 1)
1097  - (t3dg_3(2, 0, 0) * t2s_2(0, 1)
1098  + t3dg_3(2, 1, 0) * t2s_2(1, 1)
1099  + t3dg_3(2, 2, 0) * t2s_2(2, 1)),
1100  "T2s(j,l)*T3dg(i,j,k)(2,0,1)");
1101  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(2, 0, 2)
1102  - (t3dg_3(2, 0, 0) * t2s_2(0, 2)
1103  + t3dg_3(2, 1, 0) * t2s_2(1, 2)
1104  + t3dg_3(2, 2, 0) * t2s_2(2, 2)),
1105  "T2s(j,l)*T3dg(i,j,k)(2,0,2)");
1106  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(2, 1, 0)
1107  - (t3dg_3(2, 0, 1) * t2s_2(0, 0)
1108  + t3dg_3(2, 1, 1) * t2s_2(1, 0)
1109  + t3dg_3(2, 2, 1) * t2s_2(2, 0)),
1110  "T2s(j,l)*T3dg(i,j,k)(2,1,0)");
1111  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(2, 1, 1)
1112  - (t3dg_3(2, 0, 1) * t2s_2(0, 1)
1113  + t3dg_3(2, 1, 1) * t2s_2(1, 1)
1114  + t3dg_3(2, 2, 1) * t2s_2(2, 1)),
1115  "T2s(j,l)*T3dg(i,j,k)(2,1,1)");
1116  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(2, 1, 2)
1117  - (t3dg_3(2, 0, 1) * t2s_2(0, 2)
1118  + t3dg_3(2, 1, 1) * t2s_2(1, 2)
1119  + t3dg_3(2, 2, 1) * t2s_2(2, 2)),
1120  "T2s(j,l)*T3dg(i,j,k)(2,1,2)");
1121  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(2, 2, 0)
1122  - (t3dg_3(2, 0, 2) * t2s_2(0, 0)
1123  + t3dg_3(2, 1, 2) * t2s_2(1, 0)
1124  + t3dg_3(2, 2, 2) * t2s_2(2, 0)),
1125  "T2s(j,l)*T3dg(i,j,k)(2,2,0)");
1126  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(2, 2, 1)
1127  - (t3dg_3(2, 0, 2) * t2s_2(0, 1)
1128  + t3dg_3(2, 1, 2) * t2s_2(1, 1)
1129  + t3dg_3(2, 2, 2) * t2s_2(2, 1)),
1130  "T2s(j,l)*T3dg(i,j,k)(2,2,1)");
1131  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(2, 2, 2)
1132  - (t3dg_3(2, 0, 2) * t2s_2(0, 2)
1133  + t3dg_3(2, 1, 2) * t2s_2(1, 2)
1134  + t3dg_3(2, 2, 2) * t2s_2(2, 2)),
1135  "T2s(j,l)*T3dg(i,j,k)(2,2,2)");
1136 
1137  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(0, 0, 0)
1138  - (t3dg_3(0, 0, 0) * t2s_2(0, 0)
1139  + t3dg_3(0, 1, 0) * t2s_2(0, 1)
1140  + t3dg_3(0, 2, 0) * t2s_2(0, 2)),
1141  "T2s(l,j)*T3dg(i,j,k)(0,0,0)");
1142  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(0, 0, 1)
1143  - (t3dg_3(0, 0, 0) * t2s_2(1, 0)
1144  + t3dg_3(0, 1, 0) * t2s_2(1, 1)
1145  + t3dg_3(0, 2, 0) * t2s_2(1, 2)),
1146  "T2s(l,j)*T3dg(i,j,k)(0,0,1)");
1147  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(0, 0, 2)
1148  - (t3dg_3(0, 0, 0) * t2s_2(2, 0)
1149  + t3dg_3(0, 1, 0) * t2s_2(2, 1)
1150  + t3dg_3(0, 2, 0) * t2s_2(2, 2)),
1151  "T2s(l,j)*T3dg(i,j,k)(0,0,2)");
1152  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(0, 1, 0)
1153  - (t3dg_3(0, 0, 1) * t2s_2(0, 0)
1154  + t3dg_3(0, 1, 1) * t2s_2(0, 1)
1155  + t3dg_3(0, 2, 1) * t2s_2(0, 2)),
1156  "T2s(l,j)*T3dg(i,j,k)(0,1,0)");
1157  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(0, 1, 1)
1158  - (t3dg_3(0, 0, 1) * t2s_2(1, 0)
1159  + t3dg_3(0, 1, 1) * t2s_2(1, 1)
1160  + t3dg_3(0, 2, 1) * t2s_2(1, 2)),
1161  "T2s(l,j)*T3dg(i,j,k)(0,1,1)");
1162  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(0, 1, 2)
1163  - (t3dg_3(0, 0, 1) * t2s_2(2, 0)
1164  + t3dg_3(0, 1, 1) * t2s_2(2, 1)
1165  + t3dg_3(0, 2, 1) * t2s_2(2, 2)),
1166  "T2s(l,j)*T3dg(i,j,k)(0,1,2)");
1167  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(0, 2, 0)
1168  - (t3dg_3(0, 0, 2) * t2s_2(0, 0)
1169  + t3dg_3(0, 1, 2) * t2s_2(0, 1)
1170  + t3dg_3(0, 2, 2) * t2s_2(0, 2)),
1171  "T2s(l,j)*T3dg(i,j,k)(0,2,0)");
1172  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(0, 2, 1)
1173  - (t3dg_3(0, 0, 2) * t2s_2(1, 0)
1174  + t3dg_3(0, 1, 2) * t2s_2(1, 1)
1175  + t3dg_3(0, 2, 2) * t2s_2(1, 2)),
1176  "T2s(l,j)*T3dg(i,j,k)(0,2,1)");
1177  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(0, 2, 2)
1178  - (t3dg_3(0, 0, 2) * t2s_2(2, 0)
1179  + t3dg_3(0, 1, 2) * t2s_2(2, 1)
1180  + t3dg_3(0, 2, 2) * t2s_2(2, 2)),
1181  "T2s(l,j)*T3dg(i,j,k)(0,2,2)");
1182  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(1, 0, 0)
1183  - (t3dg_3(1, 0, 0) * t2s_2(0, 0)
1184  + t3dg_3(1, 1, 0) * t2s_2(0, 1)
1185  + t3dg_3(1, 2, 0) * t2s_2(0, 2)),
1186  "T2s(l,j)*T3dg(i,j,k)(1,0,0)");
1187  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(1, 0, 1)
1188  - (t3dg_3(1, 0, 0) * t2s_2(1, 0)
1189  + t3dg_3(1, 1, 0) * t2s_2(1, 1)
1190  + t3dg_3(1, 2, 0) * t2s_2(1, 2)),
1191  "T2s(l,j)*T3dg(i,j,k)(1,0,1)");
1192  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(1, 0, 2)
1193  - (t3dg_3(1, 0, 0) * t2s_2(2, 0)
1194  + t3dg_3(1, 1, 0) * t2s_2(2, 1)
1195  + t3dg_3(1, 2, 0) * t2s_2(2, 2)),
1196  "T2s(l,j)*T3dg(i,j,k)(1,0,2)");
1197  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(1, 1, 0)
1198  - (t3dg_3(1, 0, 1) * t2s_2(0, 0)
1199  + t3dg_3(1, 1, 1) * t2s_2(0, 1)
1200  + t3dg_3(1, 2, 1) * t2s_2(0, 2)),
1201  "T2s(l,j)*T3dg(i,j,k)(1,1,0)");
1202  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(1, 1, 1)
1203  - (t3dg_3(1, 0, 1) * t2s_2(1, 0)
1204  + t3dg_3(1, 1, 1) * t2s_2(1, 1)
1205  + t3dg_3(1, 2, 1) * t2s_2(1, 2)),
1206  "T2s(l,j)*T3dg(i,j,k)(1,1,1)");
1207  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(1, 1, 2)
1208  - (t3dg_3(1, 0, 1) * t2s_2(2, 0)
1209  + t3dg_3(1, 1, 1) * t2s_2(2, 1)
1210  + t3dg_3(1, 2, 1) * t2s_2(2, 2)),
1211  "T2s(l,j)*T3dg(i,j,k)(1,1,2)");
1212  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(1, 2, 0)
1213  - (t3dg_3(1, 0, 2) * t2s_2(0, 0)
1214  + t3dg_3(1, 1, 2) * t2s_2(0, 1)
1215  + t3dg_3(1, 2, 2) * t2s_2(0, 2)),
1216  "T2s(l,j)*T3dg(i,j,k)(1,2,0)");
1217  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(1, 2, 1)
1218  - (t3dg_3(1, 0, 2) * t2s_2(1, 0)
1219  + t3dg_3(1, 1, 2) * t2s_2(1, 1)
1220  + t3dg_3(1, 2, 2) * t2s_2(1, 2)),
1221  "T2s(l,j)*T3dg(i,j,k)(1,2,1)");
1222  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(1, 2, 2)
1223  - (t3dg_3(1, 0, 2) * t2s_2(2, 0)
1224  + t3dg_3(1, 1, 2) * t2s_2(2, 1)
1225  + t3dg_3(1, 2, 2) * t2s_2(2, 2)),
1226  "T2s(l,j)*T3dg(i,j,k)(1,2,2)");
1227  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(2, 0, 0)
1228  - (t3dg_3(2, 0, 0) * t2s_2(0, 0)
1229  + t3dg_3(2, 1, 0) * t2s_2(0, 1)
1230  + t3dg_3(2, 2, 0) * t2s_2(0, 2)),
1231  "T2s(l,j)*T3dg(i,j,k)(2,0,0)");
1232  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(2, 0, 1)
1233  - (t3dg_3(2, 0, 0) * t2s_2(1, 0)
1234  + t3dg_3(2, 1, 0) * t2s_2(1, 1)
1235  + t3dg_3(2, 2, 0) * t2s_2(1, 2)),
1236  "T2s(l,j)*T3dg(i,j,k)(2,0,1)");
1237  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(2, 0, 2)
1238  - (t3dg_3(2, 0, 0) * t2s_2(2, 0)
1239  + t3dg_3(2, 1, 0) * t2s_2(2, 1)
1240  + t3dg_3(2, 2, 0) * t2s_2(2, 2)),
1241  "T2s(l,j)*T3dg(i,j,k)(2,0,2)");
1242  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(2, 1, 0)
1243  - (t3dg_3(2, 0, 1) * t2s_2(0, 0)
1244  + t3dg_3(2, 1, 1) * t2s_2(0, 1)
1245  + t3dg_3(2, 2, 1) * t2s_2(0, 2)),
1246  "T2s(l,j)*T3dg(i,j,k)(2,1,0)");
1247  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(2, 1, 1)
1248  - (t3dg_3(2, 0, 1) * t2s_2(1, 0)
1249  + t3dg_3(2, 1, 1) * t2s_2(1, 1)
1250  + t3dg_3(2, 2, 1) * t2s_2(1, 2)),
1251  "T2s(l,j)*T3dg(i,j,k)(2,1,1)");
1252  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(2, 1, 2)
1253  - (t3dg_3(2, 0, 1) * t2s_2(2, 0)
1254  + t3dg_3(2, 1, 1) * t2s_2(2, 1)
1255  + t3dg_3(2, 2, 1) * t2s_2(2, 2)),
1256  "T2s(l,j)*T3dg(i,j,k)(2,1,2)");
1257  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(2, 2, 0)
1258  - (t3dg_3(2, 0, 2) * t2s_2(0, 0)
1259  + t3dg_3(2, 1, 2) * t2s_2(0, 1)
1260  + t3dg_3(2, 2, 2) * t2s_2(0, 2)),
1261  "T2s(l,j)*T3dg(i,j,k)(2,2,0)");
1262  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(2, 2, 1)
1263  - (t3dg_3(2, 0, 2) * t2s_2(1, 0)
1264  + t3dg_3(2, 1, 2) * t2s_2(1, 1)
1265  + t3dg_3(2, 2, 2) * t2s_2(1, 2)),
1266  "T2s(l,j)*T3dg(i,j,k)(2,2,1)");
1267  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(2, 2, 2)
1268  - (t3dg_3(2, 0, 2) * t2s_2(2, 0)
1269  + t3dg_3(2, 1, 2) * t2s_2(2, 1)
1270  + t3dg_3(2, 2, 2) * t2s_2(2, 2)),
1271  "T2s(l,j)*T3dg(i,j,k)(2,2,2)");
1272 }
test_T3dg_37
void test_T3dg_37(const Tensor2< double, 3, 3 > &t2_2, const Tensor2_symmetric< double, 3 > &t2s_2, const Dg< double, 3, 3 > &t3dg_2, const Dg< double, 3, 3 > &t3dg_3)
Definition: test_T3dg_37.cpp:7
test_T3dg_08
void test_T3dg_08(Tensor2< double, 3, 3 > &t2_1, const Dg< double, 3, 3 > &t3dg_2)
Definition: test_T3dg_08.cpp:7
test_T3dg_16
void test_T3dg_16(Dg< double, 3, 3 > &t3dg_1, const Dg< double, 3, 3 > &t3dg_2)
Definition: test_T3dg_16.cpp:7
test_T3dg_17
void test_T3dg_17(const Tensor1< double, 3 > &t1_2, Tensor2_symmetric< double, 3 > &t2s_1, const Dg< double, 3, 3 > &t3dg_2, const Dg< double, 3, 3 > &t3dg_3)
Definition: test_T3dg_17.cpp:7
test_T3dg_12
void test_T3dg_12(Dg< double, 3, 3 > &t3dg_1, const Dg< double, 3, 3 > &t3dg_2, const Dg< double, 3, 3 > &t3dg_3)
Definition: test_T3dg_12.cpp:7
test_T3dg_21
void test_T3dg_21(const Tensor2< double, 3, 3 > &t2_2, Dg< double, 3, 3 > &t3dg_1, const Dg< double, 3, 3 > &t3dg_2, const Dg< double, 3, 3 > &t3dg_3)
Definition: test_T3dg_21.cpp:7
test_T3dg_29
void test_T3dg_29(const Tensor2_symmetric< double, 3 > &t2s_2, Dg< double, 3, 3 > &t3dg_1, const Dg< double, 3, 3 > &t3dg_2, const Dg< double, 3, 3 > &t3dg_3)
Definition: test_T3dg_29.cpp:7
test_T3dg_35
void test_T3dg_35(Tensor1< double, 3 > &t1_1, const Tensor2_symmetric< double, 3 > &t2s_2, const Dg< double, 3, 3 > &t3dg_2)
Definition: test_T3dg_35.cpp:7
test_T3dg_04
void test_T3dg_04(Tensor2< double, 3, 3 > &t2_1, const Dg< double, 3, 3 > &t3dg_2)
Definition: test_T3dg_04.cpp:7
test_T3dg_20
void test_T3dg_20(const Tensor2< double, 3, 3 > &t2_2, Dg< double, 3, 3 > &t3dg_1, const Dg< double, 3, 3 > &t3dg_2, const Dg< double, 3, 3 > &t3dg_3)
Definition: test_T3dg_20.cpp:7
FTensor::Number< 0 >
test_T3dg_15
void test_T3dg_15(const Tensor1< double, 3 > &t1_2, Dg< double, 3, 3 > &t3dg_1, const Dg< double, 3, 3 > &t3dg_2, const Dg< double, 3, 3 > &t3dg_3)
Definition: test_T3dg_15.cpp:7
test_T3dg_02
void test_T3dg_02(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_T3dg_02.cpp:7
test_T3dg_07
void test_T3dg_07(Tensor2< double, 3, 3 > &t2_1, const Dg< double, 3, 3 > &t3dg_2)
Definition: test_T3dg_07.cpp:7
test_T3dg_05
void test_T3dg_05(Tensor2< double, 3, 3 > &t2_1, const Dg< double, 3, 3 > &t3dg_2)
Definition: test_T3dg_05.cpp:7
test_T3dg_06
void test_T3dg_06(Tensor2_symmetric< double, 3 > &t2s_1, const Dg< double, 3, 3 > &t3dg_2)
Definition: test_T3dg_06.cpp:7
test_for_zero
void test_for_zero(const T &t, const std::string &s)
Definition: test_for_zero.hpp:7
test_T3dg_038
void test_T3dg_038(const Dg< double, 3, 3 > &t3dg_2, const Dg< double, 3, 3 > &t3dg_3)
Definition: test_T3dg_038.cpp:7
test_T3dg_18
void test_T3dg_18(const Tensor1< double, 3 > &t1_2, Tensor2< double, 3, 3 > &t2_1, const Dg< double, 3, 3 > &t3dg_2, const Dg< double, 3, 3 > &t3dg_3)
Definition: test_T3dg_18.cpp:7
test_T3dg_22
void test_T3dg_22(Tensor1< double, 3 > &t1_1, const Tensor2< double, 3, 3 > &t2_2, const Dg< double, 3, 3 > &t3dg_2)
Definition: test_T3dg_22.cpp:7
test_T3dg_26
void test_T3dg_26(Tensor1< double, 3 > &t1_1, const Tensor2< double, 3, 3 > &t2_2, const Dg< double, 3, 3 > &t3dg_2)
Definition: test_T3dg_26.cpp:7
test_T3dg_30
void test_T3dg_30(Tensor1< double, 3 > &t1_1, const Tensor2_symmetric< double, 3 > &t2s_2, const Dg< double, 3, 3 > &t3dg_2)
Definition: test_T3dg_30.cpp:7
test_T3dg_14
void test_T3dg_14(Dg< double, 3, 3 > &t3dg_1, const Dg< double, 3, 3 > &t3dg_2)
Definition: test_T3dg_14.cpp:7
i
FTensor::Index< 'i', SPACE_DIM > i
Definition: hcurl_divergence_operator_2d.cpp:27
FTensor::Index< 'i', 3 >
test_T3dg_28
void test_T3dg_28(const Tensor2_symmetric< double, 3 > &t2s_2, Dg< double, 3, 3 > &t3dg_1, const Dg< double, 3, 3 > &t3dg_2, const Dg< double, 3, 3 > &t3dg_3)
Definition: test_T3dg_28.cpp:7
test_T3dg_01
void test_T3dg_01(Tensor1< double, 3 > &t1_1, const Dg< double, 3, 3 > &t3dg_2)
Definition: test_T3dg_01.cpp:7
test_T3dg_23
void test_T3dg_23(Tensor1< double, 3 > &t1_1, const Tensor2< double, 3, 3 > &t2_2, const Dg< double, 3, 3 > &t3dg_2)
Definition: test_T3dg_23.cpp:7
test_T3dg_10
void test_T3dg_10(Dg< double, 3, 3 > &t3dg_1)
Definition: test_T3dg_10.cpp:7
test_T3dg_27
void test_T3dg_27(Tensor1< double, 3 > &t1_1, const Tensor2< double, 3, 3 > &t2_2, const Dg< double, 3, 3 > &t3dg_2)
Definition: test_T3dg_27.cpp:7
test_T3dg_31
void test_T3dg_31(Tensor1< double, 3 > &t1_1, const Tensor2_symmetric< double, 3 > &t2s_2, const Dg< double, 3, 3 > &t3dg_2)
Definition: test_T3dg_31.cpp:7
FTensor::Dg
Definition: Dg_value.hpp:9
test_T3dg_09
void test_T3dg_09(const Tensor1< double, 3 > &t1_2, const Tensor2_symmetric< double, 3 > &t2s_2, Dg< double, 3, 3 > &t3dg_1)
Definition: test_T3dg_09.cpp:7
j
FTensor::Index< 'j', 3 > j
Definition: matrix_function.cpp:19
test_T3dg_24
void test_T3dg_24(Tensor1< double, 3 > &t1_1, const Tensor2< double, 3, 3 > &t2_2, const Dg< double, 3, 3 > &t3dg_2)
Definition: test_T3dg_24.cpp:7
test_T3dg_33
void test_T3dg_33(Tensor1< double, 3 > &t1_1, const Tensor2_symmetric< double, 3 > &t2s_2, const Dg< double, 3, 3 > &t3dg_2)
Definition: test_T3dg_33.cpp:7
test_T3dg_36
void test_T3dg_36(Tensor2< double, 3, 3 > &t2_1, const Tensor2_symmetric< double, 3 > &t2s_2, Dg< double, 3, 3 > &t3dg_1, const Dg< double, 3, 3 > &t3dg_2, const Dg< double, 3, 3 > &t3dg_3)
Definition: test_T3dg_36.cpp:7
test_T3dg_25
void test_T3dg_25(Tensor1< double, 3 > &t1_1, const Tensor2< double, 3, 3 > &t2_2, const Dg< double, 3, 3 > &t3dg_2)
Definition: test_T3dg_25.cpp:7
test_T3dg_03
void test_T3dg_03(Tensor2_symmetric< double, 3 > &t2s_1, const Dg< double, 3, 3 > &t3dg_2)
Definition: test_T3dg_03.cpp:7
test_T3dg_11
void test_T3dg_11(Dg< double, 3, 3 > &t3dg_1, const Dg< double, 3, 3 > &t3dg_2, const Dg< double, 3, 3 > &t3dg_3)
Definition: test_T3dg_11.cpp:7
test_T3dg_13
void test_T3dg_13(Dg< double, 3, 3 > &t3dg_1, const Dg< double, 3, 3 > &t3dg_2, const Dg< double, 3, 3 > &t3dg_3)
Definition: test_T3dg_13.cpp:7
k
FTensor::Index< 'k', 3 > k
Definition: matrix_function.cpp:20
test_T3dg_34
void test_T3dg_34(Tensor1< double, 3 > &t1_1, const Tensor2_symmetric< double, 3 > &t2s_2, const Dg< double, 3, 3 > &t3dg_2)
Definition: test_T3dg_34.cpp:7
l
FTensor::Index< 'l', 3 > l
Definition: matrix_function.cpp:21
test_T3dg_19
void test_T3dg_19(const Tensor1< double, 3 > &t1_2, Tensor2< double, 3, 3 > &t2_1, const Dg< double, 3, 3 > &t3dg_2, const Dg< double, 3, 3 > &t3dg_3)
Definition: test_T3dg_19.cpp:7
test_T3dg_32
void test_T3dg_32(Tensor1< double, 3 > &t1_1, const Tensor2_symmetric< double, 3 > &t2s_2, const Dg< double, 3, 3 > &t3dg_2)
Definition: test_T3dg_32.cpp:7
Generated by Doxygen 1.8.17 and hosted at University of Glasgow