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.

{
  test_T3dg_01(t1_1, t3dg_2);
  test_T3dg_02(t2s_1, t2s_2, t2s_3, t3dg_1);
  test_T3dg_03(t2s_1, t3dg_2);
  test_T3dg_04(t2_1, t3dg_2);
  test_T3dg_05(t2_1, t3dg_2);
  test_T3dg_06(t2s_1, t3dg_2);
  test_T3dg_07(t2_1, t3dg_2);
  test_T3dg_08(t2_1, t3dg_2);
  test_T3dg_09(t1_2, t2s_2, t3dg_1);
  test_T3dg_10(t3dg_1);
  test_T3dg_11(t3dg_1, t3dg_2, t3dg_3);
  test_T3dg_12(t3dg_1, t3dg_2, t3dg_3);
  test_T3dg_13(t3dg_1, t3dg_2, t3dg_3);
  test_T3dg_14(t3dg_1, t3dg_2);
  test_T3dg_15(t1_2, t3dg_1, t3dg_2, t3dg_3);
  test_T3dg_16(t3dg_1, t3dg_2);
  test_T3dg_17(t1_2, t2s_1, t3dg_2, t3dg_3);
  test_T3dg_18(t1_2, t2_1, t3dg_2, t3dg_3);
  test_T3dg_19(t1_2, t2_1, t3dg_2, t3dg_3);
  test_T3dg_20(t2_2, t3dg_1, t3dg_2, t3dg_3);
  test_T3dg_21(t2_2, t3dg_1, t3dg_2, t3dg_3);
  test_T3dg_22(t1_1, t2_2, t3dg_2);
  test_T3dg_23(t1_1, t2_2, t3dg_2);
  test_T3dg_24(t1_1, t2_2, t3dg_2);
  test_T3dg_25(t1_1, t2_2, t3dg_2);
  test_T3dg_26(t1_1, t2_2, t3dg_2);
  test_T3dg_27(t1_1, t2_2, t3dg_2);
  test_T3dg_28(t2s_2, t3dg_1, t3dg_2, t3dg_3);
  test_T3dg_29(t2s_2, t3dg_1, t3dg_2, t3dg_3);
  test_T3dg_30(t1_1, t2s_2, t3dg_2);
  test_T3dg_31(t1_1, t2s_2, t3dg_2);
  test_T3dg_32(t1_1, t2s_2, t3dg_2);
  test_T3dg_33(t1_1, t2s_2, t3dg_2);
  test_T3dg_34(t1_1, t2s_2, t3dg_2);
  test_T3dg_35(t1_1, t2s_2, t3dg_2);
  test_T3dg_36(t2_1, t2s_2, t3dg_1, t3dg_2, t3dg_3);
  test_T3dg_37(t2_2, t2s_2, t3dg_2, t3dg_3);
  test_T3dg_038(t3dg_2, t3dg_3);
}

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.

{
  Index<'i', 3> i;
  Index<'j', 3> j;
 
  Number<0> N0;
  Number<1> N1;
  Number<2> N2;
 
  /* Dg tests */
 
  t1_1(i) = t3dg_2(i, j, j);
  test_for_zero(t1_1(0)
                  - (t3dg_2(0, 0, 0) + t3dg_2(0, 1, 1) + t3dg_2(0, 2, 2)),
                "T3dg(i,j,j)(0)");
  test_for_zero(t1_1(1)
                  - (t3dg_2(1, 0, 0) + t3dg_2(1, 1, 1) + t3dg_2(1, 2, 2)),
                "T3dg(i,j,j)(1)");
  test_for_zero(t1_1(2)
                  - (t3dg_2(2, 0, 0) + t3dg_2(2, 1, 1) + t3dg_2(2, 2, 2)),
                "T3dg(i,j,j)(2)");
  t1_1(i) = t3dg_2(j, i, j);
  test_for_zero(t1_1(0)
                  - (t3dg_2(0, 0, 0) + t3dg_2(1, 0, 1) + t3dg_2(2, 0, 2)),
                "T3dg(j,i,j)(0)");
  test_for_zero(t1_1(1)
                  - (t3dg_2(0, 1, 0) + t3dg_2(1, 1, 1) + t3dg_2(2, 1, 2)),
                "T3dg(j,i,j)(1)");
  test_for_zero(t1_1(2)
                  - (t3dg_2(0, 2, 0) + t3dg_2(1, 2, 1) + t3dg_2(2, 2, 2)),
                "T3dg(j,i,j)(2)");
  t1_1(i) = t3dg_2(j, j, i);
  test_for_zero(t1_1(0)
                  - (t3dg_2(0, 0, 0) + t3dg_2(1, 1, 0) + t3dg_2(2, 2, 0)),
                "T3dg(j,j,i)(0)");
  test_for_zero(t1_1(1)
                  - (t3dg_2(0, 0, 1) + t3dg_2(1, 1, 1) + t3dg_2(2, 2, 1)),
                "T3dg(j,j,i)(1)");
  test_for_zero(t1_1(2)
                  - (t3dg_2(0, 0, 2) + t3dg_2(1, 1, 2) + t3dg_2(2, 2, 2)),
                "T3dg(j,j,i)(2)");
}

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.

{
  Index<'i', 3> i;
  Index<'j', 3> j;
 
  Number<0> N0;
  Number<1> N1;
  Number<2> N2;
 
  /* First Number<> tests */
 
  t3dg_1(i, j, N0) = t2s_1(i, j);
  t3dg_1(i, j, N1) = t2s_2(i, j);
  t3dg_1(i, j, N2) = t2s_3(i, j);
  test_for_zero(t3dg_1(0, 0, 0) - t2s_1(0, 0), "T3dg(i,j,N)=T2s(i,j)(0,0,0)");
  test_for_zero(t3dg_1(0, 1, 0) - t2s_1(0, 1), "T3dg(i,j,N)=T2s(i,j)(0,1,0)");
  test_for_zero(t3dg_1(0, 2, 0) - t2s_1(0, 2), "T3dg(i,j,N)=T2s(i,j)(0,2,0)");
  test_for_zero(t3dg_1(1, 1, 0) - t2s_1(1, 1), "T3dg(i,j,N)=T2s(i,j)(1,1,0)");
  test_for_zero(t3dg_1(1, 2, 0) - t2s_1(1, 2), "T3dg(i,j,N)=T2s(i,j)(1,2,0)");
  test_for_zero(t3dg_1(2, 2, 0) - t2s_1(2, 2), "T3dg(i,j,N)=T2s(i,j)(2,2,0)");
  test_for_zero(t3dg_1(0, 0, 1) - t2s_2(0, 0), "T3dg(i,j,N)=T2s(i,j)(0,0,1)");
  test_for_zero(t3dg_1(0, 1, 1) - t2s_2(0, 1), "T3dg(i,j,N)=T2s(i,j)(0,1,1)");
  test_for_zero(t3dg_1(0, 2, 1) - t2s_2(0, 2), "T3dg(i,j,N)=T2s(i,j)(0,2,1)");
  test_for_zero(t3dg_1(1, 1, 1) - t2s_2(1, 1), "T3dg(i,j,N)=T2s(i,j)(1,1,1)");
  test_for_zero(t3dg_1(1, 2, 1) - t2s_2(1, 2), "T3dg(i,j,N)=T2s(i,j)(1,2,1)");
  test_for_zero(t3dg_1(2, 2, 1) - t2s_2(2, 2), "T3dg(i,j,N)=T2s(i,j)(2,2,1)");
  test_for_zero(t3dg_1(0, 0, 2) - t2s_3(0, 0), "T3dg(i,j,N)=T2s(i,j)(0,0,2)");
  test_for_zero(t3dg_1(0, 1, 2) - t2s_3(0, 1), "T3dg(i,j,N)=T2s(i,j)(0,1,2)");
  test_for_zero(t3dg_1(0, 2, 2) - t2s_3(0, 2), "T3dg(i,j,N)=T2s(i,j)(0,2,2)");
  test_for_zero(t3dg_1(1, 1, 2) - t2s_3(1, 1), "T3dg(i,j,N)=T2s(i,j)(1,1,2)");
  test_for_zero(t3dg_1(1, 2, 2) - t2s_3(1, 2), "T3dg(i,j,N)=T2s(i,j)(1,2,2)");
  test_for_zero(t3dg_1(2, 2, 2) - t2s_3(2, 2), "T3dg(i,j,N)=T2s(i,j)(2,2,2)");
}

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.

{
  Index<'i', 3> i;
  Index<'j', 3> j;
 
  Number<0> N0;
  Number<1> N1;
  Number<2> N2;
 
  t2s_1(i, j) = t3dg_2(i, j, N0);
  test_for_zero(t3dg_2(0, 0, 0) - t2s_1(0, 0), "T2s(i,j)=T3dg(i,j,N)(0,0,0)");
  test_for_zero(t3dg_2(0, 1, 0) - t2s_1(0, 1), "T2s(i,j)=T3dg(i,j,N)(0,0,1)");
  test_for_zero(t3dg_2(0, 2, 0) - t2s_1(0, 2), "T2s(i,j)=T3dg(i,j,N)(0,0,2)");
  test_for_zero(t3dg_2(1, 0, 0) - t2s_1(1, 0), "T2s(i,j)=T3dg(i,j,N)(0,1,0)");
  test_for_zero(t3dg_2(1, 1, 0) - t2s_1(1, 1), "T2s(i,j)=T3dg(i,j,N)(0,1,1)");
  test_for_zero(t3dg_2(1, 2, 0) - t2s_1(1, 2), "T2s(i,j)=T3dg(i,j,N)(0,1,2)");
  test_for_zero(t3dg_2(2, 0, 0) - t2s_1(2, 0), "T2s(i,j)=T3dg(i,j,N)(0,2,0)");
  test_for_zero(t3dg_2(2, 1, 0) - t2s_1(2, 1), "T2s(i,j)=T3dg(i,j,N)(0,2,1)");
  test_for_zero(t3dg_2(2, 2, 0) - t2s_1(2, 2), "T2s(i,j)=T3dg(i,j,N)(0,2,2)");
 
  t2s_1(i, j) = t3dg_2(i, j, N1);
  test_for_zero(t3dg_2(0, 0, 1) - t2s_1(0, 0), "T2s(i,j)=T3dg(i,j,N)(1,0,0)");
  test_for_zero(t3dg_2(0, 1, 1) - t2s_1(0, 1), "T2s(i,j)=T3dg(i,j,N)(1,0,1)");
  test_for_zero(t3dg_2(0, 2, 1) - t2s_1(0, 2), "T2s(i,j)=T3dg(i,j,N)(1,0,2)");
  test_for_zero(t3dg_2(1, 0, 1) - t2s_1(1, 0), "T2s(i,j)=T3dg(i,j,N)(1,1,0)");
  test_for_zero(t3dg_2(1, 1, 1) - t2s_1(1, 1), "T2s(i,j)=T3dg(i,j,N)(1,1,1)");
  test_for_zero(t3dg_2(1, 2, 1) - t2s_1(1, 2), "T2s(i,j)=T3dg(i,j,N)(1,1,2)");
  test_for_zero(t3dg_2(2, 0, 1) - t2s_1(2, 0), "T2s(i,j)=T3dg(i,j,N)(1,2,0)");
  test_for_zero(t3dg_2(2, 1, 1) - t2s_1(2, 1), "T2s(i,j)=T3dg(i,j,N)(1,2,1)");
  test_for_zero(t3dg_2(2, 2, 1) - t2s_1(2, 2), "T2s(i,j)=T3dg(i,j,N)(1,2,2)");
 
  t2s_1(i, j) = t3dg_2(i, j, N2);
  test_for_zero(t3dg_2(0, 0, 2) - t2s_1(0, 0), "T2s(i,j)=T3dg(i,j,N)(2,0,0)");
  test_for_zero(t3dg_2(0, 1, 2) - t2s_1(0, 1), "T2s(i,j)=T3dg(i,j,N)(2,0,1)");
  test_for_zero(t3dg_2(0, 2, 2) - t2s_1(0, 2), "T2s(i,j)=T3dg(i,j,N)(2,0,2)");
  test_for_zero(t3dg_2(1, 0, 2) - t2s_1(1, 0), "T2s(i,j)=T3dg(i,j,N)(2,1,0)");
  test_for_zero(t3dg_2(1, 1, 2) - t2s_1(1, 1), "T2s(i,j)=T3dg(i,j,N)(2,1,1)");
  test_for_zero(t3dg_2(1, 2, 2) - t2s_1(1, 2), "T2s(i,j)=T3dg(i,j,N)(2,1,2)");
  test_for_zero(t3dg_2(2, 0, 2) - t2s_1(2, 0), "T2s(i,j)=T3dg(i,j,N)(2,2,0)");
  test_for_zero(t3dg_2(2, 1, 2) - t2s_1(2, 1), "T2s(i,j)=T3dg(i,j,N)(2,2,1)");
  test_for_zero(t3dg_2(2, 2, 2) - t2s_1(2, 2), "T2s(i,j)=T3dg(i,j,N)(2,2,2)");
}

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.

                                                  {
  Index<'i', 3> i;
  Index<'j', 3> j;
  Index<'k', 3> k;
 
  {
    Dg<double, 3, 3> t3dg_3_1, t3dg_3_2;
    t3dg_3_1(i, j, k) = t3dg_3(i, j, k);
    t3dg_3_1(i, j, k) += t3dg_2(i, j, k);
    for (int ii = 0; ii != 3;++ii)
      for (int jj = 0; jj != 3;++jj)
        for (int kk = 0; kk != 3;++kk) {
          test_for_zero(t3dg_3_1(ii, jj, kk) - t3dg_2(ii, jj, kk) -
                            t3dg_3(ii, jj, kk),
                        "T3(i,j,k)+=T3(i,j,k)(" + to_string(ii) + "," +
                            to_string(jj) + "," + to_string(kk) + ")");
        }
 
    t3dg_3_2(i, j, k) = t3dg_3_1(i, j, k);
    t3dg_3_2(i, j, k) -= t3dg_3_1(i, j, k);
    for (int ii = 0; ii != 3;++ii)
      for (int jj = 0; jj != 3;++jj)
        for (int kk = 0; kk != 3;++kk) {
          test_for_zero(t3dg_3_1(ii, jj, kk) - t3dg_2(ii, jj, kk) -
                            t3dg_3(ii, jj, kk),
                        "T3(i,j,k)-=T3(i,j,k)(" + to_string(ii) + "," +
                            to_string(jj) + "," + to_string(kk) + ")");
        }
 
  }
}

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.

{
  Index<'i', 3> i;
  Index<'j', 3> j;
 
  Number<0> N0;
  Number<1> N1;
  Number<2> N2;
 
  /* Dg tests */
 
  t2_1(i, j) = t3dg_2(N0, i, j);
  test_for_zero(t3dg_2(0, 0, 0) - t2_1(0, 0), "T2(i,j)=T3dg(N,i,j)(0,0,0)");
  test_for_zero(t3dg_2(0, 0, 1) - t2_1(0, 1), "T2(i,j)=T3dg(N,i,j)(0,0,1)");
  test_for_zero(t3dg_2(0, 0, 2) - t2_1(0, 2), "T2(i,j)=T3dg(N,i,j)(0,0,2)");
  test_for_zero(t3dg_2(0, 1, 0) - t2_1(1, 0), "T2(i,j)=T3dg(N,i,j)(0,1,0)");
  test_for_zero(t3dg_2(0, 1, 1) - t2_1(1, 1), "T2(i,j)=T3dg(N,i,j)(0,1,1)");
  test_for_zero(t3dg_2(0, 1, 2) - t2_1(1, 2), "T2(i,j)=T3dg(N,i,j)(0,1,2)");
  test_for_zero(t3dg_2(0, 2, 0) - t2_1(2, 0), "T2(i,j)=T3dg(N,i,j)(0,2,0)");
  test_for_zero(t3dg_2(0, 2, 1) - t2_1(2, 1), "T2(i,j)=T3dg(N,i,j)(0,2,1)");
  test_for_zero(t3dg_2(0, 2, 2) - t2_1(2, 2), "T2(i,j)=T3dg(N,i,j)(0,2,2)");
 
  t2_1(i, j) = t3dg_2(N1, i, j);
  test_for_zero(t3dg_2(1, 0, 0) - t2_1(0, 0), "T2(i,j)=T3dg(N,i,j)(1,0,0)");
  test_for_zero(t3dg_2(1, 0, 1) - t2_1(0, 1), "T2(i,j)=T3dg(N,i,j)(1,0,1)");
  test_for_zero(t3dg_2(1, 0, 2) - t2_1(0, 2), "T2(i,j)=T3dg(N,i,j)(1,0,2)");
  test_for_zero(t3dg_2(1, 1, 0) - t2_1(1, 0), "T2(i,j)=T3dg(N,i,j)(1,1,0)");
  test_for_zero(t3dg_2(1, 1, 1) - t2_1(1, 1), "T2(i,j)=T3dg(N,i,j)(1,1,1)");
  test_for_zero(t3dg_2(1, 1, 2) - t2_1(1, 2), "T2(i,j)=T3dg(N,i,j)(1,1,2)");
  test_for_zero(t3dg_2(1, 2, 0) - t2_1(2, 0), "T2(i,j)=T3dg(N,i,j)(1,2,0)");
  test_for_zero(t3dg_2(1, 2, 1) - t2_1(2, 1), "T2(i,j)=T3dg(N,i,j)(1,2,1)");
  test_for_zero(t3dg_2(1, 2, 2) - t2_1(2, 2), "T2(i,j)=T3dg(N,i,j)(1,2,2)");
 
  t2_1(i, j) = t3dg_2(N2, i, j);
  test_for_zero(t3dg_2(2, 0, 0) - t2_1(0, 0), "T2(i,j)=T3dg(N,i,j)(2,0,0)");
  test_for_zero(t3dg_2(2, 0, 1) - t2_1(0, 1), "T2(i,j)=T3dg(N,i,j)(2,0,1)");
  test_for_zero(t3dg_2(2, 0, 2) - t2_1(0, 2), "T2(i,j)=T3dg(N,i,j)(2,0,2)");
  test_for_zero(t3dg_2(2, 1, 0) - t2_1(1, 0), "T2(i,j)=T3dg(N,i,j)(2,1,0)");
  test_for_zero(t3dg_2(2, 1, 1) - t2_1(1, 1), "T2(i,j)=T3dg(N,i,j)(2,1,1)");
  test_for_zero(t3dg_2(2, 1, 2) - t2_1(1, 2), "T2(i,j)=T3dg(N,i,j)(2,1,2)");
  test_for_zero(t3dg_2(2, 2, 0) - t2_1(2, 0), "T2(i,j)=T3dg(N,i,j)(2,2,0)");
  test_for_zero(t3dg_2(2, 2, 1) - t2_1(2, 1), "T2(i,j)=T3dg(N,i,j)(2,2,1)");
  test_for_zero(t3dg_2(2, 2, 2) - t2_1(2, 2), "T2(i,j)=T3dg(N,i,j)(2,2,2)");
}

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.

{
  Index<'i', 3> i;
  Index<'j', 3> j;
 
  Number<0> N0;
  Number<1> N1;
  Number<2> N2;
 
  /* Dg tests */
 
  t2_1(i, j) = t3dg_2(i, N0, j);
  test_for_zero(t3dg_2(0, 0, 0) - t2_1(0, 0), "T2(i,j)=T3dg(i,N,j)(0,0,0)");
  test_for_zero(t3dg_2(0, 0, 1) - t2_1(0, 1), "T2(i,j)=T3dg(i,N,j)(0,0,1)");
  test_for_zero(t3dg_2(0, 0, 2) - t2_1(0, 2), "T2(i,j)=T3dg(i,N,j)(0,0,2)");
  test_for_zero(t3dg_2(1, 0, 0) - t2_1(1, 0), "T2(i,j)=T3dg(i,N,j)(0,1,0)");
  test_for_zero(t3dg_2(1, 0, 1) - t2_1(1, 1), "T2(i,j)=T3dg(i,N,j)(0,1,1)");
  test_for_zero(t3dg_2(1, 0, 2) - t2_1(1, 2), "T2(i,j)=T3dg(i,N,j)(0,1,2)");
  test_for_zero(t3dg_2(2, 0, 0) - t2_1(2, 0), "T2(i,j)=T3dg(i,N,j)(0,2,0)");
  test_for_zero(t3dg_2(2, 0, 1) - t2_1(2, 1), "T2(i,j)=T3dg(i,N,j)(0,2,1)");
  test_for_zero(t3dg_2(2, 0, 2) - t2_1(2, 2), "T2(i,j)=T3dg(i,N,j)(0,2,2)");
 
  t2_1(i, j) = t3dg_2(i, N1, j);
  test_for_zero(t3dg_2(0, 1, 0) - t2_1(0, 0), "T2(i,j)=T3dg(i,N,j)(1,0,0)");
  test_for_zero(t3dg_2(0, 1, 1) - t2_1(0, 1), "T2(i,j)=T3dg(i,N,j)(1,0,1)");
  test_for_zero(t3dg_2(0, 1, 2) - t2_1(0, 2), "T2(i,j)=T3dg(i,N,j)(1,0,2)");
  test_for_zero(t3dg_2(1, 1, 0) - t2_1(1, 0), "T2(i,j)=T3dg(i,N,j)(1,1,0)");
  test_for_zero(t3dg_2(1, 1, 1) - t2_1(1, 1), "T2(i,j)=T3dg(i,N,j)(1,1,1)");
  test_for_zero(t3dg_2(1, 1, 2) - t2_1(1, 2), "T2(i,j)=T3dg(i,N,j)(1,1,2)");
  test_for_zero(t3dg_2(2, 1, 0) - t2_1(2, 0), "T2(i,j)=T3dg(i,N,j)(1,2,0)");
  test_for_zero(t3dg_2(2, 1, 1) - t2_1(2, 1), "T2(i,j)=T3dg(i,N,j)(1,2,1)");
  test_for_zero(t3dg_2(2, 1, 2) - t2_1(2, 2), "T2(i,j)=T3dg(i,N,j)(1,2,2)");
 
  t2_1(i, j) = t3dg_2(i, N2, j);
  test_for_zero(t3dg_2(0, 2, 0) - t2_1(0, 0), "T2(i,j)=T3dg(i,N,j)(2,0,0)");
  test_for_zero(t3dg_2(0, 2, 1) - t2_1(0, 1), "T2(i,j)=T3dg(i,N,j)(2,0,1)");
  test_for_zero(t3dg_2(0, 2, 2) - t2_1(0, 2), "T2(i,j)=T3dg(i,N,j)(2,0,2)");
  test_for_zero(t3dg_2(1, 2, 0) - t2_1(1, 0), "T2(i,j)=T3dg(i,N,j)(2,1,0)");
  test_for_zero(t3dg_2(1, 2, 1) - t2_1(1, 1), "T2(i,j)=T3dg(i,N,j)(2,1,1)");
  test_for_zero(t3dg_2(1, 2, 2) - t2_1(1, 2), "T2(i,j)=T3dg(i,N,j)(2,1,2)");
  test_for_zero(t3dg_2(2, 2, 0) - t2_1(2, 0), "T2(i,j)=T3dg(i,N,j)(2,2,0)");
  test_for_zero(t3dg_2(2, 2, 1) - t2_1(2, 1), "T2(i,j)=T3dg(i,N,j)(2,2,1)");
  test_for_zero(t3dg_2(2, 2, 2) - t2_1(2, 2), "T2(i,j)=T3dg(i,N,j)(2,2,2)");
}

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.

{
  Index<'i', 3> i;
  Index<'j', 3> j;
 
  Number<0> N0;
  Number<1> N1;
  Number<2> N2;
 
  /* Dg tests */
 
  /* Now, test with actual numbers. */
 
  t2s_1(i, j) = t3dg_2(i, j, 0);
  test_for_zero(t3dg_2(0, 0, 0) - t2s_1(0, 0), "T3dg(i,j,Num)(0,0,0)");
  test_for_zero(t3dg_2(0, 1, 0) - t2s_1(0, 1), "T3dg(i,j,Num)(0,0,1)");
  test_for_zero(t3dg_2(0, 2, 0) - t2s_1(0, 2), "T3dg(i,j,Num)(0,0,2)");
  test_for_zero(t3dg_2(1, 0, 0) - t2s_1(1, 0), "T3dg(i,j,Num)(0,1,0)");
  test_for_zero(t3dg_2(1, 1, 0) - t2s_1(1, 1), "T3dg(i,j,Num)(0,1,1)");
  test_for_zero(t3dg_2(1, 2, 0) - t2s_1(1, 2), "T3dg(i,j,Num)(0,1,2)");
  test_for_zero(t3dg_2(2, 0, 0) - t2s_1(2, 0), "T3dg(i,j,Num)(0,2,0)");
  test_for_zero(t3dg_2(2, 1, 0) - t2s_1(2, 1), "T3dg(i,j,Num)(0,2,1)");
  test_for_zero(t3dg_2(2, 2, 0) - t2s_1(2, 2), "T3dg(i,j,Num)(0,2,2)");
 
  t2s_1(i, j) = t3dg_2(i, j, 1);
  test_for_zero(t3dg_2(0, 0, 1) - t2s_1(0, 0), "T3dg(i,j,Num)(1,0,0)");
  test_for_zero(t3dg_2(0, 1, 1) - t2s_1(0, 1), "T3dg(i,j,Num)(1,0,1)");
  test_for_zero(t3dg_2(0, 2, 1) - t2s_1(0, 2), "T3dg(i,j,Num)(1,0,2)");
  test_for_zero(t3dg_2(1, 0, 1) - t2s_1(1, 0), "T3dg(i,j,Num)(1,1,0)");
  test_for_zero(t3dg_2(1, 1, 1) - t2s_1(1, 1), "T3dg(i,j,Num)(1,1,1)");
  test_for_zero(t3dg_2(1, 2, 1) - t2s_1(1, 2), "T3dg(i,j,Num)(1,1,2)");
  test_for_zero(t3dg_2(2, 0, 1) - t2s_1(2, 0), "T3dg(i,j,Num)(1,2,0)");
  test_for_zero(t3dg_2(2, 1, 1) - t2s_1(2, 1), "T3dg(i,j,Num)(1,2,1)");
  test_for_zero(t3dg_2(2, 2, 1) - t2s_1(2, 2), "T3dg(i,j,Num)(1,2,2)");
 
  t2s_1(i, j) = t3dg_2(i, j, 2);
  test_for_zero(t3dg_2(0, 0, 2) - t2s_1(0, 0), "T3dg(i,j,Num)(2,0,0)");
  test_for_zero(t3dg_2(0, 1, 2) - t2s_1(0, 1), "T3dg(i,j,Num)(2,0,1)");
  test_for_zero(t3dg_2(0, 2, 2) - t2s_1(0, 2), "T3dg(i,j,Num)(2,0,2)");
  test_for_zero(t3dg_2(1, 0, 2) - t2s_1(1, 0), "T3dg(i,j,Num)(2,1,0)");
  test_for_zero(t3dg_2(1, 1, 2) - t2s_1(1, 1), "T3dg(i,j,Num)(2,1,1)");
  test_for_zero(t3dg_2(1, 2, 2) - t2s_1(1, 2), "T3dg(i,j,Num)(2,1,2)");
  test_for_zero(t3dg_2(2, 0, 2) - t2s_1(2, 0), "T3dg(i,j,Num)(2,2,0)");
  test_for_zero(t3dg_2(2, 1, 2) - t2s_1(2, 1), "T3dg(i,j,Num)(2,2,1)");
  test_for_zero(t3dg_2(2, 2, 2) - t2s_1(2, 2), "T3dg(i,j,Num)(2,2,2)");
}

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.

{
  Index<'i', 3> i;
  Index<'j', 3> j;
 
  Number<0> N0;
  Number<1> N1;
  Number<2> N2;
 
  /* Dg tests */
 
  /* Now, test with actual numbers. */
 
  t2_1(i, j) = t3dg_2(0, i, j);
  test_for_zero(t3dg_2(0, 0, 0) - t2_1(0, 0), "T3dg(Num,i,j)(0,0,0)");
  test_for_zero(t3dg_2(0, 0, 1) - t2_1(0, 1), "T3dg(Num,i,j)(0,0,1)");
  test_for_zero(t3dg_2(0, 0, 2) - t2_1(0, 2), "T3dg(Num,i,j)(0,0,2)");
  test_for_zero(t3dg_2(0, 1, 0) - t2_1(1, 0), "T3dg(Num,i,j)(0,1,0)");
  test_for_zero(t3dg_2(0, 1, 1) - t2_1(1, 1), "T3dg(Num,i,j)(0,1,1)");
  test_for_zero(t3dg_2(0, 1, 2) - t2_1(1, 2), "T3dg(Num,i,j)(0,1,2)");
  test_for_zero(t3dg_2(0, 2, 0) - t2_1(2, 0), "T3dg(Num,i,j)(0,2,0)");
  test_for_zero(t3dg_2(0, 2, 1) - t2_1(2, 1), "T3dg(Num,i,j)(0,2,1)");
  test_for_zero(t3dg_2(0, 2, 2) - t2_1(2, 2), "T3dg(Num,i,j)(0,2,2)");
 
  t2_1(i, j) = t3dg_2(1, i, j);
  test_for_zero(t3dg_2(1, 0, 0) - t2_1(0, 0), "T3dg(Num,i,j)(1,0,0)");
  test_for_zero(t3dg_2(1, 0, 1) - t2_1(0, 1), "T3dg(Num,i,j)(1,0,1)");
  test_for_zero(t3dg_2(1, 0, 2) - t2_1(0, 2), "T3dg(Num,i,j)(1,0,2)");
  test_for_zero(t3dg_2(1, 1, 0) - t2_1(1, 0), "T3dg(Num,i,j)(1,1,0)");
  test_for_zero(t3dg_2(1, 1, 1) - t2_1(1, 1), "T3dg(Num,i,j)(1,1,1)");
  test_for_zero(t3dg_2(1, 1, 2) - t2_1(1, 2), "T3dg(Num,i,j)(1,1,2)");
  test_for_zero(t3dg_2(1, 2, 0) - t2_1(2, 0), "T3dg(Num,i,j)(1,2,0)");
  test_for_zero(t3dg_2(1, 2, 1) - t2_1(2, 1), "T3dg(Num,i,j)(1,2,1)");
  test_for_zero(t3dg_2(1, 2, 2) - t2_1(2, 2), "T3dg(Num,i,j)(1,2,2)");
 
  t2_1(i, j) = t3dg_2(2, i, j);
  test_for_zero(t3dg_2(2, 0, 0) - t2_1(0, 0), "T3dg(Num,i,j)(2,0,0)");
  test_for_zero(t3dg_2(2, 0, 1) - t2_1(0, 1), "T3dg(Num,i,j)(2,0,1)");
  test_for_zero(t3dg_2(2, 0, 2) - t2_1(0, 2), "T3dg(Num,i,j)(2,0,2)");
  test_for_zero(t3dg_2(2, 1, 0) - t2_1(1, 0), "T3dg(Num,i,j)(2,1,0)");
  test_for_zero(t3dg_2(2, 1, 1) - t2_1(1, 1), "T3dg(Num,i,j)(2,1,1)");
  test_for_zero(t3dg_2(2, 1, 2) - t2_1(1, 2), "T3dg(Num,i,j)(2,1,2)");
  test_for_zero(t3dg_2(2, 2, 0) - t2_1(2, 0), "T3dg(Num,i,j)(2,2,0)");
  test_for_zero(t3dg_2(2, 2, 1) - t2_1(2, 1), "T3dg(Num,i,j)(2,2,1)");
  test_for_zero(t3dg_2(2, 2, 2) - t2_1(2, 2), "T3dg(Num,i,j)(2,2,2)");
}

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.

{
  Index<'i', 3> i;
  Index<'j', 3> j;
 
  Number<0> N0;
  Number<1> N1;
  Number<2> N2;
 
  /* Dg tests */
 
  /* Now, test with actual numbers. */
 
  t2_1(i, j) = t3dg_2(i, 0, j);
  test_for_zero(t3dg_2(0, 0, 0) - t2_1(0, 0), "T3dg(i,Num,j)(0,0,0)");
  test_for_zero(t3dg_2(0, 0, 1) - t2_1(0, 1), "T3dg(i,Num,j)(0,0,1)");
  test_for_zero(t3dg_2(0, 0, 2) - t2_1(0, 2), "T3dg(i,Num,j)(0,0,2)");
  test_for_zero(t3dg_2(1, 0, 0) - t2_1(1, 0), "T3dg(i,Num,j)(0,1,0)");
  test_for_zero(t3dg_2(1, 0, 1) - t2_1(1, 1), "T3dg(i,Num,j)(0,1,1)");
  test_for_zero(t3dg_2(1, 0, 2) - t2_1(1, 2), "T3dg(i,Num,j)(0,1,2)");
  test_for_zero(t3dg_2(2, 0, 0) - t2_1(2, 0), "T3dg(i,Num,j)(0,2,0)");
  test_for_zero(t3dg_2(2, 0, 1) - t2_1(2, 1), "T3dg(i,Num,j)(0,2,1)");
  test_for_zero(t3dg_2(2, 0, 2) - t2_1(2, 2), "T3dg(i,Num,j)(0,2,2)");
 
  t2_1(i, j) = t3dg_2(i, 1, j);
  test_for_zero(t3dg_2(0, 1, 0) - t2_1(0, 0), "T3dg(i,Num,j)(1,0,0)");
  test_for_zero(t3dg_2(0, 1, 1) - t2_1(0, 1), "T3dg(i,Num,j)(1,0,1)");
  test_for_zero(t3dg_2(0, 1, 2) - t2_1(0, 2), "T3dg(i,Num,j)(1,0,2)");
  test_for_zero(t3dg_2(1, 1, 0) - t2_1(1, 0), "T3dg(i,Num,j)(1,1,0)");
  test_for_zero(t3dg_2(1, 1, 1) - t2_1(1, 1), "T3dg(i,Num,j)(1,1,1)");
  test_for_zero(t3dg_2(1, 1, 2) - t2_1(1, 2), "T3dg(i,Num,j)(1,1,2)");
  test_for_zero(t3dg_2(2, 1, 0) - t2_1(2, 0), "T3dg(i,Num,j)(1,2,0)");
  test_for_zero(t3dg_2(2, 1, 1) - t2_1(2, 1), "T3dg(i,Num,j)(1,2,1)");
  test_for_zero(t3dg_2(2, 1, 2) - t2_1(2, 2), "T3dg(i,Num,j)(1,2,2)");
 
  t2_1(i, j) = t3dg_2(i, 2, j);
  test_for_zero(t3dg_2(0, 2, 0) - t2_1(0, 0), "T3dg(i,Num,j)(2,0,0)");
  test_for_zero(t3dg_2(0, 2, 1) - t2_1(0, 1), "T3dg(i,Num,j)(2,0,1)");
  test_for_zero(t3dg_2(0, 2, 2) - t2_1(0, 2), "T3dg(i,Num,j)(2,0,2)");
  test_for_zero(t3dg_2(1, 2, 0) - t2_1(1, 0), "T3dg(i,Num,j)(2,1,0)");
  test_for_zero(t3dg_2(1, 2, 1) - t2_1(1, 1), "T3dg(i,Num,j)(2,1,1)");
  test_for_zero(t3dg_2(1, 2, 2) - t2_1(1, 2), "T3dg(i,Num,j)(2,1,2)");
  test_for_zero(t3dg_2(2, 2, 0) - t2_1(2, 0), "T3dg(i,Num,j)(2,2,0)");
  test_for_zero(t3dg_2(2, 2, 1) - t2_1(2, 1), "T3dg(i,Num,j)(2,2,1)");
  test_for_zero(t3dg_2(2, 2, 2) - t2_1(2, 2), "T3dg(i,Num,j)(2,2,2)");
}

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.

{
  Index<'i', 3> i;
  Index<'j', 3> j;
  Index<'k', 3> k;
 
  Number<0> N0;
  Number<1> N1;
  Number<2> N2;
 
  /* Dg tests */
 
  t3dg_1(i, j, k) = t2s_2(i, j) * t1_2(k);
  test_for_zero(t3dg_1(0, 0, 0) - t2s_2(0, 0) * t1_2(0),
                "T2s(i,j)*T1(k)(0,0,0)");
  test_for_zero(t3dg_1(0, 0, 1) - t2s_2(0, 0) * t1_2(1),
                "T2s(i,j)*T1(k)(0,0,1)");
  test_for_zero(t3dg_1(0, 0, 2) - t2s_2(0, 0) * t1_2(2),
                "T2s(i,j)*T1(k)(0,0,2)");
  test_for_zero(t3dg_1(0, 1, 0) - t2s_2(0, 1) * t1_2(0),
                "T2s(i,j)*T1(k)(0,1,0)");
  test_for_zero(t3dg_1(0, 1, 1) - t2s_2(0, 1) * t1_2(1),
                "T2s(i,j)*T1(k)(0,1,1)");
  test_for_zero(t3dg_1(0, 1, 2) - t2s_2(0, 1) * t1_2(2),
                "T2s(i,j)*T1(k)(0,1,2)");
  test_for_zero(t3dg_1(0, 2, 0) - t2s_2(0, 2) * t1_2(0),
                "T2s(i,j)*T1(k)(0,2,0)");
  test_for_zero(t3dg_1(0, 2, 1) - t2s_2(0, 2) * t1_2(1),
                "T2s(i,j)*T1(k)(0,2,1)");
  test_for_zero(t3dg_1(0, 2, 2) - t2s_2(0, 2) * t1_2(2),
                "T2s(i,j)*T1(k)(0,2,2)");
  test_for_zero(t3dg_1(1, 0, 0) - t2s_2(1, 0) * t1_2(0),
                "T2s(i,j)*T1(k)(1,0,0)");
  test_for_zero(t3dg_1(1, 0, 1) - t2s_2(1, 0) * t1_2(1),
                "T2s(i,j)*T1(k)(1,0,1)");
  test_for_zero(t3dg_1(1, 0, 2) - t2s_2(1, 0) * t1_2(2),
                "T2s(i,j)*T1(k)(1,0,2)");
  test_for_zero(t3dg_1(1, 1, 0) - t2s_2(1, 1) * t1_2(0),
                "T2s(i,j)*T1(k)(1,1,0)");
  test_for_zero(t3dg_1(1, 1, 1) - t2s_2(1, 1) * t1_2(1),
                "T2s(i,j)*T1(k)(1,1,1)");
  test_for_zero(t3dg_1(1, 1, 2) - t2s_2(1, 1) * t1_2(2),
                "T2s(i,j)*T1(k)(1,1,2)");
  test_for_zero(t3dg_1(1, 2, 0) - t2s_2(1, 2) * t1_2(0),
                "T2s(i,j)*T1(k)(1,2,0)");
  test_for_zero(t3dg_1(1, 2, 1) - t2s_2(1, 2) * t1_2(1),
                "T2s(i,j)*T1(k)(1,2,1)");
  test_for_zero(t3dg_1(1, 2, 2) - t2s_2(1, 2) * t1_2(2),
                "T2s(i,j)*T1(k)(1,2,2)");
  test_for_zero(t3dg_1(2, 0, 0) - t2s_2(2, 0) * t1_2(0),
                "T2s(i,j)*T1(k)(2,0,0)");
  test_for_zero(t3dg_1(2, 0, 1) - t2s_2(2, 0) * t1_2(1),
                "T2s(i,j)*T1(k)(2,0,1)");
  test_for_zero(t3dg_1(2, 0, 2) - t2s_2(2, 0) * t1_2(2),
                "T2s(i,j)*T1(k)(2,0,2)");
  test_for_zero(t3dg_1(2, 1, 0) - t2s_2(2, 1) * t1_2(0),
                "T2s(i,j)*T1(k)(2,1,0)");
  test_for_zero(t3dg_1(2, 1, 1) - t2s_2(2, 1) * t1_2(1),
                "T2s(i,j)*T1(k)(2,1,1)");
  test_for_zero(t3dg_1(2, 1, 2) - t2s_2(2, 1) * t1_2(2),
                "T2s(i,j)*T1(k)(2,1,2)");
  test_for_zero(t3dg_1(2, 2, 0) - t2s_2(2, 2) * t1_2(0),
                "T2s(i,j)*T1(k)(2,2,0)");
  test_for_zero(t3dg_1(2, 2, 1) - t2s_2(2, 2) * t1_2(1),
                "T2s(i,j)*T1(k)(2,2,1)");
  test_for_zero(t3dg_1(2, 2, 2) - t2s_2(2, 2) * t1_2(2),
                "T2s(i,j)*T1(k)(2,2,2)");
}

test_T3dg_10()

void test_T3dg_10

(

Dg< double, 3, 3 > &

t3dg_1

)

Definition at line 7 of file test_T3dg_10.cpp.

{
  Index<'i', 3> i;
  Index<'j', 3> j;
  Index<'k', 3> k;
 
  Number<0> N0;
  Number<1> N1;
  Number<2> N2;
 
  /* Dg tests */
 
  t3dg_1(i, j, k) = 10;
  test_for_zero(t3dg_1(0, 0, 0) - 10, "T3dg=T(0,0,0)");
  test_for_zero(t3dg_1(0, 0, 1) - 10, "T3dg=T(0,0,1)");
  test_for_zero(t3dg_1(0, 0, 2) - 10, "T3dg=T(0,0,2)");
  test_for_zero(t3dg_1(0, 1, 0) - 10, "T3dg=T(0,1,0)");
  test_for_zero(t3dg_1(0, 1, 1) - 10, "T3dg=T(0,1,1)");
  test_for_zero(t3dg_1(0, 1, 2) - 10, "T3dg=T(0,1,2)");
  test_for_zero(t3dg_1(0, 2, 0) - 10, "T3dg=T(0,2,0)");
  test_for_zero(t3dg_1(0, 2, 1) - 10, "T3dg=T(0,2,1)");
  test_for_zero(t3dg_1(0, 2, 2) - 10, "T3dg=T(0,2,2)");
  test_for_zero(t3dg_1(1, 0, 0) - 10, "T3dg=T(1,0,0)");
  test_for_zero(t3dg_1(1, 0, 1) - 10, "T3dg=T(1,0,1)");
  test_for_zero(t3dg_1(1, 0, 2) - 10, "T3dg=T(1,0,2)");
  test_for_zero(t3dg_1(1, 1, 0) - 10, "T3dg=T(1,1,0)");
  test_for_zero(t3dg_1(1, 1, 1) - 10, "T3dg=T(1,1,1)");
  test_for_zero(t3dg_1(1, 1, 2) - 10, "T3dg=T(1,1,2)");
  test_for_zero(t3dg_1(1, 2, 0) - 10, "T3dg=T(1,2,0)");
  test_for_zero(t3dg_1(1, 2, 1) - 10, "T3dg=T(1,2,1)");
  test_for_zero(t3dg_1(1, 2, 2) - 10, "T3dg=T(1,2,2)");
  test_for_zero(t3dg_1(2, 0, 0) - 10, "T3dg=T(2,0,0)");
  test_for_zero(t3dg_1(2, 0, 1) - 10, "T3dg=T(2,0,1)");
  test_for_zero(t3dg_1(2, 0, 2) - 10, "T3dg=T(2,0,2)");
  test_for_zero(t3dg_1(2, 1, 0) - 10, "T3dg=T(2,1,0)");
  test_for_zero(t3dg_1(2, 1, 1) - 10, "T3dg=T(2,1,1)");
  test_for_zero(t3dg_1(2, 1, 2) - 10, "T3dg=T(2,1,2)");
  test_for_zero(t3dg_1(2, 2, 0) - 10, "T3dg=T(2,2,0)");
  test_for_zero(t3dg_1(2, 2, 1) - 10, "T3dg=T(2,2,1)");
  test_for_zero(t3dg_1(2, 2, 2) - 10, "T3dg=T(2,2,2)");
}

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.

{
  Index<'i', 3> i;
  Index<'j', 3> j;
  Index<'k', 3> k;
 
  Number<0> N0;
  Number<1> N1;
  Number<2> N2;
 
  /* Dg tests */
 
  t3dg_1(i, j, k) = t3dg_2(i, j, k) + t3dg_3(i, j, k);
  test_for_zero(t3dg_1(0, 0, 0) - (t3dg_2(0, 0, 0) + t3dg_3(0, 0, 0)),
                "T3dg(i,j,k)+T3dg(i,j,k)(0,0,0)");
  test_for_zero(t3dg_1(0, 0, 1) - (t3dg_2(0, 0, 1) + t3dg_3(0, 0, 1)),
                "T3dg(i,j,k)+T3dg(i,j,k)(0,0,1)");
  test_for_zero(t3dg_1(0, 0, 2) - (t3dg_2(0, 0, 2) + t3dg_3(0, 0, 2)),
                "T3dg(i,j,k)+T3dg(i,j,k)(0,0,2)");
  test_for_zero(t3dg_1(0, 1, 0) - (t3dg_2(0, 1, 0) + t3dg_3(0, 1, 0)),
                "T3dg(i,j,k)+T3dg(i,j,k)(0,1,0)");
  test_for_zero(t3dg_1(0, 1, 1) - (t3dg_2(0, 1, 1) + t3dg_3(0, 1, 1)),
                "T3dg(i,j,k)+T3dg(i,j,k)(0,1,1)");
  test_for_zero(t3dg_1(0, 1, 2) - (t3dg_2(0, 1, 2) + t3dg_3(0, 1, 2)),
                "T3dg(i,j,k)+T3dg(i,j,k)(0,1,2)");
  test_for_zero(t3dg_1(0, 2, 0) - (t3dg_2(0, 2, 0) + t3dg_3(0, 2, 0)),
                "T3dg(i,j,k)+T3dg(i,j,k)(0,2,0)");
  test_for_zero(t3dg_1(0, 2, 1) - (t3dg_2(0, 2, 1) + t3dg_3(0, 2, 1)),
                "T3dg(i,j,k)+T3dg(i,j,k)(0,2,1)");
  test_for_zero(t3dg_1(0, 2, 2) - (t3dg_2(0, 2, 2) + t3dg_3(0, 2, 2)),
                "T3dg(i,j,k)+T3dg(i,j,k)(0,2,2)");
  test_for_zero(t3dg_1(1, 0, 0) - (t3dg_2(1, 0, 0) + t3dg_3(1, 0, 0)),
                "T3dg(i,j,k)+T3dg(i,j,k)(1,0,0)");
  test_for_zero(t3dg_1(1, 0, 1) - (t3dg_2(1, 0, 1) + t3dg_3(1, 0, 1)),
                "T3dg(i,j,k)+T3dg(i,j,k)(1,0,1)");
  test_for_zero(t3dg_1(1, 0, 2) - (t3dg_2(1, 0, 2) + t3dg_3(1, 0, 2)),
                "T3dg(i,j,k)+T3dg(i,j,k)(1,0,2)");
  test_for_zero(t3dg_1(1, 1, 0) - (t3dg_2(1, 1, 0) + t3dg_3(1, 1, 0)),
                "T3dg(i,j,k)+T3dg(i,j,k)(1,1,0)");
  test_for_zero(t3dg_1(1, 1, 1) - (t3dg_2(1, 1, 1) + t3dg_3(1, 1, 1)),
                "T3dg(i,j,k)+T3dg(i,j,k)(1,1,1)");
  test_for_zero(t3dg_1(1, 1, 2) - (t3dg_2(1, 1, 2) + t3dg_3(1, 1, 2)),
                "T3dg(i,j,k)+T3dg(i,j,k)(1,1,2)");
  test_for_zero(t3dg_1(1, 2, 0) - (t3dg_2(1, 2, 0) + t3dg_3(1, 2, 0)),
                "T3dg(i,j,k)+T3dg(i,j,k)(1,2,0)");
  test_for_zero(t3dg_1(1, 2, 1) - (t3dg_2(1, 2, 1) + t3dg_3(1, 2, 1)),
                "T3dg(i,j,k)+T3dg(i,j,k)(1,2,1)");
  test_for_zero(t3dg_1(1, 2, 2) - (t3dg_2(1, 2, 2) + t3dg_3(1, 2, 2)),
                "T3dg(i,j,k)+T3dg(i,j,k)(1,2,2)");
  test_for_zero(t3dg_1(2, 0, 0) - (t3dg_2(2, 0, 0) + t3dg_3(2, 0, 0)),
                "T3dg(i,j,k)+T3dg(i,j,k)(2,0,0)");
  test_for_zero(t3dg_1(2, 0, 1) - (t3dg_2(2, 0, 1) + t3dg_3(2, 0, 1)),
                "T3dg(i,j,k)+T3dg(i,j,k)(2,0,1)");
  test_for_zero(t3dg_1(2, 0, 2) - (t3dg_2(2, 0, 2) + t3dg_3(2, 0, 2)),
                "T3dg(i,j,k)+T3dg(i,j,k)(2,0,2)");
  test_for_zero(t3dg_1(2, 1, 0) - (t3dg_2(2, 1, 0) + t3dg_3(2, 1, 0)),
                "T3dg(i,j,k)+T3dg(i,j,k)(2,1,0)");
  test_for_zero(t3dg_1(2, 1, 1) - (t3dg_2(2, 1, 1) + t3dg_3(2, 1, 1)),
                "T3dg(i,j,k)+T3dg(i,j,k)(2,1,1)");
  test_for_zero(t3dg_1(2, 1, 2) - (t3dg_2(2, 1, 2) + t3dg_3(2, 1, 2)),
                "T3dg(i,j,k)+T3dg(i,j,k)(2,1,2)");
  test_for_zero(t3dg_1(2, 2, 0) - (t3dg_2(2, 2, 0) + t3dg_3(2, 2, 0)),
                "T3dg(i,j,k)+T3dg(i,j,k)(2,2,0)");
  test_for_zero(t3dg_1(2, 2, 1) - (t3dg_2(2, 2, 1) + t3dg_3(2, 2, 1)),
                "T3dg(i,j,k)+T3dg(i,j,k)(2,2,1)");
  test_for_zero(t3dg_1(2, 2, 2) - (t3dg_2(2, 2, 2) + t3dg_3(2, 2, 2)),
                "T3dg(i,j,k)+T3dg(i,j,k)(2,2,2)");
}

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.

{
  Index<'i', 3> i;
  Index<'j', 3> j;
  Index<'k', 3> k;
 
  Number<0> N0;
  Number<1> N1;
  Number<2> N2;
 
  /* Dg tests */
 
  t3dg_1(i, j, k) = t3dg_2(i, j, k) - t3dg_3(i, j, k);
  test_for_zero(t3dg_1(0, 0, 0) - (t3dg_2(0, 0, 0) - t3dg_3(0, 0, 0)),
                "T3dg(i,j,k)-T3dg(i,j,k)(0,0,0)");
  test_for_zero(t3dg_1(0, 0, 1) - (t3dg_2(0, 0, 1) - t3dg_3(0, 0, 1)),
                "T3dg(i,j,k)-T3dg(i,j,k)(0,0,1)");
  test_for_zero(t3dg_1(0, 0, 2) - (t3dg_2(0, 0, 2) - t3dg_3(0, 0, 2)),
                "T3dg(i,j,k)-T3dg(i,j,k)(0,0,2)");
  test_for_zero(t3dg_1(0, 1, 0) - (t3dg_2(0, 1, 0) - t3dg_3(0, 1, 0)),
                "T3dg(i,j,k)-T3dg(i,j,k)(0,1,0)");
  test_for_zero(t3dg_1(0, 1, 1) - (t3dg_2(0, 1, 1) - t3dg_3(0, 1, 1)),
                "T3dg(i,j,k)-T3dg(i,j,k)(0,1,1)");
  test_for_zero(t3dg_1(0, 1, 2) - (t3dg_2(0, 1, 2) - t3dg_3(0, 1, 2)),
                "T3dg(i,j,k)-T3dg(i,j,k)(0,1,2)");
  test_for_zero(t3dg_1(0, 2, 0) - (t3dg_2(0, 2, 0) - t3dg_3(0, 2, 0)),
                "T3dg(i,j,k)-T3dg(i,j,k)(0,2,0)");
  test_for_zero(t3dg_1(0, 2, 1) - (t3dg_2(0, 2, 1) - t3dg_3(0, 2, 1)),
                "T3dg(i,j,k)-T3dg(i,j,k)(0,2,1)");
  test_for_zero(t3dg_1(0, 2, 2) - (t3dg_2(0, 2, 2) - t3dg_3(0, 2, 2)),
                "T3dg(i,j,k)-T3dg(i,j,k)(0,2,2)");
  test_for_zero(t3dg_1(1, 0, 0) - (t3dg_2(1, 0, 0) - t3dg_3(1, 0, 0)),
                "T3dg(i,j,k)-T3dg(i,j,k)(1,0,0)");
  test_for_zero(t3dg_1(1, 0, 1) - (t3dg_2(1, 0, 1) - t3dg_3(1, 0, 1)),
                "T3dg(i,j,k)-T3dg(i,j,k)(1,0,1)");
  test_for_zero(t3dg_1(1, 0, 2) - (t3dg_2(1, 0, 2) - t3dg_3(1, 0, 2)),
                "T3dg(i,j,k)-T3dg(i,j,k)(1,0,2)");
  test_for_zero(t3dg_1(1, 1, 0) - (t3dg_2(1, 1, 0) - t3dg_3(1, 1, 0)),
                "T3dg(i,j,k)-T3dg(i,j,k)(1,1,0)");
  test_for_zero(t3dg_1(1, 1, 1) - (t3dg_2(1, 1, 1) - t3dg_3(1, 1, 1)),
                "T3dg(i,j,k)-T3dg(i,j,k)(1,1,1)");
  test_for_zero(t3dg_1(1, 1, 2) - (t3dg_2(1, 1, 2) - t3dg_3(1, 1, 2)),
                "T3dg(i,j,k)-T3dg(i,j,k)(1,1,2)");
  test_for_zero(t3dg_1(1, 2, 0) - (t3dg_2(1, 2, 0) - t3dg_3(1, 2, 0)),
                "T3dg(i,j,k)-T3dg(i,j,k)(1,2,0)");
  test_for_zero(t3dg_1(1, 2, 1) - (t3dg_2(1, 2, 1) - t3dg_3(1, 2, 1)),
                "T3dg(i,j,k)-T3dg(i,j,k)(1,2,1)");
  test_for_zero(t3dg_1(1, 2, 2) - (t3dg_2(1, 2, 2) - t3dg_3(1, 2, 2)),
                "T3dg(i,j,k)-T3dg(i,j,k)(1,2,2)");
  test_for_zero(t3dg_1(2, 0, 0) - (t3dg_2(2, 0, 0) - t3dg_3(2, 0, 0)),
                "T3dg(i,j,k)-T3dg(i,j,k)(2,0,0)");
  test_for_zero(t3dg_1(2, 0, 1) - (t3dg_2(2, 0, 1) - t3dg_3(2, 0, 1)),
                "T3dg(i,j,k)-T3dg(i,j,k)(2,0,1)");
  test_for_zero(t3dg_1(2, 0, 2) - (t3dg_2(2, 0, 2) - t3dg_3(2, 0, 2)),
                "T3dg(i,j,k)-T3dg(i,j,k)(2,0,2)");
  test_for_zero(t3dg_1(2, 1, 0) - (t3dg_2(2, 1, 0) - t3dg_3(2, 1, 0)),
                "T3dg(i,j,k)-T3dg(i,j,k)(2,1,0)");
  test_for_zero(t3dg_1(2, 1, 1) - (t3dg_2(2, 1, 1) - t3dg_3(2, 1, 1)),
                "T3dg(i,j,k)-T3dg(i,j,k)(2,1,1)");
  test_for_zero(t3dg_1(2, 1, 2) - (t3dg_2(2, 1, 2) - t3dg_3(2, 1, 2)),
                "T3dg(i,j,k)-T3dg(i,j,k)(2,1,2)");
  test_for_zero(t3dg_1(2, 2, 0) - (t3dg_2(2, 2, 0) - t3dg_3(2, 2, 0)),
                "T3dg(i,j,k)-T3dg(i,j,k)(2,2,0)");
  test_for_zero(t3dg_1(2, 2, 1) - (t3dg_2(2, 2, 1) - t3dg_3(2, 2, 1)),
                "T3dg(i,j,k)-T3dg(i,j,k)(2,2,1)");
  test_for_zero(t3dg_1(2, 2, 2) - (t3dg_2(2, 2, 2) - t3dg_3(2, 2, 2)),
                "T3dg(i,j,k)-T3dg(i,j,k)(2,2,2)");
}

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.

{
  Index<'i', 3> i;
  Index<'j', 3> j;
  Index<'k', 3> k;
 
  Number<0> N0;
  Number<1> N1;
  Number<2> N2;
 
  /* Dg tests */
 
  t3dg_1(i, j, k) = t3dg_2(i, j, k) + t3dg_3(j, i, k);
  test_for_zero(t3dg_1(0, 0, 0) - (t3dg_2(0, 0, 0) + t3dg_3(0, 0, 0)),
                "T3dg(i,j,k)+T3dg(j,i,k)(0,0,0)");
  test_for_zero(t3dg_1(0, 0, 1) - (t3dg_2(0, 0, 1) + t3dg_3(0, 0, 1)),
                "T3dg(i,j,k)+T3dg(j,i,k)(0,0,1)");
  test_for_zero(t3dg_1(0, 0, 2) - (t3dg_2(0, 0, 2) + t3dg_3(0, 0, 2)),
                "T3dg(i,j,k)+T3dg(j,i,k)(0,0,2)");
  test_for_zero(t3dg_1(0, 1, 0) - (t3dg_2(0, 1, 0) + t3dg_3(0, 1, 0)),
                "T3dg(i,j,k)+T3dg(j,i,k)(0,1,0)");
  test_for_zero(t3dg_1(0, 1, 1) - (t3dg_2(0, 1, 1) + t3dg_3(0, 1, 1)),
                "T3dg(i,j,k)+T3dg(j,i,k)(0,1,1)");
  test_for_zero(t3dg_1(0, 1, 2) - (t3dg_2(0, 1, 2) + t3dg_3(0, 1, 2)),
                "T3dg(i,j,k)+T3dg(j,i,k)(0,1,2)");
  test_for_zero(t3dg_1(0, 2, 0) - (t3dg_2(0, 2, 0) + t3dg_3(0, 2, 0)),
                "T3dg(i,j,k)+T3dg(j,i,k)(0,2,0)");
  test_for_zero(t3dg_1(0, 2, 1) - (t3dg_2(0, 2, 1) + t3dg_3(0, 2, 1)),
                "T3dg(i,j,k)+T3dg(j,i,k)(0,2,1)");
  test_for_zero(t3dg_1(0, 2, 2) - (t3dg_2(0, 2, 2) + t3dg_3(0, 2, 2)),
                "T3dg(i,j,k)+T3dg(j,i,k)(0,2,2)");
  test_for_zero(t3dg_1(1, 0, 0) - (t3dg_2(1, 0, 0) + t3dg_3(1, 0, 0)),
                "T3dg(i,j,k)+T3dg(j,i,k)(1,0,0)");
  test_for_zero(t3dg_1(1, 0, 1) - (t3dg_2(1, 0, 1) + t3dg_3(1, 0, 1)),
                "T3dg(i,j,k)+T3dg(j,i,k)(1,0,1)");
  test_for_zero(t3dg_1(1, 0, 2) - (t3dg_2(1, 0, 2) + t3dg_3(1, 0, 2)),
                "T3dg(i,j,k)+T3dg(j,i,k)(1,0,2)");
  test_for_zero(t3dg_1(1, 1, 0) - (t3dg_2(1, 1, 0) + t3dg_3(1, 1, 0)),
                "T3dg(i,j,k)+T3dg(j,i,k)(1,1,0)");
  test_for_zero(t3dg_1(1, 1, 1) - (t3dg_2(1, 1, 1) + t3dg_3(1, 1, 1)),
                "T3dg(i,j,k)+T3dg(j,i,k)(1,1,1)");
  test_for_zero(t3dg_1(1, 1, 2) - (t3dg_2(1, 1, 2) + t3dg_3(1, 1, 2)),
                "T3dg(i,j,k)+T3dg(j,i,k)(1,1,2)");
  test_for_zero(t3dg_1(1, 2, 0) - (t3dg_2(1, 2, 0) + t3dg_3(1, 2, 0)),
                "T3dg(i,j,k)+T3dg(j,i,k)(1,2,0)");
  test_for_zero(t3dg_1(1, 2, 1) - (t3dg_2(1, 2, 1) + t3dg_3(1, 2, 1)),
                "T3dg(i,j,k)+T3dg(j,i,k)(1,2,1)");
  test_for_zero(t3dg_1(1, 2, 2) - (t3dg_2(1, 2, 2) + t3dg_3(1, 2, 2)),
                "T3dg(i,j,k)+T3dg(j,i,k)(1,2,2)");
  test_for_zero(t3dg_1(2, 0, 0) - (t3dg_2(2, 0, 0) + t3dg_3(2, 0, 0)),
                "T3dg(i,j,k)+T3dg(j,i,k)(2,0,0)");
  test_for_zero(t3dg_1(2, 0, 1) - (t3dg_2(2, 0, 1) + t3dg_3(2, 0, 1)),
                "T3dg(i,j,k)+T3dg(j,i,k)(2,0,1)");
  test_for_zero(t3dg_1(2, 0, 2) - (t3dg_2(2, 0, 2) + t3dg_3(2, 0, 2)),
                "T3dg(i,j,k)+T3dg(j,i,k)(2,0,2)");
  test_for_zero(t3dg_1(2, 1, 0) - (t3dg_2(2, 1, 0) + t3dg_3(2, 1, 0)),
                "T3dg(i,j,k)+T3dg(j,i,k)(2,1,0)");
  test_for_zero(t3dg_1(2, 1, 1) - (t3dg_2(2, 1, 1) + t3dg_3(2, 1, 1)),
                "T3dg(i,j,k)+T3dg(j,i,k)(2,1,1)");
  test_for_zero(t3dg_1(2, 1, 2) - (t3dg_2(2, 1, 2) + t3dg_3(2, 1, 2)),
                "T3dg(i,j,k)+T3dg(j,i,k)(2,1,2)");
  test_for_zero(t3dg_1(2, 2, 0) - (t3dg_2(2, 2, 0) + t3dg_3(2, 2, 0)),
                "T3dg(i,j,k)+T3dg(j,i,k)(2,2,0)");
  test_for_zero(t3dg_1(2, 2, 1) - (t3dg_2(2, 2, 1) + t3dg_3(2, 2, 1)),
                "T3dg(i,j,k)+T3dg(j,i,k)(2,2,1)");
  test_for_zero(t3dg_1(2, 2, 2) - (t3dg_2(2, 2, 2) + t3dg_3(2, 2, 2)),
                "T3dg(i,j,k)+T3dg(j,i,k)(2,2,2)");
}

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.

{
  Index<'i', 3> i;
  Index<'j', 3> j;
  Index<'k', 3> k;
 
  Number<0> N0;
  Number<1> N1;
  Number<2> N2;
 
  /* Dg tests */
 
  t3dg_1(i, j, k) = -t3dg_2(i, j, k);
  test_for_zero(t3dg_1(0, 0, 0) + t3dg_2(0, 0, 0), "-T3dg(0,0,0)");
  test_for_zero(t3dg_1(0, 0, 1) + t3dg_2(0, 0, 1), "-T3dg(0,0,1)");
  test_for_zero(t3dg_1(0, 0, 2) + t3dg_2(0, 0, 2), "-T3dg(0,0,2)");
  test_for_zero(t3dg_1(0, 1, 0) + t3dg_2(0, 1, 0), "-T3dg(0,1,0)");
  test_for_zero(t3dg_1(0, 1, 1) + t3dg_2(0, 1, 1), "-T3dg(0,1,1)");
  test_for_zero(t3dg_1(0, 1, 2) + t3dg_2(0, 1, 2), "-T3dg(0,1,2)");
  test_for_zero(t3dg_1(0, 2, 0) + t3dg_2(0, 2, 0), "-T3dg(0,2,0)");
  test_for_zero(t3dg_1(0, 2, 1) + t3dg_2(0, 2, 1), "-T3dg(0,2,1)");
  test_for_zero(t3dg_1(0, 2, 2) + t3dg_2(0, 2, 2), "-T3dg(0,2,2)");
  test_for_zero(t3dg_1(1, 0, 0) + t3dg_2(1, 0, 0), "-T3dg(1,0,0)");
  test_for_zero(t3dg_1(1, 0, 1) + t3dg_2(1, 0, 1), "-T3dg(1,0,1)");
  test_for_zero(t3dg_1(1, 0, 2) + t3dg_2(1, 0, 2), "-T3dg(1,0,2)");
  test_for_zero(t3dg_1(1, 1, 0) + t3dg_2(1, 1, 0), "-T3dg(1,1,0)");
  test_for_zero(t3dg_1(1, 1, 1) + t3dg_2(1, 1, 1), "-T3dg(1,1,1)");
  test_for_zero(t3dg_1(1, 1, 2) + t3dg_2(1, 1, 2), "-T3dg(1,1,2)");
  test_for_zero(t3dg_1(1, 2, 0) + t3dg_2(1, 2, 0), "-T3dg(1,2,0)");
  test_for_zero(t3dg_1(1, 2, 1) + t3dg_2(1, 2, 1), "-T3dg(1,2,1)");
  test_for_zero(t3dg_1(1, 2, 2) + t3dg_2(1, 2, 2), "-T3dg(1,2,2)");
  test_for_zero(t3dg_1(2, 0, 0) + t3dg_2(2, 0, 0), "-T3dg(2,0,0)");
  test_for_zero(t3dg_1(2, 0, 1) + t3dg_2(2, 0, 1), "-T3dg(2,0,1)");
  test_for_zero(t3dg_1(2, 0, 2) + t3dg_2(2, 0, 2), "-T3dg(2,0,2)");
  test_for_zero(t3dg_1(2, 1, 0) + t3dg_2(2, 1, 0), "-T3dg(2,1,0)");
  test_for_zero(t3dg_1(2, 1, 1) + t3dg_2(2, 1, 1), "-T3dg(2,1,1)");
  test_for_zero(t3dg_1(2, 1, 2) + t3dg_2(2, 1, 2), "-T3dg(2,1,2)");
  test_for_zero(t3dg_1(2, 2, 0) + t3dg_2(2, 2, 0), "-T3dg(2,2,0)");
  test_for_zero(t3dg_1(2, 2, 1) + t3dg_2(2, 2, 1), "-T3dg(2,2,1)");
  test_for_zero(t3dg_1(2, 2, 2) + t3dg_2(2, 2, 2), "-T3dg(2,2,2)");
}

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.

{
  Index<'i', 3> i;
  Index<'j', 3> j;
  Index<'k', 3> k;
 
  Number<0> N0;
  Number<1> N1;
  Number<2> N2;
 
  /* Dg tests */
 
  t3dg_1(i, j, k) = (t3dg_2(i, j, k) & t1_2(k));
  test_for_zero(t3dg_1(0, 0, 0) - (t3dg_2(0, 0, 0) * t1_2(0)),
                "T3dg(i,j,k)&T1(k)(0,0,0)");
  test_for_zero(t3dg_1(0, 0, 1) - (t3dg_2(0, 0, 1) * t1_2(1)),
                "T3dg(i,j,k)&T1(k)(0,0,1)");
  test_for_zero(t3dg_1(0, 0, 2) - (t3dg_2(0, 0, 2) * t1_2(2)),
                "T3dg(i,j,k)&T1(k)(0,0,2)");
  test_for_zero(t3dg_1(0, 1, 0) - (t3dg_2(0, 1, 0) * t1_2(0)),
                "T3dg(i,j,k)&T1(k)(0,1,0)");
  test_for_zero(t3dg_1(0, 1, 1) - (t3dg_2(0, 1, 1) * t1_2(1)),
                "T3dg(i,j,k)&T1(k)(0,1,1)");
  test_for_zero(t3dg_1(0, 1, 2) - (t3dg_2(0, 1, 2) * t1_2(2)),
                "T3dg(i,j,k)&T1(k)(0,1,2)");
  test_for_zero(t3dg_1(0, 2, 0) - (t3dg_2(0, 2, 0) * t1_2(0)),
                "T3dg(i,j,k)&T1(k)(0,2,0)");
  test_for_zero(t3dg_1(0, 2, 1) - (t3dg_2(0, 2, 1) * t1_2(1)),
                "T3dg(i,j,k)&T1(k)(0,2,1)");
  test_for_zero(t3dg_1(0, 2, 2) - (t3dg_2(0, 2, 2) * t1_2(2)),
                "T3dg(i,j,k)&T1(k)(0,2,2)");
  test_for_zero(t3dg_1(1, 0, 0) - (t3dg_2(1, 0, 0) * t1_2(0)),
                "T3dg(i,j,k)&T1(k)(1,0,0)");
  test_for_zero(t3dg_1(1, 0, 1) - (t3dg_2(1, 0, 1) * t1_2(1)),
                "T3dg(i,j,k)&T1(k)(1,0,1)");
  test_for_zero(t3dg_1(1, 0, 2) - (t3dg_2(1, 0, 2) * t1_2(2)),
                "T3dg(i,j,k)&T1(k)(1,0,2)");
  test_for_zero(t3dg_1(1, 1, 0) - (t3dg_2(1, 1, 0) * t1_2(0)),
                "T3dg(i,j,k)&T1(k)(1,1,0)");
  test_for_zero(t3dg_1(1, 1, 1) - (t3dg_2(1, 1, 1) * t1_2(1)),
                "T3dg(i,j,k)&T1(k)(1,1,1)");
  test_for_zero(t3dg_1(1, 1, 2) - (t3dg_2(1, 1, 2) * t1_2(2)),
                "T3dg(i,j,k)&T1(k)(1,1,2)");
  test_for_zero(t3dg_1(1, 2, 0) - (t3dg_2(1, 2, 0) * t1_2(0)),
                "T3dg(i,j,k)&T1(k)(1,2,0)");
  test_for_zero(t3dg_1(1, 2, 1) - (t3dg_2(1, 2, 1) * t1_2(1)),
                "T3dg(i,j,k)&T1(k)(1,2,1)");
  test_for_zero(t3dg_1(1, 2, 2) - (t3dg_2(1, 2, 2) * t1_2(2)),
                "T3dg(i,j,k)&T1(k)(1,2,2)");
  test_for_zero(t3dg_1(2, 0, 0) - (t3dg_2(2, 0, 0) * t1_2(0)),
                "T3dg(i,j,k)&T1(k)(2,0,0)");
  test_for_zero(t3dg_1(2, 0, 1) - (t3dg_2(2, 0, 1) * t1_2(1)),
                "T3dg(i,j,k)&T1(k)(2,0,1)");
  test_for_zero(t3dg_1(2, 0, 2) - (t3dg_2(2, 0, 2) * t1_2(2)),
                "T3dg(i,j,k)&T1(k)(2,0,2)");
  test_for_zero(t3dg_1(2, 1, 0) - (t3dg_2(2, 1, 0) * t1_2(0)),
                "T3dg(i,j,k)&T1(k)(2,1,0)");
  test_for_zero(t3dg_1(2, 1, 1) - (t3dg_2(2, 1, 1) * t1_2(1)),
                "T3dg(i,j,k)&T1(k)(2,1,1)");
  test_for_zero(t3dg_1(2, 1, 2) - (t3dg_2(2, 1, 2) * t1_2(2)),
                "T3dg(i,j,k)&T1(k)(2,1,2)");
  test_for_zero(t3dg_1(2, 2, 0) - (t3dg_2(2, 2, 0) * t1_2(0)),
                "T3dg(i,j,k)&T1(k)(2,2,0)");
  test_for_zero(t3dg_1(2, 2, 1) - (t3dg_2(2, 2, 1) * t1_2(1)),
                "T3dg(i,j,k)&T1(k)(2,2,1)");
  test_for_zero(t3dg_1(2, 2, 2) - (t3dg_2(2, 2, 2) * t1_2(2)),
                "T3dg(i,j,k)&T1(k)(2,2,2)");
 
  t3dg_1(i, j, k) = (t1_2(k) & t3dg_3(i, j, k));
  test_for_zero(t3dg_1(0, 0, 0) - (t3dg_3(0, 0, 0) * t1_2(0)),
                "T1(k)&T3dg(i,j,k)(0,0,0)");
  test_for_zero(t3dg_1(0, 0, 1) - (t3dg_3(0, 0, 1) * t1_2(1)),
                "T1(k)&T3dg(i,j,k)(0,0,1)");
  test_for_zero(t3dg_1(0, 0, 2) - (t3dg_3(0, 0, 2) * t1_2(2)),
                "T1(k)&T3dg(i,j,k)(0,0,2)");
  test_for_zero(t3dg_1(0, 1, 0) - (t3dg_3(0, 1, 0) * t1_2(0)),
                "T1(k)&T3dg(i,j,k)(0,1,0)");
  test_for_zero(t3dg_1(0, 1, 1) - (t3dg_3(0, 1, 1) * t1_2(1)),
                "T1(k)&T3dg(i,j,k)(0,1,1)");
  test_for_zero(t3dg_1(0, 1, 2) - (t3dg_3(0, 1, 2) * t1_2(2)),
                "T1(k)&T3dg(i,j,k)(0,1,2)");
  test_for_zero(t3dg_1(0, 2, 0) - (t3dg_3(0, 2, 0) * t1_2(0)),
                "T1(k)&T3dg(i,j,k)(0,2,0)");
  test_for_zero(t3dg_1(0, 2, 1) - (t3dg_3(0, 2, 1) * t1_2(1)),
                "T1(k)&T3dg(i,j,k)(0,2,1)");
  test_for_zero(t3dg_1(0, 2, 2) - (t3dg_3(0, 2, 2) * t1_2(2)),
                "T1(k)&T3dg(i,j,k)(0,2,2)");
  test_for_zero(t3dg_1(1, 0, 0) - (t3dg_3(1, 0, 0) * t1_2(0)),
                "T1(k)&T3dg(i,j,k)(1,0,0)");
  test_for_zero(t3dg_1(1, 0, 1) - (t3dg_3(1, 0, 1) * t1_2(1)),
                "T1(k)&T3dg(i,j,k)(1,0,1)");
  test_for_zero(t3dg_1(1, 0, 2) - (t3dg_3(1, 0, 2) * t1_2(2)),
                "T1(k)&T3dg(i,j,k)(1,0,2)");
  test_for_zero(t3dg_1(1, 1, 0) - (t3dg_3(1, 1, 0) * t1_2(0)),
                "T1(k)&T3dg(i,j,k)(1,1,0)");
  test_for_zero(t3dg_1(1, 1, 1) - (t3dg_3(1, 1, 1) * t1_2(1)),
                "T1(k)&T3dg(i,j,k)(1,1,1)");
  test_for_zero(t3dg_1(1, 1, 2) - (t3dg_3(1, 1, 2) * t1_2(2)),
                "T1(k)&T3dg(i,j,k)(1,1,2)");
  test_for_zero(t3dg_1(1, 2, 0) - (t3dg_3(1, 2, 0) * t1_2(0)),
                "T1(k)&T3dg(i,j,k)(1,2,0)");
  test_for_zero(t3dg_1(1, 2, 1) - (t3dg_3(1, 2, 1) * t1_2(1)),
                "T1(k)&T3dg(i,j,k)(1,2,1)");
  test_for_zero(t3dg_1(1, 2, 2) - (t3dg_3(1, 2, 2) * t1_2(2)),
                "T1(k)&T3dg(i,j,k)(1,2,2)");
  test_for_zero(t3dg_1(2, 0, 0) - (t3dg_3(2, 0, 0) * t1_2(0)),
                "T1(k)&T3dg(i,j,k)(2,0,0)");
  test_for_zero(t3dg_1(2, 0, 1) - (t3dg_3(2, 0, 1) * t1_2(1)),
                "T1(k)&T3dg(i,j,k)(2,0,1)");
  test_for_zero(t3dg_1(2, 0, 2) - (t3dg_3(2, 0, 2) * t1_2(2)),
                "T1(k)&T3dg(i,j,k)(2,0,2)");
  test_for_zero(t3dg_1(2, 1, 0) - (t3dg_3(2, 1, 0) * t1_2(0)),
                "T1(k)&T3dg(i,j,k)(2,1,0)");
  test_for_zero(t3dg_1(2, 1, 1) - (t3dg_3(2, 1, 1) * t1_2(1)),
                "T1(k)&T3dg(i,j,k)(2,1,1)");
  test_for_zero(t3dg_1(2, 1, 2) - (t3dg_3(2, 1, 2) * t1_2(2)),
                "T1(k)&T3dg(i,j,k)(2,1,2)");
  test_for_zero(t3dg_1(2, 2, 0) - (t3dg_3(2, 2, 0) * t1_2(0)),
                "T1(k)&T3dg(i,j,k)(2,2,0)");
  test_for_zero(t3dg_1(2, 2, 1) - (t3dg_3(2, 2, 1) * t1_2(1)),
                "T1(k)&T3dg(i,j,k)(2,2,1)");
  test_for_zero(t3dg_1(2, 2, 2) - (t3dg_3(2, 2, 2) * t1_2(2)),
                "T1(k)&T3dg(i,j,k)(2,2,2)");
}

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.

{
  Index<'i', 3> i;
  Index<'j', 3> j;
  Index<'k', 3> k;
 
  Number<0> N0;
  Number<1> N1;
  Number<2> N2;
 
  /* Dg tests */
 
  t3dg_1(i, j, k) = t3dg_2(i, j, k) * 10;
  test_for_zero(t3dg_1(0, 0, 0) - t3dg_2(0, 0, 0) * 10, "T3dg*T(0,0,0)");
  test_for_zero(t3dg_1(0, 0, 1) - t3dg_2(0, 0, 1) * 10, "T3dg*T(0,0,1)");
  test_for_zero(t3dg_1(0, 0, 2) - t3dg_2(0, 0, 2) * 10, "T3dg*T(0,0,2)");
  test_for_zero(t3dg_1(0, 1, 0) - t3dg_2(0, 1, 0) * 10, "T3dg*T(0,1,0)");
  test_for_zero(t3dg_1(0, 1, 1) - t3dg_2(0, 1, 1) * 10, "T3dg*T(0,1,1)");
  test_for_zero(t3dg_1(0, 1, 2) - t3dg_2(0, 1, 2) * 10, "T3dg*T(0,1,2)");
  test_for_zero(t3dg_1(0, 2, 0) - t3dg_2(0, 2, 0) * 10, "T3dg*T(0,2,0)");
  test_for_zero(t3dg_1(0, 2, 1) - t3dg_2(0, 2, 1) * 10, "T3dg*T(0,2,1)");
  test_for_zero(t3dg_1(0, 2, 2) - t3dg_2(0, 2, 2) * 10, "T3dg*T(0,2,2)");
  test_for_zero(t3dg_1(1, 0, 0) - t3dg_2(1, 0, 0) * 10, "T3dg*T(1,0,0)");
  test_for_zero(t3dg_1(1, 0, 1) - t3dg_2(1, 0, 1) * 10, "T3dg*T(1,0,1)");
  test_for_zero(t3dg_1(1, 0, 2) - t3dg_2(1, 0, 2) * 10, "T3dg*T(1,0,2)");
  test_for_zero(t3dg_1(1, 1, 0) - t3dg_2(1, 1, 0) * 10, "T3dg*T(1,1,0)");
  test_for_zero(t3dg_1(1, 1, 1) - t3dg_2(1, 1, 1) * 10, "T3dg*T(1,1,1)");
  test_for_zero(t3dg_1(1, 1, 2) - t3dg_2(1, 1, 2) * 10, "T3dg*T(1,1,2)");
  test_for_zero(t3dg_1(1, 2, 0) - t3dg_2(1, 2, 0) * 10, "T3dg*T(1,2,0)");
  test_for_zero(t3dg_1(1, 2, 1) - t3dg_2(1, 2, 1) * 10, "T3dg*T(1,2,1)");
  test_for_zero(t3dg_1(1, 2, 2) - t3dg_2(1, 2, 2) * 10, "T3dg*T(1,2,2)");
  test_for_zero(t3dg_1(2, 0, 0) - t3dg_2(2, 0, 0) * 10, "T3dg*T(2,0,0)");
  test_for_zero(t3dg_1(2, 0, 1) - t3dg_2(2, 0, 1) * 10, "T3dg*T(2,0,1)");
  test_for_zero(t3dg_1(2, 0, 2) - t3dg_2(2, 0, 2) * 10, "T3dg*T(2,0,2)");
  test_for_zero(t3dg_1(2, 1, 0) - t3dg_2(2, 1, 0) * 10, "T3dg*T(2,1,0)");
  test_for_zero(t3dg_1(2, 1, 1) - t3dg_2(2, 1, 1) * 10, "T3dg*T(2,1,1)");
  test_for_zero(t3dg_1(2, 1, 2) - t3dg_2(2, 1, 2) * 10, "T3dg*T(2,1,2)");
  test_for_zero(t3dg_1(2, 2, 0) - t3dg_2(2, 2, 0) * 10, "T3dg*T(2,2,0)");
  test_for_zero(t3dg_1(2, 2, 1) - t3dg_2(2, 2, 1) * 10, "T3dg*T(2,2,1)");
  test_for_zero(t3dg_1(2, 2, 2) - t3dg_2(2, 2, 2) * 10, "T3dg*T(2,2,2)");
 
  t3dg_1(i, j, k) = t3dg_2(i, j, k) / 10;
  test_for_zero(t3dg_1(0, 0, 0) - t3dg_2(0, 0, 0) / 10, "T3dg/T(0,0,0)");
  test_for_zero(t3dg_1(0, 0, 1) - t3dg_2(0, 0, 1) / 10, "T3dg/T(0,0,1)");
  test_for_zero(t3dg_1(0, 0, 2) - t3dg_2(0, 0, 2) / 10, "T3dg/T(0,0,2)");
  test_for_zero(t3dg_1(0, 1, 0) - t3dg_2(0, 1, 0) / 10, "T3dg/T(0,1,0)");
  test_for_zero(t3dg_1(0, 1, 1) - t3dg_2(0, 1, 1) / 10, "T3dg/T(0,1,1)");
  test_for_zero(t3dg_1(0, 1, 2) - t3dg_2(0, 1, 2) / 10, "T3dg/T(0,1,2)");
  test_for_zero(t3dg_1(0, 2, 0) - t3dg_2(0, 2, 0) / 10, "T3dg/T(0,2,0)");
  test_for_zero(t3dg_1(0, 2, 1) - t3dg_2(0, 2, 1) / 10, "T3dg/T(0,2,1)");
  test_for_zero(t3dg_1(0, 2, 2) - t3dg_2(0, 2, 2) / 10, "T3dg/T(0,2,2)");
  test_for_zero(t3dg_1(1, 0, 0) - t3dg_2(1, 0, 0) / 10, "T3dg/T(1,0,0)");
  test_for_zero(t3dg_1(1, 0, 1) - t3dg_2(1, 0, 1) / 10, "T3dg/T(1,0,1)");
  test_for_zero(t3dg_1(1, 0, 2) - t3dg_2(1, 0, 2) / 10, "T3dg/T(1,0,2)");
  test_for_zero(t3dg_1(1, 1, 0) - t3dg_2(1, 1, 0) / 10, "T3dg/T(1,1,0)");
  test_for_zero(t3dg_1(1, 1, 1) - t3dg_2(1, 1, 1) / 10, "T3dg/T(1,1,1)");
  test_for_zero(t3dg_1(1, 1, 2) - t3dg_2(1, 1, 2) / 10, "T3dg/T(1,1,2)");
  test_for_zero(t3dg_1(1, 2, 0) - t3dg_2(1, 2, 0) / 10, "T3dg/T(1,2,0)");
  test_for_zero(t3dg_1(1, 2, 1) - t3dg_2(1, 2, 1) / 10, "T3dg/T(1,2,1)");
  test_for_zero(t3dg_1(1, 2, 2) - t3dg_2(1, 2, 2) / 10, "T3dg/T(1,2,2)");
  test_for_zero(t3dg_1(2, 0, 0) - t3dg_2(2, 0, 0) / 10, "T3dg/T(2,0,0)");
  test_for_zero(t3dg_1(2, 0, 1) - t3dg_2(2, 0, 1) / 10, "T3dg/T(2,0,1)");
  test_for_zero(t3dg_1(2, 0, 2) - t3dg_2(2, 0, 2) / 10, "T3dg/T(2,0,2)");
  test_for_zero(t3dg_1(2, 1, 0) - t3dg_2(2, 1, 0) / 10, "T3dg/T(2,1,0)");
  test_for_zero(t3dg_1(2, 1, 1) - t3dg_2(2, 1, 1) / 10, "T3dg/T(2,1,1)");
  test_for_zero(t3dg_1(2, 1, 2) - t3dg_2(2, 1, 2) / 10, "T3dg/T(2,1,2)");
  test_for_zero(t3dg_1(2, 2, 0) - t3dg_2(2, 2, 0) / 10, "T3dg/T(2,2,0)");
  test_for_zero(t3dg_1(2, 2, 1) - t3dg_2(2, 2, 1) / 10, "T3dg/T(2,2,1)");
  test_for_zero(t3dg_1(2, 2, 2) - t3dg_2(2, 2, 2) / 10, "T3dg/T(2,2,2)");
}

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.

{
  Index<'i', 3> i;
  Index<'j', 3> j;
  Index<'k', 3> k;
 
  Number<0> N0;
  Number<1> N1;
  Number<2> N2;
 
  /* Dg tests */
 
  t2s_1(i, j) = t3dg_2(i, j, k) * t1_2(k);
  test_for_zero(t2s_1(0, 0)
                  - (t3dg_2(0, 0, 0) * t1_2(0) + t3dg_2(0, 0, 1) * t1_2(1)
                     + t3dg_2(0, 0, 2) * t1_2(2)),
                "T3dg(i,j,k)*T1(k)(0,0)");
  test_for_zero(t2s_1(0, 1)
                  - (t3dg_2(0, 1, 0) * t1_2(0) + t3dg_2(0, 1, 1) * t1_2(1)
                     + t3dg_2(0, 1, 2) * t1_2(2)),
                "T3dg(i,j,k)*T1(k)(0,1)");
  test_for_zero(t2s_1(0, 2)
                  - (t3dg_2(0, 2, 0) * t1_2(0) + t3dg_2(0, 2, 1) * t1_2(1)
                     + t3dg_2(0, 2, 2) * t1_2(2)),
                "T3dg(i,j,k)*T1(k)(0,2)");
  test_for_zero(t2s_1(1, 0)
                  - (t3dg_2(1, 0, 0) * t1_2(0) + t3dg_2(1, 0, 1) * t1_2(1)
                     + t3dg_2(1, 0, 2) * t1_2(2)),
                "T3dg(i,j,k)*T1(k)(1,0)");
  test_for_zero(t2s_1(1, 1)
                  - (t3dg_2(1, 1, 0) * t1_2(0) + t3dg_2(1, 1, 1) * t1_2(1)
                     + t3dg_2(1, 1, 2) * t1_2(2)),
                "T3dg(i,j,k)*T1(k)(1,1)");
  test_for_zero(t2s_1(1, 2)
                  - (t3dg_2(1, 2, 0) * t1_2(0) + t3dg_2(1, 2, 1) * t1_2(1)
                     + t3dg_2(1, 2, 2) * t1_2(2)),
                "T3dg(i,j,k)*T1(k)(1,2)");
  test_for_zero(t2s_1(2, 0)
                  - (t3dg_2(2, 0, 0) * t1_2(0) + t3dg_2(2, 0, 1) * t1_2(1)
                     + t3dg_2(2, 0, 2) * t1_2(2)),
                "T3dg(i,j,k)*T1(k)(2,0)");
  test_for_zero(t2s_1(2, 1)
                  - (t3dg_2(2, 1, 0) * t1_2(0) + t3dg_2(2, 1, 1) * t1_2(1)
                     + t3dg_2(2, 1, 2) * t1_2(2)),
                "T3dg(i,j,k)*T1(k)(2,1)");
  test_for_zero(t2s_1(2, 2)
                  - (t3dg_2(2, 2, 0) * t1_2(0) + t3dg_2(2, 2, 1) * t1_2(1)
                     + t3dg_2(2, 2, 2) * t1_2(2)),
                "T3dg(i,j,k)*T1(k)(2,2)");
 
  t2s_1(i, j) = t1_2(k) * t3dg_3(i, j, k);
  test_for_zero(t2s_1(0, 0)
                  - (t3dg_3(0, 0, 0) * t1_2(0) + t3dg_3(0, 0, 1) * t1_2(1)
                     + t3dg_3(0, 0, 2) * t1_2(2)),
                "T1(k)*T3dg(i,j,k)(0,0)");
  test_for_zero(t2s_1(0, 1)
                  - (t3dg_3(0, 1, 0) * t1_2(0) + t3dg_3(0, 1, 1) * t1_2(1)
                     + t3dg_3(0, 1, 2) * t1_2(2)),
                "T1(k)*T3dg(i,j,k)(0,1)");
  test_for_zero(t2s_1(0, 2)
                  - (t3dg_3(0, 2, 0) * t1_2(0) + t3dg_3(0, 2, 1) * t1_2(1)
                     + t3dg_3(0, 2, 2) * t1_2(2)),
                "T1(k)*T3dg(i,j,k)(0,2)");
  test_for_zero(t2s_1(1, 0)
                  - (t3dg_3(1, 0, 0) * t1_2(0) + t3dg_3(1, 0, 1) * t1_2(1)
                     + t3dg_3(1, 0, 2) * t1_2(2)),
                "T1(k)*T3dg(i,j,k)(1,0)");
  test_for_zero(t2s_1(1, 1)
                  - (t3dg_3(1, 1, 0) * t1_2(0) + t3dg_3(1, 1, 1) * t1_2(1)
                     + t3dg_3(1, 1, 2) * t1_2(2)),
                "T1(k)*T3dg(i,j,k)(1,1)");
  test_for_zero(t2s_1(1, 2)
                  - (t3dg_3(1, 2, 0) * t1_2(0) + t3dg_3(1, 2, 1) * t1_2(1)
                     + t3dg_3(1, 2, 2) * t1_2(2)),
                "T1(k)*T3dg(i,j,k)(1,2)");
  test_for_zero(t2s_1(2, 0)
                  - (t3dg_3(2, 0, 0) * t1_2(0) + t3dg_3(2, 0, 1) * t1_2(1)
                     + t3dg_3(2, 0, 2) * t1_2(2)),
                "T1(k)*T3dg(i,j,k)(2,0)");
  test_for_zero(t2s_1(2, 1)
                  - (t3dg_3(2, 1, 0) * t1_2(0) + t3dg_3(2, 1, 1) * t1_2(1)
                     + t3dg_3(2, 1, 2) * t1_2(2)),
                "T1(k)*T3dg(i,j,k)(2,1)");
  test_for_zero(t2s_1(2, 2)
                  - (t3dg_3(2, 2, 0) * t1_2(0) + t3dg_3(2, 2, 1) * t1_2(1)
                     + t3dg_3(2, 2, 2) * t1_2(2)),
                "T1(k)*T3dg(i,j,k)(2,2)");
}

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.

{
  Index<'i', 3> i;
  Index<'j', 3> j;
  Index<'k', 3> k;
 
  Number<0> N0;
  Number<1> N1;
  Number<2> N2;
 
  /* Dg tests */
 
  t2_1(i, j) = t3dg_2(i, k, j) * t1_2(k);
  test_for_zero(t2_1(0, 0)
                  - (t3dg_2(0, 0, 0) * t1_2(0) + t3dg_2(0, 1, 0) * t1_2(1)
                     + t3dg_2(0, 2, 0) * t1_2(2)),
                "T3dg(i,k,j)*T1(k)(0,0)");
  test_for_zero(t2_1(0, 1)
                  - (t3dg_2(0, 0, 1) * t1_2(0) + t3dg_2(0, 1, 1) * t1_2(1)
                     + t3dg_2(0, 2, 1) * t1_2(2)),
                "T3dg(i,k,j)*T1(k)(0,1)");
  test_for_zero(t2_1(0, 2)
                  - (t3dg_2(0, 0, 2) * t1_2(0) + t3dg_2(0, 1, 2) * t1_2(1)
                     + t3dg_2(0, 2, 2) * t1_2(2)),
                "T3dg(i,k,j)*T1(k)(0,2)");
  test_for_zero(t2_1(1, 0)
                  - (t3dg_2(1, 0, 0) * t1_2(0) + t3dg_2(1, 1, 0) * t1_2(1)
                     + t3dg_2(1, 2, 0) * t1_2(2)),
                "T3dg(i,k,j)*T1(k)(1,0)");
  test_for_zero(t2_1(1, 1)
                  - (t3dg_2(1, 0, 1) * t1_2(0) + t3dg_2(1, 1, 1) * t1_2(1)
                     + t3dg_2(1, 2, 1) * t1_2(2)),
                "T3dg(i,k,j)*T1(k)(1,1)");
  test_for_zero(t2_1(1, 2)
                  - (t3dg_2(1, 0, 2) * t1_2(0) + t3dg_2(1, 1, 2) * t1_2(1)
                     + t3dg_2(1, 2, 2) * t1_2(2)),
                "T3dg(i,k,j)*T1(k)(1,2)");
  test_for_zero(t2_1(2, 0)
                  - (t3dg_2(2, 0, 0) * t1_2(0) + t3dg_2(2, 1, 0) * t1_2(1)
                     + t3dg_2(2, 2, 0) * t1_2(2)),
                "T3dg(i,k,j)*T1(k)(2,0)");
  test_for_zero(t2_1(2, 1)
                  - (t3dg_2(2, 0, 1) * t1_2(0) + t3dg_2(2, 1, 1) * t1_2(1)
                     + t3dg_2(2, 2, 1) * t1_2(2)),
                "T3dg(i,k,j)*T1(k)(2,1)");
  test_for_zero(t2_1(2, 2)
                  - (t3dg_2(2, 0, 2) * t1_2(0) + t3dg_2(2, 1, 2) * t1_2(1)
                     + t3dg_2(2, 2, 2) * t1_2(2)),
                "T3dg(i,k,j)*T1(k)(2,2)");
 
  t2_1(i, j) = t1_2(k) * t3dg_3(i, k, j);
  test_for_zero(t2_1(0, 0)
                  - (t3dg_3(0, 0, 0) * t1_2(0) + t3dg_3(0, 1, 0) * t1_2(1)
                     + t3dg_3(0, 2, 0) * t1_2(2)),
                "T1(k)*T3dg(i,k,j)(0,0)");
  test_for_zero(t2_1(0, 1)
                  - (t3dg_3(0, 0, 1) * t1_2(0) + t3dg_3(0, 1, 1) * t1_2(1)
                     + t3dg_3(0, 2, 1) * t1_2(2)),
                "T1(k)*T3dg(i,k,j)(0,1)");
  test_for_zero(t2_1(0, 2)
                  - (t3dg_3(0, 0, 2) * t1_2(0) + t3dg_3(0, 1, 2) * t1_2(1)
                     + t3dg_3(0, 2, 2) * t1_2(2)),
                "T1(k)*T3dg(i,k,j)(0,2)");
  test_for_zero(t2_1(1, 0)
                  - (t3dg_3(1, 0, 0) * t1_2(0) + t3dg_3(1, 1, 0) * t1_2(1)
                     + t3dg_3(1, 2, 0) * t1_2(2)),
                "T1(k)*T3dg(i,k,j)(1,0)");
  test_for_zero(t2_1(1, 1)
                  - (t3dg_3(1, 0, 1) * t1_2(0) + t3dg_3(1, 1, 1) * t1_2(1)
                     + t3dg_3(1, 2, 1) * t1_2(2)),
                "T1(k)*T3dg(i,k,j)(1,1)");
  test_for_zero(t2_1(1, 2)
                  - (t3dg_3(1, 0, 2) * t1_2(0) + t3dg_3(1, 1, 2) * t1_2(1)
                     + t3dg_3(1, 2, 2) * t1_2(2)),
                "T1(k)*T3dg(i,k,j)(1,2)");
  test_for_zero(t2_1(2, 0)
                  - (t3dg_3(2, 0, 0) * t1_2(0) + t3dg_3(2, 1, 0) * t1_2(1)
                     + t3dg_3(2, 2, 0) * t1_2(2)),
                "T1(k)*T3dg(i,k,j)(2,0)");
  test_for_zero(t2_1(2, 1)
                  - (t3dg_3(2, 0, 1) * t1_2(0) + t3dg_3(2, 1, 1) * t1_2(1)
                     + t3dg_3(2, 2, 1) * t1_2(2)),
                "T1(k)*T3dg(i,k,j)(2,1)");
  test_for_zero(t2_1(2, 2)
                  - (t3dg_3(2, 0, 2) * t1_2(0) + t3dg_3(2, 1, 2) * t1_2(1)
                     + t3dg_3(2, 2, 2) * t1_2(2)),
                "T1(k)*T3dg(i,k,j)(2,2)");
}

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.

{
  Index<'i', 3> i;
  Index<'j', 3> j;
  Index<'k', 3> k;
 
  Number<0> N0;
  Number<1> N1;
  Number<2> N2;
 
  /* Dg tests */
 
  t2_1(i, j) = t3dg_2(k, i, j) * t1_2(k);
  test_for_zero(t2_1(0, 0)
                  - (t3dg_2(0, 0, 0) * t1_2(0) + t3dg_2(1, 0, 0) * t1_2(1)
                     + t3dg_2(2, 0, 0) * t1_2(2)),
                "T3dg(k,i,j)*T1(k)(0,0)");
  test_for_zero(t2_1(0, 1)
                  - (t3dg_2(0, 0, 1) * t1_2(0) + t3dg_2(1, 0, 1) * t1_2(1)
                     + t3dg_2(2, 0, 1) * t1_2(2)),
                "T3dg(k,i,j)*T1(k)(0,1)");
  test_for_zero(t2_1(0, 2)
                  - (t3dg_2(0, 0, 2) * t1_2(0) + t3dg_2(1, 0, 2) * t1_2(1)
                     + t3dg_2(2, 0, 2) * t1_2(2)),
                "T3dg(k,i,j)*T1(k)(0,2)");
  test_for_zero(t2_1(1, 0)
                  - (t3dg_2(0, 1, 0) * t1_2(0) + t3dg_2(1, 1, 0) * t1_2(1)
                     + t3dg_2(2, 1, 0) * t1_2(2)),
                "T3dg(k,i,j)*T1(k)(1,0)");
  test_for_zero(t2_1(1, 1)
                  - (t3dg_2(0, 1, 1) * t1_2(0) + t3dg_2(1, 1, 1) * t1_2(1)
                     + t3dg_2(2, 1, 1) * t1_2(2)),
                "T3dg(k,i,j)*T1(k)(1,1)");
  test_for_zero(t2_1(1, 2)
                  - (t3dg_2(0, 1, 2) * t1_2(0) + t3dg_2(1, 1, 2) * t1_2(1)
                     + t3dg_2(2, 1, 2) * t1_2(2)),
                "T3dg(k,i,j)*T1(k)(1,2)");
  test_for_zero(t2_1(2, 0)
                  - (t3dg_2(0, 2, 0) * t1_2(0) + t3dg_2(1, 2, 0) * t1_2(1)
                     + t3dg_2(2, 2, 0) * t1_2(2)),
                "T3dg(k,i,j)*T1(k)(2,0)");
  test_for_zero(t2_1(2, 1)
                  - (t3dg_2(0, 2, 1) * t1_2(0) + t3dg_2(1, 2, 1) * t1_2(1)
                     + t3dg_2(2, 2, 1) * t1_2(2)),
                "T3dg(k,i,j)*T1(k)(2,1)");
  test_for_zero(t2_1(2, 2)
                  - (t3dg_2(0, 2, 2) * t1_2(0) + t3dg_2(1, 2, 2) * t1_2(1)
                     + t3dg_2(2, 2, 2) * t1_2(2)),
                "T3dg(k,i,j)*T1(k)(2,2)");
 
  t2_1(i, j) = t1_2(k) * t3dg_3(k, i, j);
  test_for_zero(t2_1(0, 0)
                  - (t3dg_3(0, 0, 0) * t1_2(0) + t3dg_3(1, 0, 0) * t1_2(1)
                     + t3dg_3(2, 0, 0) * t1_2(2)),
                "T1(k)*T3dg(k,i,j)(0,0)");
  test_for_zero(t2_1(0, 1)
                  - (t3dg_3(0, 0, 1) * t1_2(0) + t3dg_3(1, 0, 1) * t1_2(1)
                     + t3dg_3(2, 0, 1) * t1_2(2)),
                "T1(k)*T3dg(k,i,j)(0,1)");
  test_for_zero(t2_1(0, 2)
                  - (t3dg_3(0, 0, 2) * t1_2(0) + t3dg_3(1, 0, 2) * t1_2(1)
                     + t3dg_3(2, 0, 2) * t1_2(2)),
                "T1(k)*T3dg(k,i,j)(0,2)");
  test_for_zero(t2_1(1, 0)
                  - (t3dg_3(0, 1, 0) * t1_2(0) + t3dg_3(1, 1, 0) * t1_2(1)
                     + t3dg_3(2, 1, 0) * t1_2(2)),
                "T1(k)*T3dg(k,i,j)(1,0)");
  test_for_zero(t2_1(1, 1)
                  - (t3dg_3(0, 1, 1) * t1_2(0) + t3dg_3(1, 1, 1) * t1_2(1)
                     + t3dg_3(2, 1, 1) * t1_2(2)),
                "T1(k)*T3dg(k,i,j)(1,1)");
  test_for_zero(t2_1(1, 2)
                  - (t3dg_3(0, 1, 2) * t1_2(0) + t3dg_3(1, 1, 2) * t1_2(1)
                     + t3dg_3(2, 1, 2) * t1_2(2)),
                "T1(k)*T3dg(k,i,j)(1,2)");
  test_for_zero(t2_1(2, 0)
                  - (t3dg_3(0, 2, 0) * t1_2(0) + t3dg_3(1, 2, 0) * t1_2(1)
                     + t3dg_3(2, 2, 0) * t1_2(2)),
                "T1(k)*T3dg(k,i,j)(2,0)");
  test_for_zero(t2_1(2, 1)
                  - (t3dg_3(0, 2, 1) * t1_2(0) + t3dg_3(1, 2, 1) * t1_2(1)
                     + t3dg_3(2, 2, 1) * t1_2(2)),
                "T1(k)*T3dg(k,i,j)(2,1)");
  test_for_zero(t2_1(2, 2)
                  - (t3dg_3(0, 2, 2) * t1_2(0) + t3dg_3(1, 2, 2) * t1_2(1)
                     + t3dg_3(2, 2, 2) * t1_2(2)),
                "T1(k)*T3dg(k,i,j)(2,2)");
}

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.

{
  Index<'i', 3> i;
  Index<'j', 3> j;
  Index<'k', 3> k;
  Index<'l', 3> l;
 
  Number<0> N0;
  Number<1> N1;
  Number<2> N2;
 
  /* Dg tests */
 
  t3dg_1(i, j, k) = t3dg_2(i, j, l) * t2_2(l, k);
  test_for_zero(t3dg_1(0, 0, 0)
                  - (t3dg_2(0, 0, 0) * t2_2(0, 0)
                     + t3dg_2(0, 0, 1) * t2_2(1, 0)
                     + t3dg_2(0, 0, 2) * t2_2(2, 0)),
                "T3dg(i,j,l)*T2(l,k)(0,0,0)");
  test_for_zero(t3dg_1(0, 0, 1)
                  - (t3dg_2(0, 0, 0) * t2_2(0, 1)
                     + t3dg_2(0, 0, 1) * t2_2(1, 1)
                     + t3dg_2(0, 0, 2) * t2_2(2, 1)),
                "T3dg(i,j,l)*T2(l,k)(0,0,1)");
  test_for_zero(t3dg_1(0, 0, 2)
                  - (t3dg_2(0, 0, 0) * t2_2(0, 2)
                     + t3dg_2(0, 0, 1) * t2_2(1, 2)
                     + t3dg_2(0, 0, 2) * t2_2(2, 2)),
                "T3dg(i,j,l)*T2(l,k)(0,0,2)");
  test_for_zero(t3dg_1(0, 1, 0)
                  - (t3dg_2(0, 1, 0) * t2_2(0, 0)
                     + t3dg_2(0, 1, 1) * t2_2(1, 0)
                     + t3dg_2(0, 1, 2) * t2_2(2, 0)),
                "T3dg(i,j,l)*T2(l,k)(0,1,0)");
  test_for_zero(t3dg_1(0, 1, 1)
                  - (t3dg_2(0, 1, 0) * t2_2(0, 1)
                     + t3dg_2(0, 1, 1) * t2_2(1, 1)
                     + t3dg_2(0, 1, 2) * t2_2(2, 1)),
                "T3dg(i,j,l)*T2(l,k)(0,1,1)");
  test_for_zero(t3dg_1(0, 1, 2)
                  - (t3dg_2(0, 1, 0) * t2_2(0, 2)
                     + t3dg_2(0, 1, 1) * t2_2(1, 2)
                     + t3dg_2(0, 1, 2) * t2_2(2, 2)),
                "T3dg(i,j,l)*T2(l,k)(0,1,2)");
  test_for_zero(t3dg_1(0, 2, 0)
                  - (t3dg_2(0, 2, 0) * t2_2(0, 0)
                     + t3dg_2(0, 2, 1) * t2_2(1, 0)
                     + t3dg_2(0, 2, 2) * t2_2(2, 0)),
                "T3dg(i,j,l)*T2(l,k)(0,2,0)");
  test_for_zero(t3dg_1(0, 2, 1)
                  - (t3dg_2(0, 2, 0) * t2_2(0, 1)
                     + t3dg_2(0, 2, 1) * t2_2(1, 1)
                     + t3dg_2(0, 2, 2) * t2_2(2, 1)),
                "T3dg(i,j,l)*T2(l,k)(0,2,1)");
  test_for_zero(t3dg_1(0, 2, 2)
                  - (t3dg_2(0, 2, 0) * t2_2(0, 2)
                     + t3dg_2(0, 2, 1) * t2_2(1, 2)
                     + t3dg_2(0, 2, 2) * t2_2(2, 2)),
                "T3dg(i,j,l)*T2(l,k)(0,2,2)");
  test_for_zero(t3dg_1(1, 0, 0)
                  - (t3dg_2(1, 0, 0) * t2_2(0, 0)
                     + t3dg_2(1, 0, 1) * t2_2(1, 0)
                     + t3dg_2(1, 0, 2) * t2_2(2, 0)),
                "T3dg(i,j,l)*T2(l,k)(1,0,0)");
  test_for_zero(t3dg_1(1, 0, 1)
                  - (t3dg_2(1, 0, 0) * t2_2(0, 1)
                     + t3dg_2(1, 0, 1) * t2_2(1, 1)
                     + t3dg_2(1, 0, 2) * t2_2(2, 1)),
                "T3dg(i,j,l)*T2(l,k)(1,0,1)");
  test_for_zero(t3dg_1(1, 0, 2)
                  - (t3dg_2(1, 0, 0) * t2_2(0, 2)
                     + t3dg_2(1, 0, 1) * t2_2(1, 2)
                     + t3dg_2(1, 0, 2) * t2_2(2, 2)),
                "T3dg(i,j,l)*T2(l,k)(1,0,2)");
  test_for_zero(t3dg_1(1, 1, 0)
                  - (t3dg_2(1, 1, 0) * t2_2(0, 0)
                     + t3dg_2(1, 1, 1) * t2_2(1, 0)
                     + t3dg_2(1, 1, 2) * t2_2(2, 0)),
                "T3dg(i,j,l)*T2(l,k)(1,1,0)");
  test_for_zero(t3dg_1(1, 1, 1)
                  - (t3dg_2(1, 1, 0) * t2_2(0, 1)
                     + t3dg_2(1, 1, 1) * t2_2(1, 1)
                     + t3dg_2(1, 1, 2) * t2_2(2, 1)),
                "T3dg(i,j,l)*T2(l,k)(1,1,1)");
  test_for_zero(t3dg_1(1, 1, 2)
                  - (t3dg_2(1, 1, 0) * t2_2(0, 2)
                     + t3dg_2(1, 1, 1) * t2_2(1, 2)
                     + t3dg_2(1, 1, 2) * t2_2(2, 2)),
                "T3dg(i,j,l)*T2(l,k)(1,1,2)");
  test_for_zero(t3dg_1(1, 2, 0)
                  - (t3dg_2(1, 2, 0) * t2_2(0, 0)
                     + t3dg_2(1, 2, 1) * t2_2(1, 0)
                     + t3dg_2(1, 2, 2) * t2_2(2, 0)),
                "T3dg(i,j,l)*T2(l,k)(1,2,0)");
  test_for_zero(t3dg_1(1, 2, 1)
                  - (t3dg_2(1, 2, 0) * t2_2(0, 1)
                     + t3dg_2(1, 2, 1) * t2_2(1, 1)
                     + t3dg_2(1, 2, 2) * t2_2(2, 1)),
                "T3dg(i,j,l)*T2(l,k)(1,2,1)");
  test_for_zero(t3dg_1(1, 2, 2)
                  - (t3dg_2(1, 2, 0) * t2_2(0, 2)
                     + t3dg_2(1, 2, 1) * t2_2(1, 2)
                     + t3dg_2(1, 2, 2) * t2_2(2, 2)),
                "T3dg(i,j,l)*T2(l,k)(1,2,2)");
  test_for_zero(t3dg_1(2, 0, 0)
                  - (t3dg_2(2, 0, 0) * t2_2(0, 0)
                     + t3dg_2(2, 0, 1) * t2_2(1, 0)
                     + t3dg_2(2, 0, 2) * t2_2(2, 0)),
                "T3dg(i,j,l)*T2(l,k)(2,0,0)");
  test_for_zero(t3dg_1(2, 0, 1)
                  - (t3dg_2(2, 0, 0) * t2_2(0, 1)
                     + t3dg_2(2, 0, 1) * t2_2(1, 1)
                     + t3dg_2(2, 0, 2) * t2_2(2, 1)),
                "T3dg(i,j,l)*T2(l,k)(2,0,1)");
  test_for_zero(t3dg_1(2, 0, 2)
                  - (t3dg_2(2, 0, 0) * t2_2(0, 2)
                     + t3dg_2(2, 0, 1) * t2_2(1, 2)
                     + t3dg_2(2, 0, 2) * t2_2(2, 2)),
                "T3dg(i,j,l)*T2(l,k)(2,0,2)");
  test_for_zero(t3dg_1(2, 1, 0)
                  - (t3dg_2(2, 1, 0) * t2_2(0, 0)
                     + t3dg_2(2, 1, 1) * t2_2(1, 0)
                     + t3dg_2(2, 1, 2) * t2_2(2, 0)),
                "T3dg(i,j,l)*T2(l,k)(2,1,0)");
  test_for_zero(t3dg_1(2, 1, 1)
                  - (t3dg_2(2, 1, 0) * t2_2(0, 1)
                     + t3dg_2(2, 1, 1) * t2_2(1, 1)
                     + t3dg_2(2, 1, 2) * t2_2(2, 1)),
                "T3dg(i,j,l)*T2(l,k)(2,1,1)");
  test_for_zero(t3dg_1(2, 1, 2)
                  - (t3dg_2(2, 1, 0) * t2_2(0, 2)
                     + t3dg_2(2, 1, 1) * t2_2(1, 2)
                     + t3dg_2(2, 1, 2) * t2_2(2, 2)),
                "T3dg(i,j,l)*T2(l,k)(2,1,2)");
  test_for_zero(t3dg_1(2, 2, 0)
                  - (t3dg_2(2, 2, 0) * t2_2(0, 0)
                     + t3dg_2(2, 2, 1) * t2_2(1, 0)
                     + t3dg_2(2, 2, 2) * t2_2(2, 0)),
                "T3dg(i,j,l)*T2(l,k)(2,2,0)");
  test_for_zero(t3dg_1(2, 2, 1)
                  - (t3dg_2(2, 2, 0) * t2_2(0, 1)
                     + t3dg_2(2, 2, 1) * t2_2(1, 1)
                     + t3dg_2(2, 2, 2) * t2_2(2, 1)),
                "T3dg(i,j,l)*T2(l,k)(2,2,1)");
  test_for_zero(t3dg_1(2, 2, 2)
                  - (t3dg_2(2, 2, 0) * t2_2(0, 2)
                     + t3dg_2(2, 2, 1) * t2_2(1, 2)
                     + t3dg_2(2, 2, 2) * t2_2(2, 2)),
                "T3dg(i,j,l)*T2(l,k)(2,2,2)");
 
  t3dg_1(i, j, k) = t2_2(l, k) * t3dg_3(i, j, l);
  test_for_zero(t3dg_1(0, 0, 0)
                  - (t3dg_3(0, 0, 0) * t2_2(0, 0)
                     + t3dg_3(0, 0, 1) * t2_2(1, 0)
                     + t3dg_3(0, 0, 2) * t2_2(2, 0)),
                "T2(l,k)*T3dg(i,j,l)(0,0,0)");
  test_for_zero(t3dg_1(0, 0, 1)
                  - (t3dg_3(0, 0, 0) * t2_2(0, 1)
                     + t3dg_3(0, 0, 1) * t2_2(1, 1)
                     + t3dg_3(0, 0, 2) * t2_2(2, 1)),
                "T2(l,k)*T3dg(i,j,l)(0,0,1)");
  test_for_zero(t3dg_1(0, 0, 2)
                  - (t3dg_3(0, 0, 0) * t2_2(0, 2)
                     + t3dg_3(0, 0, 1) * t2_2(1, 2)
                     + t3dg_3(0, 0, 2) * t2_2(2, 2)),
                "T2(l,k)*T3dg(i,j,l)(0,0,2)");
  test_for_zero(t3dg_1(0, 1, 0)
                  - (t3dg_3(0, 1, 0) * t2_2(0, 0)
                     + t3dg_3(0, 1, 1) * t2_2(1, 0)
                     + t3dg_3(0, 1, 2) * t2_2(2, 0)),
                "T2(l,k)*T3dg(i,j,l)(0,1,0)");
  test_for_zero(t3dg_1(0, 1, 1)
                  - (t3dg_3(0, 1, 0) * t2_2(0, 1)
                     + t3dg_3(0, 1, 1) * t2_2(1, 1)
                     + t3dg_3(0, 1, 2) * t2_2(2, 1)),
                "T2(l,k)*T3dg(i,j,l)(0,1,1)");
  test_for_zero(t3dg_1(0, 1, 2)
                  - (t3dg_3(0, 1, 0) * t2_2(0, 2)
                     + t3dg_3(0, 1, 1) * t2_2(1, 2)
                     + t3dg_3(0, 1, 2) * t2_2(2, 2)),
                "T2(l,k)*T3dg(i,j,l)(0,1,2)");
  test_for_zero(t3dg_1(0, 2, 0)
                  - (t3dg_3(0, 2, 0) * t2_2(0, 0)
                     + t3dg_3(0, 2, 1) * t2_2(1, 0)
                     + t3dg_3(0, 2, 2) * t2_2(2, 0)),
                "T2(l,k)*T3dg(i,j,l)(0,2,0)");
  test_for_zero(t3dg_1(0, 2, 1)
                  - (t3dg_3(0, 2, 0) * t2_2(0, 1)
                     + t3dg_3(0, 2, 1) * t2_2(1, 1)
                     + t3dg_3(0, 2, 2) * t2_2(2, 1)),
                "T2(l,k)*T3dg(i,j,l)(0,2,1)");
  test_for_zero(t3dg_1(0, 2, 2)
                  - (t3dg_3(0, 2, 0) * t2_2(0, 2)
                     + t3dg_3(0, 2, 1) * t2_2(1, 2)
                     + t3dg_3(0, 2, 2) * t2_2(2, 2)),
                "T2(l,k)*T3dg(i,j,l)(0,2,2)");
  test_for_zero(t3dg_1(1, 0, 0)
                  - (t3dg_3(1, 0, 0) * t2_2(0, 0)
                     + t3dg_3(1, 0, 1) * t2_2(1, 0)
                     + t3dg_3(1, 0, 2) * t2_2(2, 0)),
                "T2(l,k)*T3dg(i,j,l)(1,0,0)");
  test_for_zero(t3dg_1(1, 0, 1)
                  - (t3dg_3(1, 0, 0) * t2_2(0, 1)
                     + t3dg_3(1, 0, 1) * t2_2(1, 1)
                     + t3dg_3(1, 0, 2) * t2_2(2, 1)),
                "T2(l,k)*T3dg(i,j,l)(1,0,1)");
  test_for_zero(t3dg_1(1, 0, 2)
                  - (t3dg_3(1, 0, 0) * t2_2(0, 2)
                     + t3dg_3(1, 0, 1) * t2_2(1, 2)
                     + t3dg_3(1, 0, 2) * t2_2(2, 2)),
                "T2(l,k)*T3dg(i,j,l)(1,0,2)");
  test_for_zero(t3dg_1(1, 1, 0)
                  - (t3dg_3(1, 1, 0) * t2_2(0, 0)
                     + t3dg_3(1, 1, 1) * t2_2(1, 0)
                     + t3dg_3(1, 1, 2) * t2_2(2, 0)),
                "T2(l,k)*T3dg(i,j,l)(1,1,0)");
  test_for_zero(t3dg_1(1, 1, 1)
                  - (t3dg_3(1, 1, 0) * t2_2(0, 1)
                     + t3dg_3(1, 1, 1) * t2_2(1, 1)
                     + t3dg_3(1, 1, 2) * t2_2(2, 1)),
                "T2(l,k)*T3dg(i,j,l)(1,1,1)");
  test_for_zero(t3dg_1(1, 1, 2)
                  - (t3dg_3(1, 1, 0) * t2_2(0, 2)
                     + t3dg_3(1, 1, 1) * t2_2(1, 2)
                     + t3dg_3(1, 1, 2) * t2_2(2, 2)),
                "T2(l,k)*T3dg(i,j,l)(1,1,2)");
  test_for_zero(t3dg_1(1, 2, 0)
                  - (t3dg_3(1, 2, 0) * t2_2(0, 0)
                     + t3dg_3(1, 2, 1) * t2_2(1, 0)
                     + t3dg_3(1, 2, 2) * t2_2(2, 0)),
                "T2(l,k)*T3dg(i,j,l)(1,2,0)");
  test_for_zero(t3dg_1(1, 2, 1)
                  - (t3dg_3(1, 2, 0) * t2_2(0, 1)
                     + t3dg_3(1, 2, 1) * t2_2(1, 1)
                     + t3dg_3(1, 2, 2) * t2_2(2, 1)),
                "T2(l,k)*T3dg(i,j,l)(1,2,1)");
  test_for_zero(t3dg_1(1, 2, 2)
                  - (t3dg_3(1, 2, 0) * t2_2(0, 2)
                     + t3dg_3(1, 2, 1) * t2_2(1, 2)
                     + t3dg_3(1, 2, 2) * t2_2(2, 2)),
                "T2(l,k)*T3dg(i,j,l)(1,2,2)");
  test_for_zero(t3dg_1(2, 0, 0)
                  - (t3dg_3(2, 0, 0) * t2_2(0, 0)
                     + t3dg_3(2, 0, 1) * t2_2(1, 0)
                     + t3dg_3(2, 0, 2) * t2_2(2, 0)),
                "T2(l,k)*T3dg(i,j,l)(2,0,0)");
  test_for_zero(t3dg_1(2, 0, 1)
                  - (t3dg_3(2, 0, 0) * t2_2(0, 1)
                     + t3dg_3(2, 0, 1) * t2_2(1, 1)
                     + t3dg_3(2, 0, 2) * t2_2(2, 1)),
                "T2(l,k)*T3dg(i,j,l)(2,0,1)");
  test_for_zero(t3dg_1(2, 0, 2)
                  - (t3dg_3(2, 0, 0) * t2_2(0, 2)
                     + t3dg_3(2, 0, 1) * t2_2(1, 2)
                     + t3dg_3(2, 0, 2) * t2_2(2, 2)),
                "T2(l,k)*T3dg(i,j,l)(2,0,2)");
  test_for_zero(t3dg_1(2, 1, 0)
                  - (t3dg_3(2, 1, 0) * t2_2(0, 0)
                     + t3dg_3(2, 1, 1) * t2_2(1, 0)
                     + t3dg_3(2, 1, 2) * t2_2(2, 0)),
                "T2(l,k)*T3dg(i,j,l)(2,1,0)");
  test_for_zero(t3dg_1(2, 1, 1)
                  - (t3dg_3(2, 1, 0) * t2_2(0, 1)
                     + t3dg_3(2, 1, 1) * t2_2(1, 1)
                     + t3dg_3(2, 1, 2) * t2_2(2, 1)),
                "T2(l,k)*T3dg(i,j,l)(2,1,1)");
  test_for_zero(t3dg_1(2, 1, 2)
                  - (t3dg_3(2, 1, 0) * t2_2(0, 2)
                     + t3dg_3(2, 1, 1) * t2_2(1, 2)
                     + t3dg_3(2, 1, 2) * t2_2(2, 2)),
                "T2(l,k)*T3dg(i,j,l)(2,1,2)");
  test_for_zero(t3dg_1(2, 2, 0)
                  - (t3dg_3(2, 2, 0) * t2_2(0, 0)
                     + t3dg_3(2, 2, 1) * t2_2(1, 0)
                     + t3dg_3(2, 2, 2) * t2_2(2, 0)),
                "T2(l,k)*T3dg(i,j,l)(2,2,0)");
  test_for_zero(t3dg_1(2, 2, 1)
                  - (t3dg_3(2, 2, 0) * t2_2(0, 1)
                     + t3dg_3(2, 2, 1) * t2_2(1, 1)
                     + t3dg_3(2, 2, 2) * t2_2(2, 1)),
                "T2(l,k)*T3dg(i,j,l)(2,2,1)");
  test_for_zero(t3dg_1(2, 2, 2)
                  - (t3dg_3(2, 2, 0) * t2_2(0, 2)
                     + t3dg_3(2, 2, 1) * t2_2(1, 2)
                     + t3dg_3(2, 2, 2) * t2_2(2, 2)),
                "T2(l,k)*T3dg(i,j,l)(2,2,2)");
}

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.

{
  Index<'i', 3> i;
  Index<'j', 3> j;
  Index<'k', 3> k;
  Index<'l', 3> l;
 
  Number<0> N0;
  Number<1> N1;
  Number<2> N2;
 
  /* Dg tests */
 
  t3dg_1(i, j, k) = t3dg_2(i, j, l) * t2_2(k, l);
  test_for_zero(t3dg_1(0, 0, 0)
                  - (t3dg_2(0, 0, 0) * t2_2(0, 0)
                     + t3dg_2(0, 0, 1) * t2_2(0, 1)
                     + t3dg_2(0, 0, 2) * t2_2(0, 2)),
                "T3dg(i,j,l)*T2(k,l)(0,0,0)");
  test_for_zero(t3dg_1(0, 0, 1)
                  - (t3dg_2(0, 0, 0) * t2_2(1, 0)
                     + t3dg_2(0, 0, 1) * t2_2(1, 1)
                     + t3dg_2(0, 0, 2) * t2_2(1, 2)),
                "T3dg(i,j,l)*T2(k,l)(0,0,1)");
  test_for_zero(t3dg_1(0, 0, 2)
                  - (t3dg_2(0, 0, 0) * t2_2(2, 0)
                     + t3dg_2(0, 0, 1) * t2_2(2, 1)
                     + t3dg_2(0, 0, 2) * t2_2(2, 2)),
                "T3dg(i,j,l)*T2(k,l)(0,0,2)");
  test_for_zero(t3dg_1(0, 1, 0)
                  - (t3dg_2(0, 1, 0) * t2_2(0, 0)
                     + t3dg_2(0, 1, 1) * t2_2(0, 1)
                     + t3dg_2(0, 1, 2) * t2_2(0, 2)),
                "T3dg(i,j,l)*T2(k,l)(0,1,0)");
  test_for_zero(t3dg_1(0, 1, 1)
                  - (t3dg_2(0, 1, 0) * t2_2(1, 0)
                     + t3dg_2(0, 1, 1) * t2_2(1, 1)
                     + t3dg_2(0, 1, 2) * t2_2(1, 2)),
                "T3dg(i,j,l)*T2(k,l)(0,1,1)");
  test_for_zero(t3dg_1(0, 1, 2)
                  - (t3dg_2(0, 1, 0) * t2_2(2, 0)
                     + t3dg_2(0, 1, 1) * t2_2(2, 1)
                     + t3dg_2(0, 1, 2) * t2_2(2, 2)),
                "T3dg(i,j,l)*T2(k,l)(0,1,2)");
  test_for_zero(t3dg_1(0, 2, 0)
                  - (t3dg_2(0, 2, 0) * t2_2(0, 0)
                     + t3dg_2(0, 2, 1) * t2_2(0, 1)
                     + t3dg_2(0, 2, 2) * t2_2(0, 2)),
                "T3dg(i,j,l)*T2(k,l)(0,2,0)");
  test_for_zero(t3dg_1(0, 2, 1)
                  - (t3dg_2(0, 2, 0) * t2_2(1, 0)
                     + t3dg_2(0, 2, 1) * t2_2(1, 1)
                     + t3dg_2(0, 2, 2) * t2_2(1, 2)),
                "T3dg(i,j,l)*T2(k,l)(0,2,1)");
  test_for_zero(t3dg_1(0, 2, 2)
                  - (t3dg_2(0, 2, 0) * t2_2(2, 0)
                     + t3dg_2(0, 2, 1) * t2_2(2, 1)
                     + t3dg_2(0, 2, 2) * t2_2(2, 2)),
                "T3dg(i,j,l)*T2(k,l)(0,2,2)");
  test_for_zero(t3dg_1(1, 0, 0)
                  - (t3dg_2(1, 0, 0) * t2_2(0, 0)
                     + t3dg_2(1, 0, 1) * t2_2(0, 1)
                     + t3dg_2(1, 0, 2) * t2_2(0, 2)),
                "T3dg(i,j,l)*T2(k,l)(1,0,0)");
  test_for_zero(t3dg_1(1, 0, 1)
                  - (t3dg_2(1, 0, 0) * t2_2(1, 0)
                     + t3dg_2(1, 0, 1) * t2_2(1, 1)
                     + t3dg_2(1, 0, 2) * t2_2(1, 2)),
                "T3dg(i,j,l)*T2(k,l)(1,0,1)");
  test_for_zero(t3dg_1(1, 0, 2)
                  - (t3dg_2(1, 0, 0) * t2_2(2, 0)
                     + t3dg_2(1, 0, 1) * t2_2(2, 1)
                     + t3dg_2(1, 0, 2) * t2_2(2, 2)),
                "T3dg(i,j,l)*T2(k,l)(1,0,2)");
  test_for_zero(t3dg_1(1, 1, 0)
                  - (t3dg_2(1, 1, 0) * t2_2(0, 0)
                     + t3dg_2(1, 1, 1) * t2_2(0, 1)
                     + t3dg_2(1, 1, 2) * t2_2(0, 2)),
                "T3dg(i,j,l)*T2(k,l)(1,1,0)");
  test_for_zero(t3dg_1(1, 1, 1)
                  - (t3dg_2(1, 1, 0) * t2_2(1, 0)
                     + t3dg_2(1, 1, 1) * t2_2(1, 1)
                     + t3dg_2(1, 1, 2) * t2_2(1, 2)),
                "T3dg(i,j,l)*T2(k,l)(1,1,1)");
  test_for_zero(t3dg_1(1, 1, 2)
                  - (t3dg_2(1, 1, 0) * t2_2(2, 0)
                     + t3dg_2(1, 1, 1) * t2_2(2, 1)
                     + t3dg_2(1, 1, 2) * t2_2(2, 2)),
                "T3dg(i,j,l)*T2(k,l)(1,1,2)");
  test_for_zero(t3dg_1(1, 2, 0)
                  - (t3dg_2(1, 2, 0) * t2_2(0, 0)
                     + t3dg_2(1, 2, 1) * t2_2(0, 1)
                     + t3dg_2(1, 2, 2) * t2_2(0, 2)),
                "T3dg(i,j,l)*T2(k,l)(1,2,0)");
  test_for_zero(t3dg_1(1, 2, 1)
                  - (t3dg_2(1, 2, 0) * t2_2(1, 0)
                     + t3dg_2(1, 2, 1) * t2_2(1, 1)
                     + t3dg_2(1, 2, 2) * t2_2(1, 2)),
                "T3dg(i,j,l)*T2(k,l)(1,2,1)");
  test_for_zero(t3dg_1(1, 2, 2)
                  - (t3dg_2(1, 2, 0) * t2_2(2, 0)
                     + t3dg_2(1, 2, 1) * t2_2(2, 1)
                     + t3dg_2(1, 2, 2) * t2_2(2, 2)),
                "T3dg(i,j,l)*T2(k,l)(1,2,2)");
  test_for_zero(t3dg_1(2, 0, 0)
                  - (t3dg_2(2, 0, 0) * t2_2(0, 0)
                     + t3dg_2(2, 0, 1) * t2_2(0, 1)
                     + t3dg_2(2, 0, 2) * t2_2(0, 2)),
                "T3dg(i,j,l)*T2(k,l)(2,0,0)");
  test_for_zero(t3dg_1(2, 0, 1)
                  - (t3dg_2(2, 0, 0) * t2_2(1, 0)
                     + t3dg_2(2, 0, 1) * t2_2(1, 1)
                     + t3dg_2(2, 0, 2) * t2_2(1, 2)),
                "T3dg(i,j,l)*T2(k,l)(2,0,1)");
  test_for_zero(t3dg_1(2, 0, 2)
                  - (t3dg_2(2, 0, 0) * t2_2(2, 0)
                     + t3dg_2(2, 0, 1) * t2_2(2, 1)
                     + t3dg_2(2, 0, 2) * t2_2(2, 2)),
                "T3dg(i,j,l)*T2(k,l)(2,0,2)");
  test_for_zero(t3dg_1(2, 1, 0)
                  - (t3dg_2(2, 1, 0) * t2_2(0, 0)
                     + t3dg_2(2, 1, 1) * t2_2(0, 1)
                     + t3dg_2(2, 1, 2) * t2_2(0, 2)),
                "T3dg(i,j,l)*T2(k,l)(2,1,0)");
  test_for_zero(t3dg_1(2, 1, 1)
                  - (t3dg_2(2, 1, 0) * t2_2(1, 0)
                     + t3dg_2(2, 1, 1) * t2_2(1, 1)
                     + t3dg_2(2, 1, 2) * t2_2(1, 2)),
                "T3dg(i,j,l)*T2(k,l)(2,1,1)");
  test_for_zero(t3dg_1(2, 1, 2)
                  - (t3dg_2(2, 1, 0) * t2_2(2, 0)
                     + t3dg_2(2, 1, 1) * t2_2(2, 1)
                     + t3dg_2(2, 1, 2) * t2_2(2, 2)),
                "T3dg(i,j,l)*T2(k,l)(2,1,2)");
  test_for_zero(t3dg_1(2, 2, 0)
                  - (t3dg_2(2, 2, 0) * t2_2(0, 0)
                     + t3dg_2(2, 2, 1) * t2_2(0, 1)
                     + t3dg_2(2, 2, 2) * t2_2(0, 2)),
                "T3dg(i,j,l)*T2(k,l)(2,2,0)");
  test_for_zero(t3dg_1(2, 2, 1)
                  - (t3dg_2(2, 2, 0) * t2_2(1, 0)
                     + t3dg_2(2, 2, 1) * t2_2(1, 1)
                     + t3dg_2(2, 2, 2) * t2_2(1, 2)),
                "T3dg(i,j,l)*T2(k,l)(2,2,1)");
  test_for_zero(t3dg_1(2, 2, 2)
                  - (t3dg_2(2, 2, 0) * t2_2(2, 0)
                     + t3dg_2(2, 2, 1) * t2_2(2, 1)
                     + t3dg_2(2, 2, 2) * t2_2(2, 2)),
                "T3dg(i,j,l)*T2(k,l)(2,2,2)");
 
  t3dg_1(i, j, k) = t2_2(k, l) * t3dg_3(i, j, l);
  test_for_zero(t3dg_1(0, 0, 0)
                  - (t3dg_3(0, 0, 0) * t2_2(0, 0)
                     + t3dg_3(0, 0, 1) * t2_2(0, 1)
                     + t3dg_3(0, 0, 2) * t2_2(0, 2)),
                "T2(k,l)*T3dg(i,j,l)(0,0,0)");
  test_for_zero(t3dg_1(0, 0, 1)
                  - (t3dg_3(0, 0, 0) * t2_2(1, 0)
                     + t3dg_3(0, 0, 1) * t2_2(1, 1)
                     + t3dg_3(0, 0, 2) * t2_2(1, 2)),
                "T2(k,l)*T3dg(i,j,l)(0,0,1)");
  test_for_zero(t3dg_1(0, 0, 2)
                  - (t3dg_3(0, 0, 0) * t2_2(2, 0)
                     + t3dg_3(0, 0, 1) * t2_2(2, 1)
                     + t3dg_3(0, 0, 2) * t2_2(2, 2)),
                "T2(k,l)*T3dg(i,j,l)(0,0,2)");
  test_for_zero(t3dg_1(0, 1, 0)
                  - (t3dg_3(0, 1, 0) * t2_2(0, 0)
                     + t3dg_3(0, 1, 1) * t2_2(0, 1)
                     + t3dg_3(0, 1, 2) * t2_2(0, 2)),
                "T2(k,l)*T3dg(i,j,l)(0,1,0)");
  test_for_zero(t3dg_1(0, 1, 1)
                  - (t3dg_3(0, 1, 0) * t2_2(1, 0)
                     + t3dg_3(0, 1, 1) * t2_2(1, 1)
                     + t3dg_3(0, 1, 2) * t2_2(1, 2)),
                "T2(k,l)*T3dg(i,j,l)(0,1,1)");
  test_for_zero(t3dg_1(0, 1, 2)
                  - (t3dg_3(0, 1, 0) * t2_2(2, 0)
                     + t3dg_3(0, 1, 1) * t2_2(2, 1)
                     + t3dg_3(0, 1, 2) * t2_2(2, 2)),
                "T2(k,l)*T3dg(i,j,l)(0,1,2)");
  test_for_zero(t3dg_1(0, 2, 0)
                  - (t3dg_3(0, 2, 0) * t2_2(0, 0)
                     + t3dg_3(0, 2, 1) * t2_2(0, 1)
                     + t3dg_3(0, 2, 2) * t2_2(0, 2)),
                "T2(k,l)*T3dg(i,j,l)(0,2,0)");
  test_for_zero(t3dg_1(0, 2, 1)
                  - (t3dg_3(0, 2, 0) * t2_2(1, 0)
                     + t3dg_3(0, 2, 1) * t2_2(1, 1)
                     + t3dg_3(0, 2, 2) * t2_2(1, 2)),
                "T2(k,l)*T3dg(i,j,l)(0,2,1)");
  test_for_zero(t3dg_1(0, 2, 2)
                  - (t3dg_3(0, 2, 0) * t2_2(2, 0)
                     + t3dg_3(0, 2, 1) * t2_2(2, 1)
                     + t3dg_3(0, 2, 2) * t2_2(2, 2)),
                "T2(k,l)*T3dg(i,j,l)(0,2,2)");
  test_for_zero(t3dg_1(1, 0, 0)
                  - (t3dg_3(1, 0, 0) * t2_2(0, 0)
                     + t3dg_3(1, 0, 1) * t2_2(0, 1)
                     + t3dg_3(1, 0, 2) * t2_2(0, 2)),
                "T2(k,l)*T3dg(i,j,l)(1,0,0)");
  test_for_zero(t3dg_1(1, 0, 1)
                  - (t3dg_3(1, 0, 0) * t2_2(1, 0)
                     + t3dg_3(1, 0, 1) * t2_2(1, 1)
                     + t3dg_3(1, 0, 2) * t2_2(1, 2)),
                "T2(k,l)*T3dg(i,j,l)(1,0,1)");
  test_for_zero(t3dg_1(1, 0, 2)
                  - (t3dg_3(1, 0, 0) * t2_2(2, 0)
                     + t3dg_3(1, 0, 1) * t2_2(2, 1)
                     + t3dg_3(1, 0, 2) * t2_2(2, 2)),
                "T2(k,l)*T3dg(i,j,l)(1,0,2)");
  test_for_zero(t3dg_1(1, 1, 0)
                  - (t3dg_3(1, 1, 0) * t2_2(0, 0)
                     + t3dg_3(1, 1, 1) * t2_2(0, 1)
                     + t3dg_3(1, 1, 2) * t2_2(0, 2)),
                "T2(k,l)*T3dg(i,j,l)(1,1,0)");
  test_for_zero(t3dg_1(1, 1, 1)
                  - (t3dg_3(1, 1, 0) * t2_2(1, 0)
                     + t3dg_3(1, 1, 1) * t2_2(1, 1)
                     + t3dg_3(1, 1, 2) * t2_2(1, 2)),
                "T2(k,l)*T3dg(i,j,l)(1,1,1)");
  test_for_zero(t3dg_1(1, 1, 2)
                  - (t3dg_3(1, 1, 0) * t2_2(2, 0)
                     + t3dg_3(1, 1, 1) * t2_2(2, 1)
                     + t3dg_3(1, 1, 2) * t2_2(2, 2)),
                "T2(k,l)*T3dg(i,j,l)(1,1,2)");
  test_for_zero(t3dg_1(1, 2, 0)
                  - (t3dg_3(1, 2, 0) * t2_2(0, 0)
                     + t3dg_3(1, 2, 1) * t2_2(0, 1)
                     + t3dg_3(1, 2, 2) * t2_2(0, 2)),
                "T2(k,l)*T3dg(i,j,l)(1,2,0)");
  test_for_zero(t3dg_1(1, 2, 1)
                  - (t3dg_3(1, 2, 0) * t2_2(1, 0)
                     + t3dg_3(1, 2, 1) * t2_2(1, 1)
                     + t3dg_3(1, 2, 2) * t2_2(1, 2)),
                "T2(k,l)*T3dg(i,j,l)(1,2,1)");
  test_for_zero(t3dg_1(1, 2, 2)
                  - (t3dg_3(1, 2, 0) * t2_2(2, 0)
                     + t3dg_3(1, 2, 1) * t2_2(2, 1)
                     + t3dg_3(1, 2, 2) * t2_2(2, 2)),
                "T2(k,l)*T3dg(i,j,l)(1,2,2)");
  test_for_zero(t3dg_1(2, 0, 0)
                  - (t3dg_3(2, 0, 0) * t2_2(0, 0)
                     + t3dg_3(2, 0, 1) * t2_2(0, 1)
                     + t3dg_3(2, 0, 2) * t2_2(0, 2)),
                "T2(k,l)*T3dg(i,j,l)(2,0,0)");
  test_for_zero(t3dg_1(2, 0, 1)
                  - (t3dg_3(2, 0, 0) * t2_2(1, 0)
                     + t3dg_3(2, 0, 1) * t2_2(1, 1)
                     + t3dg_3(2, 0, 2) * t2_2(1, 2)),
                "T2(k,l)*T3dg(i,j,l)(2,0,1)");
  test_for_zero(t3dg_1(2, 0, 2)
                  - (t3dg_3(2, 0, 0) * t2_2(2, 0)
                     + t3dg_3(2, 0, 1) * t2_2(2, 1)
                     + t3dg_3(2, 0, 2) * t2_2(2, 2)),
                "T2(k,l)*T3dg(i,j,l)(2,0,2)");
  test_for_zero(t3dg_1(2, 1, 0)
                  - (t3dg_3(2, 1, 0) * t2_2(0, 0)
                     + t3dg_3(2, 1, 1) * t2_2(0, 1)
                     + t3dg_3(2, 1, 2) * t2_2(0, 2)),
                "T2(k,l)*T3dg(i,j,l)(2,1,0)");
  test_for_zero(t3dg_1(2, 1, 1)
                  - (t3dg_3(2, 1, 0) * t2_2(1, 0)
                     + t3dg_3(2, 1, 1) * t2_2(1, 1)
                     + t3dg_3(2, 1, 2) * t2_2(1, 2)),
                "T2(k,l)*T3dg(i,j,l)(2,1,1)");
  test_for_zero(t3dg_1(2, 1, 2)
                  - (t3dg_3(2, 1, 0) * t2_2(2, 0)
                     + t3dg_3(2, 1, 1) * t2_2(2, 1)
                     + t3dg_3(2, 1, 2) * t2_2(2, 2)),
                "T2(k,l)*T3dg(i,j,l)(2,1,2)");
  test_for_zero(t3dg_1(2, 2, 0)
                  - (t3dg_3(2, 2, 0) * t2_2(0, 0)
                     + t3dg_3(2, 2, 1) * t2_2(0, 1)
                     + t3dg_3(2, 2, 2) * t2_2(0, 2)),
                "T2(k,l)*T3dg(i,j,l)(2,2,0)");
  test_for_zero(t3dg_1(2, 2, 1)
                  - (t3dg_3(2, 2, 0) * t2_2(1, 0)
                     + t3dg_3(2, 2, 1) * t2_2(1, 1)
                     + t3dg_3(2, 2, 2) * t2_2(1, 2)),
                "T2(k,l)*T3dg(i,j,l)(2,2,1)");
  test_for_zero(t3dg_1(2, 2, 2)
                  - (t3dg_3(2, 2, 0) * t2_2(2, 0)
                     + t3dg_3(2, 2, 1) * t2_2(2, 1)
                     + t3dg_3(2, 2, 2) * t2_2(2, 2)),
                "T2(k,l)*T3dg(i,j,l)(2,2,2)");
}

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.

{
  Index<'i', 3> i;
  Index<'j', 3> j;
  Index<'k', 3> k;
 
  Number<0> N0;
  Number<1> N1;
  Number<2> N2;
 
  /* Dg tests */
 
  t1_1(i) = t3dg_2(i, j, k) * t2_2(j, k);
  test_for_zero(
    t1_1(0)
      - (t3dg_2(0, 0, 0) * t2_2(0, 0) + t3dg_2(0, 0, 1) * t2_2(0, 1)
         + t3dg_2(0, 0, 2) * t2_2(0, 2) + t3dg_2(0, 1, 0) * t2_2(1, 0)
         + t3dg_2(0, 1, 1) * t2_2(1, 1) + t3dg_2(0, 1, 2) * t2_2(1, 2)
         + t3dg_2(0, 2, 0) * t2_2(2, 0) + t3dg_2(0, 2, 1) * t2_2(2, 1)
         + t3dg_2(0, 2, 2) * t2_2(2, 2)),
    "T3dg(i,j,k)*T2(j,k)(0)");
  test_for_zero(
    t1_1(1)
      - (t3dg_2(1, 0, 0) * t2_2(0, 0) + t3dg_2(1, 0, 1) * t2_2(0, 1)
         + t3dg_2(1, 0, 2) * t2_2(0, 2) + t3dg_2(1, 1, 0) * t2_2(1, 0)
         + t3dg_2(1, 1, 1) * t2_2(1, 1) + t3dg_2(1, 1, 2) * t2_2(1, 2)
         + t3dg_2(1, 2, 0) * t2_2(2, 0) + t3dg_2(1, 2, 1) * t2_2(2, 1)
         + t3dg_2(1, 2, 2) * t2_2(2, 2)),
    "T3dg(i,j,k)*T2(j,k)(1)");
  test_for_zero(
    t1_1(2)
      - (t3dg_2(2, 0, 0) * t2_2(0, 0) + t3dg_2(2, 0, 1) * t2_2(0, 1)
         + t3dg_2(2, 0, 2) * t2_2(0, 2) + t3dg_2(2, 1, 0) * t2_2(1, 0)
         + t3dg_2(2, 1, 1) * t2_2(1, 1) + t3dg_2(2, 1, 2) * t2_2(1, 2)
         + t3dg_2(2, 2, 0) * t2_2(2, 0) + t3dg_2(2, 2, 1) * t2_2(2, 1)
         + t3dg_2(2, 2, 2) * t2_2(2, 2)),
    "T3dg(i,j,k)*T2(j,k)(2)");
 
  t1_1(i) = t2_2(j, k) * t3dg_2(i, j, k);
  test_for_zero(
    t1_1(0)
      - (t3dg_2(0, 0, 0) * t2_2(0, 0) + t3dg_2(0, 0, 1) * t2_2(0, 1)
         + t3dg_2(0, 0, 2) * t2_2(0, 2) + t3dg_2(0, 1, 0) * t2_2(1, 0)
         + t3dg_2(0, 1, 1) * t2_2(1, 1) + t3dg_2(0, 1, 2) * t2_2(1, 2)
         + t3dg_2(0, 2, 0) * t2_2(2, 0) + t3dg_2(0, 2, 1) * t2_2(2, 1)
         + t3dg_2(0, 2, 2) * t2_2(2, 2)),
    "T2(j,k)*T3dg(i,j,k)(0)");
  test_for_zero(
    t1_1(1)
      - (t3dg_2(1, 0, 0) * t2_2(0, 0) + t3dg_2(1, 0, 1) * t2_2(0, 1)
         + t3dg_2(1, 0, 2) * t2_2(0, 2) + t3dg_2(1, 1, 0) * t2_2(1, 0)
         + t3dg_2(1, 1, 1) * t2_2(1, 1) + t3dg_2(1, 1, 2) * t2_2(1, 2)
         + t3dg_2(1, 2, 0) * t2_2(2, 0) + t3dg_2(1, 2, 1) * t2_2(2, 1)
         + t3dg_2(1, 2, 2) * t2_2(2, 2)),
    "T2(j,k)*T3dg(i,j,k)(1)");
  test_for_zero(
    t1_1(2)
      - (t3dg_2(2, 0, 0) * t2_2(0, 0) + t3dg_2(2, 0, 1) * t2_2(0, 1)
         + t3dg_2(2, 0, 2) * t2_2(0, 2) + t3dg_2(2, 1, 0) * t2_2(1, 0)
         + t3dg_2(2, 1, 1) * t2_2(1, 1) + t3dg_2(2, 1, 2) * t2_2(1, 2)
         + t3dg_2(2, 2, 0) * t2_2(2, 0) + t3dg_2(2, 2, 1) * t2_2(2, 1)
         + t3dg_2(2, 2, 2) * t2_2(2, 2)),
    "T2(j,k)*T3dg(i,j,k)(2)");
}

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.

{
  Index<'i', 3> i;
  Index<'j', 3> j;
  Index<'k', 3> k;
 
  Number<0> N0;
  Number<1> N1;
  Number<2> N2;
 
  /* Dg tests */
 
  t1_1(i) = t3dg_2(i, j, k) * t2_2(k, j);
  test_for_zero(
    t1_1(0)
      - (t3dg_2(0, 0, 0) * t2_2(0, 0) + t3dg_2(0, 0, 1) * t2_2(1, 0)
         + t3dg_2(0, 0, 2) * t2_2(2, 0) + t3dg_2(0, 1, 0) * t2_2(0, 1)
         + t3dg_2(0, 1, 1) * t2_2(1, 1) + t3dg_2(0, 1, 2) * t2_2(2, 1)
         + t3dg_2(0, 2, 0) * t2_2(0, 2) + t3dg_2(0, 2, 1) * t2_2(1, 2)
         + t3dg_2(0, 2, 2) * t2_2(2, 2)),
    "T3dg(i,j,k)*T2(k,j)(0)");
  test_for_zero(
    t1_1(1)
      - (t3dg_2(1, 0, 0) * t2_2(0, 0) + t3dg_2(1, 0, 1) * t2_2(1, 0)
         + t3dg_2(1, 0, 2) * t2_2(2, 0) + t3dg_2(1, 1, 0) * t2_2(0, 1)
         + t3dg_2(1, 1, 1) * t2_2(1, 1) + t3dg_2(1, 1, 2) * t2_2(2, 1)
         + t3dg_2(1, 2, 0) * t2_2(0, 2) + t3dg_2(1, 2, 1) * t2_2(1, 2)
         + t3dg_2(1, 2, 2) * t2_2(2, 2)),
    "T3dg(i,j,k)*T2(k,j)(1)");
  test_for_zero(
    t1_1(2)
      - (t3dg_2(2, 0, 0) * t2_2(0, 0) + t3dg_2(2, 0, 1) * t2_2(1, 0)
         + t3dg_2(2, 0, 2) * t2_2(2, 0) + t3dg_2(2, 1, 0) * t2_2(0, 1)
         + t3dg_2(2, 1, 1) * t2_2(1, 1) + t3dg_2(2, 1, 2) * t2_2(2, 1)
         + t3dg_2(2, 2, 0) * t2_2(0, 2) + t3dg_2(2, 2, 1) * t2_2(1, 2)
         + t3dg_2(2, 2, 2) * t2_2(2, 2)),
    "T3dg(i,j,k)*T2(k,j)(2)");
 
  t1_1(i) = t2_2(k, j) * t3dg_2(i, j, k);
  test_for_zero(
    t1_1(0)
      - (t3dg_2(0, 0, 0) * t2_2(0, 0) + t3dg_2(0, 0, 1) * t2_2(1, 0)
         + t3dg_2(0, 0, 2) * t2_2(2, 0) + t3dg_2(0, 1, 0) * t2_2(0, 1)
         + t3dg_2(0, 1, 1) * t2_2(1, 1) + t3dg_2(0, 1, 2) * t2_2(2, 1)
         + t3dg_2(0, 2, 0) * t2_2(0, 2) + t3dg_2(0, 2, 1) * t2_2(1, 2)
         + t3dg_2(0, 2, 2) * t2_2(2, 2)),
    "T2(k,j)*T3dg(i,j,k)(0)");
  test_for_zero(
    t1_1(1)
      - (t3dg_2(1, 0, 0) * t2_2(0, 0) + t3dg_2(1, 0, 1) * t2_2(1, 0)
         + t3dg_2(1, 0, 2) * t2_2(2, 0) + t3dg_2(1, 1, 0) * t2_2(0, 1)
         + t3dg_2(1, 1, 1) * t2_2(1, 1) + t3dg_2(1, 1, 2) * t2_2(2, 1)
         + t3dg_2(1, 2, 0) * t2_2(0, 2) + t3dg_2(1, 2, 1) * t2_2(1, 2)
         + t3dg_2(1, 2, 2) * t2_2(2, 2)),
    "T2(k,j)*T3dg(i,j,k)(1)");
  test_for_zero(
    t1_1(2)
      - (t3dg_2(2, 0, 0) * t2_2(0, 0) + t3dg_2(2, 0, 1) * t2_2(1, 0)
         + t3dg_2(2, 0, 2) * t2_2(2, 0) + t3dg_2(2, 1, 0) * t2_2(0, 1)
         + t3dg_2(2, 1, 1) * t2_2(1, 1) + t3dg_2(2, 1, 2) * t2_2(2, 1)
         + t3dg_2(2, 2, 0) * t2_2(0, 2) + t3dg_2(2, 2, 1) * t2_2(1, 2)
         + t3dg_2(2, 2, 2) * t2_2(2, 2)),
    "T2(k,j)*T3dg(i,j,k)(2)");
}

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.

{
  Index<'i', 3> i;
  Index<'j', 3> j;
  Index<'k', 3> k;
 
  Number<0> N0;
  Number<1> N1;
  Number<2> N2;
 
  /* Dg tests */
 
  t1_1(i) = t3dg_2(j, i, k) * t2_2(j, k);
  test_for_zero(
    t1_1(0)
      - (t3dg_2(0, 0, 0) * t2_2(0, 0) + t3dg_2(0, 0, 1) * t2_2(0, 1)
         + t3dg_2(0, 0, 2) * t2_2(0, 2) + t3dg_2(1, 0, 0) * t2_2(1, 0)
         + t3dg_2(1, 0, 1) * t2_2(1, 1) + t3dg_2(1, 0, 2) * t2_2(1, 2)
         + t3dg_2(2, 0, 0) * t2_2(2, 0) + t3dg_2(2, 0, 1) * t2_2(2, 1)
         + t3dg_2(2, 0, 2) * t2_2(2, 2)),
    "T3dg(j,i,k)*T2(j,k)(0)");
  test_for_zero(
    t1_1(1)
      - (t3dg_2(0, 1, 0) * t2_2(0, 0) + t3dg_2(0, 1, 1) * t2_2(0, 1)
         + t3dg_2(0, 1, 2) * t2_2(0, 2) + t3dg_2(1, 1, 0) * t2_2(1, 0)
         + t3dg_2(1, 1, 1) * t2_2(1, 1) + t3dg_2(1, 1, 2) * t2_2(1, 2)
         + t3dg_2(2, 1, 0) * t2_2(2, 0) + t3dg_2(2, 1, 1) * t2_2(2, 1)
         + t3dg_2(2, 1, 2) * t2_2(2, 2)),
    "T3dg(j,i,k)*T2(j,k)(1)");
  test_for_zero(
    t1_1(2)
      - (t3dg_2(0, 2, 0) * t2_2(0, 0) + t3dg_2(0, 2, 1) * t2_2(0, 1)
         + t3dg_2(0, 2, 2) * t2_2(0, 2) + t3dg_2(1, 2, 0) * t2_2(1, 0)
         + t3dg_2(1, 2, 1) * t2_2(1, 1) + t3dg_2(1, 2, 2) * t2_2(1, 2)
         + t3dg_2(2, 2, 0) * t2_2(2, 0) + t3dg_2(2, 2, 1) * t2_2(2, 1)
         + t3dg_2(2, 2, 2) * t2_2(2, 2)),
    "T3dg(j,i,k)*T2(j,k)(2)");
 
  t1_1(i) = t2_2(j, k) * t3dg_2(j, i, k);
  test_for_zero(
    t1_1(0)
      - (t3dg_2(0, 0, 0) * t2_2(0, 0) + t3dg_2(0, 0, 1) * t2_2(0, 1)
         + t3dg_2(0, 0, 2) * t2_2(0, 2) + t3dg_2(1, 0, 0) * t2_2(1, 0)
         + t3dg_2(1, 0, 1) * t2_2(1, 1) + t3dg_2(1, 0, 2) * t2_2(1, 2)
         + t3dg_2(2, 0, 0) * t2_2(2, 0) + t3dg_2(2, 0, 1) * t2_2(2, 1)
         + t3dg_2(2, 0, 2) * t2_2(2, 2)),
    "T2(j,k)*T3dg(j,i,k)(0)");
  test_for_zero(
    t1_1(1)
      - (t3dg_2(0, 1, 0) * t2_2(0, 0) + t3dg_2(0, 1, 1) * t2_2(0, 1)
         + t3dg_2(0, 1, 2) * t2_2(0, 2) + t3dg_2(1, 1, 0) * t2_2(1, 0)
         + t3dg_2(1, 1, 1) * t2_2(1, 1) + t3dg_2(1, 1, 2) * t2_2(1, 2)
         + t3dg_2(2, 1, 0) * t2_2(2, 0) + t3dg_2(2, 1, 1) * t2_2(2, 1)
         + t3dg_2(2, 1, 2) * t2_2(2, 2)),
    "T2(j,k)*T3dg(j,i,k)(1)");
  test_for_zero(
    t1_1(2)
      - (t3dg_2(0, 2, 0) * t2_2(0, 0) + t3dg_2(0, 2, 1) * t2_2(0, 1)
         + t3dg_2(0, 2, 2) * t2_2(0, 2) + t3dg_2(1, 2, 0) * t2_2(1, 0)
         + t3dg_2(1, 2, 1) * t2_2(1, 1) + t3dg_2(1, 2, 2) * t2_2(1, 2)
         + t3dg_2(2, 2, 0) * t2_2(2, 0) + t3dg_2(2, 2, 1) * t2_2(2, 1)
         + t3dg_2(2, 2, 2) * t2_2(2, 2)),
    "T2(j,k)*T3dg(j,i,k)(2)");
}

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.

{
  Index<'i', 3> i;
  Index<'j', 3> j;
  Index<'k', 3> k;
 
  Number<0> N0;
  Number<1> N1;
  Number<2> N2;
 
  /* Dg tests */
 
  t1_1(i) = t3dg_2(j, i, k) * t2_2(k, j);
  test_for_zero(
    t1_1(0)
      - (t3dg_2(0, 0, 0) * t2_2(0, 0) + t3dg_2(0, 0, 1) * t2_2(1, 0)
         + t3dg_2(0, 0, 2) * t2_2(2, 0) + t3dg_2(1, 0, 0) * t2_2(0, 1)
         + t3dg_2(1, 0, 1) * t2_2(1, 1) + t3dg_2(1, 0, 2) * t2_2(2, 1)
         + t3dg_2(2, 0, 0) * t2_2(0, 2) + t3dg_2(2, 0, 1) * t2_2(1, 2)
         + t3dg_2(2, 0, 2) * t2_2(2, 2)),
    "T3dg(j,i,k)*T2(k,j)(0)");
  test_for_zero(
    t1_1(1)
      - (t3dg_2(0, 1, 0) * t2_2(0, 0) + t3dg_2(0, 1, 1) * t2_2(1, 0)
         + t3dg_2(0, 1, 2) * t2_2(2, 0) + t3dg_2(1, 1, 0) * t2_2(0, 1)
         + t3dg_2(1, 1, 1) * t2_2(1, 1) + t3dg_2(1, 1, 2) * t2_2(2, 1)
         + t3dg_2(2, 1, 0) * t2_2(0, 2) + t3dg_2(2, 1, 1) * t2_2(1, 2)
         + t3dg_2(2, 1, 2) * t2_2(2, 2)),
    "T3dg(j,i,k)*T2(k,j)(1)");
  test_for_zero(
    t1_1(2)
      - (t3dg_2(0, 2, 0) * t2_2(0, 0) + t3dg_2(0, 2, 1) * t2_2(1, 0)
         + t3dg_2(0, 2, 2) * t2_2(2, 0) + t3dg_2(1, 2, 0) * t2_2(0, 1)
         + t3dg_2(1, 2, 1) * t2_2(1, 1) + t3dg_2(1, 2, 2) * t2_2(2, 1)
         + t3dg_2(2, 2, 0) * t2_2(0, 2) + t3dg_2(2, 2, 1) * t2_2(1, 2)
         + t3dg_2(2, 2, 2) * t2_2(2, 2)),
    "T3dg(j,i,k)*T2(k,j)(2)");
 
  t1_1(i) = t2_2(k, j) * t3dg_2(j, i, k);
  test_for_zero(
    t1_1(0)
      - (t3dg_2(0, 0, 0) * t2_2(0, 0) + t3dg_2(0, 0, 1) * t2_2(1, 0)
         + t3dg_2(0, 0, 2) * t2_2(2, 0) + t3dg_2(1, 0, 0) * t2_2(0, 1)
         + t3dg_2(1, 0, 1) * t2_2(1, 1) + t3dg_2(1, 0, 2) * t2_2(2, 1)
         + t3dg_2(2, 0, 0) * t2_2(0, 2) + t3dg_2(2, 0, 1) * t2_2(1, 2)
         + t3dg_2(2, 0, 2) * t2_2(2, 2)),
    "T2(k,j)*T3dg(j,i,k)(0)");
  test_for_zero(
    t1_1(1)
      - (t3dg_2(0, 1, 0) * t2_2(0, 0) + t3dg_2(0, 1, 1) * t2_2(1, 0)
         + t3dg_2(0, 1, 2) * t2_2(2, 0) + t3dg_2(1, 1, 0) * t2_2(0, 1)
         + t3dg_2(1, 1, 1) * t2_2(1, 1) + t3dg_2(1, 1, 2) * t2_2(2, 1)
         + t3dg_2(2, 1, 0) * t2_2(0, 2) + t3dg_2(2, 1, 1) * t2_2(1, 2)
         + t3dg_2(2, 1, 2) * t2_2(2, 2)),
    "T2(k,j)*T3dg(j,i,k)(1)");
  test_for_zero(
    t1_1(2)
      - (t3dg_2(0, 2, 0) * t2_2(0, 0) + t3dg_2(0, 2, 1) * t2_2(1, 0)
         + t3dg_2(0, 2, 2) * t2_2(2, 0) + t3dg_2(1, 2, 0) * t2_2(0, 1)
         + t3dg_2(1, 2, 1) * t2_2(1, 1) + t3dg_2(1, 2, 2) * t2_2(2, 1)
         + t3dg_2(2, 2, 0) * t2_2(0, 2) + t3dg_2(2, 2, 1) * t2_2(1, 2)
         + t3dg_2(2, 2, 2) * t2_2(2, 2)),
    "T2(k,j)*T3dg(j,i,k)(2)");
}

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.

{
  Index<'i', 3> i;
  Index<'j', 3> j;
  Index<'k', 3> k;
 
  Number<0> N0;
  Number<1> N1;
  Number<2> N2;
 
  /* Dg tests */
 
  t1_1(i) = t3dg_2(j, k, i) * t2_2(j, k);
  test_for_zero(
    t1_1(0)
      - (t3dg_2(0, 0, 0) * t2_2(0, 0) + t3dg_2(0, 1, 0) * t2_2(0, 1)
         + t3dg_2(0, 2, 0) * t2_2(0, 2) + t3dg_2(1, 0, 0) * t2_2(1, 0)
         + t3dg_2(1, 1, 0) * t2_2(1, 1) + t3dg_2(1, 2, 0) * t2_2(1, 2)
         + t3dg_2(2, 0, 0) * t2_2(2, 0) + t3dg_2(2, 1, 0) * t2_2(2, 1)
         + t3dg_2(2, 2, 0) * t2_2(2, 2)),
    "T3dg(j,k,i)*T2(j,k)(0)");
  test_for_zero(
    t1_1(1)
      - (t3dg_2(0, 0, 1) * t2_2(0, 0) + t3dg_2(0, 1, 1) * t2_2(0, 1)
         + t3dg_2(0, 2, 1) * t2_2(0, 2) + t3dg_2(1, 0, 1) * t2_2(1, 0)
         + t3dg_2(1, 1, 1) * t2_2(1, 1) + t3dg_2(1, 2, 1) * t2_2(1, 2)
         + t3dg_2(2, 0, 1) * t2_2(2, 0) + t3dg_2(2, 1, 1) * t2_2(2, 1)
         + t3dg_2(2, 2, 1) * t2_2(2, 2)),
    "T3dg(j,k,i)*T2(j,k)(1)");
  test_for_zero(
    t1_1(2)
      - (t3dg_2(0, 0, 2) * t2_2(0, 0) + t3dg_2(0, 1, 2) * t2_2(0, 1)
         + t3dg_2(0, 2, 2) * t2_2(0, 2) + t3dg_2(1, 0, 2) * t2_2(1, 0)
         + t3dg_2(1, 1, 2) * t2_2(1, 1) + t3dg_2(1, 2, 2) * t2_2(1, 2)
         + t3dg_2(2, 0, 2) * t2_2(2, 0) + t3dg_2(2, 1, 2) * t2_2(2, 1)
         + t3dg_2(2, 2, 2) * t2_2(2, 2)),
    "T3dg(j,k,i)*T2(j,k)(2)");
 
  t1_1(i) = t2_2(j, k) * t3dg_2(j, k, i);
  test_for_zero(
    t1_1(0)
      - (t3dg_2(0, 0, 0) * t2_2(0, 0) + t3dg_2(0, 1, 0) * t2_2(0, 1)
         + t3dg_2(0, 2, 0) * t2_2(0, 2) + t3dg_2(1, 0, 0) * t2_2(1, 0)
         + t3dg_2(1, 1, 0) * t2_2(1, 1) + t3dg_2(1, 2, 0) * t2_2(1, 2)
         + t3dg_2(2, 0, 0) * t2_2(2, 0) + t3dg_2(2, 1, 0) * t2_2(2, 1)
         + t3dg_2(2, 2, 0) * t2_2(2, 2)),
    "T2(j,k)*T3dg(j,k,i)(0)");
  test_for_zero(
    t1_1(1)
      - (t3dg_2(0, 0, 1) * t2_2(0, 0) + t3dg_2(0, 1, 1) * t2_2(0, 1)
         + t3dg_2(0, 2, 1) * t2_2(0, 2) + t3dg_2(1, 0, 1) * t2_2(1, 0)
         + t3dg_2(1, 1, 1) * t2_2(1, 1) + t3dg_2(1, 2, 1) * t2_2(1, 2)
         + t3dg_2(2, 0, 1) * t2_2(2, 0) + t3dg_2(2, 1, 1) * t2_2(2, 1)
         + t3dg_2(2, 2, 1) * t2_2(2, 2)),
    "T2(j,k)*T3dg(j,k,i)(1)");
  test_for_zero(
    t1_1(2)
      - (t3dg_2(0, 0, 2) * t2_2(0, 0) + t3dg_2(0, 1, 2) * t2_2(0, 1)
         + t3dg_2(0, 2, 2) * t2_2(0, 2) + t3dg_2(1, 0, 2) * t2_2(1, 0)
         + t3dg_2(1, 1, 2) * t2_2(1, 1) + t3dg_2(1, 2, 2) * t2_2(1, 2)
         + t3dg_2(2, 0, 2) * t2_2(2, 0) + t3dg_2(2, 1, 2) * t2_2(2, 1)
         + t3dg_2(2, 2, 2) * t2_2(2, 2)),
    "T2(j,k)*T3dg(j,k,i)(2)");
}

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.

{
  Index<'i', 3> i;
  Index<'j', 3> j;
  Index<'k', 3> k;
 
  Number<0> N0;
  Number<1> N1;
  Number<2> N2;
 
  /* Dg tests */
 
  t1_1(i) = t3dg_2(j, k, i) * t2_2(k, j);
  test_for_zero(
    t1_1(0)
      - (t3dg_2(0, 0, 0) * t2_2(0, 0) + t3dg_2(0, 1, 0) * t2_2(1, 0)
         + t3dg_2(0, 2, 0) * t2_2(2, 0) + t3dg_2(1, 0, 0) * t2_2(0, 1)
         + t3dg_2(1, 1, 0) * t2_2(1, 1) + t3dg_2(1, 2, 0) * t2_2(2, 1)
         + t3dg_2(2, 0, 0) * t2_2(0, 2) + t3dg_2(2, 1, 0) * t2_2(1, 2)
         + t3dg_2(2, 2, 0) * t2_2(2, 2)),
    "T3dg(j,k,i)*T2(k,j)(0)");
  test_for_zero(
    t1_1(1)
      - (t3dg_2(0, 0, 1) * t2_2(0, 0) + t3dg_2(0, 1, 1) * t2_2(1, 0)
         + t3dg_2(0, 2, 1) * t2_2(2, 0) + t3dg_2(1, 0, 1) * t2_2(0, 1)
         + t3dg_2(1, 1, 1) * t2_2(1, 1) + t3dg_2(1, 2, 1) * t2_2(2, 1)
         + t3dg_2(2, 0, 1) * t2_2(0, 2) + t3dg_2(2, 1, 1) * t2_2(1, 2)
         + t3dg_2(2, 2, 1) * t2_2(2, 2)),
    "T3dg(j,k,i)*T2(k,j)(1)");
  test_for_zero(
    t1_1(2)
      - (t3dg_2(0, 0, 2) * t2_2(0, 0) + t3dg_2(0, 1, 2) * t2_2(1, 0)
         + t3dg_2(0, 2, 2) * t2_2(2, 0) + t3dg_2(1, 0, 2) * t2_2(0, 1)
         + t3dg_2(1, 1, 2) * t2_2(1, 1) + t3dg_2(1, 2, 2) * t2_2(2, 1)
         + t3dg_2(2, 0, 2) * t2_2(0, 2) + t3dg_2(2, 1, 2) * t2_2(1, 2)
         + t3dg_2(2, 2, 2) * t2_2(2, 2)),
    "T3dg(j,k,i)*T2(k,j)(2)");
 
  t1_1(i) = t2_2(k, j) * t3dg_2(j, k, i);
  test_for_zero(
    t1_1(0)
      - (t3dg_2(0, 0, 0) * t2_2(0, 0) + t3dg_2(0, 1, 0) * t2_2(1, 0)
         + t3dg_2(0, 2, 0) * t2_2(2, 0) + t3dg_2(1, 0, 0) * t2_2(0, 1)
         + t3dg_2(1, 1, 0) * t2_2(1, 1) + t3dg_2(1, 2, 0) * t2_2(2, 1)
         + t3dg_2(2, 0, 0) * t2_2(0, 2) + t3dg_2(2, 1, 0) * t2_2(1, 2)
         + t3dg_2(2, 2, 0) * t2_2(2, 2)),
    "T2(k,j)*T3dg(j,k,i)(0)");
  test_for_zero(
    t1_1(1)
      - (t3dg_2(0, 0, 1) * t2_2(0, 0) + t3dg_2(0, 1, 1) * t2_2(1, 0)
         + t3dg_2(0, 2, 1) * t2_2(2, 0) + t3dg_2(1, 0, 1) * t2_2(0, 1)
         + t3dg_2(1, 1, 1) * t2_2(1, 1) + t3dg_2(1, 2, 1) * t2_2(2, 1)
         + t3dg_2(2, 0, 1) * t2_2(0, 2) + t3dg_2(2, 1, 1) * t2_2(1, 2)
         + t3dg_2(2, 2, 1) * t2_2(2, 2)),
    "T2(k,j)*T3dg(j,k,i)(1)");
  test_for_zero(
    t1_1(2)
      - (t3dg_2(0, 0, 2) * t2_2(0, 0) + t3dg_2(0, 1, 2) * t2_2(1, 0)
         + t3dg_2(0, 2, 2) * t2_2(2, 0) + t3dg_2(1, 0, 2) * t2_2(0, 1)
         + t3dg_2(1, 1, 2) * t2_2(1, 1) + t3dg_2(1, 2, 2) * t2_2(2, 1)
         + t3dg_2(2, 0, 2) * t2_2(0, 2) + t3dg_2(2, 1, 2) * t2_2(1, 2)
         + t3dg_2(2, 2, 2) * t2_2(2, 2)),
    "T2(k,j)*T3dg(j,k,i)(2)");
}

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.

{
  Index<'i', 3> i;
  Index<'j', 3> j;
  Index<'k', 3> k;
  Index<'l', 3> l;
 
  Number<0> N0;
  Number<1> N1;
  Number<2> N2;
 
  /* Dg tests */
 
  t3dg_1(i, j, k) = t3dg_2(i, j, l) * t2s_2(l, k);
  test_for_zero(t3dg_1(0, 0, 0)
                  - (t3dg_2(0, 0, 0) * t2s_2(0, 0)
                     + t3dg_2(0, 0, 1) * t2s_2(1, 0)
                     + t3dg_2(0, 0, 2) * t2s_2(2, 0)),
                "T3dg(i,j,l)*T2s(l,k)(0,0,0)");
  test_for_zero(t3dg_1(0, 0, 1)
                  - (t3dg_2(0, 0, 0) * t2s_2(0, 1)
                     + t3dg_2(0, 0, 1) * t2s_2(1, 1)
                     + t3dg_2(0, 0, 2) * t2s_2(2, 1)),
                "T3dg(i,j,l)*T2s(l,k)(0,0,1)");
  test_for_zero(t3dg_1(0, 0, 2)
                  - (t3dg_2(0, 0, 0) * t2s_2(0, 2)
                     + t3dg_2(0, 0, 1) * t2s_2(1, 2)
                     + t3dg_2(0, 0, 2) * t2s_2(2, 2)),
                "T3dg(i,j,l)*T2s(l,k)(0,0,2)");
  test_for_zero(t3dg_1(0, 1, 0)
                  - (t3dg_2(0, 1, 0) * t2s_2(0, 0)
                     + t3dg_2(0, 1, 1) * t2s_2(1, 0)
                     + t3dg_2(0, 1, 2) * t2s_2(2, 0)),
                "T3dg(i,j,l)*T2s(l,k)(0,1,0)");
  test_for_zero(t3dg_1(0, 1, 1)
                  - (t3dg_2(0, 1, 0) * t2s_2(0, 1)
                     + t3dg_2(0, 1, 1) * t2s_2(1, 1)
                     + t3dg_2(0, 1, 2) * t2s_2(2, 1)),
                "T3dg(i,j,l)*T2s(l,k)(0,1,1)");
  test_for_zero(t3dg_1(0, 1, 2)
                  - (t3dg_2(0, 1, 0) * t2s_2(0, 2)
                     + t3dg_2(0, 1, 1) * t2s_2(1, 2)
                     + t3dg_2(0, 1, 2) * t2s_2(2, 2)),
                "T3dg(i,j,l)*T2s(l,k)(0,1,2)");
  test_for_zero(t3dg_1(0, 2, 0)
                  - (t3dg_2(0, 2, 0) * t2s_2(0, 0)
                     + t3dg_2(0, 2, 1) * t2s_2(1, 0)
                     + t3dg_2(0, 2, 2) * t2s_2(2, 0)),
                "T3dg(i,j,l)*T2s(l,k)(0,2,0)");
  test_for_zero(t3dg_1(0, 2, 1)
                  - (t3dg_2(0, 2, 0) * t2s_2(0, 1)
                     + t3dg_2(0, 2, 1) * t2s_2(1, 1)
                     + t3dg_2(0, 2, 2) * t2s_2(2, 1)),
                "T3dg(i,j,l)*T2s(l,k)(0,2,1)");
  test_for_zero(t3dg_1(0, 2, 2)
                  - (t3dg_2(0, 2, 0) * t2s_2(0, 2)
                     + t3dg_2(0, 2, 1) * t2s_2(1, 2)
                     + t3dg_2(0, 2, 2) * t2s_2(2, 2)),
                "T3dg(i,j,l)*T2s(l,k)(0,2,2)");
  test_for_zero(t3dg_1(1, 0, 0)
                  - (t3dg_2(1, 0, 0) * t2s_2(0, 0)
                     + t3dg_2(1, 0, 1) * t2s_2(1, 0)
                     + t3dg_2(1, 0, 2) * t2s_2(2, 0)),
                "T3dg(i,j,l)*T2s(l,k)(1,0,0)");
  test_for_zero(t3dg_1(1, 0, 1)
                  - (t3dg_2(1, 0, 0) * t2s_2(0, 1)
                     + t3dg_2(1, 0, 1) * t2s_2(1, 1)
                     + t3dg_2(1, 0, 2) * t2s_2(2, 1)),
                "T3dg(i,j,l)*T2s(l,k)(1,0,1)");
  test_for_zero(t3dg_1(1, 0, 2)
                  - (t3dg_2(1, 0, 0) * t2s_2(0, 2)
                     + t3dg_2(1, 0, 1) * t2s_2(1, 2)
                     + t3dg_2(1, 0, 2) * t2s_2(2, 2)),
                "T3dg(i,j,l)*T2s(l,k)(1,0,2)");
  test_for_zero(t3dg_1(1, 1, 0)
                  - (t3dg_2(1, 1, 0) * t2s_2(0, 0)
                     + t3dg_2(1, 1, 1) * t2s_2(1, 0)
                     + t3dg_2(1, 1, 2) * t2s_2(2, 0)),
                "T3dg(i,j,l)*T2s(l,k)(1,1,0)");
  test_for_zero(t3dg_1(1, 1, 1)
                  - (t3dg_2(1, 1, 0) * t2s_2(0, 1)
                     + t3dg_2(1, 1, 1) * t2s_2(1, 1)
                     + t3dg_2(1, 1, 2) * t2s_2(2, 1)),
                "T3dg(i,j,l)*T2s(l,k)(1,1,1)");
  test_for_zero(t3dg_1(1, 1, 2)
                  - (t3dg_2(1, 1, 0) * t2s_2(0, 2)
                     + t3dg_2(1, 1, 1) * t2s_2(1, 2)
                     + t3dg_2(1, 1, 2) * t2s_2(2, 2)),
                "T3dg(i,j,l)*T2s(l,k)(1,1,2)");
  test_for_zero(t3dg_1(1, 2, 0)
                  - (t3dg_2(1, 2, 0) * t2s_2(0, 0)
                     + t3dg_2(1, 2, 1) * t2s_2(1, 0)
                     + t3dg_2(1, 2, 2) * t2s_2(2, 0)),
                "T3dg(i,j,l)*T2s(l,k)(1,2,0)");
  test_for_zero(t3dg_1(1, 2, 1)
                  - (t3dg_2(1, 2, 0) * t2s_2(0, 1)
                     + t3dg_2(1, 2, 1) * t2s_2(1, 1)
                     + t3dg_2(1, 2, 2) * t2s_2(2, 1)),
                "T3dg(i,j,l)*T2s(l,k)(1,2,1)");
  test_for_zero(t3dg_1(1, 2, 2)
                  - (t3dg_2(1, 2, 0) * t2s_2(0, 2)
                     + t3dg_2(1, 2, 1) * t2s_2(1, 2)
                     + t3dg_2(1, 2, 2) * t2s_2(2, 2)),
                "T3dg(i,j,l)*T2s(l,k)(1,2,2)");
  test_for_zero(t3dg_1(2, 0, 0)
                  - (t3dg_2(2, 0, 0) * t2s_2(0, 0)
                     + t3dg_2(2, 0, 1) * t2s_2(1, 0)
                     + t3dg_2(2, 0, 2) * t2s_2(2, 0)),
                "T3dg(i,j,l)*T2s(l,k)(2,0,0)");
  test_for_zero(t3dg_1(2, 0, 1)
                  - (t3dg_2(2, 0, 0) * t2s_2(0, 1)
                     + t3dg_2(2, 0, 1) * t2s_2(1, 1)
                     + t3dg_2(2, 0, 2) * t2s_2(2, 1)),
                "T3dg(i,j,l)*T2s(l,k)(2,0,1)");
  test_for_zero(t3dg_1(2, 0, 2)
                  - (t3dg_2(2, 0, 0) * t2s_2(0, 2)
                     + t3dg_2(2, 0, 1) * t2s_2(1, 2)
                     + t3dg_2(2, 0, 2) * t2s_2(2, 2)),
                "T3dg(i,j,l)*T2s(l,k)(2,0,2)");
  test_for_zero(t3dg_1(2, 1, 0)
                  - (t3dg_2(2, 1, 0) * t2s_2(0, 0)
                     + t3dg_2(2, 1, 1) * t2s_2(1, 0)
                     + t3dg_2(2, 1, 2) * t2s_2(2, 0)),
                "T3dg(i,j,l)*T2s(l,k)(2,1,0)");
  test_for_zero(t3dg_1(2, 1, 1)
                  - (t3dg_2(2, 1, 0) * t2s_2(0, 1)
                     + t3dg_2(2, 1, 1) * t2s_2(1, 1)
                     + t3dg_2(2, 1, 2) * t2s_2(2, 1)),
                "T3dg(i,j,l)*T2s(l,k)(2,1,1)");
  test_for_zero(t3dg_1(2, 1, 2)
                  - (t3dg_2(2, 1, 0) * t2s_2(0, 2)
                     + t3dg_2(2, 1, 1) * t2s_2(1, 2)
                     + t3dg_2(2, 1, 2) * t2s_2(2, 2)),
                "T3dg(i,j,l)*T2s(l,k)(2,1,2)");
  test_for_zero(t3dg_1(2, 2, 0)
                  - (t3dg_2(2, 2, 0) * t2s_2(0, 0)
                     + t3dg_2(2, 2, 1) * t2s_2(1, 0)
                     + t3dg_2(2, 2, 2) * t2s_2(2, 0)),
                "T3dg(i,j,l)*T2s(l,k)(2,2,0)");
  test_for_zero(t3dg_1(2, 2, 1)
                  - (t3dg_2(2, 2, 0) * t2s_2(0, 1)
                     + t3dg_2(2, 2, 1) * t2s_2(1, 1)
                     + t3dg_2(2, 2, 2) * t2s_2(2, 1)),
                "T3dg(i,j,l)*T2s(l,k)(2,2,1)");
  test_for_zero(t3dg_1(2, 2, 2)
                  - (t3dg_2(2, 2, 0) * t2s_2(0, 2)
                     + t3dg_2(2, 2, 1) * t2s_2(1, 2)
                     + t3dg_2(2, 2, 2) * t2s_2(2, 2)),
                "T3dg(i,j,l)*T2s(l,k)(2,2,2)");
 
  t3dg_1(i, j, k) = t2s_2(l, k) * t3dg_3(i, j, l);
  test_for_zero(t3dg_1(0, 0, 0)
                  - (t3dg_3(0, 0, 0) * t2s_2(0, 0)
                     + t3dg_3(0, 0, 1) * t2s_2(1, 0)
                     + t3dg_3(0, 0, 2) * t2s_2(2, 0)),
                "T2s(l,k)*T3dg(i,j,l)(0,0,0)");
  test_for_zero(t3dg_1(0, 0, 1)
                  - (t3dg_3(0, 0, 0) * t2s_2(0, 1)
                     + t3dg_3(0, 0, 1) * t2s_2(1, 1)
                     + t3dg_3(0, 0, 2) * t2s_2(2, 1)),
                "T2s(l,k)*T3dg(i,j,l)(0,0,1)");
  test_for_zero(t3dg_1(0, 0, 2)
                  - (t3dg_3(0, 0, 0) * t2s_2(0, 2)
                     + t3dg_3(0, 0, 1) * t2s_2(1, 2)
                     + t3dg_3(0, 0, 2) * t2s_2(2, 2)),
                "T2s(l,k)*T3dg(i,j,l)(0,0,2)");
  test_for_zero(t3dg_1(0, 1, 0)
                  - (t3dg_3(0, 1, 0) * t2s_2(0, 0)
                     + t3dg_3(0, 1, 1) * t2s_2(1, 0)
                     + t3dg_3(0, 1, 2) * t2s_2(2, 0)),
                "T2s(l,k)*T3dg(i,j,l)(0,1,0)");
  test_for_zero(t3dg_1(0, 1, 1)
                  - (t3dg_3(0, 1, 0) * t2s_2(0, 1)
                     + t3dg_3(0, 1, 1) * t2s_2(1, 1)
                     + t3dg_3(0, 1, 2) * t2s_2(2, 1)),
                "T2s(l,k)*T3dg(i,j,l)(0,1,1)");
  test_for_zero(t3dg_1(0, 1, 2)
                  - (t3dg_3(0, 1, 0) * t2s_2(0, 2)
                     + t3dg_3(0, 1, 1) * t2s_2(1, 2)
                     + t3dg_3(0, 1, 2) * t2s_2(2, 2)),
                "T2s(l,k)*T3dg(i,j,l)(0,1,2)");
  test_for_zero(t3dg_1(0, 2, 0)
                  - (t3dg_3(0, 2, 0) * t2s_2(0, 0)
                     + t3dg_3(0, 2, 1) * t2s_2(1, 0)
                     + t3dg_3(0, 2, 2) * t2s_2(2, 0)),
                "T2s(l,k)*T3dg(i,j,l)(0,2,0)");
  test_for_zero(t3dg_1(0, 2, 1)
                  - (t3dg_3(0, 2, 0) * t2s_2(0, 1)
                     + t3dg_3(0, 2, 1) * t2s_2(1, 1)
                     + t3dg_3(0, 2, 2) * t2s_2(2, 1)),
                "T2s(l,k)*T3dg(i,j,l)(0,2,1)");
  test_for_zero(t3dg_1(0, 2, 2)
                  - (t3dg_3(0, 2, 0) * t2s_2(0, 2)
                     + t3dg_3(0, 2, 1) * t2s_2(1, 2)
                     + t3dg_3(0, 2, 2) * t2s_2(2, 2)),
                "T2s(l,k)*T3dg(i,j,l)(0,2,2)");
  test_for_zero(t3dg_1(1, 0, 0)
                  - (t3dg_3(1, 0, 0) * t2s_2(0, 0)
                     + t3dg_3(1, 0, 1) * t2s_2(1, 0)
                     + t3dg_3(1, 0, 2) * t2s_2(2, 0)),
                "T2s(l,k)*T3dg(i,j,l)(1,0,0)");
  test_for_zero(t3dg_1(1, 0, 1)
                  - (t3dg_3(1, 0, 0) * t2s_2(0, 1)
                     + t3dg_3(1, 0, 1) * t2s_2(1, 1)
                     + t3dg_3(1, 0, 2) * t2s_2(2, 1)),
                "T2s(l,k)*T3dg(i,j,l)(1,0,1)");
  test_for_zero(t3dg_1(1, 0, 2)
                  - (t3dg_3(1, 0, 0) * t2s_2(0, 2)
                     + t3dg_3(1, 0, 1) * t2s_2(1, 2)
                     + t3dg_3(1, 0, 2) * t2s_2(2, 2)),
                "T2s(l,k)*T3dg(i,j,l)(1,0,2)");
  test_for_zero(t3dg_1(1, 1, 0)
                  - (t3dg_3(1, 1, 0) * t2s_2(0, 0)
                     + t3dg_3(1, 1, 1) * t2s_2(1, 0)
                     + t3dg_3(1, 1, 2) * t2s_2(2, 0)),
                "T2s(l,k)*T3dg(i,j,l)(1,1,0)");
  test_for_zero(t3dg_1(1, 1, 1)
                  - (t3dg_3(1, 1, 0) * t2s_2(0, 1)
                     + t3dg_3(1, 1, 1) * t2s_2(1, 1)
                     + t3dg_3(1, 1, 2) * t2s_2(2, 1)),
                "T2s(l,k)*T3dg(i,j,l)(1,1,1)");
  test_for_zero(t3dg_1(1, 1, 2)
                  - (t3dg_3(1, 1, 0) * t2s_2(0, 2)
                     + t3dg_3(1, 1, 1) * t2s_2(1, 2)
                     + t3dg_3(1, 1, 2) * t2s_2(2, 2)),
                "T2s(l,k)*T3dg(i,j,l)(1,1,2)");
  test_for_zero(t3dg_1(1, 2, 0)
                  - (t3dg_3(1, 2, 0) * t2s_2(0, 0)
                     + t3dg_3(1, 2, 1) * t2s_2(1, 0)
                     + t3dg_3(1, 2, 2) * t2s_2(2, 0)),
                "T2s(l,k)*T3dg(i,j,l)(1,2,0)");
  test_for_zero(t3dg_1(1, 2, 1)
                  - (t3dg_3(1, 2, 0) * t2s_2(0, 1)
                     + t3dg_3(1, 2, 1) * t2s_2(1, 1)
                     + t3dg_3(1, 2, 2) * t2s_2(2, 1)),
                "T2s(l,k)*T3dg(i,j,l)(1,2,1)");
  test_for_zero(t3dg_1(1, 2, 2)
                  - (t3dg_3(1, 2, 0) * t2s_2(0, 2)
                     + t3dg_3(1, 2, 1) * t2s_2(1, 2)
                     + t3dg_3(1, 2, 2) * t2s_2(2, 2)),
                "T2s(l,k)*T3dg(i,j,l)(1,2,2)");
  test_for_zero(t3dg_1(2, 0, 0)
                  - (t3dg_3(2, 0, 0) * t2s_2(0, 0)
                     + t3dg_3(2, 0, 1) * t2s_2(1, 0)
                     + t3dg_3(2, 0, 2) * t2s_2(2, 0)),
                "T2s(l,k)*T3dg(i,j,l)(2,0,0)");
  test_for_zero(t3dg_1(2, 0, 1)
                  - (t3dg_3(2, 0, 0) * t2s_2(0, 1)
                     + t3dg_3(2, 0, 1) * t2s_2(1, 1)
                     + t3dg_3(2, 0, 2) * t2s_2(2, 1)),
                "T2s(l,k)*T3dg(i,j,l)(2,0,1)");
  test_for_zero(t3dg_1(2, 0, 2)
                  - (t3dg_3(2, 0, 0) * t2s_2(0, 2)
                     + t3dg_3(2, 0, 1) * t2s_2(1, 2)
                     + t3dg_3(2, 0, 2) * t2s_2(2, 2)),
                "T2s(l,k)*T3dg(i,j,l)(2,0,2)");
  test_for_zero(t3dg_1(2, 1, 0)
                  - (t3dg_3(2, 1, 0) * t2s_2(0, 0)
                     + t3dg_3(2, 1, 1) * t2s_2(1, 0)
                     + t3dg_3(2, 1, 2) * t2s_2(2, 0)),
                "T2s(l,k)*T3dg(i,j,l)(2,1,0)");
  test_for_zero(t3dg_1(2, 1, 1)
                  - (t3dg_3(2, 1, 0) * t2s_2(0, 1)
                     + t3dg_3(2, 1, 1) * t2s_2(1, 1)
                     + t3dg_3(2, 1, 2) * t2s_2(2, 1)),
                "T2s(l,k)*T3dg(i,j,l)(2,1,1)");
  test_for_zero(t3dg_1(2, 1, 2)
                  - (t3dg_3(2, 1, 0) * t2s_2(0, 2)
                     + t3dg_3(2, 1, 1) * t2s_2(1, 2)
                     + t3dg_3(2, 1, 2) * t2s_2(2, 2)),
                "T2s(l,k)*T3dg(i,j,l)(2,1,2)");
  test_for_zero(t3dg_1(2, 2, 0)
                  - (t3dg_3(2, 2, 0) * t2s_2(0, 0)
                     + t3dg_3(2, 2, 1) * t2s_2(1, 0)
                     + t3dg_3(2, 2, 2) * t2s_2(2, 0)),
                "T2s(l,k)*T3dg(i,j,l)(2,2,0)");
  test_for_zero(t3dg_1(2, 2, 1)
                  - (t3dg_3(2, 2, 0) * t2s_2(0, 1)
                     + t3dg_3(2, 2, 1) * t2s_2(1, 1)
                     + t3dg_3(2, 2, 2) * t2s_2(2, 1)),
                "T2s(l,k)*T3dg(i,j,l)(2,2,1)");
  test_for_zero(t3dg_1(2, 2, 2)
                  - (t3dg_3(2, 2, 0) * t2s_2(0, 2)
                     + t3dg_3(2, 2, 1) * t2s_2(1, 2)
                     + t3dg_3(2, 2, 2) * t2s_2(2, 2)),
                "T2s(l,k)*T3dg(i,j,l)(2,2,2)");
}

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.

{
  Index<'i', 3> i;
  Index<'j', 3> j;
  Index<'k', 3> k;
  Index<'l', 3> l;
 
  Number<0> N0;
  Number<1> N1;
  Number<2> N2;
 
  /* Dg tests */
 
  t3dg_1(i, j, k) = t3dg_2(i, j, l) * t2s_2(k, l);
  test_for_zero(t3dg_1(0, 0, 0)
                  - (t3dg_2(0, 0, 0) * t2s_2(0, 0)
                     + t3dg_2(0, 0, 1) * t2s_2(0, 1)
                     + t3dg_2(0, 0, 2) * t2s_2(0, 2)),
                "T3dg(i,j,l)*T2s(k,l)(0,0,0)");
  test_for_zero(t3dg_1(0, 0, 1)
                  - (t3dg_2(0, 0, 0) * t2s_2(1, 0)
                     + t3dg_2(0, 0, 1) * t2s_2(1, 1)
                     + t3dg_2(0, 0, 2) * t2s_2(1, 2)),
                "T3dg(i,j,l)*T2s(k,l)(0,0,1)");
  test_for_zero(t3dg_1(0, 0, 2)
                  - (t3dg_2(0, 0, 0) * t2s_2(2, 0)
                     + t3dg_2(0, 0, 1) * t2s_2(2, 1)
                     + t3dg_2(0, 0, 2) * t2s_2(2, 2)),
                "T3dg(i,j,l)*T2s(k,l)(0,0,2)");
  test_for_zero(t3dg_1(0, 1, 0)
                  - (t3dg_2(0, 1, 0) * t2s_2(0, 0)
                     + t3dg_2(0, 1, 1) * t2s_2(0, 1)
                     + t3dg_2(0, 1, 2) * t2s_2(0, 2)),
                "T3dg(i,j,l)*T2s(k,l)(0,1,0)");
  test_for_zero(t3dg_1(0, 1, 1)
                  - (t3dg_2(0, 1, 0) * t2s_2(1, 0)
                     + t3dg_2(0, 1, 1) * t2s_2(1, 1)
                     + t3dg_2(0, 1, 2) * t2s_2(1, 2)),
                "T3dg(i,j,l)*T2s(k,l)(0,1,1)");
  test_for_zero(t3dg_1(0, 1, 2)
                  - (t3dg_2(0, 1, 0) * t2s_2(2, 0)
                     + t3dg_2(0, 1, 1) * t2s_2(2, 1)
                     + t3dg_2(0, 1, 2) * t2s_2(2, 2)),
                "T3dg(i,j,l)*T2s(k,l)(0,1,2)");
  test_for_zero(t3dg_1(0, 2, 0)
                  - (t3dg_2(0, 2, 0) * t2s_2(0, 0)
                     + t3dg_2(0, 2, 1) * t2s_2(0, 1)
                     + t3dg_2(0, 2, 2) * t2s_2(0, 2)),
                "T3dg(i,j,l)*T2s(k,l)(0,2,0)");
  test_for_zero(t3dg_1(0, 2, 1)
                  - (t3dg_2(0, 2, 0) * t2s_2(1, 0)
                     + t3dg_2(0, 2, 1) * t2s_2(1, 1)
                     + t3dg_2(0, 2, 2) * t2s_2(1, 2)),
                "T3dg(i,j,l)*T2s(k,l)(0,2,1)");
  test_for_zero(t3dg_1(0, 2, 2)
                  - (t3dg_2(0, 2, 0) * t2s_2(2, 0)
                     + t3dg_2(0, 2, 1) * t2s_2(2, 1)
                     + t3dg_2(0, 2, 2) * t2s_2(2, 2)),
                "T3dg(i,j,l)*T2s(k,l)(0,2,2)");
  test_for_zero(t3dg_1(1, 0, 0)
                  - (t3dg_2(1, 0, 0) * t2s_2(0, 0)
                     + t3dg_2(1, 0, 1) * t2s_2(0, 1)
                     + t3dg_2(1, 0, 2) * t2s_2(0, 2)),
                "T3dg(i,j,l)*T2s(k,l)(1,0,0)");
  test_for_zero(t3dg_1(1, 0, 1)
                  - (t3dg_2(1, 0, 0) * t2s_2(1, 0)
                     + t3dg_2(1, 0, 1) * t2s_2(1, 1)
                     + t3dg_2(1, 0, 2) * t2s_2(1, 2)),
                "T3dg(i,j,l)*T2s(k,l)(1,0,1)");
  test_for_zero(t3dg_1(1, 0, 2)
                  - (t3dg_2(1, 0, 0) * t2s_2(2, 0)
                     + t3dg_2(1, 0, 1) * t2s_2(2, 1)
                     + t3dg_2(1, 0, 2) * t2s_2(2, 2)),
                "T3dg(i,j,l)*T2s(k,l)(1,0,2)");
  test_for_zero(t3dg_1(1, 1, 0)
                  - (t3dg_2(1, 1, 0) * t2s_2(0, 0)
                     + t3dg_2(1, 1, 1) * t2s_2(0, 1)
                     + t3dg_2(1, 1, 2) * t2s_2(0, 2)),
                "T3dg(i,j,l)*T2s(k,l)(1,1,0)");
  test_for_zero(t3dg_1(1, 1, 1)
                  - (t3dg_2(1, 1, 0) * t2s_2(1, 0)
                     + t3dg_2(1, 1, 1) * t2s_2(1, 1)
                     + t3dg_2(1, 1, 2) * t2s_2(1, 2)),
                "T3dg(i,j,l)*T2s(k,l)(1,1,1)");
  test_for_zero(t3dg_1(1, 1, 2)
                  - (t3dg_2(1, 1, 0) * t2s_2(2, 0)
                     + t3dg_2(1, 1, 1) * t2s_2(2, 1)
                     + t3dg_2(1, 1, 2) * t2s_2(2, 2)),
                "T3dg(i,j,l)*T2s(k,l)(1,1,2)");
  test_for_zero(t3dg_1(1, 2, 0)
                  - (t3dg_2(1, 2, 0) * t2s_2(0, 0)
                     + t3dg_2(1, 2, 1) * t2s_2(0, 1)
                     + t3dg_2(1, 2, 2) * t2s_2(0, 2)),
                "T3dg(i,j,l)*T2s(k,l)(1,2,0)");
  test_for_zero(t3dg_1(1, 2, 1)
                  - (t3dg_2(1, 2, 0) * t2s_2(1, 0)
                     + t3dg_2(1, 2, 1) * t2s_2(1, 1)
                     + t3dg_2(1, 2, 2) * t2s_2(1, 2)),
                "T3dg(i,j,l)*T2s(k,l)(1,2,1)");
  test_for_zero(t3dg_1(1, 2, 2)
                  - (t3dg_2(1, 2, 0) * t2s_2(2, 0)
                     + t3dg_2(1, 2, 1) * t2s_2(2, 1)
                     + t3dg_2(1, 2, 2) * t2s_2(2, 2)),
                "T3dg(i,j,l)*T2s(k,l)(1,2,2)");
  test_for_zero(t3dg_1(2, 0, 0)
                  - (t3dg_2(2, 0, 0) * t2s_2(0, 0)
                     + t3dg_2(2, 0, 1) * t2s_2(0, 1)
                     + t3dg_2(2, 0, 2) * t2s_2(0, 2)),
                "T3dg(i,j,l)*T2s(k,l)(2,0,0)");
  test_for_zero(t3dg_1(2, 0, 1)
                  - (t3dg_2(2, 0, 0) * t2s_2(1, 0)
                     + t3dg_2(2, 0, 1) * t2s_2(1, 1)
                     + t3dg_2(2, 0, 2) * t2s_2(1, 2)),
                "T3dg(i,j,l)*T2s(k,l)(2,0,1)");
  test_for_zero(t3dg_1(2, 0, 2)
                  - (t3dg_2(2, 0, 0) * t2s_2(2, 0)
                     + t3dg_2(2, 0, 1) * t2s_2(2, 1)
                     + t3dg_2(2, 0, 2) * t2s_2(2, 2)),
                "T3dg(i,j,l)*T2s(k,l)(2,0,2)");
  test_for_zero(t3dg_1(2, 1, 0)
                  - (t3dg_2(2, 1, 0) * t2s_2(0, 0)
                     + t3dg_2(2, 1, 1) * t2s_2(0, 1)
                     + t3dg_2(2, 1, 2) * t2s_2(0, 2)),
                "T3dg(i,j,l)*T2s(k,l)(2,1,0)");
  test_for_zero(t3dg_1(2, 1, 1)
                  - (t3dg_2(2, 1, 0) * t2s_2(1, 0)
                     + t3dg_2(2, 1, 1) * t2s_2(1, 1)
                     + t3dg_2(2, 1, 2) * t2s_2(1, 2)),
                "T3dg(i,j,l)*T2s(k,l)(2,1,1)");
  test_for_zero(t3dg_1(2, 1, 2)
                  - (t3dg_2(2, 1, 0) * t2s_2(2, 0)
                     + t3dg_2(2, 1, 1) * t2s_2(2, 1)
                     + t3dg_2(2, 1, 2) * t2s_2(2, 2)),
                "T3dg(i,j,l)*T2s(k,l)(2,1,2)");
  test_for_zero(t3dg_1(2, 2, 0)
                  - (t3dg_2(2, 2, 0) * t2s_2(0, 0)
                     + t3dg_2(2, 2, 1) * t2s_2(0, 1)
                     + t3dg_2(2, 2, 2) * t2s_2(0, 2)),
                "T3dg(i,j,l)*T2s(k,l)(2,2,0)");
  test_for_zero(t3dg_1(2, 2, 1)
                  - (t3dg_2(2, 2, 0) * t2s_2(1, 0)
                     + t3dg_2(2, 2, 1) * t2s_2(1, 1)
                     + t3dg_2(2, 2, 2) * t2s_2(1, 2)),
                "T3dg(i,j,l)*T2s(k,l)(2,2,1)");
  test_for_zero(t3dg_1(2, 2, 2)
                  - (t3dg_2(2, 2, 0) * t2s_2(2, 0)
                     + t3dg_2(2, 2, 1) * t2s_2(2, 1)
                     + t3dg_2(2, 2, 2) * t2s_2(2, 2)),
                "T3dg(i,j,l)*T2s(k,l)(2,2,2)");
 
  t3dg_1(i, j, k) = t2s_2(k, l) * t3dg_3(i, j, l);
  test_for_zero(t3dg_1(0, 0, 0)
                  - (t3dg_3(0, 0, 0) * t2s_2(0, 0)
                     + t3dg_3(0, 0, 1) * t2s_2(0, 1)
                     + t3dg_3(0, 0, 2) * t2s_2(0, 2)),
                "T2s(k,l)*T3dg(i,j,l)(0,0,0)");
  test_for_zero(t3dg_1(0, 0, 1)
                  - (t3dg_3(0, 0, 0) * t2s_2(1, 0)
                     + t3dg_3(0, 0, 1) * t2s_2(1, 1)
                     + t3dg_3(0, 0, 2) * t2s_2(1, 2)),
                "T2s(k,l)*T3dg(i,j,l)(0,0,1)");
  test_for_zero(t3dg_1(0, 0, 2)
                  - (t3dg_3(0, 0, 0) * t2s_2(2, 0)
                     + t3dg_3(0, 0, 1) * t2s_2(2, 1)
                     + t3dg_3(0, 0, 2) * t2s_2(2, 2)),
                "T2s(k,l)*T3dg(i,j,l)(0,0,2)");
  test_for_zero(t3dg_1(0, 1, 0)
                  - (t3dg_3(0, 1, 0) * t2s_2(0, 0)
                     + t3dg_3(0, 1, 1) * t2s_2(0, 1)
                     + t3dg_3(0, 1, 2) * t2s_2(0, 2)),
                "T2s(k,l)*T3dg(i,j,l)(0,1,0)");
  test_for_zero(t3dg_1(0, 1, 1)
                  - (t3dg_3(0, 1, 0) * t2s_2(1, 0)
                     + t3dg_3(0, 1, 1) * t2s_2(1, 1)
                     + t3dg_3(0, 1, 2) * t2s_2(1, 2)),
                "T2s(k,l)*T3dg(i,j,l)(0,1,1)");
  test_for_zero(t3dg_1(0, 1, 2)
                  - (t3dg_3(0, 1, 0) * t2s_2(2, 0)
                     + t3dg_3(0, 1, 1) * t2s_2(2, 1)
                     + t3dg_3(0, 1, 2) * t2s_2(2, 2)),
                "T2s(k,l)*T3dg(i,j,l)(0,1,2)");
  test_for_zero(t3dg_1(0, 2, 0)
                  - (t3dg_3(0, 2, 0) * t2s_2(0, 0)
                     + t3dg_3(0, 2, 1) * t2s_2(0, 1)
                     + t3dg_3(0, 2, 2) * t2s_2(0, 2)),
                "T2s(k,l)*T3dg(i,j,l)(0,2,0)");
  test_for_zero(t3dg_1(0, 2, 1)
                  - (t3dg_3(0, 2, 0) * t2s_2(1, 0)
                     + t3dg_3(0, 2, 1) * t2s_2(1, 1)
                     + t3dg_3(0, 2, 2) * t2s_2(1, 2)),
                "T2s(k,l)*T3dg(i,j,l)(0,2,1)");
  test_for_zero(t3dg_1(0, 2, 2)
                  - (t3dg_3(0, 2, 0) * t2s_2(2, 0)
                     + t3dg_3(0, 2, 1) * t2s_2(2, 1)
                     + t3dg_3(0, 2, 2) * t2s_2(2, 2)),
                "T2s(k,l)*T3dg(i,j,l)(0,2,2)");
  test_for_zero(t3dg_1(1, 0, 0)
                  - (t3dg_3(1, 0, 0) * t2s_2(0, 0)
                     + t3dg_3(1, 0, 1) * t2s_2(0, 1)
                     + t3dg_3(1, 0, 2) * t2s_2(0, 2)),
                "T2s(k,l)*T3dg(i,j,l)(1,0,0)");
  test_for_zero(t3dg_1(1, 0, 1)
                  - (t3dg_3(1, 0, 0) * t2s_2(1, 0)
                     + t3dg_3(1, 0, 1) * t2s_2(1, 1)
                     + t3dg_3(1, 0, 2) * t2s_2(1, 2)),
                "T2s(k,l)*T3dg(i,j,l)(1,0,1)");
  test_for_zero(t3dg_1(1, 0, 2)
                  - (t3dg_3(1, 0, 0) * t2s_2(2, 0)
                     + t3dg_3(1, 0, 1) * t2s_2(2, 1)
                     + t3dg_3(1, 0, 2) * t2s_2(2, 2)),
                "T2s(k,l)*T3dg(i,j,l)(1,0,2)");
  test_for_zero(t3dg_1(1, 1, 0)
                  - (t3dg_3(1, 1, 0) * t2s_2(0, 0)
                     + t3dg_3(1, 1, 1) * t2s_2(0, 1)
                     + t3dg_3(1, 1, 2) * t2s_2(0, 2)),
                "T2s(k,l)*T3dg(i,j,l)(1,1,0)");
  test_for_zero(t3dg_1(1, 1, 1)
                  - (t3dg_3(1, 1, 0) * t2s_2(1, 0)
                     + t3dg_3(1, 1, 1) * t2s_2(1, 1)
                     + t3dg_3(1, 1, 2) * t2s_2(1, 2)),
                "T2s(k,l)*T3dg(i,j,l)(1,1,1)");
  test_for_zero(t3dg_1(1, 1, 2)
                  - (t3dg_3(1, 1, 0) * t2s_2(2, 0)
                     + t3dg_3(1, 1, 1) * t2s_2(2, 1)
                     + t3dg_3(1, 1, 2) * t2s_2(2, 2)),
                "T2s(k,l)*T3dg(i,j,l)(1,1,2)");
  test_for_zero(t3dg_1(1, 2, 0)
                  - (t3dg_3(1, 2, 0) * t2s_2(0, 0)
                     + t3dg_3(1, 2, 1) * t2s_2(0, 1)
                     + t3dg_3(1, 2, 2) * t2s_2(0, 2)),
                "T2s(k,l)*T3dg(i,j,l)(1,2,0)");
  test_for_zero(t3dg_1(1, 2, 1)
                  - (t3dg_3(1, 2, 0) * t2s_2(1, 0)
                     + t3dg_3(1, 2, 1) * t2s_2(1, 1)
                     + t3dg_3(1, 2, 2) * t2s_2(1, 2)),
                "T2s(k,l)*T3dg(i,j,l)(1,2,1)");
  test_for_zero(t3dg_1(1, 2, 2)
                  - (t3dg_3(1, 2, 0) * t2s_2(2, 0)
                     + t3dg_3(1, 2, 1) * t2s_2(2, 1)
                     + t3dg_3(1, 2, 2) * t2s_2(2, 2)),
                "T2s(k,l)*T3dg(i,j,l)(1,2,2)");
  test_for_zero(t3dg_1(2, 0, 0)
                  - (t3dg_3(2, 0, 0) * t2s_2(0, 0)
                     + t3dg_3(2, 0, 1) * t2s_2(0, 1)
                     + t3dg_3(2, 0, 2) * t2s_2(0, 2)),
                "T2s(k,l)*T3dg(i,j,l)(2,0,0)");
  test_for_zero(t3dg_1(2, 0, 1)
                  - (t3dg_3(2, 0, 0) * t2s_2(1, 0)
                     + t3dg_3(2, 0, 1) * t2s_2(1, 1)
                     + t3dg_3(2, 0, 2) * t2s_2(1, 2)),
                "T2s(k,l)*T3dg(i,j,l)(2,0,1)");
  test_for_zero(t3dg_1(2, 0, 2)
                  - (t3dg_3(2, 0, 0) * t2s_2(2, 0)
                     + t3dg_3(2, 0, 1) * t2s_2(2, 1)
                     + t3dg_3(2, 0, 2) * t2s_2(2, 2)),
                "T2s(k,l)*T3dg(i,j,l)(2,0,2)");
  test_for_zero(t3dg_1(2, 1, 0)
                  - (t3dg_3(2, 1, 0) * t2s_2(0, 0)
                     + t3dg_3(2, 1, 1) * t2s_2(0, 1)
                     + t3dg_3(2, 1, 2) * t2s_2(0, 2)),
                "T2s(k,l)*T3dg(i,j,l)(2,1,0)");
  test_for_zero(t3dg_1(2, 1, 1)
                  - (t3dg_3(2, 1, 0) * t2s_2(1, 0)
                     + t3dg_3(2, 1, 1) * t2s_2(1, 1)
                     + t3dg_3(2, 1, 2) * t2s_2(1, 2)),
                "T2s(k,l)*T3dg(i,j,l)(2,1,1)");
  test_for_zero(t3dg_1(2, 1, 2)
                  - (t3dg_3(2, 1, 0) * t2s_2(2, 0)
                     + t3dg_3(2, 1, 1) * t2s_2(2, 1)
                     + t3dg_3(2, 1, 2) * t2s_2(2, 2)),
                "T2s(k,l)*T3dg(i,j,l)(2,1,2)");
  test_for_zero(t3dg_1(2, 2, 0)
                  - (t3dg_3(2, 2, 0) * t2s_2(0, 0)
                     + t3dg_3(2, 2, 1) * t2s_2(0, 1)
                     + t3dg_3(2, 2, 2) * t2s_2(0, 2)),
                "T2s(k,l)*T3dg(i,j,l)(2,2,0)");
  test_for_zero(t3dg_1(2, 2, 1)
                  - (t3dg_3(2, 2, 0) * t2s_2(1, 0)
                     + t3dg_3(2, 2, 1) * t2s_2(1, 1)
                     + t3dg_3(2, 2, 2) * t2s_2(1, 2)),
                "T2s(k,l)*T3dg(i,j,l)(2,2,1)");
  test_for_zero(t3dg_1(2, 2, 2)
                  - (t3dg_3(2, 2, 0) * t2s_2(2, 0)
                     + t3dg_3(2, 2, 1) * t2s_2(2, 1)
                     + t3dg_3(2, 2, 2) * t2s_2(2, 2)),
                "T2s(k,l)*T3dg(i,j,l)(2,2,2)");
}

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.

{
  Index<'i', 3> i;
  Index<'j', 3> j;
  Index<'k', 3> k;
 
  Number<0> N0;
  Number<1> N1;
  Number<2> N2;
 
  /* Dg tests */
 
  t1_1(i) = t3dg_2(i, j, k) * t2s_2(j, k);
  test_for_zero(
    t1_1(0)
      - (t3dg_2(0, 0, 0) * t2s_2(0, 0) + t3dg_2(0, 0, 1) * t2s_2(0, 1)
         + t3dg_2(0, 0, 2) * t2s_2(0, 2) + t3dg_2(0, 1, 0) * t2s_2(1, 0)
         + t3dg_2(0, 1, 1) * t2s_2(1, 1) + t3dg_2(0, 1, 2) * t2s_2(1, 2)
         + t3dg_2(0, 2, 0) * t2s_2(2, 0) + t3dg_2(0, 2, 1) * t2s_2(2, 1)
         + t3dg_2(0, 2, 2) * t2s_2(2, 2)),
    "T3dg(i,j,k)*T2s(j,k)(0)");
  test_for_zero(
    t1_1(1)
      - (t3dg_2(1, 0, 0) * t2s_2(0, 0) + t3dg_2(1, 0, 1) * t2s_2(0, 1)
         + t3dg_2(1, 0, 2) * t2s_2(0, 2) + t3dg_2(1, 1, 0) * t2s_2(1, 0)
         + t3dg_2(1, 1, 1) * t2s_2(1, 1) + t3dg_2(1, 1, 2) * t2s_2(1, 2)
         + t3dg_2(1, 2, 0) * t2s_2(2, 0) + t3dg_2(1, 2, 1) * t2s_2(2, 1)
         + t3dg_2(1, 2, 2) * t2s_2(2, 2)),
    "T3dg(i,j,k)*T2s(j,k)(1)");
  test_for_zero(
    t1_1(2)
      - (t3dg_2(2, 0, 0) * t2s_2(0, 0) + t3dg_2(2, 0, 1) * t2s_2(0, 1)
         + t3dg_2(2, 0, 2) * t2s_2(0, 2) + t3dg_2(2, 1, 0) * t2s_2(1, 0)
         + t3dg_2(2, 1, 1) * t2s_2(1, 1) + t3dg_2(2, 1, 2) * t2s_2(1, 2)
         + t3dg_2(2, 2, 0) * t2s_2(2, 0) + t3dg_2(2, 2, 1) * t2s_2(2, 1)
         + t3dg_2(2, 2, 2) * t2s_2(2, 2)),
    "T3dg(i,j,k)*T2s(j,k)(2)");
 
  t1_1(i) = t2s_2(j, k) * t3dg_2(i, j, k);
  test_for_zero(
    t1_1(0)
      - (t3dg_2(0, 0, 0) * t2s_2(0, 0) + t3dg_2(0, 0, 1) * t2s_2(0, 1)
         + t3dg_2(0, 0, 2) * t2s_2(0, 2) + t3dg_2(0, 1, 0) * t2s_2(1, 0)
         + t3dg_2(0, 1, 1) * t2s_2(1, 1) + t3dg_2(0, 1, 2) * t2s_2(1, 2)
         + t3dg_2(0, 2, 0) * t2s_2(2, 0) + t3dg_2(0, 2, 1) * t2s_2(2, 1)
         + t3dg_2(0, 2, 2) * t2s_2(2, 2)),
    "T2s(j,k)*T3dg(i,j,k)(0)");
  test_for_zero(
    t1_1(1)
      - (t3dg_2(1, 0, 0) * t2s_2(0, 0) + t3dg_2(1, 0, 1) * t2s_2(0, 1)
         + t3dg_2(1, 0, 2) * t2s_2(0, 2) + t3dg_2(1, 1, 0) * t2s_2(1, 0)
         + t3dg_2(1, 1, 1) * t2s_2(1, 1) + t3dg_2(1, 1, 2) * t2s_2(1, 2)
         + t3dg_2(1, 2, 0) * t2s_2(2, 0) + t3dg_2(1, 2, 1) * t2s_2(2, 1)
         + t3dg_2(1, 2, 2) * t2s_2(2, 2)),
    "T2s(j,k)*T3dg(i,j,k)(1)");
  test_for_zero(
    t1_1(2)
      - (t3dg_2(2, 0, 0) * t2s_2(0, 0) + t3dg_2(2, 0, 1) * t2s_2(0, 1)
         + t3dg_2(2, 0, 2) * t2s_2(0, 2) + t3dg_2(2, 1, 0) * t2s_2(1, 0)
         + t3dg_2(2, 1, 1) * t2s_2(1, 1) + t3dg_2(2, 1, 2) * t2s_2(1, 2)
         + t3dg_2(2, 2, 0) * t2s_2(2, 0) + t3dg_2(2, 2, 1) * t2s_2(2, 1)
         + t3dg_2(2, 2, 2) * t2s_2(2, 2)),
    "T2s(j,k)*T3dg(i,j,k)(2)");
}

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.

{
  Index<'i', 3> i;
  Index<'j', 3> j;
  Index<'k', 3> k;
 
  Number<0> N0;
  Number<1> N1;
  Number<2> N2;
 
  /* Dg tests */
 
  t1_1(i) = t3dg_2(i, j, k) * t2s_2(k, j);
  test_for_zero(
    t1_1(0)
      - (t3dg_2(0, 0, 0) * t2s_2(0, 0) + t3dg_2(0, 0, 1) * t2s_2(1, 0)
         + t3dg_2(0, 0, 2) * t2s_2(2, 0) + t3dg_2(0, 1, 0) * t2s_2(0, 1)
         + t3dg_2(0, 1, 1) * t2s_2(1, 1) + t3dg_2(0, 1, 2) * t2s_2(2, 1)
         + t3dg_2(0, 2, 0) * t2s_2(0, 2) + t3dg_2(0, 2, 1) * t2s_2(1, 2)
         + t3dg_2(0, 2, 2) * t2s_2(2, 2)),
    "T3dg(i,j,k)*T2s(k,j)(0)");
  test_for_zero(
    t1_1(1)
      - (t3dg_2(1, 0, 0) * t2s_2(0, 0) + t3dg_2(1, 0, 1) * t2s_2(1, 0)
         + t3dg_2(1, 0, 2) * t2s_2(2, 0) + t3dg_2(1, 1, 0) * t2s_2(0, 1)
         + t3dg_2(1, 1, 1) * t2s_2(1, 1) + t3dg_2(1, 1, 2) * t2s_2(2, 1)
         + t3dg_2(1, 2, 0) * t2s_2(0, 2) + t3dg_2(1, 2, 1) * t2s_2(1, 2)
         + t3dg_2(1, 2, 2) * t2s_2(2, 2)),
    "T3dg(i,j,k)*T2s(k,j)(1)");
  test_for_zero(
    t1_1(2)
      - (t3dg_2(2, 0, 0) * t2s_2(0, 0) + t3dg_2(2, 0, 1) * t2s_2(1, 0)
         + t3dg_2(2, 0, 2) * t2s_2(2, 0) + t3dg_2(2, 1, 0) * t2s_2(0, 1)
         + t3dg_2(2, 1, 1) * t2s_2(1, 1) + t3dg_2(2, 1, 2) * t2s_2(2, 1)
         + t3dg_2(2, 2, 0) * t2s_2(0, 2) + t3dg_2(2, 2, 1) * t2s_2(1, 2)
         + t3dg_2(2, 2, 2) * t2s_2(2, 2)),
    "T3dg(i,j,k)*T2s(k,j)(2)");
 
  t1_1(i) = t2s_2(k, j) * t3dg_2(i, j, k);
  test_for_zero(
    t1_1(0)
      - (t3dg_2(0, 0, 0) * t2s_2(0, 0) + t3dg_2(0, 0, 1) * t2s_2(1, 0)
         + t3dg_2(0, 0, 2) * t2s_2(2, 0) + t3dg_2(0, 1, 0) * t2s_2(0, 1)
         + t3dg_2(0, 1, 1) * t2s_2(1, 1) + t3dg_2(0, 1, 2) * t2s_2(2, 1)
         + t3dg_2(0, 2, 0) * t2s_2(0, 2) + t3dg_2(0, 2, 1) * t2s_2(1, 2)
         + t3dg_2(0, 2, 2) * t2s_2(2, 2)),
    "T2s(k,j)*T3dg(i,j,k)(0)");
  test_for_zero(
    t1_1(1)
      - (t3dg_2(1, 0, 0) * t2s_2(0, 0) + t3dg_2(1, 0, 1) * t2s_2(1, 0)
         + t3dg_2(1, 0, 2) * t2s_2(2, 0) + t3dg_2(1, 1, 0) * t2s_2(0, 1)
         + t3dg_2(1, 1, 1) * t2s_2(1, 1) + t3dg_2(1, 1, 2) * t2s_2(2, 1)
         + t3dg_2(1, 2, 0) * t2s_2(0, 2) + t3dg_2(1, 2, 1) * t2s_2(1, 2)
         + t3dg_2(1, 2, 2) * t2s_2(2, 2)),
    "T2s(k,j)*T3dg(i,j,k)(1)");
  test_for_zero(
    t1_1(2)
      - (t3dg_2(2, 0, 0) * t2s_2(0, 0) + t3dg_2(2, 0, 1) * t2s_2(1, 0)
         + t3dg_2(2, 0, 2) * t2s_2(2, 0) + t3dg_2(2, 1, 0) * t2s_2(0, 1)
         + t3dg_2(2, 1, 1) * t2s_2(1, 1) + t3dg_2(2, 1, 2) * t2s_2(2, 1)
         + t3dg_2(2, 2, 0) * t2s_2(0, 2) + t3dg_2(2, 2, 1) * t2s_2(1, 2)
         + t3dg_2(2, 2, 2) * t2s_2(2, 2)),
    "T2s(k,j)*T3dg(i,j,k)(2)");
}

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.

{
  Index<'i', 3> i;
  Index<'j', 3> j;
  Index<'k', 3> k;
 
  Number<0> N0;
  Number<1> N1;
  Number<2> N2;
 
  /* Dg tests */
 
  t1_1(i) = t3dg_2(j, i, k) * t2s_2(j, k);
  test_for_zero(
    t1_1(0)
      - (t3dg_2(0, 0, 0) * t2s_2(0, 0) + t3dg_2(0, 0, 1) * t2s_2(0, 1)
         + t3dg_2(0, 0, 2) * t2s_2(0, 2) + t3dg_2(1, 0, 0) * t2s_2(1, 0)
         + t3dg_2(1, 0, 1) * t2s_2(1, 1) + t3dg_2(1, 0, 2) * t2s_2(1, 2)
         + t3dg_2(2, 0, 0) * t2s_2(2, 0) + t3dg_2(2, 0, 1) * t2s_2(2, 1)
         + t3dg_2(2, 0, 2) * t2s_2(2, 2)),
    "T3dg(j,i,k)*T2s(j,k)(0)");
  test_for_zero(
    t1_1(1)
      - (t3dg_2(0, 1, 0) * t2s_2(0, 0) + t3dg_2(0, 1, 1) * t2s_2(0, 1)
         + t3dg_2(0, 1, 2) * t2s_2(0, 2) + t3dg_2(1, 1, 0) * t2s_2(1, 0)
         + t3dg_2(1, 1, 1) * t2s_2(1, 1) + t3dg_2(1, 1, 2) * t2s_2(1, 2)
         + t3dg_2(2, 1, 0) * t2s_2(2, 0) + t3dg_2(2, 1, 1) * t2s_2(2, 1)
         + t3dg_2(2, 1, 2) * t2s_2(2, 2)),
    "T3dg(j,i,k)*T2s(j,k)(1)");
  test_for_zero(
    t1_1(2)
      - (t3dg_2(0, 2, 0) * t2s_2(0, 0) + t3dg_2(0, 2, 1) * t2s_2(0, 1)
         + t3dg_2(0, 2, 2) * t2s_2(0, 2) + t3dg_2(1, 2, 0) * t2s_2(1, 0)
         + t3dg_2(1, 2, 1) * t2s_2(1, 1) + t3dg_2(1, 2, 2) * t2s_2(1, 2)
         + t3dg_2(2, 2, 0) * t2s_2(2, 0) + t3dg_2(2, 2, 1) * t2s_2(2, 1)
         + t3dg_2(2, 2, 2) * t2s_2(2, 2)),
    "T3dg(j,i,k)*T2s(j,k)(2)");
 
  t1_1(i) = t2s_2(j, k) * t3dg_2(j, i, k);
  test_for_zero(
    t1_1(0)
      - (t3dg_2(0, 0, 0) * t2s_2(0, 0) + t3dg_2(0, 0, 1) * t2s_2(0, 1)
         + t3dg_2(0, 0, 2) * t2s_2(0, 2) + t3dg_2(1, 0, 0) * t2s_2(1, 0)
         + t3dg_2(1, 0, 1) * t2s_2(1, 1) + t3dg_2(1, 0, 2) * t2s_2(1, 2)
         + t3dg_2(2, 0, 0) * t2s_2(2, 0) + t3dg_2(2, 0, 1) * t2s_2(2, 1)
         + t3dg_2(2, 0, 2) * t2s_2(2, 2)),
    "T2s(j,k)*T3dg(j,i,k)(0)");
  test_for_zero(
    t1_1(1)
      - (t3dg_2(0, 1, 0) * t2s_2(0, 0) + t3dg_2(0, 1, 1) * t2s_2(0, 1)
         + t3dg_2(0, 1, 2) * t2s_2(0, 2) + t3dg_2(1, 1, 0) * t2s_2(1, 0)
         + t3dg_2(1, 1, 1) * t2s_2(1, 1) + t3dg_2(1, 1, 2) * t2s_2(1, 2)
         + t3dg_2(2, 1, 0) * t2s_2(2, 0) + t3dg_2(2, 1, 1) * t2s_2(2, 1)
         + t3dg_2(2, 1, 2) * t2s_2(2, 2)),
    "T2s(j,k)*T3dg(j,i,k)(1)");
  test_for_zero(
    t1_1(2)
      - (t3dg_2(0, 2, 0) * t2s_2(0, 0) + t3dg_2(0, 2, 1) * t2s_2(0, 1)
         + t3dg_2(0, 2, 2) * t2s_2(0, 2) + t3dg_2(1, 2, 0) * t2s_2(1, 0)
         + t3dg_2(1, 2, 1) * t2s_2(1, 1) + t3dg_2(1, 2, 2) * t2s_2(1, 2)
         + t3dg_2(2, 2, 0) * t2s_2(2, 0) + t3dg_2(2, 2, 1) * t2s_2(2, 1)
         + t3dg_2(2, 2, 2) * t2s_2(2, 2)),
    "T2s(j,k)*T3dg(j,i,k)(2)");
}

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.

{
  Index<'i', 3> i;
  Index<'j', 3> j;
  Index<'k', 3> k;
 
  Number<0> N0;
  Number<1> N1;
  Number<2> N2;
 
  /* Dg tests */
 
  t1_1(i) = t3dg_2(j, i, k) * t2s_2(k, j);
  test_for_zero(
    t1_1(0)
      - (t3dg_2(0, 0, 0) * t2s_2(0, 0) + t3dg_2(0, 0, 1) * t2s_2(1, 0)
         + t3dg_2(0, 0, 2) * t2s_2(2, 0) + t3dg_2(1, 0, 0) * t2s_2(0, 1)
         + t3dg_2(1, 0, 1) * t2s_2(1, 1) + t3dg_2(1, 0, 2) * t2s_2(2, 1)
         + t3dg_2(2, 0, 0) * t2s_2(0, 2) + t3dg_2(2, 0, 1) * t2s_2(1, 2)
         + t3dg_2(2, 0, 2) * t2s_2(2, 2)),
    "T3dg(j,i,k)*T2s(k,j)(0)");
  test_for_zero(
    t1_1(1)
      - (t3dg_2(0, 1, 0) * t2s_2(0, 0) + t3dg_2(0, 1, 1) * t2s_2(1, 0)
         + t3dg_2(0, 1, 2) * t2s_2(2, 0) + t3dg_2(1, 1, 0) * t2s_2(0, 1)
         + t3dg_2(1, 1, 1) * t2s_2(1, 1) + t3dg_2(1, 1, 2) * t2s_2(2, 1)
         + t3dg_2(2, 1, 0) * t2s_2(0, 2) + t3dg_2(2, 1, 1) * t2s_2(1, 2)
         + t3dg_2(2, 1, 2) * t2s_2(2, 2)),
    "T3dg(j,i,k)*T2s(k,j)(1)");
  test_for_zero(
    t1_1(2)
      - (t3dg_2(0, 2, 0) * t2s_2(0, 0) + t3dg_2(0, 2, 1) * t2s_2(1, 0)
         + t3dg_2(0, 2, 2) * t2s_2(2, 0) + t3dg_2(1, 2, 0) * t2s_2(0, 1)
         + t3dg_2(1, 2, 1) * t2s_2(1, 1) + t3dg_2(1, 2, 2) * t2s_2(2, 1)
         + t3dg_2(2, 2, 0) * t2s_2(0, 2) + t3dg_2(2, 2, 1) * t2s_2(1, 2)
         + t3dg_2(2, 2, 2) * t2s_2(2, 2)),
    "T3dg(j,i,k)*T2s(k,j)(2)");
 
  t1_1(i) = t2s_2(k, j) * t3dg_2(j, i, k);
  test_for_zero(
    t1_1(0)
      - (t3dg_2(0, 0, 0) * t2s_2(0, 0) + t3dg_2(0, 0, 1) * t2s_2(1, 0)
         + t3dg_2(0, 0, 2) * t2s_2(2, 0) + t3dg_2(1, 0, 0) * t2s_2(0, 1)
         + t3dg_2(1, 0, 1) * t2s_2(1, 1) + t3dg_2(1, 0, 2) * t2s_2(2, 1)
         + t3dg_2(2, 0, 0) * t2s_2(0, 2) + t3dg_2(2, 0, 1) * t2s_2(1, 2)
         + t3dg_2(2, 0, 2) * t2s_2(2, 2)),
    "T2s(k,j)*T3dg(j,i,k)(0)");
  test_for_zero(
    t1_1(1)
      - (t3dg_2(0, 1, 0) * t2s_2(0, 0) + t3dg_2(0, 1, 1) * t2s_2(1, 0)
         + t3dg_2(0, 1, 2) * t2s_2(2, 0) + t3dg_2(1, 1, 0) * t2s_2(0, 1)
         + t3dg_2(1, 1, 1) * t2s_2(1, 1) + t3dg_2(1, 1, 2) * t2s_2(2, 1)
         + t3dg_2(2, 1, 0) * t2s_2(0, 2) + t3dg_2(2, 1, 1) * t2s_2(1, 2)
         + t3dg_2(2, 1, 2) * t2s_2(2, 2)),
    "T2s(k,j)*T3dg(j,i,k)(1)");
  test_for_zero(
    t1_1(2)
      - (t3dg_2(0, 2, 0) * t2s_2(0, 0) + t3dg_2(0, 2, 1) * t2s_2(1, 0)
         + t3dg_2(0, 2, 2) * t2s_2(2, 0) + t3dg_2(1, 2, 0) * t2s_2(0, 1)
         + t3dg_2(1, 2, 1) * t2s_2(1, 1) + t3dg_2(1, 2, 2) * t2s_2(2, 1)
         + t3dg_2(2, 2, 0) * t2s_2(0, 2) + t3dg_2(2, 2, 1) * t2s_2(1, 2)
         + t3dg_2(2, 2, 2) * t2s_2(2, 2)),
    "T2s(k,j)*T3dg(j,i,k)(2)");
}

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.

{
  Index<'i', 3> i;
  Index<'j', 3> j;
  Index<'k', 3> k;
 
  Number<0> N0;
  Number<1> N1;
  Number<2> N2;
 
  /* Dg tests */
 
  t1_1(i) = t3dg_2(j, k, i) * t2s_2(j, k);
  test_for_zero(
    t1_1(0)
      - (t3dg_2(0, 0, 0) * t2s_2(0, 0) + t3dg_2(0, 1, 0) * t2s_2(0, 1)
         + t3dg_2(0, 2, 0) * t2s_2(0, 2) + t3dg_2(1, 0, 0) * t2s_2(1, 0)
         + t3dg_2(1, 1, 0) * t2s_2(1, 1) + t3dg_2(1, 2, 0) * t2s_2(1, 2)
         + t3dg_2(2, 0, 0) * t2s_2(2, 0) + t3dg_2(2, 1, 0) * t2s_2(2, 1)
         + t3dg_2(2, 2, 0) * t2s_2(2, 2)),
    "T3dg(j,k,i)*T2s(j,k)(0)");
  test_for_zero(
    t1_1(1)
      - (t3dg_2(0, 0, 1) * t2s_2(0, 0) + t3dg_2(0, 1, 1) * t2s_2(0, 1)
         + t3dg_2(0, 2, 1) * t2s_2(0, 2) + t3dg_2(1, 0, 1) * t2s_2(1, 0)
         + t3dg_2(1, 1, 1) * t2s_2(1, 1) + t3dg_2(1, 2, 1) * t2s_2(1, 2)
         + t3dg_2(2, 0, 1) * t2s_2(2, 0) + t3dg_2(2, 1, 1) * t2s_2(2, 1)
         + t3dg_2(2, 2, 1) * t2s_2(2, 2)),
    "T3dg(j,k,i)*T2s(j,k)(1)");
  test_for_zero(
    t1_1(2)
      - (t3dg_2(0, 0, 2) * t2s_2(0, 0) + t3dg_2(0, 1, 2) * t2s_2(0, 1)
         + t3dg_2(0, 2, 2) * t2s_2(0, 2) + t3dg_2(1, 0, 2) * t2s_2(1, 0)
         + t3dg_2(1, 1, 2) * t2s_2(1, 1) + t3dg_2(1, 2, 2) * t2s_2(1, 2)
         + t3dg_2(2, 0, 2) * t2s_2(2, 0) + t3dg_2(2, 1, 2) * t2s_2(2, 1)
         + t3dg_2(2, 2, 2) * t2s_2(2, 2)),
    "T3dg(j,k,i)*T2s(j,k)(2)");
 
  t1_1(i) = t2s_2(j, k) * t3dg_2(j, k, i);
  test_for_zero(
    t1_1(0)
      - (t3dg_2(0, 0, 0) * t2s_2(0, 0) + t3dg_2(0, 1, 0) * t2s_2(0, 1)
         + t3dg_2(0, 2, 0) * t2s_2(0, 2) + t3dg_2(1, 0, 0) * t2s_2(1, 0)
         + t3dg_2(1, 1, 0) * t2s_2(1, 1) + t3dg_2(1, 2, 0) * t2s_2(1, 2)
         + t3dg_2(2, 0, 0) * t2s_2(2, 0) + t3dg_2(2, 1, 0) * t2s_2(2, 1)
         + t3dg_2(2, 2, 0) * t2s_2(2, 2)),
    "T2s(j,k)*T3dg(j,k,i)(0)");
  test_for_zero(
    t1_1(1)
      - (t3dg_2(0, 0, 1) * t2s_2(0, 0) + t3dg_2(0, 1, 1) * t2s_2(0, 1)
         + t3dg_2(0, 2, 1) * t2s_2(0, 2) + t3dg_2(1, 0, 1) * t2s_2(1, 0)
         + t3dg_2(1, 1, 1) * t2s_2(1, 1) + t3dg_2(1, 2, 1) * t2s_2(1, 2)
         + t3dg_2(2, 0, 1) * t2s_2(2, 0) + t3dg_2(2, 1, 1) * t2s_2(2, 1)
         + t3dg_2(2, 2, 1) * t2s_2(2, 2)),
    "T2s(j,k)*T3dg(j,k,i)(1)");
  test_for_zero(
    t1_1(2)
      - (t3dg_2(0, 0, 2) * t2s_2(0, 0) + t3dg_2(0, 1, 2) * t2s_2(0, 1)
         + t3dg_2(0, 2, 2) * t2s_2(0, 2) + t3dg_2(1, 0, 2) * t2s_2(1, 0)
         + t3dg_2(1, 1, 2) * t2s_2(1, 1) + t3dg_2(1, 2, 2) * t2s_2(1, 2)
         + t3dg_2(2, 0, 2) * t2s_2(2, 0) + t3dg_2(2, 1, 2) * t2s_2(2, 1)
         + t3dg_2(2, 2, 2) * t2s_2(2, 2)),
    "T2s(j,k)*T3dg(j,k,i)(2)");
}

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.

{
  Index<'i', 3> i;
  Index<'j', 3> j;
  Index<'k', 3> k;
 
  Number<0> N0;
  Number<1> N1;
  Number<2> N2;
 
  /* Dg tests */
 
  t1_1(i) = t3dg_2(j, k, i) * t2s_2(k, j);
  test_for_zero(
    t1_1(0)
      - (t3dg_2(0, 0, 0) * t2s_2(0, 0) + t3dg_2(0, 1, 0) * t2s_2(1, 0)
         + t3dg_2(0, 2, 0) * t2s_2(2, 0) + t3dg_2(1, 0, 0) * t2s_2(0, 1)
         + t3dg_2(1, 1, 0) * t2s_2(1, 1) + t3dg_2(1, 2, 0) * t2s_2(2, 1)
         + t3dg_2(2, 0, 0) * t2s_2(0, 2) + t3dg_2(2, 1, 0) * t2s_2(1, 2)
         + t3dg_2(2, 2, 0) * t2s_2(2, 2)),
    "T3dg(j,k,i)*T2s(k,j)(0)");
  test_for_zero(
    t1_1(1)
      - (t3dg_2(0, 0, 1) * t2s_2(0, 0) + t3dg_2(0, 1, 1) * t2s_2(1, 0)
         + t3dg_2(0, 2, 1) * t2s_2(2, 0) + t3dg_2(1, 0, 1) * t2s_2(0, 1)
         + t3dg_2(1, 1, 1) * t2s_2(1, 1) + t3dg_2(1, 2, 1) * t2s_2(2, 1)
         + t3dg_2(2, 0, 1) * t2s_2(0, 2) + t3dg_2(2, 1, 1) * t2s_2(1, 2)
         + t3dg_2(2, 2, 1) * t2s_2(2, 2)),
    "T3dg(j,k,i)*T2s(k,j)(1)");
  test_for_zero(
    t1_1(2)
      - (t3dg_2(0, 0, 2) * t2s_2(0, 0) + t3dg_2(0, 1, 2) * t2s_2(1, 0)
         + t3dg_2(0, 2, 2) * t2s_2(2, 0) + t3dg_2(1, 0, 2) * t2s_2(0, 1)
         + t3dg_2(1, 1, 2) * t2s_2(1, 1) + t3dg_2(1, 2, 2) * t2s_2(2, 1)
         + t3dg_2(2, 0, 2) * t2s_2(0, 2) + t3dg_2(2, 1, 2) * t2s_2(1, 2)
         + t3dg_2(2, 2, 2) * t2s_2(2, 2)),
    "T3dg(j,k,i)*T2s(k,j)(2)");
 
  t1_1(i) = t2s_2(k, j) * t3dg_2(j, k, i);
  test_for_zero(
    t1_1(0)
      - (t3dg_2(0, 0, 0) * t2s_2(0, 0) + t3dg_2(0, 1, 0) * t2s_2(1, 0)
         + t3dg_2(0, 2, 0) * t2s_2(2, 0) + t3dg_2(1, 0, 0) * t2s_2(0, 1)
         + t3dg_2(1, 1, 0) * t2s_2(1, 1) + t3dg_2(1, 2, 0) * t2s_2(2, 1)
         + t3dg_2(2, 0, 0) * t2s_2(0, 2) + t3dg_2(2, 1, 0) * t2s_2(1, 2)
         + t3dg_2(2, 2, 0) * t2s_2(2, 2)),
    "T2s(k,j)*T3dg(j,k,i)(0)");
  test_for_zero(
    t1_1(1)
      - (t3dg_2(0, 0, 1) * t2s_2(0, 0) + t3dg_2(0, 1, 1) * t2s_2(1, 0)
         + t3dg_2(0, 2, 1) * t2s_2(2, 0) + t3dg_2(1, 0, 1) * t2s_2(0, 1)
         + t3dg_2(1, 1, 1) * t2s_2(1, 1) + t3dg_2(1, 2, 1) * t2s_2(2, 1)
         + t3dg_2(2, 0, 1) * t2s_2(0, 2) + t3dg_2(2, 1, 1) * t2s_2(1, 2)
         + t3dg_2(2, 2, 1) * t2s_2(2, 2)),
    "T2s(k,j)*T3dg(j,k,i)(1)");
  test_for_zero(
    t1_1(2)
      - (t3dg_2(0, 0, 2) * t2s_2(0, 0) + t3dg_2(0, 1, 2) * t2s_2(1, 0)
         + t3dg_2(0, 2, 2) * t2s_2(2, 0) + t3dg_2(1, 0, 2) * t2s_2(0, 1)
         + t3dg_2(1, 1, 2) * t2s_2(1, 1) + t3dg_2(1, 2, 2) * t2s_2(2, 1)
         + t3dg_2(2, 0, 2) * t2s_2(0, 2) + t3dg_2(2, 1, 2) * t2s_2(1, 2)
         + t3dg_2(2, 2, 2) * t2s_2(2, 2)),
    "T2s(k,j)*T3dg(j,k,i)(2)");
}

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.

{
  Index<'i', 3> i;
  Index<'j', 3> j;
  Index<'k', 3> k;
  Index<'l', 3> l;
 
  Number<0> N0;
  Number<1> N1;
  Number<2> N2;
 
  t3dg_1(j, k, i) = (t3dg_2(i, j, k) || t3dg_2(i, k, j));
  test_for_zero(t3dg_1(0, 0, 0) - (t3dg_2(0, 0, 0) + t3dg_2(0, 0, 0)),
                "T3dg(i,j,k)||T3dg(i,k,j)(0,0,0)");
  test_for_zero(t3dg_1(0, 1, 0) - (t3dg_2(0, 0, 1) + t3dg_2(0, 1, 0)),
                "T3dg(i,j,k)||T3dg(i,k,j)(0,0,1)");
  test_for_zero(t3dg_1(0, 2, 0) - (t3dg_2(0, 0, 2) + t3dg_2(0, 2, 0)),
                "T3dg(i,j,k)||T3dg(i,k,j)(0,0,2)");
  test_for_zero(t3dg_1(1, 0, 0) - (t3dg_2(0, 1, 0) + t3dg_2(0, 0, 1)),
                "T3dg(i,j,k)||T3dg(i,k,j)(0,1,0)");
  test_for_zero(t3dg_1(1, 1, 0) - (t3dg_2(0, 1, 1) + t3dg_2(0, 1, 1)),
                "T3dg(i,j,k)||T3dg(i,k,j)(0,1,1)");
  test_for_zero(t3dg_1(1, 2, 0) - (t3dg_2(0, 1, 2) + t3dg_2(0, 2, 1)),
                "T3dg(i,j,k)||T3dg(i,k,j)(0,1,2)");
  test_for_zero(t3dg_1(2, 0, 0) - (t3dg_2(0, 2, 0) + t3dg_2(0, 0, 2)),
                "T3dg(i,j,k)||T3dg(i,k,j)(0,2,0)");
  test_for_zero(t3dg_1(2, 1, 0) - (t3dg_2(0, 2, 1) + t3dg_2(0, 1, 2)),
                "T3dg(i,j,k)||T3dg(i,k,j)(0,2,1)");
  test_for_zero(t3dg_1(2, 2, 0) - (t3dg_2(0, 2, 2) + t3dg_2(0, 2, 2)),
                "T3dg(i,j,k)||T3dg(i,k,j)(0,2,2)");
  test_for_zero(t3dg_1(0, 0, 1) - (t3dg_2(1, 0, 0) + t3dg_2(1, 0, 0)),
                "T3dg(i,j,k)||T3dg(i,k,j)(1,0,0)");
  test_for_zero(t3dg_1(0, 1, 1) - (t3dg_2(1, 0, 1) + t3dg_2(1, 1, 0)),
                "T3dg(i,j,k)||T3dg(i,k,j)(1,0,1)");
  test_for_zero(t3dg_1(0, 2, 1) - (t3dg_2(1, 0, 2) + t3dg_2(1, 2, 0)),
                "T3dg(i,j,k)||T3dg(i,k,j)(1,0,2)");
  test_for_zero(t3dg_1(1, 0, 1) - (t3dg_2(1, 1, 0) + t3dg_2(1, 0, 1)),
                "T3dg(i,j,k)||T3dg(i,k,j)(1,1,0)");
  test_for_zero(t3dg_1(1, 1, 1) - (t3dg_2(1, 1, 1) + t3dg_2(1, 1, 1)),
                "T3dg(i,j,k)||T3dg(i,k,j)(1,1,1)");
  test_for_zero(t3dg_1(1, 2, 1) - (t3dg_2(1, 1, 2) + t3dg_2(1, 2, 1)),
                "T3dg(i,j,k)||T3dg(i,k,j)(1,1,2)");
  test_for_zero(t3dg_1(2, 0, 1) - (t3dg_2(1, 2, 0) + t3dg_2(1, 0, 2)),
                "T3dg(i,j,k)||T3dg(i,k,j)(1,2,0)");
  test_for_zero(t3dg_1(2, 1, 1) - (t3dg_2(1, 2, 1) + t3dg_2(1, 1, 2)),
                "T3dg(i,j,k)||T3dg(i,k,j)(1,2,1)");
  test_for_zero(t3dg_1(2, 2, 1) - (t3dg_2(1, 2, 2) + t3dg_2(1, 2, 2)),
                "T3dg(i,j,k)||T3dg(i,k,j)(1,2,2)");
  test_for_zero(t3dg_1(0, 0, 2) - (t3dg_2(2, 0, 0) + t3dg_2(2, 0, 0)),
                "T3dg(i,j,k)||T3dg(i,k,j)(2,0,0)");
  test_for_zero(t3dg_1(0, 1, 2) - (t3dg_2(2, 0, 1) + t3dg_2(2, 1, 0)),
                "T3dg(i,j,k)||T3dg(i,k,j)(2,0,1)");
  test_for_zero(t3dg_1(0, 2, 2) - (t3dg_2(2, 0, 2) + t3dg_2(2, 2, 0)),
                "T3dg(i,j,k)||T3dg(i,k,j)(2,0,2)");
  test_for_zero(t3dg_1(1, 0, 2) - (t3dg_2(2, 1, 0) + t3dg_2(2, 0, 1)),
                "T3dg(i,j,k)||T3dg(i,k,j)(2,1,0)");
  test_for_zero(t3dg_1(1, 1, 2) - (t3dg_2(2, 1, 1) + t3dg_2(2, 1, 1)),
                "T3dg(i,j,k)||T3dg(i,k,j)(2,1,1)");
  test_for_zero(t3dg_1(1, 2, 2) - (t3dg_2(2, 1, 2) + t3dg_2(2, 2, 1)),
                "T3dg(i,j,k)||T3dg(i,k,j)(2,1,2)");
  test_for_zero(t3dg_1(2, 0, 2) - (t3dg_2(2, 2, 0) + t3dg_2(2, 0, 2)),
                "T3dg(i,j,k)||T3dg(i,k,j)(2,2,0)");
  test_for_zero(t3dg_1(2, 1, 2) - (t3dg_2(2, 2, 1) + t3dg_2(2, 1, 2)),
                "T3dg(i,j,k)||T3dg(i,k,j)(2,2,1)");
  test_for_zero(t3dg_1(2, 2, 2) - (t3dg_2(2, 2, 2) + t3dg_2(2, 2, 2)),
                "T3dg(i,j,k)||T3dg(i,k,j)(2,2,2)");
 
  t3dg_1(j, k, i) = (t3dg_2(j, i, k) || t3dg_2(k, i, j));
  test_for_zero(t3dg_1(0, 0, 0) - (t3dg_2(0, 0, 0) + t3dg_2(0, 0, 0)),
                "T3dg(j,i,k)||T3dg(k,i,j)(0,0,0)");
  test_for_zero(t3dg_1(0, 1, 0) - (t3dg_2(0, 0, 1) + t3dg_2(1, 0, 0)),
                "T3dg(j,i,k)||T3dg(k,i,j)(0,0,1)");
  test_for_zero(t3dg_1(0, 2, 0) - (t3dg_2(0, 0, 2) + t3dg_2(2, 0, 0)),
                "T3dg(j,i,k)||T3dg(k,i,j)(0,0,2)");
  test_for_zero(t3dg_1(1, 0, 0) - (t3dg_2(0, 1, 0) + t3dg_2(0, 0, 1)),
                "T3dg(j,i,k)||T3dg(k,i,j)(0,1,0)");
  test_for_zero(t3dg_1(1, 1, 0) - (t3dg_2(0, 1, 1) + t3dg_2(1, 0, 1)),
                "T3dg(j,i,k)||T3dg(k,i,j)(0,1,1)");
  test_for_zero(t3dg_1(1, 2, 0) - (t3dg_2(0, 1, 2) + t3dg_2(2, 0, 1)),
                "T3dg(j,i,k)||T3dg(k,i,j)(0,1,2)");
  test_for_zero(t3dg_1(2, 0, 0) - (t3dg_2(0, 2, 0) + t3dg_2(0, 0, 2)),
                "T3dg(j,i,k)||T3dg(k,i,j)(0,2,0)");
  test_for_zero(t3dg_1(2, 1, 0) - (t3dg_2(0, 2, 1) + t3dg_2(1, 0, 2)),
                "T3dg(j,i,k)||T3dg(k,i,j)(0,2,1)");
  test_for_zero(t3dg_1(2, 2, 0) - (t3dg_2(0, 2, 2) + t3dg_2(2, 0, 2)),
                "T3dg(j,i,k)||T3dg(k,i,j)(0,2,2)");
  test_for_zero(t3dg_1(0, 0, 1) - (t3dg_2(1, 0, 0) + t3dg_2(0, 1, 0)),
                "T3dg(j,i,k)||T3dg(k,i,j)(1,0,0)");
  test_for_zero(t3dg_1(0, 1, 1) - (t3dg_2(1, 0, 1) + t3dg_2(1, 1, 0)),
                "T3dg(j,i,k)||T3dg(k,i,j)(1,0,1)");
  test_for_zero(t3dg_1(0, 2, 1) - (t3dg_2(1, 0, 2) + t3dg_2(2, 1, 0)),
                "T3dg(j,i,k)||T3dg(k,i,j)(1,0,2)");
  test_for_zero(t3dg_1(1, 0, 1) - (t3dg_2(1, 1, 0) + t3dg_2(0, 1, 1)),
                "T3dg(j,i,k)||T3dg(k,i,j)(1,1,0)");
  test_for_zero(t3dg_1(1, 1, 1) - (t3dg_2(1, 1, 1) + t3dg_2(1, 1, 1)),
                "T3dg(j,i,k)||T3dg(k,i,j)(1,1,1)");
  test_for_zero(t3dg_1(1, 2, 1) - (t3dg_2(1, 1, 2) + t3dg_2(2, 1, 1)),
                "T3dg(j,i,k)||T3dg(k,i,j)(1,1,2)");
  test_for_zero(t3dg_1(2, 0, 1) - (t3dg_2(1, 2, 0) + t3dg_2(0, 1, 2)),
                "T3dg(j,i,k)||T3dg(k,i,j)(1,2,0)");
  test_for_zero(t3dg_1(2, 1, 1) - (t3dg_2(1, 2, 1) + t3dg_2(1, 1, 2)),
                "T3dg(j,i,k)||T3dg(k,i,j)(1,2,1)");
  test_for_zero(t3dg_1(2, 2, 1) - (t3dg_2(1, 2, 2) + t3dg_2(2, 1, 2)),
                "T3dg(j,i,k)||T3dg(k,i,j)(1,2,2)");
  test_for_zero(t3dg_1(0, 0, 2) - (t3dg_2(2, 0, 0) + t3dg_2(0, 2, 0)),
                "T3dg(j,i,k)||T3dg(k,i,j)(2,0,0)");
  test_for_zero(t3dg_1(0, 1, 2) - (t3dg_2(2, 0, 1) + t3dg_2(1, 2, 0)),
                "T3dg(j,i,k)||T3dg(k,i,j)(2,0,1)");
  test_for_zero(t3dg_1(0, 2, 2) - (t3dg_2(2, 0, 2) + t3dg_2(2, 2, 0)),
                "T3dg(j,i,k)||T3dg(k,i,j)(2,0,2)");
  test_for_zero(t3dg_1(1, 0, 2) - (t3dg_2(2, 1, 0) + t3dg_2(0, 2, 1)),
                "T3dg(j,i,k)||T3dg(k,i,j)(2,1,0)");
  test_for_zero(t3dg_1(1, 1, 2) - (t3dg_2(2, 1, 1) + t3dg_2(1, 2, 1)),
                "T3dg(j,i,k)||T3dg(k,i,j)(2,1,1)");
  test_for_zero(t3dg_1(1, 2, 2) - (t3dg_2(2, 1, 2) + t3dg_2(2, 2, 1)),
                "T3dg(j,i,k)||T3dg(k,i,j)(2,1,2)");
  test_for_zero(t3dg_1(2, 0, 2) - (t3dg_2(2, 2, 0) + t3dg_2(0, 2, 2)),
                "T3dg(j,i,k)||T3dg(k,i,j)(2,2,0)");
  test_for_zero(t3dg_1(2, 1, 2) - (t3dg_2(2, 2, 1) + t3dg_2(1, 2, 2)),
                "T3dg(j,i,k)||T3dg(k,i,j)(2,2,1)");
  test_for_zero(t3dg_1(2, 2, 2) - (t3dg_2(2, 2, 2) + t3dg_2(2, 2, 2)),
                "T3dg(j,i,k)||T3dg(k,i,j)(2,2,2)");
 
  t3dg_1(i, j, k) = t3dg_2(i, j, k) & t2s_2(i, j);
  test_for_zero(t3dg_1(0, 0, 0) - (t3dg_2(0, 0, 0) * t2s_2(0, 0)),
                "T3dg(j,i,k)&T2s(i,j)(0,0,0)");
  test_for_zero(t3dg_1(0, 0, 1) - (t3dg_2(0, 0, 1) * t2s_2(0, 0)),
                "T3dg(j,i,k)&T2s(i,j)(0,0,1)");
  test_for_zero(t3dg_1(0, 0, 2) - (t3dg_2(0, 0, 2) * t2s_2(0, 0)),
                "T3dg(j,i,k)&T2s(i,j)(0,0,2)");
  test_for_zero(t3dg_1(0, 1, 0) - (t3dg_2(0, 1, 0) * t2s_2(0, 1)),
                "T3dg(j,i,k)&T2s(i,j)(0,1,0)");
  test_for_zero(t3dg_1(0, 1, 1) - (t3dg_2(0, 1, 1) * t2s_2(0, 1)),
                "T3dg(j,i,k)&T2s(i,j)(0,1,1)");
  test_for_zero(t3dg_1(0, 1, 2) - (t3dg_2(0, 1, 2) * t2s_2(0, 1)),
                "T3dg(j,i,k)&T2s(i,j)(0,1,2)");
  test_for_zero(t3dg_1(0, 2, 0) - (t3dg_2(0, 2, 0) * t2s_2(0, 2)),
                "T3dg(j,i,k)&T2s(i,j)(0,2,0)");
  test_for_zero(t3dg_1(0, 2, 1) - (t3dg_2(0, 2, 1) * t2s_2(0, 2)),
                "T3dg(j,i,k)&T2s(i,j)(0,2,1)");
  test_for_zero(t3dg_1(0, 2, 2) - (t3dg_2(0, 2, 2) * t2s_2(0, 2)),
                "T3dg(j,i,k)&T2s(i,j)(0,2,2)");
  test_for_zero(t3dg_1(1, 0, 0) - (t3dg_2(1, 0, 0) * t2s_2(1, 0)),
                "T3dg(j,i,k)&T2s(i,j)(1,0,0)");
  test_for_zero(t3dg_1(1, 0, 1) - (t3dg_2(1, 0, 1) * t2s_2(1, 0)),
                "T3dg(j,i,k)&T2s(i,j)(1,0,1)");
  test_for_zero(t3dg_1(1, 0, 2) - (t3dg_2(1, 0, 2) * t2s_2(1, 0)),
                "T3dg(j,i,k)&T2s(i,j)(1,0,2)");
  test_for_zero(t3dg_1(1, 1, 0) - (t3dg_2(1, 1, 0) * t2s_2(1, 1)),
                "T3dg(j,i,k)&T2s(i,j)(1,1,0)");
  test_for_zero(t3dg_1(1, 1, 1) - (t3dg_2(1, 1, 1) * t2s_2(1, 1)),
                "T3dg(j,i,k)&T2s(i,j)(1,1,1)");
  test_for_zero(t3dg_1(1, 1, 2) - (t3dg_2(1, 1, 2) * t2s_2(1, 1)),
                "T3dg(j,i,k)&T2s(i,j)(1,1,2)");
  test_for_zero(t3dg_1(1, 2, 0) - (t3dg_2(1, 2, 0) * t2s_2(1, 2)),
                "T3dg(j,i,k)&T2s(i,j)(1,2,0)");
  test_for_zero(t3dg_1(1, 2, 1) - (t3dg_2(1, 2, 1) * t2s_2(1, 2)),
                "T3dg(j,i,k)&T2s(i,j)(1,2,1)");
  test_for_zero(t3dg_1(1, 2, 2) - (t3dg_2(1, 2, 2) * t2s_2(1, 2)),
                "T3dg(j,i,k)&T2s(i,j)(1,2,2)");
  test_for_zero(t3dg_1(2, 0, 0) - (t3dg_2(2, 0, 0) * t2s_2(2, 0)),
                "T3dg(j,i,k)&T2s(i,j)(2,0,0)");
  test_for_zero(t3dg_1(2, 0, 1) - (t3dg_2(2, 0, 1) * t2s_2(2, 0)),
                "T3dg(j,i,k)&T2s(i,j)(2,0,1)");
  test_for_zero(t3dg_1(2, 0, 2) - (t3dg_2(2, 0, 2) * t2s_2(2, 0)),
                "T3dg(j,i,k)&T2s(i,j)(2,0,2)");
  test_for_zero(t3dg_1(2, 1, 0) - (t3dg_2(2, 1, 0) * t2s_2(2, 1)),
                "T3dg(j,i,k)&T2s(i,j)(2,1,0)");
  test_for_zero(t3dg_1(2, 1, 1) - (t3dg_2(2, 1, 1) * t2s_2(2, 1)),
                "T3dg(j,i,k)&T2s(i,j)(2,1,1)");
  test_for_zero(t3dg_1(2, 1, 2) - (t3dg_2(2, 1, 2) * t2s_2(2, 1)),
                "T3dg(j,i,k)&T2s(i,j)(2,1,2)");
  test_for_zero(t3dg_1(2, 2, 0) - (t3dg_2(2, 2, 0) * t2s_2(2, 2)),
                "T3dg(j,i,k)&T2s(i,j)(2,2,0)");
  test_for_zero(t3dg_1(2, 2, 1) - (t3dg_2(2, 2, 1) * t2s_2(2, 2)),
                "T3dg(j,i,k)&T2s(i,j)(2,2,1)");
  test_for_zero(t3dg_1(2, 2, 2) - (t3dg_2(2, 2, 2) * t2s_2(2, 2)),
                "T3dg(j,i,k)&T2s(i,j)(2,2,2)");
 
  t3dg_1(i, j, k) = t2s_2(i, j) & t3dg_2(i, j, k);
  test_for_zero(t3dg_1(0, 0, 0) - (t3dg_2(0, 0, 0) * t2s_2(0, 0)),
                "T2s(i,j)&T3dg(j,i,k)(0,0,0)");
  test_for_zero(t3dg_1(0, 0, 1) - (t3dg_2(0, 0, 1) * t2s_2(0, 0)),
                "T2s(i,j)&T3dg(j,i,k)(0,0,1)");
  test_for_zero(t3dg_1(0, 0, 2) - (t3dg_2(0, 0, 2) * t2s_2(0, 0)),
                "T2s(i,j)&T3dg(j,i,k)(0,0,2)");
  test_for_zero(t3dg_1(0, 1, 0) - (t3dg_2(0, 1, 0) * t2s_2(0, 1)),
                "T2s(i,j)&T3dg(j,i,k)(0,1,0)");
  test_for_zero(t3dg_1(0, 1, 1) - (t3dg_2(0, 1, 1) * t2s_2(0, 1)),
                "T2s(i,j)&T3dg(j,i,k)(0,1,1)");
  test_for_zero(t3dg_1(0, 1, 2) - (t3dg_2(0, 1, 2) * t2s_2(0, 1)),
                "T2s(i,j)&T3dg(j,i,k)(0,1,2)");
  test_for_zero(t3dg_1(0, 2, 0) - (t3dg_2(0, 2, 0) * t2s_2(0, 2)),
                "T2s(i,j)&T3dg(j,i,k)(0,2,0)");
  test_for_zero(t3dg_1(0, 2, 1) - (t3dg_2(0, 2, 1) * t2s_2(0, 2)),
                "T2s(i,j)&T3dg(j,i,k)(0,2,1)");
  test_for_zero(t3dg_1(0, 2, 2) - (t3dg_2(0, 2, 2) * t2s_2(0, 2)),
                "T2s(i,j)&T3dg(j,i,k)(0,2,2)");
  test_for_zero(t3dg_1(1, 0, 0) - (t3dg_2(1, 0, 0) * t2s_2(1, 0)),
                "T2s(i,j)&T3dg(j,i,k)(1,0,0)");
  test_for_zero(t3dg_1(1, 0, 1) - (t3dg_2(1, 0, 1) * t2s_2(1, 0)),
                "T2s(i,j)&T3dg(j,i,k)(1,0,1)");
  test_for_zero(t3dg_1(1, 0, 2) - (t3dg_2(1, 0, 2) * t2s_2(1, 0)),
                "T2s(i,j)&T3dg(j,i,k)(1,0,2)");
  test_for_zero(t3dg_1(1, 1, 0) - (t3dg_2(1, 1, 0) * t2s_2(1, 1)),
                "T2s(i,j)&T3dg(j,i,k)(1,1,0)");
  test_for_zero(t3dg_1(1, 1, 1) - (t3dg_2(1, 1, 1) * t2s_2(1, 1)),
                "T2s(i,j)&T3dg(j,i,k)(1,1,1)");
  test_for_zero(t3dg_1(1, 1, 2) - (t3dg_2(1, 1, 2) * t2s_2(1, 1)),
                "T2s(i,j)&T3dg(j,i,k)(1,1,2)");
  test_for_zero(t3dg_1(1, 2, 0) - (t3dg_2(1, 2, 0) * t2s_2(1, 2)),
                "T2s(i,j)&T3dg(j,i,k)(1,2,0)");
  test_for_zero(t3dg_1(1, 2, 1) - (t3dg_2(1, 2, 1) * t2s_2(1, 2)),
                "T2s(i,j)&T3dg(j,i,k)(1,2,1)");
  test_for_zero(t3dg_1(1, 2, 2) - (t3dg_2(1, 2, 2) * t2s_2(1, 2)),
                "T2s(i,j)&T3dg(j,i,k)(1,2,2)");
  test_for_zero(t3dg_1(2, 0, 0) - (t3dg_2(2, 0, 0) * t2s_2(2, 0)),
                "T2s(i,j)&T3dg(j,i,k)(2,0,0)");
  test_for_zero(t3dg_1(2, 0, 1) - (t3dg_2(2, 0, 1) * t2s_2(2, 0)),
                "T2s(i,j)&T3dg(j,i,k)(2,0,1)");
  test_for_zero(t3dg_1(2, 0, 2) - (t3dg_2(2, 0, 2) * t2s_2(2, 0)),
                "T2s(i,j)&T3dg(j,i,k)(2,0,2)");
  test_for_zero(t3dg_1(2, 1, 0) - (t3dg_2(2, 1, 0) * t2s_2(2, 1)),
                "T2s(i,j)&T3dg(j,i,k)(2,1,0)");
  test_for_zero(t3dg_1(2, 1, 1) - (t3dg_2(2, 1, 1) * t2s_2(2, 1)),
                "T2s(i,j)&T3dg(j,i,k)(2,1,1)");
  test_for_zero(t3dg_1(2, 1, 2) - (t3dg_2(2, 1, 2) * t2s_2(2, 1)),
                "T2s(i,j)&T3dg(j,i,k)(2,1,2)");
  test_for_zero(t3dg_1(2, 2, 0) - (t3dg_2(2, 2, 0) * t2s_2(2, 2)),
                "T2s(i,j)&T3dg(j,i,k)(2,2,0)");
  test_for_zero(t3dg_1(2, 2, 1) - (t3dg_2(2, 2, 1) * t2s_2(2, 2)),
                "T2s(i,j)&T3dg(j,i,k)(2,2,1)");
  test_for_zero(t3dg_1(2, 2, 2) - (t3dg_2(2, 2, 2) * t2s_2(2, 2)),
                "T2s(i,j)&T3dg(j,i,k)(2,2,2)");
 
  t2_1(i, l) = t3dg_2(i, j, k) * t3dg_3(j, k, l);
  test_for_zero(t2_1(0, 0)
                  - (t3dg_2(0, 0, 0) * t3dg_3(0, 0, 0)
                     + t3dg_2(0, 0, 1) * t3dg_3(0, 1, 0)
                     + t3dg_2(0, 0, 2) * t3dg_3(0, 2, 0)
                     + t3dg_2(0, 1, 0) * t3dg_3(1, 0, 0)
                     + t3dg_2(0, 1, 1) * t3dg_3(1, 1, 0)
                     + t3dg_2(0, 1, 2) * t3dg_3(1, 2, 0)
                     + t3dg_2(0, 2, 0) * t3dg_3(2, 0, 0)
                     + t3dg_2(0, 2, 1) * t3dg_3(2, 1, 0)
                     + t3dg_2(0, 2, 2) * t3dg_3(2, 2, 0)),
                "T3dg(i,j,k)*T3dg(j,k,l)(0,0)");
  test_for_zero(t2_1(0, 1)
                  - (t3dg_2(0, 0, 0) * t3dg_3(0, 0, 1)
                     + t3dg_2(0, 0, 1) * t3dg_3(0, 1, 1)
                     + t3dg_2(0, 0, 2) * t3dg_3(0, 2, 1)
                     + t3dg_2(0, 1, 0) * t3dg_3(1, 0, 1)
                     + t3dg_2(0, 1, 1) * t3dg_3(1, 1, 1)
                     + t3dg_2(0, 1, 2) * t3dg_3(1, 2, 1)
                     + t3dg_2(0, 2, 0) * t3dg_3(2, 0, 1)
                     + t3dg_2(0, 2, 1) * t3dg_3(2, 1, 1)
                     + t3dg_2(0, 2, 2) * t3dg_3(2, 2, 1)),
                "T3dg(i,j,k)*T3dg(j,k,l)(0,1)");
  test_for_zero(t2_1(0, 2)
                  - (t3dg_2(0, 0, 0) * t3dg_3(0, 0, 2)
                     + t3dg_2(0, 0, 1) * t3dg_3(0, 1, 2)
                     + t3dg_2(0, 0, 2) * t3dg_3(0, 2, 2)
                     + t3dg_2(0, 1, 0) * t3dg_3(1, 0, 2)
                     + t3dg_2(0, 1, 1) * t3dg_3(1, 1, 2)
                     + t3dg_2(0, 1, 2) * t3dg_3(1, 2, 2)
                     + t3dg_2(0, 2, 0) * t3dg_3(2, 0, 2)
                     + t3dg_2(0, 2, 1) * t3dg_3(2, 1, 2)
                     + t3dg_2(0, 2, 2) * t3dg_3(2, 2, 2)),
                "T3dg(i,j,k)*T3dg(j,k,l)(0,2)");
  test_for_zero(t2_1(1, 0)
                  - (t3dg_2(1, 0, 0) * t3dg_3(0, 0, 0)
                     + t3dg_2(1, 0, 1) * t3dg_3(0, 1, 0)
                     + t3dg_2(1, 0, 2) * t3dg_3(0, 2, 0)
                     + t3dg_2(1, 1, 0) * t3dg_3(1, 0, 0)
                     + t3dg_2(1, 1, 1) * t3dg_3(1, 1, 0)
                     + t3dg_2(1, 1, 2) * t3dg_3(1, 2, 0)
                     + t3dg_2(1, 2, 0) * t3dg_3(2, 0, 0)
                     + t3dg_2(1, 2, 1) * t3dg_3(2, 1, 0)
                     + t3dg_2(1, 2, 2) * t3dg_3(2, 2, 0)),
                "T3dg(i,j,k)*T3dg(j,k,l)(1,0)");
  test_for_zero(t2_1(1, 1)
                  - (t3dg_2(1, 0, 0) * t3dg_3(0, 0, 1)
                     + t3dg_2(1, 0, 1) * t3dg_3(0, 1, 1)
                     + t3dg_2(1, 0, 2) * t3dg_3(0, 2, 1)
                     + t3dg_2(1, 1, 0) * t3dg_3(1, 0, 1)
                     + t3dg_2(1, 1, 1) * t3dg_3(1, 1, 1)
                     + t3dg_2(1, 1, 2) * t3dg_3(1, 2, 1)
                     + t3dg_2(1, 2, 0) * t3dg_3(2, 0, 1)
                     + t3dg_2(1, 2, 1) * t3dg_3(2, 1, 1)
                     + t3dg_2(1, 2, 2) * t3dg_3(2, 2, 1)),
                "T3dg(i,j,k)*T3dg(j,k,l)(1,1)");
  test_for_zero(t2_1(1, 2)
                  - (t3dg_2(1, 0, 0) * t3dg_3(0, 0, 2)
                     + t3dg_2(1, 0, 1) * t3dg_3(0, 1, 2)
                     + t3dg_2(1, 0, 2) * t3dg_3(0, 2, 2)
                     + t3dg_2(1, 1, 0) * t3dg_3(1, 0, 2)
                     + t3dg_2(1, 1, 1) * t3dg_3(1, 1, 2)
                     + t3dg_2(1, 1, 2) * t3dg_3(1, 2, 2)
                     + t3dg_2(1, 2, 0) * t3dg_3(2, 0, 2)
                     + t3dg_2(1, 2, 1) * t3dg_3(2, 1, 2)
                     + t3dg_2(1, 2, 2) * t3dg_3(2, 2, 2)),
                "T3dg(i,j,k)*T3dg(j,k,l)(1,2)");
  test_for_zero(t2_1(2, 0)
                  - (t3dg_2(2, 0, 0) * t3dg_3(0, 0, 0)
                     + t3dg_2(2, 0, 1) * t3dg_3(0, 1, 0)
                     + t3dg_2(2, 0, 2) * t3dg_3(0, 2, 0)
                     + t3dg_2(2, 1, 0) * t3dg_3(1, 0, 0)
                     + t3dg_2(2, 1, 1) * t3dg_3(1, 1, 0)
                     + t3dg_2(2, 1, 2) * t3dg_3(1, 2, 0)
                     + t3dg_2(2, 2, 0) * t3dg_3(2, 0, 0)
                     + t3dg_2(2, 2, 1) * t3dg_3(2, 1, 0)
                     + t3dg_2(2, 2, 2) * t3dg_3(2, 2, 0)),
                "T3dg(i,j,k)*T3dg(j,k,l)(2,0)");
  test_for_zero(t2_1(2, 1)
                  - (t3dg_2(2, 0, 0) * t3dg_3(0, 0, 1)
                     + t3dg_2(2, 0, 1) * t3dg_3(0, 1, 1)
                     + t3dg_2(2, 0, 2) * t3dg_3(0, 2, 1)
                     + t3dg_2(2, 1, 0) * t3dg_3(1, 0, 1)
                     + t3dg_2(2, 1, 1) * t3dg_3(1, 1, 1)
                     + t3dg_2(2, 1, 2) * t3dg_3(1, 2, 1)
                     + t3dg_2(2, 2, 0) * t3dg_3(2, 0, 1)
                     + t3dg_2(2, 2, 1) * t3dg_3(2, 1, 1)
                     + t3dg_2(2, 2, 2) * t3dg_3(2, 2, 1)),
                "T3dg(i,j,k)*T3dg(j,k,l)(2,1)");
  test_for_zero(t2_1(2, 2)
                  - (t3dg_2(2, 0, 0) * t3dg_3(0, 0, 2)
                     + t3dg_2(2, 0, 1) * t3dg_3(0, 1, 2)
                     + t3dg_2(2, 0, 2) * t3dg_3(0, 2, 2)
                     + t3dg_2(2, 1, 0) * t3dg_3(1, 0, 2)
                     + t3dg_2(2, 1, 1) * t3dg_3(1, 1, 2)
                     + t3dg_2(2, 1, 2) * t3dg_3(1, 2, 2)
                     + t3dg_2(2, 2, 0) * t3dg_3(2, 0, 2)
                     + t3dg_2(2, 2, 1) * t3dg_3(2, 1, 2)
                     + t3dg_2(2, 2, 2) * t3dg_3(2, 2, 2)),
                "T3dg(i,j,k)*T3dg(j,k,l)(2,2)");
 
  t2_1(i, l) = t3dg_2(j, k, l) * t3dg_3(i, j, k);
  test_for_zero(t2_1(0, 0)
                  - (t3dg_3(0, 0, 0) * t3dg_2(0, 0, 0)
                     + t3dg_3(0, 0, 1) * t3dg_2(0, 1, 0)
                     + t3dg_3(0, 0, 2) * t3dg_2(0, 2, 0)
                     + t3dg_3(0, 1, 0) * t3dg_2(1, 0, 0)
                     + t3dg_3(0, 1, 1) * t3dg_2(1, 1, 0)
                     + t3dg_3(0, 1, 2) * t3dg_2(1, 2, 0)
                     + t3dg_3(0, 2, 0) * t3dg_2(2, 0, 0)
                     + t3dg_3(0, 2, 1) * t3dg_2(2, 1, 0)
                     + t3dg_3(0, 2, 2) * t3dg_2(2, 2, 0)),
                "T3dg(j,k,l)*T3dg(i,j,k)(0,0)");
  test_for_zero(t2_1(0, 1)
                  - (t3dg_3(0, 0, 0) * t3dg_2(0, 0, 1)
                     + t3dg_3(0, 0, 1) * t3dg_2(0, 1, 1)
                     + t3dg_3(0, 0, 2) * t3dg_2(0, 2, 1)
                     + t3dg_3(0, 1, 0) * t3dg_2(1, 0, 1)
                     + t3dg_3(0, 1, 1) * t3dg_2(1, 1, 1)
                     + t3dg_3(0, 1, 2) * t3dg_2(1, 2, 1)
                     + t3dg_3(0, 2, 0) * t3dg_2(2, 0, 1)
                     + t3dg_3(0, 2, 1) * t3dg_2(2, 1, 1)
                     + t3dg_3(0, 2, 2) * t3dg_2(2, 2, 1)),
                "T3dg(j,k,l)*T3dg(i,j,k)(0,1)");
  test_for_zero(t2_1(0, 2)
                  - (t3dg_3(0, 0, 0) * t3dg_2(0, 0, 2)
                     + t3dg_3(0, 0, 1) * t3dg_2(0, 1, 2)
                     + t3dg_3(0, 0, 2) * t3dg_2(0, 2, 2)
                     + t3dg_3(0, 1, 0) * t3dg_2(1, 0, 2)
                     + t3dg_3(0, 1, 1) * t3dg_2(1, 1, 2)
                     + t3dg_3(0, 1, 2) * t3dg_2(1, 2, 2)
                     + t3dg_3(0, 2, 0) * t3dg_2(2, 0, 2)
                     + t3dg_3(0, 2, 1) * t3dg_2(2, 1, 2)
                     + t3dg_3(0, 2, 2) * t3dg_2(2, 2, 2)),
                "T3dg(j,k,l)*T3dg(i,j,k)(0,2)");
  test_for_zero(t2_1(1, 0)
                  - (t3dg_3(1, 0, 0) * t3dg_2(0, 0, 0)
                     + t3dg_3(1, 0, 1) * t3dg_2(0, 1, 0)
                     + t3dg_3(1, 0, 2) * t3dg_2(0, 2, 0)
                     + t3dg_3(1, 1, 0) * t3dg_2(1, 0, 0)
                     + t3dg_3(1, 1, 1) * t3dg_2(1, 1, 0)
                     + t3dg_3(1, 1, 2) * t3dg_2(1, 2, 0)
                     + t3dg_3(1, 2, 0) * t3dg_2(2, 0, 0)
                     + t3dg_3(1, 2, 1) * t3dg_2(2, 1, 0)
                     + t3dg_3(1, 2, 2) * t3dg_2(2, 2, 0)),
                "T3dg(j,k,l)*T3dg(i,j,k)(1,0)");
  test_for_zero(t2_1(1, 1)
                  - (t3dg_3(1, 0, 0) * t3dg_2(0, 0, 1)
                     + t3dg_3(1, 0, 1) * t3dg_2(0, 1, 1)
                     + t3dg_3(1, 0, 2) * t3dg_2(0, 2, 1)
                     + t3dg_3(1, 1, 0) * t3dg_2(1, 0, 1)
                     + t3dg_3(1, 1, 1) * t3dg_2(1, 1, 1)
                     + t3dg_3(1, 1, 2) * t3dg_2(1, 2, 1)
                     + t3dg_3(1, 2, 0) * t3dg_2(2, 0, 1)
                     + t3dg_3(1, 2, 1) * t3dg_2(2, 1, 1)
                     + t3dg_3(1, 2, 2) * t3dg_2(2, 2, 1)),
                "T3dg(j,k,l)*T3dg(i,j,k)(1,1)");
  test_for_zero(t2_1(1, 2)
                  - (t3dg_3(1, 0, 0) * t3dg_2(0, 0, 2)
                     + t3dg_3(1, 0, 1) * t3dg_2(0, 1, 2)
                     + t3dg_3(1, 0, 2) * t3dg_2(0, 2, 2)
                     + t3dg_3(1, 1, 0) * t3dg_2(1, 0, 2)
                     + t3dg_3(1, 1, 1) * t3dg_2(1, 1, 2)
                     + t3dg_3(1, 1, 2) * t3dg_2(1, 2, 2)
                     + t3dg_3(1, 2, 0) * t3dg_2(2, 0, 2)
                     + t3dg_3(1, 2, 1) * t3dg_2(2, 1, 2)
                     + t3dg_3(1, 2, 2) * t3dg_2(2, 2, 2)),
                "T3dg(j,k,l)*T3dg(i,j,k)(1,2)");
  test_for_zero(t2_1(2, 0)
                  - (t3dg_3(2, 0, 0) * t3dg_2(0, 0, 0)
                     + t3dg_3(2, 0, 1) * t3dg_2(0, 1, 0)
                     + t3dg_3(2, 0, 2) * t3dg_2(0, 2, 0)
                     + t3dg_3(2, 1, 0) * t3dg_2(1, 0, 0)
                     + t3dg_3(2, 1, 1) * t3dg_2(1, 1, 0)
                     + t3dg_3(2, 1, 2) * t3dg_2(1, 2, 0)
                     + t3dg_3(2, 2, 0) * t3dg_2(2, 0, 0)
                     + t3dg_3(2, 2, 1) * t3dg_2(2, 1, 0)
                     + t3dg_3(2, 2, 2) * t3dg_2(2, 2, 0)),
                "T3dg(j,k,l)*T3dg(i,j,k)(2,0)");
  test_for_zero(t2_1(2, 1)
                  - (t3dg_3(2, 0, 0) * t3dg_2(0, 0, 1)
                     + t3dg_3(2, 0, 1) * t3dg_2(0, 1, 1)
                     + t3dg_3(2, 0, 2) * t3dg_2(0, 2, 1)
                     + t3dg_3(2, 1, 0) * t3dg_2(1, 0, 1)
                     + t3dg_3(2, 1, 1) * t3dg_2(1, 1, 1)
                     + t3dg_3(2, 1, 2) * t3dg_2(1, 2, 1)
                     + t3dg_3(2, 2, 0) * t3dg_2(2, 0, 1)
                     + t3dg_3(2, 2, 1) * t3dg_2(2, 1, 1)
                     + t3dg_3(2, 2, 2) * t3dg_2(2, 2, 1)),
                "T3dg(j,k,l)*T3dg(i,j,k)(2,1)");
  test_for_zero(t2_1(2, 2)
                  - (t3dg_3(2, 0, 0) * t3dg_2(0, 0, 2)
                     + t3dg_3(2, 0, 1) * t3dg_2(0, 1, 2)
                     + t3dg_3(2, 0, 2) * t3dg_2(0, 2, 2)
                     + t3dg_3(2, 1, 0) * t3dg_2(1, 0, 2)
                     + t3dg_3(2, 1, 1) * t3dg_2(1, 1, 2)
                     + t3dg_3(2, 1, 2) * t3dg_2(1, 2, 2)
                     + t3dg_3(2, 2, 0) * t3dg_2(2, 0, 2)
                     + t3dg_3(2, 2, 1) * t3dg_2(2, 1, 2)
                     + t3dg_3(2, 2, 2) * t3dg_2(2, 2, 2)),
                "T3dg(j,k,l)*T3dg(i,j,k)(2,2)");
 
  t2_1(i, l) = t3dg_2(i, j, k) * t3dg_3(k, l, j);
  test_for_zero(t2_1(0, 0)
                  - (t3dg_2(0, 0, 0) * t3dg_3(0, 0, 0)
                     + t3dg_2(0, 0, 1) * t3dg_3(1, 0, 0)
                     + t3dg_2(0, 0, 2) * t3dg_3(2, 0, 0)
                     + t3dg_2(0, 1, 0) * t3dg_3(0, 0, 1)
                     + t3dg_2(0, 1, 1) * t3dg_3(1, 0, 1)
                     + t3dg_2(0, 1, 2) * t3dg_3(2, 0, 1)
                     + t3dg_2(0, 2, 0) * t3dg_3(0, 0, 2)
                     + t3dg_2(0, 2, 1) * t3dg_3(1, 0, 2)
                     + t3dg_2(0, 2, 2) * t3dg_3(2, 0, 2)),
                "T3dg(i,j,k)*T3dg(k,l,j)(0,0)");
  test_for_zero(t2_1(0, 1)
                  - (t3dg_2(0, 0, 0) * t3dg_3(0, 1, 0)
                     + t3dg_2(0, 0, 1) * t3dg_3(1, 1, 0)
                     + t3dg_2(0, 0, 2) * t3dg_3(2, 1, 0)
                     + t3dg_2(0, 1, 0) * t3dg_3(0, 1, 1)
                     + t3dg_2(0, 1, 1) * t3dg_3(1, 1, 1)
                     + t3dg_2(0, 1, 2) * t3dg_3(2, 1, 1)
                     + t3dg_2(0, 2, 0) * t3dg_3(0, 1, 2)
                     + t3dg_2(0, 2, 1) * t3dg_3(1, 1, 2)
                     + t3dg_2(0, 2, 2) * t3dg_3(2, 1, 2)),
                "T3dg(i,j,k)*T3dg(k,l,j)(0,1)");
  test_for_zero(t2_1(0, 2)
                  - (t3dg_2(0, 0, 0) * t3dg_3(0, 2, 0)
                     + t3dg_2(0, 0, 1) * t3dg_3(1, 2, 0)
                     + t3dg_2(0, 0, 2) * t3dg_3(2, 2, 0)
                     + t3dg_2(0, 1, 0) * t3dg_3(0, 2, 1)
                     + t3dg_2(0, 1, 1) * t3dg_3(1, 2, 1)
                     + t3dg_2(0, 1, 2) * t3dg_3(2, 2, 1)
                     + t3dg_2(0, 2, 0) * t3dg_3(0, 2, 2)
                     + t3dg_2(0, 2, 1) * t3dg_3(1, 2, 2)
                     + t3dg_2(0, 2, 2) * t3dg_3(2, 2, 2)),
                "T3dg(i,j,k)*T3dg(k,l,j)(0,2)");
  test_for_zero(t2_1(1, 0)
                  - (t3dg_2(1, 0, 0) * t3dg_3(0, 0, 0)
                     + t3dg_2(1, 0, 1) * t3dg_3(1, 0, 0)
                     + t3dg_2(1, 0, 2) * t3dg_3(2, 0, 0)
                     + t3dg_2(1, 1, 0) * t3dg_3(0, 0, 1)
                     + t3dg_2(1, 1, 1) * t3dg_3(1, 0, 1)
                     + t3dg_2(1, 1, 2) * t3dg_3(2, 0, 1)
                     + t3dg_2(1, 2, 0) * t3dg_3(0, 0, 2)
                     + t3dg_2(1, 2, 1) * t3dg_3(1, 0, 2)
                     + t3dg_2(1, 2, 2) * t3dg_3(2, 0, 2)),
                "T3dg(i,j,k)*T3dg(k,l,j)(1,0)");
  test_for_zero(t2_1(1, 1)
                  - (t3dg_2(1, 0, 0) * t3dg_3(0, 1, 0)
                     + t3dg_2(1, 0, 1) * t3dg_3(1, 1, 0)
                     + t3dg_2(1, 0, 2) * t3dg_3(2, 1, 0)
                     + t3dg_2(1, 1, 0) * t3dg_3(0, 1, 1)
                     + t3dg_2(1, 1, 1) * t3dg_3(1, 1, 1)
                     + t3dg_2(1, 1, 2) * t3dg_3(2, 1, 1)
                     + t3dg_2(1, 2, 0) * t3dg_3(0, 1, 2)
                     + t3dg_2(1, 2, 1) * t3dg_3(1, 1, 2)
                     + t3dg_2(1, 2, 2) * t3dg_3(2, 1, 2)),
                "T3dg(i,j,k)*T3dg(k,l,j)(1,1)");
  test_for_zero(t2_1(1, 2)
                  - (t3dg_2(1, 0, 0) * t3dg_3(0, 2, 0)
                     + t3dg_2(1, 0, 1) * t3dg_3(1, 2, 0)
                     + t3dg_2(1, 0, 2) * t3dg_3(2, 2, 0)
                     + t3dg_2(1, 1, 0) * t3dg_3(0, 2, 1)
                     + t3dg_2(1, 1, 1) * t3dg_3(1, 2, 1)
                     + t3dg_2(1, 1, 2) * t3dg_3(2, 2, 1)
                     + t3dg_2(1, 2, 0) * t3dg_3(0, 2, 2)
                     + t3dg_2(1, 2, 1) * t3dg_3(1, 2, 2)
                     + t3dg_2(1, 2, 2) * t3dg_3(2, 2, 2)),
                "T3dg(i,j,k)*T3dg(k,l,j)(1,2)");
  test_for_zero(t2_1(2, 0)
                  - (t3dg_2(2, 0, 0) * t3dg_3(0, 0, 0)
                     + t3dg_2(2, 0, 1) * t3dg_3(1, 0, 0)
                     + t3dg_2(2, 0, 2) * t3dg_3(2, 0, 0)
                     + t3dg_2(2, 1, 0) * t3dg_3(0, 0, 1)
                     + t3dg_2(2, 1, 1) * t3dg_3(1, 0, 1)
                     + t3dg_2(2, 1, 2) * t3dg_3(2, 0, 1)
                     + t3dg_2(2, 2, 0) * t3dg_3(0, 0, 2)
                     + t3dg_2(2, 2, 1) * t3dg_3(1, 0, 2)
                     + t3dg_2(2, 2, 2) * t3dg_3(2, 0, 2)),
                "T3dg(i,j,k)*T3dg(k,l,j)(2,0)");
  test_for_zero(t2_1(2, 1)
                  - (t3dg_2(2, 0, 0) * t3dg_3(0, 1, 0)
                     + t3dg_2(2, 0, 1) * t3dg_3(1, 1, 0)
                     + t3dg_2(2, 0, 2) * t3dg_3(2, 1, 0)
                     + t3dg_2(2, 1, 0) * t3dg_3(0, 1, 1)
                     + t3dg_2(2, 1, 1) * t3dg_3(1, 1, 1)
                     + t3dg_2(2, 1, 2) * t3dg_3(2, 1, 1)
                     + t3dg_2(2, 2, 0) * t3dg_3(0, 1, 2)
                     + t3dg_2(2, 2, 1) * t3dg_3(1, 1, 2)
                     + t3dg_2(2, 2, 2) * t3dg_3(2, 1, 2)),
                "T3dg(i,j,k)*T3dg(k,l,j)(2,1)");
  test_for_zero(t2_1(2, 2)
                  - (t3dg_2(2, 0, 0) * t3dg_3(0, 2, 0)
                     + t3dg_2(2, 0, 1) * t3dg_3(1, 2, 0)
                     + t3dg_2(2, 0, 2) * t3dg_3(2, 2, 0)
                     + t3dg_2(2, 1, 0) * t3dg_3(0, 2, 1)
                     + t3dg_2(2, 1, 1) * t3dg_3(1, 2, 1)
                     + t3dg_2(2, 1, 2) * t3dg_3(2, 2, 1)
                     + t3dg_2(2, 2, 0) * t3dg_3(0, 2, 2)
                     + t3dg_2(2, 2, 1) * t3dg_3(1, 2, 2)
                     + t3dg_2(2, 2, 2) * t3dg_3(2, 2, 2)),
                "T3dg(i,j,k)*T3dg(k,l,j)(2,2)");
 
  t2_1(i, l) = t3dg_2(k, l, j) * t3dg_3(i, j, k);
  test_for_zero(t2_1(0, 0)
                  - (t3dg_3(0, 0, 0) * t3dg_2(0, 0, 0)
                     + t3dg_3(0, 0, 1) * t3dg_2(1, 0, 0)
                     + t3dg_3(0, 0, 2) * t3dg_2(2, 0, 0)
                     + t3dg_3(0, 1, 0) * t3dg_2(0, 0, 1)
                     + t3dg_3(0, 1, 1) * t3dg_2(1, 0, 1)
                     + t3dg_3(0, 1, 2) * t3dg_2(2, 0, 1)
                     + t3dg_3(0, 2, 0) * t3dg_2(0, 0, 2)
                     + t3dg_3(0, 2, 1) * t3dg_2(1, 0, 2)
                     + t3dg_3(0, 2, 2) * t3dg_2(2, 0, 2)),
                "T3dg(k,l,j)*T3dg(i,j,k)(0,0)");
  test_for_zero(t2_1(0, 1)
                  - (t3dg_3(0, 0, 0) * t3dg_2(0, 1, 0)
                     + t3dg_3(0, 0, 1) * t3dg_2(1, 1, 0)
                     + t3dg_3(0, 0, 2) * t3dg_2(2, 1, 0)
                     + t3dg_3(0, 1, 0) * t3dg_2(0, 1, 1)
                     + t3dg_3(0, 1, 1) * t3dg_2(1, 1, 1)
                     + t3dg_3(0, 1, 2) * t3dg_2(2, 1, 1)
                     + t3dg_3(0, 2, 0) * t3dg_2(0, 1, 2)
                     + t3dg_3(0, 2, 1) * t3dg_2(1, 1, 2)
                     + t3dg_3(0, 2, 2) * t3dg_2(2, 1, 2)),
                "T3dg(k,l,j)*T3dg(i,j,k)(0,1)");
  test_for_zero(t2_1(0, 2)
                  - (t3dg_3(0, 0, 0) * t3dg_2(0, 2, 0)
                     + t3dg_3(0, 0, 1) * t3dg_2(1, 2, 0)
                     + t3dg_3(0, 0, 2) * t3dg_2(2, 2, 0)
                     + t3dg_3(0, 1, 0) * t3dg_2(0, 2, 1)
                     + t3dg_3(0, 1, 1) * t3dg_2(1, 2, 1)
                     + t3dg_3(0, 1, 2) * t3dg_2(2, 2, 1)
                     + t3dg_3(0, 2, 0) * t3dg_2(0, 2, 2)
                     + t3dg_3(0, 2, 1) * t3dg_2(1, 2, 2)
                     + t3dg_3(0, 2, 2) * t3dg_2(2, 2, 2)),
                "T3dg(k,l,j)*T3dg(i,j,k)(0,2)");
  test_for_zero(t2_1(1, 0)
                  - (t3dg_3(1, 0, 0) * t3dg_2(0, 0, 0)
                     + t3dg_3(1, 0, 1) * t3dg_2(1, 0, 0)
                     + t3dg_3(1, 0, 2) * t3dg_2(2, 0, 0)
                     + t3dg_3(1, 1, 0) * t3dg_2(0, 0, 1)
                     + t3dg_3(1, 1, 1) * t3dg_2(1, 0, 1)
                     + t3dg_3(1, 1, 2) * t3dg_2(2, 0, 1)
                     + t3dg_3(1, 2, 0) * t3dg_2(0, 0, 2)
                     + t3dg_3(1, 2, 1) * t3dg_2(1, 0, 2)
                     + t3dg_3(1, 2, 2) * t3dg_2(2, 0, 2)),
                "T3dg(k,l,j)*T3dg(i,j,k)(1,0)");
  test_for_zero(t2_1(1, 1)
                  - (t3dg_3(1, 0, 0) * t3dg_2(0, 1, 0)
                     + t3dg_3(1, 0, 1) * t3dg_2(1, 1, 0)
                     + t3dg_3(1, 0, 2) * t3dg_2(2, 1, 0)
                     + t3dg_3(1, 1, 0) * t3dg_2(0, 1, 1)
                     + t3dg_3(1, 1, 1) * t3dg_2(1, 1, 1)
                     + t3dg_3(1, 1, 2) * t3dg_2(2, 1, 1)
                     + t3dg_3(1, 2, 0) * t3dg_2(0, 1, 2)
                     + t3dg_3(1, 2, 1) * t3dg_2(1, 1, 2)
                     + t3dg_3(1, 2, 2) * t3dg_2(2, 1, 2)),
                "T3dg(k,l,j)*T3dg(i,j,k)(1,1)");
  test_for_zero(t2_1(1, 2)
                  - (t3dg_3(1, 0, 0) * t3dg_2(0, 2, 0)
                     + t3dg_3(1, 0, 1) * t3dg_2(1, 2, 0)
                     + t3dg_3(1, 0, 2) * t3dg_2(2, 2, 0)
                     + t3dg_3(1, 1, 0) * t3dg_2(0, 2, 1)
                     + t3dg_3(1, 1, 1) * t3dg_2(1, 2, 1)
                     + t3dg_3(1, 1, 2) * t3dg_2(2, 2, 1)
                     + t3dg_3(1, 2, 0) * t3dg_2(0, 2, 2)
                     + t3dg_3(1, 2, 1) * t3dg_2(1, 2, 2)
                     + t3dg_3(1, 2, 2) * t3dg_2(2, 2, 2)),
                "T3dg(k,l,j)*T3dg(i,j,k)(1,2)");
  test_for_zero(t2_1(2, 0)
                  - (t3dg_3(2, 0, 0) * t3dg_2(0, 0, 0)
                     + t3dg_3(2, 0, 1) * t3dg_2(1, 0, 0)
                     + t3dg_3(2, 0, 2) * t3dg_2(2, 0, 0)
                     + t3dg_3(2, 1, 0) * t3dg_2(0, 0, 1)
                     + t3dg_3(2, 1, 1) * t3dg_2(1, 0, 1)
                     + t3dg_3(2, 1, 2) * t3dg_2(2, 0, 1)
                     + t3dg_3(2, 2, 0) * t3dg_2(0, 0, 2)
                     + t3dg_3(2, 2, 1) * t3dg_2(1, 0, 2)
                     + t3dg_3(2, 2, 2) * t3dg_2(2, 0, 2)),
                "T3dg(k,l,j)*T3dg(i,j,k)(2,0)");
  test_for_zero(t2_1(2, 1)
                  - (t3dg_3(2, 0, 0) * t3dg_2(0, 1, 0)
                     + t3dg_3(2, 0, 1) * t3dg_2(1, 1, 0)
                     + t3dg_3(2, 0, 2) * t3dg_2(2, 1, 0)
                     + t3dg_3(2, 1, 0) * t3dg_2(0, 1, 1)
                     + t3dg_3(2, 1, 1) * t3dg_2(1, 1, 1)
                     + t3dg_3(2, 1, 2) * t3dg_2(2, 1, 1)
                     + t3dg_3(2, 2, 0) * t3dg_2(0, 1, 2)
                     + t3dg_3(2, 2, 1) * t3dg_2(1, 1, 2)
                     + t3dg_3(2, 2, 2) * t3dg_2(2, 1, 2)),
                "T3dg(k,l,j)*T3dg(i,j,k)(2,1)");
  test_for_zero(t2_1(2, 2)
                  - (t3dg_3(2, 0, 0) * t3dg_2(0, 2, 0)
                     + t3dg_3(2, 0, 1) * t3dg_2(1, 2, 0)
                     + t3dg_3(2, 0, 2) * t3dg_2(2, 2, 0)
                     + t3dg_3(2, 1, 0) * t3dg_2(0, 2, 1)
                     + t3dg_3(2, 1, 1) * t3dg_2(1, 2, 1)
                     + t3dg_3(2, 1, 2) * t3dg_2(2, 2, 1)
                     + t3dg_3(2, 2, 0) * t3dg_2(0, 2, 2)
                     + t3dg_3(2, 2, 1) * t3dg_2(1, 2, 2)
                     + t3dg_3(2, 2, 2) * t3dg_2(2, 2, 2)),
                "T3dg(k,l,j)*T3dg(i,j,k)(2,2)");
}

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.

{
  Index<'i', 3> i;
  Index<'j', 3> j;
  Index<'k', 3> k;
  Index<'l', 3> l;
 
  Number<0> N0;
  Number<1> N1;
  Number<2> N2;
 
  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(0, 0, 0)
                  - (t3dg_2(0, 0, 0) + t3dg_3(0, 0, 0)),
                "T3dg(i,j,k)+T3(k,j,i)(0,0,0)");
  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(0, 0, 1)
                  - (t3dg_2(0, 0, 1) + t3dg_3(1, 0, 0)),
                "T3dg(i,j,k)+T3(k,j,i)(0,0,1)");
  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(0, 0, 2)
                  - (t3dg_2(0, 0, 2) + t3dg_3(2, 0, 0)),
                "T3dg(i,j,k)+T3(k,j,i)(0,0,2)");
  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(0, 1, 0)
                  - (t3dg_2(0, 1, 0) + t3dg_3(0, 1, 0)),
                "T3dg(i,j,k)+T3(k,j,i)(0,1,0)");
  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(0, 1, 1)
                  - (t3dg_2(0, 1, 1) + t3dg_3(1, 1, 0)),
                "T3dg(i,j,k)+T3(k,j,i)(0,1,1)");
  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(0, 1, 2)
                  - (t3dg_2(0, 1, 2) + t3dg_3(2, 1, 0)),
                "T3dg(i,j,k)+T3(k,j,i)(0,1,2)");
  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(0, 2, 0)
                  - (t3dg_2(0, 2, 0) + t3dg_3(0, 2, 0)),
                "T3dg(i,j,k)+T3(k,j,i)(0,2,0)");
  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(0, 2, 1)
                  - (t3dg_2(0, 2, 1) + t3dg_3(1, 2, 0)),
                "T3dg(i,j,k)+T3(k,j,i)(0,2,1)");
  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(0, 2, 2)
                  - (t3dg_2(0, 2, 2) + t3dg_3(2, 2, 0)),
                "T3dg(i,j,k)+T3(k,j,i)(0,2,2)");
  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(1, 0, 0)
                  - (t3dg_2(1, 0, 0) + t3dg_3(0, 0, 1)),
                "T3dg(i,j,k)+T3(k,j,i)(1,0,0)");
  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(1, 0, 1)
                  - (t3dg_2(1, 0, 1) + t3dg_3(1, 0, 1)),
                "T3dg(i,j,k)+T3(k,j,i)(1,0,1)");
  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(1, 0, 2)
                  - (t3dg_2(1, 0, 2) + t3dg_3(2, 0, 1)),
                "T3dg(i,j,k)+T3(k,j,i)(1,0,2)");
  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(1, 1, 0)
                  - (t3dg_2(1, 1, 0) + t3dg_3(0, 1, 1)),
                "T3dg(i,j,k)+T3(k,j,i)(1,1,0)");
  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(1, 1, 1)
                  - (t3dg_2(1, 1, 1) + t3dg_3(1, 1, 1)),
                "T3dg(i,j,k)+T3(k,j,i)(1,1,1)");
  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(1, 1, 2)
                  - (t3dg_2(1, 1, 2) + t3dg_3(2, 1, 1)),
                "T3dg(i,j,k)+T3(k,j,i)(1,1,2)");
  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(1, 2, 0)
                  - (t3dg_2(1, 2, 0) + t3dg_3(0, 2, 1)),
                "T3dg(i,j,k)+T3(k,j,i)(1,2,0)");
  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(1, 2, 1)
                  - (t3dg_2(1, 2, 1) + t3dg_3(1, 2, 1)),
                "T3dg(i,j,k)+T3(k,j,i)(1,2,1)");
  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(1, 2, 2)
                  - (t3dg_2(1, 2, 2) + t3dg_3(2, 2, 1)),
                "T3dg(i,j,k)+T3(k,j,i)(1,2,2)");
  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(2, 0, 0)
                  - (t3dg_2(2, 0, 0) + t3dg_3(0, 0, 2)),
                "T3dg(i,j,k)+T3(k,j,i)(2,0,0)");
  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(2, 0, 1)
                  - (t3dg_2(2, 0, 1) + t3dg_3(1, 0, 2)),
                "T3dg(i,j,k)+T3(k,j,i)(2,0,1)");
  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(2, 0, 2)
                  - (t3dg_2(2, 0, 2) + t3dg_3(2, 0, 2)),
                "T3dg(i,j,k)+T3(k,j,i)(2,0,2)");
  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(2, 1, 0)
                  - (t3dg_2(2, 1, 0) + t3dg_3(0, 1, 2)),
                "T3dg(i,j,k)+T3(k,j,i)(2,1,0)");
  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(2, 1, 1)
                  - (t3dg_2(2, 1, 1) + t3dg_3(1, 1, 2)),
                "T3dg(i,j,k)+T3(k,j,i)(2,1,1)");
  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(2, 1, 2)
                  - (t3dg_2(2, 1, 2) + t3dg_3(2, 1, 2)),
                "T3dg(i,j,k)+T3(k,j,i)(2,1,2)");
  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(2, 2, 0)
                  - (t3dg_2(2, 2, 0) + t3dg_3(0, 2, 2)),
                "T3dg(i,j,k)+T3(k,j,i)(2,2,0)");
  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(2, 2, 1)
                  - (t3dg_2(2, 2, 1) + t3dg_3(1, 2, 2)),
                "T3dg(i,j,k)+T3(k,j,i)(2,2,1)");
  test_for_zero((t3dg_2(i, j, k) + t3dg_3(k, j, i))(2, 2, 2)
                  - (t3dg_2(2, 2, 2) + t3dg_3(2, 2, 2)),
                "T3dg(i,j,k)+T3(k,j,i)(2,2,2)");
 
  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(0, 0, 0)
                  - (t3dg_2(0, 0, 0) - t3dg_3(0, 0, 0)),
                "T3dg(i,j,k)-T3(k,j,i)(0,0,0)");
  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(0, 0, 1)
                  - (t3dg_2(0, 0, 1) - t3dg_3(1, 0, 0)),
                "T3dg(i,j,k)-T3(k,j,i)(0,0,1)");
  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(0, 0, 2)
                  - (t3dg_2(0, 0, 2) - t3dg_3(2, 0, 0)),
                "T3dg(i,j,k)-T3(k,j,i)(0,0,2)");
  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(0, 1, 0)
                  - (t3dg_2(0, 1, 0) - t3dg_3(0, 1, 0)),
                "T3dg(i,j,k)-T3(k,j,i)(0,1,0)");
  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(0, 1, 1)
                  - (t3dg_2(0, 1, 1) - t3dg_3(1, 1, 0)),
                "T3dg(i,j,k)-T3(k,j,i)(0,1,1)");
  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(0, 1, 2)
                  - (t3dg_2(0, 1, 2) - t3dg_3(2, 1, 0)),
                "T3dg(i,j,k)-T3(k,j,i)(0,1,2)");
  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(0, 2, 0)
                  - (t3dg_2(0, 2, 0) - t3dg_3(0, 2, 0)),
                "T3dg(i,j,k)-T3(k,j,i)(0,2,0)");
  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(0, 2, 1)
                  - (t3dg_2(0, 2, 1) - t3dg_3(1, 2, 0)),
                "T3dg(i,j,k)-T3(k,j,i)(0,2,1)");
  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(0, 2, 2)
                  - (t3dg_2(0, 2, 2) - t3dg_3(2, 2, 0)),
                "T3dg(i,j,k)-T3(k,j,i)(0,2,2)");
  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(1, 0, 0)
                  - (t3dg_2(1, 0, 0) - t3dg_3(0, 0, 1)),
                "T3dg(i,j,k)-T3(k,j,i)(1,0,0)");
  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(1, 0, 1)
                  - (t3dg_2(1, 0, 1) - t3dg_3(1, 0, 1)),
                "T3dg(i,j,k)-T3(k,j,i)(1,0,1)");
  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(1, 0, 2)
                  - (t3dg_2(1, 0, 2) - t3dg_3(2, 0, 1)),
                "T3dg(i,j,k)-T3(k,j,i)(1,0,2)");
  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(1, 1, 0)
                  - (t3dg_2(1, 1, 0) - t3dg_3(0, 1, 1)),
                "T3dg(i,j,k)-T3(k,j,i)(1,1,0)");
  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(1, 1, 1)
                  - (t3dg_2(1, 1, 1) - t3dg_3(1, 1, 1)),
                "T3dg(i,j,k)-T3(k,j,i)(1,1,1)");
  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(1, 1, 2)
                  - (t3dg_2(1, 1, 2) - t3dg_3(2, 1, 1)),
                "T3dg(i,j,k)-T3(k,j,i)(1,1,2)");
  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(1, 2, 0)
                  - (t3dg_2(1, 2, 0) - t3dg_3(0, 2, 1)),
                "T3dg(i,j,k)-T3(k,j,i)(1,2,0)");
  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(1, 2, 1)
                  - (t3dg_2(1, 2, 1) - t3dg_3(1, 2, 1)),
                "T3dg(i,j,k)-T3(k,j,i)(1,2,1)");
  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(1, 2, 2)
                  - (t3dg_2(1, 2, 2) - t3dg_3(2, 2, 1)),
                "T3dg(i,j,k)-T3(k,j,i)(1,2,2)");
  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(2, 0, 0)
                  - (t3dg_2(2, 0, 0) - t3dg_3(0, 0, 2)),
                "T3dg(i,j,k)-T3(k,j,i)(2,0,0)");
  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(2, 0, 1)
                  - (t3dg_2(2, 0, 1) - t3dg_3(1, 0, 2)),
                "T3dg(i,j,k)-T3(k,j,i)(2,0,1)");
  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(2, 0, 2)
                  - (t3dg_2(2, 0, 2) - t3dg_3(2, 0, 2)),
                "T3dg(i,j,k)-T3(k,j,i)(2,0,2)");
  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(2, 1, 0)
                  - (t3dg_2(2, 1, 0) - t3dg_3(0, 1, 2)),
                "T3dg(i,j,k)-T3(k,j,i)(2,1,0)");
  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(2, 1, 1)
                  - (t3dg_2(2, 1, 1) - t3dg_3(1, 1, 2)),
                "T3dg(i,j,k)-T3(k,j,i)(2,1,1)");
  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(2, 1, 2)
                  - (t3dg_2(2, 1, 2) - t3dg_3(2, 1, 2)),
                "T3dg(i,j,k)-T3(k,j,i)(2,1,2)");
  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(2, 2, 0)
                  - (t3dg_2(2, 2, 0) - t3dg_3(0, 2, 2)),
                "T3dg(i,j,k)-T3(k,j,i)(2,2,0)");
  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(2, 2, 1)
                  - (t3dg_2(2, 2, 1) - t3dg_3(1, 2, 2)),
                "T3dg(i,j,k)-T3(k,j,i)(2,2,1)");
  test_for_zero((t3dg_2(i, j, k) - t3dg_3(k, j, i))(2, 2, 2)
                  - (t3dg_2(2, 2, 2) - t3dg_3(2, 2, 2)),
                "T3dg(i,j,k)-T3(k,j,i)(2,2,2)");
 
  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(0, 0, 0)
                  - (t3dg_2(0, 0, 0) * t2_2(0, 0)
                     + t3dg_2(0, 1, 0) * t2_2(1, 0)
                     + t3dg_2(0, 2, 0) * t2_2(2, 0)),
                "T3dg(i,j,k)*T2(j,l)(0,0,0)");
  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(0, 0, 1)
                  - (t3dg_2(0, 0, 0) * t2_2(0, 1)
                     + t3dg_2(0, 1, 0) * t2_2(1, 1)
                     + t3dg_2(0, 2, 0) * t2_2(2, 1)),
                "T3dg(i,j,k)*T2(j,l)(0,0,1)");
  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(0, 0, 2)
                  - (t3dg_2(0, 0, 0) * t2_2(0, 2)
                     + t3dg_2(0, 1, 0) * t2_2(1, 2)
                     + t3dg_2(0, 2, 0) * t2_2(2, 2)),
                "T3dg(i,j,k)*T2(j,l)(0,0,2)");
  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(0, 1, 0)
                  - (t3dg_2(0, 0, 1) * t2_2(0, 0)
                     + t3dg_2(0, 1, 1) * t2_2(1, 0)
                     + t3dg_2(0, 2, 1) * t2_2(2, 0)),
                "T3dg(i,j,k)*T2(j,l)(0,1,0)");
  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(0, 1, 1)
                  - (t3dg_2(0, 0, 1) * t2_2(0, 1)
                     + t3dg_2(0, 1, 1) * t2_2(1, 1)
                     + t3dg_2(0, 2, 1) * t2_2(2, 1)),
                "T3dg(i,j,k)*T2(j,l)(0,1,1)");
  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(0, 1, 2)
                  - (t3dg_2(0, 0, 1) * t2_2(0, 2)
                     + t3dg_2(0, 1, 1) * t2_2(1, 2)
                     + t3dg_2(0, 2, 1) * t2_2(2, 2)),
                "T3dg(i,j,k)*T2(j,l)(0,1,2)");
  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(0, 2, 0)
                  - (t3dg_2(0, 0, 2) * t2_2(0, 0)
                     + t3dg_2(0, 1, 2) * t2_2(1, 0)
                     + t3dg_2(0, 2, 2) * t2_2(2, 0)),
                "T3dg(i,j,k)*T2(j,l)(0,2,0)");
  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(0, 2, 1)
                  - (t3dg_2(0, 0, 2) * t2_2(0, 1)
                     + t3dg_2(0, 1, 2) * t2_2(1, 1)
                     + t3dg_2(0, 2, 2) * t2_2(2, 1)),
                "T3dg(i,j,k)*T2(j,l)(0,2,1)");
  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(0, 2, 2)
                  - (t3dg_2(0, 0, 2) * t2_2(0, 2)
                     + t3dg_2(0, 1, 2) * t2_2(1, 2)
                     + t3dg_2(0, 2, 2) * t2_2(2, 2)),
                "T3dg(i,j,k)*T2(j,l)(0,2,2)");
  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(1, 0, 0)
                  - (t3dg_2(1, 0, 0) * t2_2(0, 0)
                     + t3dg_2(1, 1, 0) * t2_2(1, 0)
                     + t3dg_2(1, 2, 0) * t2_2(2, 0)),
                "T3dg(i,j,k)*T2(j,l)(1,0,0)");
  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(1, 0, 1)
                  - (t3dg_2(1, 0, 0) * t2_2(0, 1)
                     + t3dg_2(1, 1, 0) * t2_2(1, 1)
                     + t3dg_2(1, 2, 0) * t2_2(2, 1)),
                "T3dg(i,j,k)*T2(j,l)(1,0,1)");
  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(1, 0, 2)
                  - (t3dg_2(1, 0, 0) * t2_2(0, 2)
                     + t3dg_2(1, 1, 0) * t2_2(1, 2)
                     + t3dg_2(1, 2, 0) * t2_2(2, 2)),
                "T3dg(i,j,k)*T2(j,l)(1,0,2)");
  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(1, 1, 0)
                  - (t3dg_2(1, 0, 1) * t2_2(0, 0)
                     + t3dg_2(1, 1, 1) * t2_2(1, 0)
                     + t3dg_2(1, 2, 1) * t2_2(2, 0)),
                "T3dg(i,j,k)*T2(j,l)(1,1,0)");
  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(1, 1, 1)
                  - (t3dg_2(1, 0, 1) * t2_2(0, 1)
                     + t3dg_2(1, 1, 1) * t2_2(1, 1)
                     + t3dg_2(1, 2, 1) * t2_2(2, 1)),
                "T3dg(i,j,k)*T2(j,l)(1,1,1)");
  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(1, 1, 2)
                  - (t3dg_2(1, 0, 1) * t2_2(0, 2)
                     + t3dg_2(1, 1, 1) * t2_2(1, 2)
                     + t3dg_2(1, 2, 1) * t2_2(2, 2)),
                "T3dg(i,j,k)*T2(j,l)(1,1,2)");
  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(1, 2, 0)
                  - (t3dg_2(1, 0, 2) * t2_2(0, 0)
                     + t3dg_2(1, 1, 2) * t2_2(1, 0)
                     + t3dg_2(1, 2, 2) * t2_2(2, 0)),
                "T3dg(i,j,k)*T2(j,l)(1,2,0)");
  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(1, 2, 1)
                  - (t3dg_2(1, 0, 2) * t2_2(0, 1)
                     + t3dg_2(1, 1, 2) * t2_2(1, 1)
                     + t3dg_2(1, 2, 2) * t2_2(2, 1)),
                "T3dg(i,j,k)*T2(j,l)(1,2,1)");
  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(1, 2, 2)
                  - (t3dg_2(1, 0, 2) * t2_2(0, 2)
                     + t3dg_2(1, 1, 2) * t2_2(1, 2)
                     + t3dg_2(1, 2, 2) * t2_2(2, 2)),
                "T3dg(i,j,k)*T2(j,l)(1,2,2)");
  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(2, 0, 0)
                  - (t3dg_2(2, 0, 0) * t2_2(0, 0)
                     + t3dg_2(2, 1, 0) * t2_2(1, 0)
                     + t3dg_2(2, 2, 0) * t2_2(2, 0)),
                "T3dg(i,j,k)*T2(j,l)(2,0,0)");
  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(2, 0, 1)
                  - (t3dg_2(2, 0, 0) * t2_2(0, 1)
                     + t3dg_2(2, 1, 0) * t2_2(1, 1)
                     + t3dg_2(2, 2, 0) * t2_2(2, 1)),
                "T3dg(i,j,k)*T2(j,l)(2,0,1)");
  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(2, 0, 2)
                  - (t3dg_2(2, 0, 0) * t2_2(0, 2)
                     + t3dg_2(2, 1, 0) * t2_2(1, 2)
                     + t3dg_2(2, 2, 0) * t2_2(2, 2)),
                "T3dg(i,j,k)*T2(j,l)(2,0,2)");
  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(2, 1, 0)
                  - (t3dg_2(2, 0, 1) * t2_2(0, 0)
                     + t3dg_2(2, 1, 1) * t2_2(1, 0)
                     + t3dg_2(2, 2, 1) * t2_2(2, 0)),
                "T3dg(i,j,k)*T2(j,l)(2,1,0)");
  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(2, 1, 1)
                  - (t3dg_2(2, 0, 1) * t2_2(0, 1)
                     + t3dg_2(2, 1, 1) * t2_2(1, 1)
                     + t3dg_2(2, 2, 1) * t2_2(2, 1)),
                "T3dg(i,j,k)*T2(j,l)(2,1,1)");
  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(2, 1, 2)
                  - (t3dg_2(2, 0, 1) * t2_2(0, 2)
                     + t3dg_2(2, 1, 1) * t2_2(1, 2)
                     + t3dg_2(2, 2, 1) * t2_2(2, 2)),
                "T3dg(i,j,k)*T2(j,l)(2,1,2)");
  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(2, 2, 0)
                  - (t3dg_2(2, 0, 2) * t2_2(0, 0)
                     + t3dg_2(2, 1, 2) * t2_2(1, 0)
                     + t3dg_2(2, 2, 2) * t2_2(2, 0)),
                "T3dg(i,j,k)*T2(j,l)(2,2,0)");
  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(2, 2, 1)
                  - (t3dg_2(2, 0, 2) * t2_2(0, 1)
                     + t3dg_2(2, 1, 2) * t2_2(1, 1)
                     + t3dg_2(2, 2, 2) * t2_2(2, 1)),
                "T3dg(i,j,k)*T2(j,l)(2,2,1)");
  test_for_zero((t3dg_2(i, j, k) * t2_2(j, l))(2, 2, 2)
                  - (t3dg_2(2, 0, 2) * t2_2(0, 2)
                     + t3dg_2(2, 1, 2) * t2_2(1, 2)
                     + t3dg_2(2, 2, 2) * t2_2(2, 2)),
                "T3dg(i,j,k)*T2(j,l)(2,2,2)");
 
  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(0, 0, 0)
                  - (t3dg_3(0, 0, 0) * t2_2(0, 0)
                     + t3dg_3(0, 1, 0) * t2_2(0, 1)
                     + t3dg_3(0, 2, 0) * t2_2(0, 2)),
                "T3dg(i,j,k)*T2(l,j)(0,0,0)");
  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(0, 0, 1)
                  - (t3dg_3(0, 0, 0) * t2_2(1, 0)
                     + t3dg_3(0, 1, 0) * t2_2(1, 1)
                     + t3dg_3(0, 2, 0) * t2_2(1, 2)),
                "T3dg(i,j,k)*T2(l,j)(0,0,1)");
  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(0, 0, 2)
                  - (t3dg_3(0, 0, 0) * t2_2(2, 0)
                     + t3dg_3(0, 1, 0) * t2_2(2, 1)
                     + t3dg_3(0, 2, 0) * t2_2(2, 2)),
                "T3dg(i,j,k)*T2(l,j)(0,0,2)");
  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(0, 1, 0)
                  - (t3dg_3(0, 0, 1) * t2_2(0, 0)
                     + t3dg_3(0, 1, 1) * t2_2(0, 1)
                     + t3dg_3(0, 2, 1) * t2_2(0, 2)),
                "T3dg(i,j,k)*T2(l,j)(0,1,0)");
  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(0, 1, 1)
                  - (t3dg_3(0, 0, 1) * t2_2(1, 0)
                     + t3dg_3(0, 1, 1) * t2_2(1, 1)
                     + t3dg_3(0, 2, 1) * t2_2(1, 2)),
                "T3dg(i,j,k)*T2(l,j)(0,1,1)");
  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(0, 1, 2)
                  - (t3dg_3(0, 0, 1) * t2_2(2, 0)
                     + t3dg_3(0, 1, 1) * t2_2(2, 1)
                     + t3dg_3(0, 2, 1) * t2_2(2, 2)),
                "T3dg(i,j,k)*T2(l,j)(0,1,2)");
  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(0, 2, 0)
                  - (t3dg_3(0, 0, 2) * t2_2(0, 0)
                     + t3dg_3(0, 1, 2) * t2_2(0, 1)
                     + t3dg_3(0, 2, 2) * t2_2(0, 2)),
                "T3dg(i,j,k)*T2(l,j)(0,2,0)");
  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(0, 2, 1)
                  - (t3dg_3(0, 0, 2) * t2_2(1, 0)
                     + t3dg_3(0, 1, 2) * t2_2(1, 1)
                     + t3dg_3(0, 2, 2) * t2_2(1, 2)),
                "T3dg(i,j,k)*T2(l,j)(0,2,1)");
  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(0, 2, 2)
                  - (t3dg_3(0, 0, 2) * t2_2(2, 0)
                     + t3dg_3(0, 1, 2) * t2_2(2, 1)
                     + t3dg_3(0, 2, 2) * t2_2(2, 2)),
                "T3dg(i,j,k)*T2(l,j)(0,2,2)");
  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(1, 0, 0)
                  - (t3dg_3(1, 0, 0) * t2_2(0, 0)
                     + t3dg_3(1, 1, 0) * t2_2(0, 1)
                     + t3dg_3(1, 2, 0) * t2_2(0, 2)),
                "T3dg(i,j,k)*T2(l,j)(1,0,0)");
  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(1, 0, 1)
                  - (t3dg_3(1, 0, 0) * t2_2(1, 0)
                     + t3dg_3(1, 1, 0) * t2_2(1, 1)
                     + t3dg_3(1, 2, 0) * t2_2(1, 2)),
                "T3dg(i,j,k)*T2(l,j)(1,0,1)");
  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(1, 0, 2)
                  - (t3dg_3(1, 0, 0) * t2_2(2, 0)
                     + t3dg_3(1, 1, 0) * t2_2(2, 1)
                     + t3dg_3(1, 2, 0) * t2_2(2, 2)),
                "T3dg(i,j,k)*T2(l,j)(1,0,2)");
  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(1, 1, 0)
                  - (t3dg_3(1, 0, 1) * t2_2(0, 0)
                     + t3dg_3(1, 1, 1) * t2_2(0, 1)
                     + t3dg_3(1, 2, 1) * t2_2(0, 2)),
                "T3dg(i,j,k)*T2(l,j)(1,1,0)");
  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(1, 1, 1)
                  - (t3dg_3(1, 0, 1) * t2_2(1, 0)
                     + t3dg_3(1, 1, 1) * t2_2(1, 1)
                     + t3dg_3(1, 2, 1) * t2_2(1, 2)),
                "T3dg(i,j,k)*T2(l,j)(1,1,1)");
  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(1, 1, 2)
                  - (t3dg_3(1, 0, 1) * t2_2(2, 0)
                     + t3dg_3(1, 1, 1) * t2_2(2, 1)
                     + t3dg_3(1, 2, 1) * t2_2(2, 2)),
                "T3dg(i,j,k)*T2(l,j)(1,1,2)");
  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(1, 2, 0)
                  - (t3dg_3(1, 0, 2) * t2_2(0, 0)
                     + t3dg_3(1, 1, 2) * t2_2(0, 1)
                     + t3dg_3(1, 2, 2) * t2_2(0, 2)),
                "T3dg(i,j,k)*T2(l,j)(1,2,0)");
  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(1, 2, 1)
                  - (t3dg_3(1, 0, 2) * t2_2(1, 0)
                     + t3dg_3(1, 1, 2) * t2_2(1, 1)
                     + t3dg_3(1, 2, 2) * t2_2(1, 2)),
                "T3dg(i,j,k)*T2(l,j)(1,2,1)");
  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(1, 2, 2)
                  - (t3dg_3(1, 0, 2) * t2_2(2, 0)
                     + t3dg_3(1, 1, 2) * t2_2(2, 1)
                     + t3dg_3(1, 2, 2) * t2_2(2, 2)),
                "T3dg(i,j,k)*T2(l,j)(1,2,2)");
  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(2, 0, 0)
                  - (t3dg_3(2, 0, 0) * t2_2(0, 0)
                     + t3dg_3(2, 1, 0) * t2_2(0, 1)
                     + t3dg_3(2, 2, 0) * t2_2(0, 2)),
                "T3dg(i,j,k)*T2(l,j)(2,0,0)");
  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(2, 0, 1)
                  - (t3dg_3(2, 0, 0) * t2_2(1, 0)
                     + t3dg_3(2, 1, 0) * t2_2(1, 1)
                     + t3dg_3(2, 2, 0) * t2_2(1, 2)),
                "T3dg(i,j,k)*T2(l,j)(2,0,1)");
  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(2, 0, 2)
                  - (t3dg_3(2, 0, 0) * t2_2(2, 0)
                     + t3dg_3(2, 1, 0) * t2_2(2, 1)
                     + t3dg_3(2, 2, 0) * t2_2(2, 2)),
                "T3dg(i,j,k)*T2(l,j)(2,0,2)");
  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(2, 1, 0)
                  - (t3dg_3(2, 0, 1) * t2_2(0, 0)
                     + t3dg_3(2, 1, 1) * t2_2(0, 1)
                     + t3dg_3(2, 2, 1) * t2_2(0, 2)),
                "T3dg(i,j,k)*T2(l,j)(2,1,0)");
  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(2, 1, 1)
                  - (t3dg_3(2, 0, 1) * t2_2(1, 0)
                     + t3dg_3(2, 1, 1) * t2_2(1, 1)
                     + t3dg_3(2, 2, 1) * t2_2(1, 2)),
                "T3dg(i,j,k)*T2(l,j)(2,1,1)");
  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(2, 1, 2)
                  - (t3dg_3(2, 0, 1) * t2_2(2, 0)
                     + t3dg_3(2, 1, 1) * t2_2(2, 1)
                     + t3dg_3(2, 2, 1) * t2_2(2, 2)),
                "T3dg(i,j,k)*T2(l,j)(2,1,2)");
  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(2, 2, 0)
                  - (t3dg_3(2, 0, 2) * t2_2(0, 0)
                     + t3dg_3(2, 1, 2) * t2_2(0, 1)
                     + t3dg_3(2, 2, 2) * t2_2(0, 2)),
                "T3dg(i,j,k)*T2(l,j)(2,2,0)");
  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(2, 2, 1)
                  - (t3dg_3(2, 0, 2) * t2_2(1, 0)
                     + t3dg_3(2, 1, 2) * t2_2(1, 1)
                     + t3dg_3(2, 2, 2) * t2_2(1, 2)),
                "T3dg(i,j,k)*T2(l,j)(2,2,1)");
  test_for_zero((t3dg_3(i, j, k) * t2_2(l, j))(2, 2, 2)
                  - (t3dg_3(2, 0, 2) * t2_2(2, 0)
                     + t3dg_3(2, 1, 2) * t2_2(2, 1)
                     + t3dg_3(2, 2, 2) * t2_2(2, 2)),
                "T3dg(i,j,k)*T2(l,j)(2,2,2)");
 
  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(0, 0, 0)
                  - (t3dg_3(0, 0, 0) * t2_2(0, 0)
                     + t3dg_3(0, 1, 0) * t2_2(1, 0)
                     + t3dg_3(0, 2, 0) * t2_2(2, 0)),
                "T2(j,l)*T3dg(i,j,k)(0,0,0)");
  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(0, 0, 1)
                  - (t3dg_3(0, 0, 0) * t2_2(0, 1)
                     + t3dg_3(0, 1, 0) * t2_2(1, 1)
                     + t3dg_3(0, 2, 0) * t2_2(2, 1)),
                "T2(j,l)*T3dg(i,j,k)(0,0,1)");
  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(0, 0, 2)
                  - (t3dg_3(0, 0, 0) * t2_2(0, 2)
                     + t3dg_3(0, 1, 0) * t2_2(1, 2)
                     + t3dg_3(0, 2, 0) * t2_2(2, 2)),
                "T2(j,l)*T3dg(i,j,k)(0,0,2)");
  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(0, 1, 0)
                  - (t3dg_3(0, 0, 1) * t2_2(0, 0)
                     + t3dg_3(0, 1, 1) * t2_2(1, 0)
                     + t3dg_3(0, 2, 1) * t2_2(2, 0)),
                "T2(j,l)*T3dg(i,j,k)(0,1,0)");
  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(0, 1, 1)
                  - (t3dg_3(0, 0, 1) * t2_2(0, 1)
                     + t3dg_3(0, 1, 1) * t2_2(1, 1)
                     + t3dg_3(0, 2, 1) * t2_2(2, 1)),
                "T2(j,l)*T3dg(i,j,k)(0,1,1)");
  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(0, 1, 2)
                  - (t3dg_3(0, 0, 1) * t2_2(0, 2)
                     + t3dg_3(0, 1, 1) * t2_2(1, 2)
                     + t3dg_3(0, 2, 1) * t2_2(2, 2)),
                "T2(j,l)*T3dg(i,j,k)(0,1,2)");
  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(0, 2, 0)
                  - (t3dg_3(0, 0, 2) * t2_2(0, 0)
                     + t3dg_3(0, 1, 2) * t2_2(1, 0)
                     + t3dg_3(0, 2, 2) * t2_2(2, 0)),
                "T2(j,l)*T3dg(i,j,k)(0,2,0)");
  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(0, 2, 1)
                  - (t3dg_3(0, 0, 2) * t2_2(0, 1)
                     + t3dg_3(0, 1, 2) * t2_2(1, 1)
                     + t3dg_3(0, 2, 2) * t2_2(2, 1)),
                "T2(j,l)*T3dg(i,j,k)(0,2,1)");
  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(0, 2, 2)
                  - (t3dg_3(0, 0, 2) * t2_2(0, 2)
                     + t3dg_3(0, 1, 2) * t2_2(1, 2)
                     + t3dg_3(0, 2, 2) * t2_2(2, 2)),
                "T2(j,l)*T3dg(i,j,k)(0,2,2)");
  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(1, 0, 0)
                  - (t3dg_3(1, 0, 0) * t2_2(0, 0)
                     + t3dg_3(1, 1, 0) * t2_2(1, 0)
                     + t3dg_3(1, 2, 0) * t2_2(2, 0)),
                "T2(j,l)*T3dg(i,j,k)(1,0,0)");
  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(1, 0, 1)
                  - (t3dg_3(1, 0, 0) * t2_2(0, 1)
                     + t3dg_3(1, 1, 0) * t2_2(1, 1)
                     + t3dg_3(1, 2, 0) * t2_2(2, 1)),
                "T2(j,l)*T3dg(i,j,k)(1,0,1)");
  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(1, 0, 2)
                  - (t3dg_3(1, 0, 0) * t2_2(0, 2)
                     + t3dg_3(1, 1, 0) * t2_2(1, 2)
                     + t3dg_3(1, 2, 0) * t2_2(2, 2)),
                "T2(j,l)*T3dg(i,j,k)(1,0,2)");
  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(1, 1, 0)
                  - (t3dg_3(1, 0, 1) * t2_2(0, 0)
                     + t3dg_3(1, 1, 1) * t2_2(1, 0)
                     + t3dg_3(1, 2, 1) * t2_2(2, 0)),
                "T2(j,l)*T3dg(i,j,k)(1,1,0)");
  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(1, 1, 1)
                  - (t3dg_3(1, 0, 1) * t2_2(0, 1)
                     + t3dg_3(1, 1, 1) * t2_2(1, 1)
                     + t3dg_3(1, 2, 1) * t2_2(2, 1)),
                "T2(j,l)*T3dg(i,j,k)(1,1,1)");
  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(1, 1, 2)
                  - (t3dg_3(1, 0, 1) * t2_2(0, 2)
                     + t3dg_3(1, 1, 1) * t2_2(1, 2)
                     + t3dg_3(1, 2, 1) * t2_2(2, 2)),
                "T2(j,l)*T3dg(i,j,k)(1,1,2)");
  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(1, 2, 0)
                  - (t3dg_3(1, 0, 2) * t2_2(0, 0)
                     + t3dg_3(1, 1, 2) * t2_2(1, 0)
                     + t3dg_3(1, 2, 2) * t2_2(2, 0)),
                "T2(j,l)*T3dg(i,j,k)(1,2,0)");
  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(1, 2, 1)
                  - (t3dg_3(1, 0, 2) * t2_2(0, 1)
                     + t3dg_3(1, 1, 2) * t2_2(1, 1)
                     + t3dg_3(1, 2, 2) * t2_2(2, 1)),
                "T2(j,l)*T3dg(i,j,k)(1,2,1)");
  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(1, 2, 2)
                  - (t3dg_3(1, 0, 2) * t2_2(0, 2)
                     + t3dg_3(1, 1, 2) * t2_2(1, 2)
                     + t3dg_3(1, 2, 2) * t2_2(2, 2)),
                "T2(j,l)*T3dg(i,j,k)(1,2,2)");
  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(2, 0, 0)
                  - (t3dg_3(2, 0, 0) * t2_2(0, 0)
                     + t3dg_3(2, 1, 0) * t2_2(1, 0)
                     + t3dg_3(2, 2, 0) * t2_2(2, 0)),
                "T2(j,l)*T3dg(i,j,k)(2,0,0)");
  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(2, 0, 1)
                  - (t3dg_3(2, 0, 0) * t2_2(0, 1)
                     + t3dg_3(2, 1, 0) * t2_2(1, 1)
                     + t3dg_3(2, 2, 0) * t2_2(2, 1)),
                "T2(j,l)*T3dg(i,j,k)(2,0,1)");
  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(2, 0, 2)
                  - (t3dg_3(2, 0, 0) * t2_2(0, 2)
                     + t3dg_3(2, 1, 0) * t2_2(1, 2)
                     + t3dg_3(2, 2, 0) * t2_2(2, 2)),
                "T2(j,l)*T3dg(i,j,k)(2,0,2)");
  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(2, 1, 0)
                  - (t3dg_3(2, 0, 1) * t2_2(0, 0)
                     + t3dg_3(2, 1, 1) * t2_2(1, 0)
                     + t3dg_3(2, 2, 1) * t2_2(2, 0)),
                "T2(j,l)*T3dg(i,j,k)(2,1,0)");
  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(2, 1, 1)
                  - (t3dg_3(2, 0, 1) * t2_2(0, 1)
                     + t3dg_3(2, 1, 1) * t2_2(1, 1)
                     + t3dg_3(2, 2, 1) * t2_2(2, 1)),
                "T2(j,l)*T3dg(i,j,k)(2,1,1)");
  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(2, 1, 2)
                  - (t3dg_3(2, 0, 1) * t2_2(0, 2)
                     + t3dg_3(2, 1, 1) * t2_2(1, 2)
                     + t3dg_3(2, 2, 1) * t2_2(2, 2)),
                "T2(j,l)*T3dg(i,j,k)(2,1,2)");
  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(2, 2, 0)
                  - (t3dg_3(2, 0, 2) * t2_2(0, 0)
                     + t3dg_3(2, 1, 2) * t2_2(1, 0)
                     + t3dg_3(2, 2, 2) * t2_2(2, 0)),
                "T2(j,l)*T3dg(i,j,k)(2,2,0)");
  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(2, 2, 1)
                  - (t3dg_3(2, 0, 2) * t2_2(0, 1)
                     + t3dg_3(2, 1, 2) * t2_2(1, 1)
                     + t3dg_3(2, 2, 2) * t2_2(2, 1)),
                "T2(j,l)*T3dg(i,j,k)(2,2,1)");
  test_for_zero((t2_2(j, l) * t3dg_3(i, j, k))(2, 2, 2)
                  - (t3dg_3(2, 0, 2) * t2_2(0, 2)
                     + t3dg_3(2, 1, 2) * t2_2(1, 2)
                     + t3dg_3(2, 2, 2) * t2_2(2, 2)),
                "T2(j,l)*T3dg(i,j,k)(2,2,2)");
 
  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(0, 0, 0)
                  - (t3dg_3(0, 0, 0) * t2_2(0, 0)
                     + t3dg_3(0, 1, 0) * t2_2(0, 1)
                     + t3dg_3(0, 2, 0) * t2_2(0, 2)),
                "T2(l,j)*T3dg(i,j,k)(0,0,0)");
  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(0, 0, 1)
                  - (t3dg_3(0, 0, 0) * t2_2(1, 0)
                     + t3dg_3(0, 1, 0) * t2_2(1, 1)
                     + t3dg_3(0, 2, 0) * t2_2(1, 2)),
                "T2(l,j)*T3dg(i,j,k)(0,0,1)");
  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(0, 0, 2)
                  - (t3dg_3(0, 0, 0) * t2_2(2, 0)
                     + t3dg_3(0, 1, 0) * t2_2(2, 1)
                     + t3dg_3(0, 2, 0) * t2_2(2, 2)),
                "T2(l,j)*T3dg(i,j,k)(0,0,2)");
  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(0, 1, 0)
                  - (t3dg_3(0, 0, 1) * t2_2(0, 0)
                     + t3dg_3(0, 1, 1) * t2_2(0, 1)
                     + t3dg_3(0, 2, 1) * t2_2(0, 2)),
                "T2(l,j)*T3dg(i,j,k)(0,1,0)");
  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(0, 1, 1)
                  - (t3dg_3(0, 0, 1) * t2_2(1, 0)
                     + t3dg_3(0, 1, 1) * t2_2(1, 1)
                     + t3dg_3(0, 2, 1) * t2_2(1, 2)),
                "T2(l,j)*T3dg(i,j,k)(0,1,1)");
  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(0, 1, 2)
                  - (t3dg_3(0, 0, 1) * t2_2(2, 0)
                     + t3dg_3(0, 1, 1) * t2_2(2, 1)
                     + t3dg_3(0, 2, 1) * t2_2(2, 2)),
                "T2(l,j)*T3dg(i,j,k)(0,1,2)");
  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(0, 2, 0)
                  - (t3dg_3(0, 0, 2) * t2_2(0, 0)
                     + t3dg_3(0, 1, 2) * t2_2(0, 1)
                     + t3dg_3(0, 2, 2) * t2_2(0, 2)),
                "T2(l,j)*T3dg(i,j,k)(0,2,0)");
  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(0, 2, 1)
                  - (t3dg_3(0, 0, 2) * t2_2(1, 0)
                     + t3dg_3(0, 1, 2) * t2_2(1, 1)
                     + t3dg_3(0, 2, 2) * t2_2(1, 2)),
                "T2(l,j)*T3dg(i,j,k)(0,2,1)");
  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(0, 2, 2)
                  - (t3dg_3(0, 0, 2) * t2_2(2, 0)
                     + t3dg_3(0, 1, 2) * t2_2(2, 1)
                     + t3dg_3(0, 2, 2) * t2_2(2, 2)),
                "T2(l,j)*T3dg(i,j,k)(0,2,2)");
  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(1, 0, 0)
                  - (t3dg_3(1, 0, 0) * t2_2(0, 0)
                     + t3dg_3(1, 1, 0) * t2_2(0, 1)
                     + t3dg_3(1, 2, 0) * t2_2(0, 2)),
                "T2(l,j)*T3dg(i,j,k)(1,0,0)");
  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(1, 0, 1)
                  - (t3dg_3(1, 0, 0) * t2_2(1, 0)
                     + t3dg_3(1, 1, 0) * t2_2(1, 1)
                     + t3dg_3(1, 2, 0) * t2_2(1, 2)),
                "T2(l,j)*T3dg(i,j,k)(1,0,1)");
  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(1, 0, 2)
                  - (t3dg_3(1, 0, 0) * t2_2(2, 0)
                     + t3dg_3(1, 1, 0) * t2_2(2, 1)
                     + t3dg_3(1, 2, 0) * t2_2(2, 2)),
                "T2(l,j)*T3dg(i,j,k)(1,0,2)");
  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(1, 1, 0)
                  - (t3dg_3(1, 0, 1) * t2_2(0, 0)
                     + t3dg_3(1, 1, 1) * t2_2(0, 1)
                     + t3dg_3(1, 2, 1) * t2_2(0, 2)),
                "T2(l,j)*T3dg(i,j,k)(1,1,0)");
  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(1, 1, 1)
                  - (t3dg_3(1, 0, 1) * t2_2(1, 0)
                     + t3dg_3(1, 1, 1) * t2_2(1, 1)
                     + t3dg_3(1, 2, 1) * t2_2(1, 2)),
                "T2(l,j)*T3dg(i,j,k)(1,1,1)");
  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(1, 1, 2)
                  - (t3dg_3(1, 0, 1) * t2_2(2, 0)
                     + t3dg_3(1, 1, 1) * t2_2(2, 1)
                     + t3dg_3(1, 2, 1) * t2_2(2, 2)),
                "T2(l,j)*T3dg(i,j,k)(1,1,2)");
  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(1, 2, 0)
                  - (t3dg_3(1, 0, 2) * t2_2(0, 0)
                     + t3dg_3(1, 1, 2) * t2_2(0, 1)
                     + t3dg_3(1, 2, 2) * t2_2(0, 2)),
                "T2(l,j)*T3dg(i,j,k)(1,2,0)");
  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(1, 2, 1)
                  - (t3dg_3(1, 0, 2) * t2_2(1, 0)
                     + t3dg_3(1, 1, 2) * t2_2(1, 1)
                     + t3dg_3(1, 2, 2) * t2_2(1, 2)),
                "T2(l,j)*T3dg(i,j,k)(1,2,1)");
  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(1, 2, 2)
                  - (t3dg_3(1, 0, 2) * t2_2(2, 0)
                     + t3dg_3(1, 1, 2) * t2_2(2, 1)
                     + t3dg_3(1, 2, 2) * t2_2(2, 2)),
                "T2(l,j)*T3dg(i,j,k)(1,2,2)");
  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(2, 0, 0)
                  - (t3dg_3(2, 0, 0) * t2_2(0, 0)
                     + t3dg_3(2, 1, 0) * t2_2(0, 1)
                     + t3dg_3(2, 2, 0) * t2_2(0, 2)),
                "T2(l,j)*T3dg(i,j,k)(2,0,0)");
  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(2, 0, 1)
                  - (t3dg_3(2, 0, 0) * t2_2(1, 0)
                     + t3dg_3(2, 1, 0) * t2_2(1, 1)
                     + t3dg_3(2, 2, 0) * t2_2(1, 2)),
                "T2(l,j)*T3dg(i,j,k)(2,0,1)");
  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(2, 0, 2)
                  - (t3dg_3(2, 0, 0) * t2_2(2, 0)
                     + t3dg_3(2, 1, 0) * t2_2(2, 1)
                     + t3dg_3(2, 2, 0) * t2_2(2, 2)),
                "T2(l,j)*T3dg(i,j,k)(2,0,2)");
  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(2, 1, 0)
                  - (t3dg_3(2, 0, 1) * t2_2(0, 0)
                     + t3dg_3(2, 1, 1) * t2_2(0, 1)
                     + t3dg_3(2, 2, 1) * t2_2(0, 2)),
                "T2(l,j)*T3dg(i,j,k)(2,1,0)");
  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(2, 1, 1)
                  - (t3dg_3(2, 0, 1) * t2_2(1, 0)
                     + t3dg_3(2, 1, 1) * t2_2(1, 1)
                     + t3dg_3(2, 2, 1) * t2_2(1, 2)),
                "T2(l,j)*T3dg(i,j,k)(2,1,1)");
  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(2, 1, 2)
                  - (t3dg_3(2, 0, 1) * t2_2(2, 0)
                     + t3dg_3(2, 1, 1) * t2_2(2, 1)
                     + t3dg_3(2, 2, 1) * t2_2(2, 2)),
                "T2(l,j)*T3dg(i,j,k)(2,1,2)");
  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(2, 2, 0)
                  - (t3dg_3(2, 0, 2) * t2_2(0, 0)
                     + t3dg_3(2, 1, 2) * t2_2(0, 1)
                     + t3dg_3(2, 2, 2) * t2_2(0, 2)),
                "T2(l,j)*T3dg(i,j,k)(2,2,0)");
  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(2, 2, 1)
                  - (t3dg_3(2, 0, 2) * t2_2(1, 0)
                     + t3dg_3(2, 1, 2) * t2_2(1, 1)
                     + t3dg_3(2, 2, 2) * t2_2(1, 2)),
                "T2(l,j)*T3dg(i,j,k)(2,2,1)");
  test_for_zero((t2_2(l, j) * t3dg_3(i, j, k))(2, 2, 2)
                  - (t3dg_3(2, 0, 2) * t2_2(2, 0)
                     + t3dg_3(2, 1, 2) * t2_2(2, 1)
                     + t3dg_3(2, 2, 2) * t2_2(2, 2)),
                "T2(l,j)*T3dg(i,j,k)(2,2,2)");
 
  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(0, 0, 0)
                  - (t3dg_2(0, 0, 0) * t2s_2(0, 0)
                     + t3dg_2(0, 1, 0) * t2s_2(1, 0)
                     + t3dg_2(0, 2, 0) * t2s_2(2, 0)),
                "T3dg(i,j,k)*T2s(j,l)(0,0,0)");
  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(0, 0, 1)
                  - (t3dg_2(0, 0, 0) * t2s_2(0, 1)
                     + t3dg_2(0, 1, 0) * t2s_2(1, 1)
                     + t3dg_2(0, 2, 0) * t2s_2(2, 1)),
                "T3dg(i,j,k)*T2s(j,l)(0,0,1)");
  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(0, 0, 2)
                  - (t3dg_2(0, 0, 0) * t2s_2(0, 2)
                     + t3dg_2(0, 1, 0) * t2s_2(1, 2)
                     + t3dg_2(0, 2, 0) * t2s_2(2, 2)),
                "T3dg(i,j,k)*T2s(j,l)(0,0,2)");
  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(0, 1, 0)
                  - (t3dg_2(0, 0, 1) * t2s_2(0, 0)
                     + t3dg_2(0, 1, 1) * t2s_2(1, 0)
                     + t3dg_2(0, 2, 1) * t2s_2(2, 0)),
                "T3dg(i,j,k)*T2s(j,l)(0,1,0)");
  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(0, 1, 1)
                  - (t3dg_2(0, 0, 1) * t2s_2(0, 1)
                     + t3dg_2(0, 1, 1) * t2s_2(1, 1)
                     + t3dg_2(0, 2, 1) * t2s_2(2, 1)),
                "T3dg(i,j,k)*T2s(j,l)(0,1,1)");
  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(0, 1, 2)
                  - (t3dg_2(0, 0, 1) * t2s_2(0, 2)
                     + t3dg_2(0, 1, 1) * t2s_2(1, 2)
                     + t3dg_2(0, 2, 1) * t2s_2(2, 2)),
                "T3dg(i,j,k)*T2s(j,l)(0,1,2)");
  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(0, 2, 0)
                  - (t3dg_2(0, 0, 2) * t2s_2(0, 0)
                     + t3dg_2(0, 1, 2) * t2s_2(1, 0)
                     + t3dg_2(0, 2, 2) * t2s_2(2, 0)),
                "T3dg(i,j,k)*T2s(j,l)(0,2,0)");
  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(0, 2, 1)
                  - (t3dg_2(0, 0, 2) * t2s_2(0, 1)
                     + t3dg_2(0, 1, 2) * t2s_2(1, 1)
                     + t3dg_2(0, 2, 2) * t2s_2(2, 1)),
                "T3dg(i,j,k)*T2s(j,l)(0,2,1)");
  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(0, 2, 2)
                  - (t3dg_2(0, 0, 2) * t2s_2(0, 2)
                     + t3dg_2(0, 1, 2) * t2s_2(1, 2)
                     + t3dg_2(0, 2, 2) * t2s_2(2, 2)),
                "T3dg(i,j,k)*T2s(j,l)(0,2,2)");
  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(1, 0, 0)
                  - (t3dg_2(1, 0, 0) * t2s_2(0, 0)
                     + t3dg_2(1, 1, 0) * t2s_2(1, 0)
                     + t3dg_2(1, 2, 0) * t2s_2(2, 0)),
                "T3dg(i,j,k)*T2s(j,l)(1,0,0)");
  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(1, 0, 1)
                  - (t3dg_2(1, 0, 0) * t2s_2(0, 1)
                     + t3dg_2(1, 1, 0) * t2s_2(1, 1)
                     + t3dg_2(1, 2, 0) * t2s_2(2, 1)),
                "T3dg(i,j,k)*T2s(j,l)(1,0,1)");
  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(1, 0, 2)
                  - (t3dg_2(1, 0, 0) * t2s_2(0, 2)
                     + t3dg_2(1, 1, 0) * t2s_2(1, 2)
                     + t3dg_2(1, 2, 0) * t2s_2(2, 2)),
                "T3dg(i,j,k)*T2s(j,l)(1,0,2)");
  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(1, 1, 0)
                  - (t3dg_2(1, 0, 1) * t2s_2(0, 0)
                     + t3dg_2(1, 1, 1) * t2s_2(1, 0)
                     + t3dg_2(1, 2, 1) * t2s_2(2, 0)),
                "T3dg(i,j,k)*T2s(j,l)(1,1,0)");
  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(1, 1, 1)
                  - (t3dg_2(1, 0, 1) * t2s_2(0, 1)
                     + t3dg_2(1, 1, 1) * t2s_2(1, 1)
                     + t3dg_2(1, 2, 1) * t2s_2(2, 1)),
                "T3dg(i,j,k)*T2s(j,l)(1,1,1)");
  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(1, 1, 2)
                  - (t3dg_2(1, 0, 1) * t2s_2(0, 2)
                     + t3dg_2(1, 1, 1) * t2s_2(1, 2)
                     + t3dg_2(1, 2, 1) * t2s_2(2, 2)),
                "T3dg(i,j,k)*T2s(j,l)(1,1,2)");
  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(1, 2, 0)
                  - (t3dg_2(1, 0, 2) * t2s_2(0, 0)
                     + t3dg_2(1, 1, 2) * t2s_2(1, 0)
                     + t3dg_2(1, 2, 2) * t2s_2(2, 0)),
                "T3dg(i,j,k)*T2s(j,l)(1,2,0)");
  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(1, 2, 1)
                  - (t3dg_2(1, 0, 2) * t2s_2(0, 1)
                     + t3dg_2(1, 1, 2) * t2s_2(1, 1)
                     + t3dg_2(1, 2, 2) * t2s_2(2, 1)),
                "T3dg(i,j,k)*T2s(j,l)(1,2,1)");
  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(1, 2, 2)
                  - (t3dg_2(1, 0, 2) * t2s_2(0, 2)
                     + t3dg_2(1, 1, 2) * t2s_2(1, 2)
                     + t3dg_2(1, 2, 2) * t2s_2(2, 2)),
                "T3dg(i,j,k)*T2s(j,l)(1,2,2)");
  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(2, 0, 0)
                  - (t3dg_2(2, 0, 0) * t2s_2(0, 0)
                     + t3dg_2(2, 1, 0) * t2s_2(1, 0)
                     + t3dg_2(2, 2, 0) * t2s_2(2, 0)),
                "T3dg(i,j,k)*T2s(j,l)(2,0,0)");
  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(2, 0, 1)
                  - (t3dg_2(2, 0, 0) * t2s_2(0, 1)
                     + t3dg_2(2, 1, 0) * t2s_2(1, 1)
                     + t3dg_2(2, 2, 0) * t2s_2(2, 1)),
                "T3dg(i,j,k)*T2s(j,l)(2,0,1)");
  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(2, 0, 2)
                  - (t3dg_2(2, 0, 0) * t2s_2(0, 2)
                     + t3dg_2(2, 1, 0) * t2s_2(1, 2)
                     + t3dg_2(2, 2, 0) * t2s_2(2, 2)),
                "T3dg(i,j,k)*T2s(j,l)(2,0,2)");
  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(2, 1, 0)
                  - (t3dg_2(2, 0, 1) * t2s_2(0, 0)
                     + t3dg_2(2, 1, 1) * t2s_2(1, 0)
                     + t3dg_2(2, 2, 1) * t2s_2(2, 0)),
                "T3dg(i,j,k)*T2s(j,l)(2,1,0)");
  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(2, 1, 1)
                  - (t3dg_2(2, 0, 1) * t2s_2(0, 1)
                     + t3dg_2(2, 1, 1) * t2s_2(1, 1)
                     + t3dg_2(2, 2, 1) * t2s_2(2, 1)),
                "T3dg(i,j,k)*T2s(j,l)(2,1,1)");
  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(2, 1, 2)
                  - (t3dg_2(2, 0, 1) * t2s_2(0, 2)
                     + t3dg_2(2, 1, 1) * t2s_2(1, 2)
                     + t3dg_2(2, 2, 1) * t2s_2(2, 2)),
                "T3dg(i,j,k)*T2s(j,l)(2,1,2)");
  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(2, 2, 0)
                  - (t3dg_2(2, 0, 2) * t2s_2(0, 0)
                     + t3dg_2(2, 1, 2) * t2s_2(1, 0)
                     + t3dg_2(2, 2, 2) * t2s_2(2, 0)),
                "T3dg(i,j,k)*T2s(j,l)(2,2,0)");
  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(2, 2, 1)
                  - (t3dg_2(2, 0, 2) * t2s_2(0, 1)
                     + t3dg_2(2, 1, 2) * t2s_2(1, 1)
                     + t3dg_2(2, 2, 2) * t2s_2(2, 1)),
                "T3dg(i,j,k)*T2s(j,l)(2,2,1)");
  test_for_zero((t3dg_2(i, j, k) * t2s_2(j, l))(2, 2, 2)
                  - (t3dg_2(2, 0, 2) * t2s_2(0, 2)
                     + t3dg_2(2, 1, 2) * t2s_2(1, 2)
                     + t3dg_2(2, 2, 2) * t2s_2(2, 2)),
                "T3dg(i,j,k)*T2s(j,l)(2,2,2)");
 
  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(0, 0, 0)
                  - (t3dg_3(0, 0, 0) * t2s_2(0, 0)
                     + t3dg_3(0, 1, 0) * t2s_2(0, 1)
                     + t3dg_3(0, 2, 0) * t2s_2(0, 2)),
                "T3dg(i,j,k)*T2s(l,j)(0,0,0)");
  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(0, 0, 1)
                  - (t3dg_3(0, 0, 0) * t2s_2(1, 0)
                     + t3dg_3(0, 1, 0) * t2s_2(1, 1)
                     + t3dg_3(0, 2, 0) * t2s_2(1, 2)),
                "T3dg(i,j,k)*T2s(l,j)(0,0,1)");
  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(0, 0, 2)
                  - (t3dg_3(0, 0, 0) * t2s_2(2, 0)
                     + t3dg_3(0, 1, 0) * t2s_2(2, 1)
                     + t3dg_3(0, 2, 0) * t2s_2(2, 2)),
                "T3dg(i,j,k)*T2s(l,j)(0,0,2)");
  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(0, 1, 0)
                  - (t3dg_3(0, 0, 1) * t2s_2(0, 0)
                     + t3dg_3(0, 1, 1) * t2s_2(0, 1)
                     + t3dg_3(0, 2, 1) * t2s_2(0, 2)),
                "T3dg(i,j,k)*T2s(l,j)(0,1,0)");
  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(0, 1, 1)
                  - (t3dg_3(0, 0, 1) * t2s_2(1, 0)
                     + t3dg_3(0, 1, 1) * t2s_2(1, 1)
                     + t3dg_3(0, 2, 1) * t2s_2(1, 2)),
                "T3dg(i,j,k)*T2s(l,j)(0,1,1)");
  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(0, 1, 2)
                  - (t3dg_3(0, 0, 1) * t2s_2(2, 0)
                     + t3dg_3(0, 1, 1) * t2s_2(2, 1)
                     + t3dg_3(0, 2, 1) * t2s_2(2, 2)),
                "T3dg(i,j,k)*T2s(l,j)(0,1,2)");
  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(0, 2, 0)
                  - (t3dg_3(0, 0, 2) * t2s_2(0, 0)
                     + t3dg_3(0, 1, 2) * t2s_2(0, 1)
                     + t3dg_3(0, 2, 2) * t2s_2(0, 2)),
                "T3dg(i,j,k)*T2s(l,j)(0,2,0)");
  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(0, 2, 1)
                  - (t3dg_3(0, 0, 2) * t2s_2(1, 0)
                     + t3dg_3(0, 1, 2) * t2s_2(1, 1)
                     + t3dg_3(0, 2, 2) * t2s_2(1, 2)),
                "T3dg(i,j,k)*T2s(l,j)(0,2,1)");
  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(0, 2, 2)
                  - (t3dg_3(0, 0, 2) * t2s_2(2, 0)
                     + t3dg_3(0, 1, 2) * t2s_2(2, 1)
                     + t3dg_3(0, 2, 2) * t2s_2(2, 2)),
                "T3dg(i,j,k)*T2s(l,j)(0,2,2)");
  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(1, 0, 0)
                  - (t3dg_3(1, 0, 0) * t2s_2(0, 0)
                     + t3dg_3(1, 1, 0) * t2s_2(0, 1)
                     + t3dg_3(1, 2, 0) * t2s_2(0, 2)),
                "T3dg(i,j,k)*T2s(l,j)(1,0,0)");
  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(1, 0, 1)
                  - (t3dg_3(1, 0, 0) * t2s_2(1, 0)
                     + t3dg_3(1, 1, 0) * t2s_2(1, 1)
                     + t3dg_3(1, 2, 0) * t2s_2(1, 2)),
                "T3dg(i,j,k)*T2s(l,j)(1,0,1)");
  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(1, 0, 2)
                  - (t3dg_3(1, 0, 0) * t2s_2(2, 0)
                     + t3dg_3(1, 1, 0) * t2s_2(2, 1)
                     + t3dg_3(1, 2, 0) * t2s_2(2, 2)),
                "T3dg(i,j,k)*T2s(l,j)(1,0,2)");
  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(1, 1, 0)
                  - (t3dg_3(1, 0, 1) * t2s_2(0, 0)
                     + t3dg_3(1, 1, 1) * t2s_2(0, 1)
                     + t3dg_3(1, 2, 1) * t2s_2(0, 2)),
                "T3dg(i,j,k)*T2s(l,j)(1,1,0)");
  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(1, 1, 1)
                  - (t3dg_3(1, 0, 1) * t2s_2(1, 0)
                     + t3dg_3(1, 1, 1) * t2s_2(1, 1)
                     + t3dg_3(1, 2, 1) * t2s_2(1, 2)),
                "T3dg(i,j,k)*T2s(l,j)(1,1,1)");
  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(1, 1, 2)
                  - (t3dg_3(1, 0, 1) * t2s_2(2, 0)
                     + t3dg_3(1, 1, 1) * t2s_2(2, 1)
                     + t3dg_3(1, 2, 1) * t2s_2(2, 2)),
                "T3dg(i,j,k)*T2s(l,j)(1,1,2)");
  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(1, 2, 0)
                  - (t3dg_3(1, 0, 2) * t2s_2(0, 0)
                     + t3dg_3(1, 1, 2) * t2s_2(0, 1)
                     + t3dg_3(1, 2, 2) * t2s_2(0, 2)),
                "T3dg(i,j,k)*T2s(l,j)(1,2,0)");
  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(1, 2, 1)
                  - (t3dg_3(1, 0, 2) * t2s_2(1, 0)
                     + t3dg_3(1, 1, 2) * t2s_2(1, 1)
                     + t3dg_3(1, 2, 2) * t2s_2(1, 2)),
                "T3dg(i,j,k)*T2s(l,j)(1,2,1)");
  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(1, 2, 2)
                  - (t3dg_3(1, 0, 2) * t2s_2(2, 0)
                     + t3dg_3(1, 1, 2) * t2s_2(2, 1)
                     + t3dg_3(1, 2, 2) * t2s_2(2, 2)),
                "T3dg(i,j,k)*T2s(l,j)(1,2,2)");
  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(2, 0, 0)
                  - (t3dg_3(2, 0, 0) * t2s_2(0, 0)
                     + t3dg_3(2, 1, 0) * t2s_2(0, 1)
                     + t3dg_3(2, 2, 0) * t2s_2(0, 2)),
                "T3dg(i,j,k)*T2s(l,j)(2,0,0)");
  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(2, 0, 1)
                  - (t3dg_3(2, 0, 0) * t2s_2(1, 0)
                     + t3dg_3(2, 1, 0) * t2s_2(1, 1)
                     + t3dg_3(2, 2, 0) * t2s_2(1, 2)),
                "T3dg(i,j,k)*T2s(l,j)(2,0,1)");
  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(2, 0, 2)
                  - (t3dg_3(2, 0, 0) * t2s_2(2, 0)
                     + t3dg_3(2, 1, 0) * t2s_2(2, 1)
                     + t3dg_3(2, 2, 0) * t2s_2(2, 2)),
                "T3dg(i,j,k)*T2s(l,j)(2,0,2)");
  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(2, 1, 0)
                  - (t3dg_3(2, 0, 1) * t2s_2(0, 0)
                     + t3dg_3(2, 1, 1) * t2s_2(0, 1)
                     + t3dg_3(2, 2, 1) * t2s_2(0, 2)),
                "T3dg(i,j,k)*T2s(l,j)(2,1,0)");
  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(2, 1, 1)
                  - (t3dg_3(2, 0, 1) * t2s_2(1, 0)
                     + t3dg_3(2, 1, 1) * t2s_2(1, 1)
                     + t3dg_3(2, 2, 1) * t2s_2(1, 2)),
                "T3dg(i,j,k)*T2s(l,j)(2,1,1)");
  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(2, 1, 2)
                  - (t3dg_3(2, 0, 1) * t2s_2(2, 0)
                     + t3dg_3(2, 1, 1) * t2s_2(2, 1)
                     + t3dg_3(2, 2, 1) * t2s_2(2, 2)),
                "T3dg(i,j,k)*T2s(l,j)(2,1,2)");
  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(2, 2, 0)
                  - (t3dg_3(2, 0, 2) * t2s_2(0, 0)
                     + t3dg_3(2, 1, 2) * t2s_2(0, 1)
                     + t3dg_3(2, 2, 2) * t2s_2(0, 2)),
                "T3dg(i,j,k)*T2s(l,j)(2,2,0)");
  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(2, 2, 1)
                  - (t3dg_3(2, 0, 2) * t2s_2(1, 0)
                     + t3dg_3(2, 1, 2) * t2s_2(1, 1)
                     + t3dg_3(2, 2, 2) * t2s_2(1, 2)),
                "T3dg(i,j,k)*T2s(l,j)(2,2,1)");
  test_for_zero((t3dg_3(i, j, k) * t2s_2(l, j))(2, 2, 2)
                  - (t3dg_3(2, 0, 2) * t2s_2(2, 0)
                     + t3dg_3(2, 1, 2) * t2s_2(2, 1)
                     + t3dg_3(2, 2, 2) * t2s_2(2, 2)),
                "T3dg(i,j,k)*T2s(l,j)(2,2,2)");
 
  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(0, 0, 0)
                  - (t3dg_3(0, 0, 0) * t2s_2(0, 0)
                     + t3dg_3(0, 1, 0) * t2s_2(1, 0)
                     + t3dg_3(0, 2, 0) * t2s_2(2, 0)),
                "T2s(j,l)*T3dg(i,j,k)(0,0,0)");
  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(0, 0, 1)
                  - (t3dg_3(0, 0, 0) * t2s_2(0, 1)
                     + t3dg_3(0, 1, 0) * t2s_2(1, 1)
                     + t3dg_3(0, 2, 0) * t2s_2(2, 1)),
                "T2s(j,l)*T3dg(i,j,k)(0,0,1)");
  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(0, 0, 2)
                  - (t3dg_3(0, 0, 0) * t2s_2(0, 2)
                     + t3dg_3(0, 1, 0) * t2s_2(1, 2)
                     + t3dg_3(0, 2, 0) * t2s_2(2, 2)),
                "T2s(j,l)*T3dg(i,j,k)(0,0,2)");
  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(0, 1, 0)
                  - (t3dg_3(0, 0, 1) * t2s_2(0, 0)
                     + t3dg_3(0, 1, 1) * t2s_2(1, 0)
                     + t3dg_3(0, 2, 1) * t2s_2(2, 0)),
                "T2s(j,l)*T3dg(i,j,k)(0,1,0)");
  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(0, 1, 1)
                  - (t3dg_3(0, 0, 1) * t2s_2(0, 1)
                     + t3dg_3(0, 1, 1) * t2s_2(1, 1)
                     + t3dg_3(0, 2, 1) * t2s_2(2, 1)),
                "T2s(j,l)*T3dg(i,j,k)(0,1,1)");
  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(0, 1, 2)
                  - (t3dg_3(0, 0, 1) * t2s_2(0, 2)
                     + t3dg_3(0, 1, 1) * t2s_2(1, 2)
                     + t3dg_3(0, 2, 1) * t2s_2(2, 2)),
                "T2s(j,l)*T3dg(i,j,k)(0,1,2)");
  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(0, 2, 0)
                  - (t3dg_3(0, 0, 2) * t2s_2(0, 0)
                     + t3dg_3(0, 1, 2) * t2s_2(1, 0)
                     + t3dg_3(0, 2, 2) * t2s_2(2, 0)),
                "T2s(j,l)*T3dg(i,j,k)(0,2,0)");
  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(0, 2, 1)
                  - (t3dg_3(0, 0, 2) * t2s_2(0, 1)
                     + t3dg_3(0, 1, 2) * t2s_2(1, 1)
                     + t3dg_3(0, 2, 2) * t2s_2(2, 1)),
                "T2s(j,l)*T3dg(i,j,k)(0,2,1)");
  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(0, 2, 2)
                  - (t3dg_3(0, 0, 2) * t2s_2(0, 2)
                     + t3dg_3(0, 1, 2) * t2s_2(1, 2)
                     + t3dg_3(0, 2, 2) * t2s_2(2, 2)),
                "T2s(j,l)*T3dg(i,j,k)(0,2,2)");
  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(1, 0, 0)
                  - (t3dg_3(1, 0, 0) * t2s_2(0, 0)
                     + t3dg_3(1, 1, 0) * t2s_2(1, 0)
                     + t3dg_3(1, 2, 0) * t2s_2(2, 0)),
                "T2s(j,l)*T3dg(i,j,k)(1,0,0)");
  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(1, 0, 1)
                  - (t3dg_3(1, 0, 0) * t2s_2(0, 1)
                     + t3dg_3(1, 1, 0) * t2s_2(1, 1)
                     + t3dg_3(1, 2, 0) * t2s_2(2, 1)),
                "T2s(j,l)*T3dg(i,j,k)(1,0,1)");
  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(1, 0, 2)
                  - (t3dg_3(1, 0, 0) * t2s_2(0, 2)
                     + t3dg_3(1, 1, 0) * t2s_2(1, 2)
                     + t3dg_3(1, 2, 0) * t2s_2(2, 2)),
                "T2s(j,l)*T3dg(i,j,k)(1,0,2)");
  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(1, 1, 0)
                  - (t3dg_3(1, 0, 1) * t2s_2(0, 0)
                     + t3dg_3(1, 1, 1) * t2s_2(1, 0)
                     + t3dg_3(1, 2, 1) * t2s_2(2, 0)),
                "T2s(j,l)*T3dg(i,j,k)(1,1,0)");
  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(1, 1, 1)
                  - (t3dg_3(1, 0, 1) * t2s_2(0, 1)
                     + t3dg_3(1, 1, 1) * t2s_2(1, 1)
                     + t3dg_3(1, 2, 1) * t2s_2(2, 1)),
                "T2s(j,l)*T3dg(i,j,k)(1,1,1)");
  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(1, 1, 2)
                  - (t3dg_3(1, 0, 1) * t2s_2(0, 2)
                     + t3dg_3(1, 1, 1) * t2s_2(1, 2)
                     + t3dg_3(1, 2, 1) * t2s_2(2, 2)),
                "T2s(j,l)*T3dg(i,j,k)(1,1,2)");
  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(1, 2, 0)
                  - (t3dg_3(1, 0, 2) * t2s_2(0, 0)
                     + t3dg_3(1, 1, 2) * t2s_2(1, 0)
                     + t3dg_3(1, 2, 2) * t2s_2(2, 0)),
                "T2s(j,l)*T3dg(i,j,k)(1,2,0)");
  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(1, 2, 1)
                  - (t3dg_3(1, 0, 2) * t2s_2(0, 1)
                     + t3dg_3(1, 1, 2) * t2s_2(1, 1)
                     + t3dg_3(1, 2, 2) * t2s_2(2, 1)),
                "T2s(j,l)*T3dg(i,j,k)(1,2,1)");
  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(1, 2, 2)
                  - (t3dg_3(1, 0, 2) * t2s_2(0, 2)
                     + t3dg_3(1, 1, 2) * t2s_2(1, 2)
                     + t3dg_3(1, 2, 2) * t2s_2(2, 2)),
                "T2s(j,l)*T3dg(i,j,k)(1,2,2)");
  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(2, 0, 0)
                  - (t3dg_3(2, 0, 0) * t2s_2(0, 0)
                     + t3dg_3(2, 1, 0) * t2s_2(1, 0)
                     + t3dg_3(2, 2, 0) * t2s_2(2, 0)),
                "T2s(j,l)*T3dg(i,j,k)(2,0,0)");
  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(2, 0, 1)
                  - (t3dg_3(2, 0, 0) * t2s_2(0, 1)
                     + t3dg_3(2, 1, 0) * t2s_2(1, 1)
                     + t3dg_3(2, 2, 0) * t2s_2(2, 1)),
                "T2s(j,l)*T3dg(i,j,k)(2,0,1)");
  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(2, 0, 2)
                  - (t3dg_3(2, 0, 0) * t2s_2(0, 2)
                     + t3dg_3(2, 1, 0) * t2s_2(1, 2)
                     + t3dg_3(2, 2, 0) * t2s_2(2, 2)),
                "T2s(j,l)*T3dg(i,j,k)(2,0,2)");
  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(2, 1, 0)
                  - (t3dg_3(2, 0, 1) * t2s_2(0, 0)
                     + t3dg_3(2, 1, 1) * t2s_2(1, 0)
                     + t3dg_3(2, 2, 1) * t2s_2(2, 0)),
                "T2s(j,l)*T3dg(i,j,k)(2,1,0)");
  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(2, 1, 1)
                  - (t3dg_3(2, 0, 1) * t2s_2(0, 1)
                     + t3dg_3(2, 1, 1) * t2s_2(1, 1)
                     + t3dg_3(2, 2, 1) * t2s_2(2, 1)),
                "T2s(j,l)*T3dg(i,j,k)(2,1,1)");
  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(2, 1, 2)
                  - (t3dg_3(2, 0, 1) * t2s_2(0, 2)
                     + t3dg_3(2, 1, 1) * t2s_2(1, 2)
                     + t3dg_3(2, 2, 1) * t2s_2(2, 2)),
                "T2s(j,l)*T3dg(i,j,k)(2,1,2)");
  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(2, 2, 0)
                  - (t3dg_3(2, 0, 2) * t2s_2(0, 0)
                     + t3dg_3(2, 1, 2) * t2s_2(1, 0)
                     + t3dg_3(2, 2, 2) * t2s_2(2, 0)),
                "T2s(j,l)*T3dg(i,j,k)(2,2,0)");
  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(2, 2, 1)
                  - (t3dg_3(2, 0, 2) * t2s_2(0, 1)
                     + t3dg_3(2, 1, 2) * t2s_2(1, 1)
                     + t3dg_3(2, 2, 2) * t2s_2(2, 1)),
                "T2s(j,l)*T3dg(i,j,k)(2,2,1)");
  test_for_zero((t2s_2(j, l) * t3dg_3(i, j, k))(2, 2, 2)
                  - (t3dg_3(2, 0, 2) * t2s_2(0, 2)
                     + t3dg_3(2, 1, 2) * t2s_2(1, 2)
                     + t3dg_3(2, 2, 2) * t2s_2(2, 2)),
                "T2s(j,l)*T3dg(i,j,k)(2,2,2)");
 
  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(0, 0, 0)
                  - (t3dg_3(0, 0, 0) * t2s_2(0, 0)
                     + t3dg_3(0, 1, 0) * t2s_2(0, 1)
                     + t3dg_3(0, 2, 0) * t2s_2(0, 2)),
                "T2s(l,j)*T3dg(i,j,k)(0,0,0)");
  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(0, 0, 1)
                  - (t3dg_3(0, 0, 0) * t2s_2(1, 0)
                     + t3dg_3(0, 1, 0) * t2s_2(1, 1)
                     + t3dg_3(0, 2, 0) * t2s_2(1, 2)),
                "T2s(l,j)*T3dg(i,j,k)(0,0,1)");
  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(0, 0, 2)
                  - (t3dg_3(0, 0, 0) * t2s_2(2, 0)
                     + t3dg_3(0, 1, 0) * t2s_2(2, 1)
                     + t3dg_3(0, 2, 0) * t2s_2(2, 2)),
                "T2s(l,j)*T3dg(i,j,k)(0,0,2)");
  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(0, 1, 0)
                  - (t3dg_3(0, 0, 1) * t2s_2(0, 0)
                     + t3dg_3(0, 1, 1) * t2s_2(0, 1)
                     + t3dg_3(0, 2, 1) * t2s_2(0, 2)),
                "T2s(l,j)*T3dg(i,j,k)(0,1,0)");
  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(0, 1, 1)
                  - (t3dg_3(0, 0, 1) * t2s_2(1, 0)
                     + t3dg_3(0, 1, 1) * t2s_2(1, 1)
                     + t3dg_3(0, 2, 1) * t2s_2(1, 2)),
                "T2s(l,j)*T3dg(i,j,k)(0,1,1)");
  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(0, 1, 2)
                  - (t3dg_3(0, 0, 1) * t2s_2(2, 0)
                     + t3dg_3(0, 1, 1) * t2s_2(2, 1)
                     + t3dg_3(0, 2, 1) * t2s_2(2, 2)),
                "T2s(l,j)*T3dg(i,j,k)(0,1,2)");
  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(0, 2, 0)
                  - (t3dg_3(0, 0, 2) * t2s_2(0, 0)
                     + t3dg_3(0, 1, 2) * t2s_2(0, 1)
                     + t3dg_3(0, 2, 2) * t2s_2(0, 2)),
                "T2s(l,j)*T3dg(i,j,k)(0,2,0)");
  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(0, 2, 1)
                  - (t3dg_3(0, 0, 2) * t2s_2(1, 0)
                     + t3dg_3(0, 1, 2) * t2s_2(1, 1)
                     + t3dg_3(0, 2, 2) * t2s_2(1, 2)),
                "T2s(l,j)*T3dg(i,j,k)(0,2,1)");
  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(0, 2, 2)
                  - (t3dg_3(0, 0, 2) * t2s_2(2, 0)
                     + t3dg_3(0, 1, 2) * t2s_2(2, 1)
                     + t3dg_3(0, 2, 2) * t2s_2(2, 2)),
                "T2s(l,j)*T3dg(i,j,k)(0,2,2)");
  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(1, 0, 0)
                  - (t3dg_3(1, 0, 0) * t2s_2(0, 0)
                     + t3dg_3(1, 1, 0) * t2s_2(0, 1)
                     + t3dg_3(1, 2, 0) * t2s_2(0, 2)),
                "T2s(l,j)*T3dg(i,j,k)(1,0,0)");
  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(1, 0, 1)
                  - (t3dg_3(1, 0, 0) * t2s_2(1, 0)
                     + t3dg_3(1, 1, 0) * t2s_2(1, 1)
                     + t3dg_3(1, 2, 0) * t2s_2(1, 2)),
                "T2s(l,j)*T3dg(i,j,k)(1,0,1)");
  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(1, 0, 2)
                  - (t3dg_3(1, 0, 0) * t2s_2(2, 0)
                     + t3dg_3(1, 1, 0) * t2s_2(2, 1)
                     + t3dg_3(1, 2, 0) * t2s_2(2, 2)),
                "T2s(l,j)*T3dg(i,j,k)(1,0,2)");
  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(1, 1, 0)
                  - (t3dg_3(1, 0, 1) * t2s_2(0, 0)
                     + t3dg_3(1, 1, 1) * t2s_2(0, 1)
                     + t3dg_3(1, 2, 1) * t2s_2(0, 2)),
                "T2s(l,j)*T3dg(i,j,k)(1,1,0)");
  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(1, 1, 1)
                  - (t3dg_3(1, 0, 1) * t2s_2(1, 0)
                     + t3dg_3(1, 1, 1) * t2s_2(1, 1)
                     + t3dg_3(1, 2, 1) * t2s_2(1, 2)),
                "T2s(l,j)*T3dg(i,j,k)(1,1,1)");
  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(1, 1, 2)
                  - (t3dg_3(1, 0, 1) * t2s_2(2, 0)
                     + t3dg_3(1, 1, 1) * t2s_2(2, 1)
                     + t3dg_3(1, 2, 1) * t2s_2(2, 2)),
                "T2s(l,j)*T3dg(i,j,k)(1,1,2)");
  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(1, 2, 0)
                  - (t3dg_3(1, 0, 2) * t2s_2(0, 0)
                     + t3dg_3(1, 1, 2) * t2s_2(0, 1)
                     + t3dg_3(1, 2, 2) * t2s_2(0, 2)),
                "T2s(l,j)*T3dg(i,j,k)(1,2,0)");
  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(1, 2, 1)
                  - (t3dg_3(1, 0, 2) * t2s_2(1, 0)
                     + t3dg_3(1, 1, 2) * t2s_2(1, 1)
                     + t3dg_3(1, 2, 2) * t2s_2(1, 2)),
                "T2s(l,j)*T3dg(i,j,k)(1,2,1)");
  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(1, 2, 2)
                  - (t3dg_3(1, 0, 2) * t2s_2(2, 0)
                     + t3dg_3(1, 1, 2) * t2s_2(2, 1)
                     + t3dg_3(1, 2, 2) * t2s_2(2, 2)),
                "T2s(l,j)*T3dg(i,j,k)(1,2,2)");
  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(2, 0, 0)
                  - (t3dg_3(2, 0, 0) * t2s_2(0, 0)
                     + t3dg_3(2, 1, 0) * t2s_2(0, 1)
                     + t3dg_3(2, 2, 0) * t2s_2(0, 2)),
                "T2s(l,j)*T3dg(i,j,k)(2,0,0)");
  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(2, 0, 1)
                  - (t3dg_3(2, 0, 0) * t2s_2(1, 0)
                     + t3dg_3(2, 1, 0) * t2s_2(1, 1)
                     + t3dg_3(2, 2, 0) * t2s_2(1, 2)),
                "T2s(l,j)*T3dg(i,j,k)(2,0,1)");
  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(2, 0, 2)
                  - (t3dg_3(2, 0, 0) * t2s_2(2, 0)
                     + t3dg_3(2, 1, 0) * t2s_2(2, 1)
                     + t3dg_3(2, 2, 0) * t2s_2(2, 2)),
                "T2s(l,j)*T3dg(i,j,k)(2,0,2)");
  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(2, 1, 0)
                  - (t3dg_3(2, 0, 1) * t2s_2(0, 0)
                     + t3dg_3(2, 1, 1) * t2s_2(0, 1)
                     + t3dg_3(2, 2, 1) * t2s_2(0, 2)),
                "T2s(l,j)*T3dg(i,j,k)(2,1,0)");
  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(2, 1, 1)
                  - (t3dg_3(2, 0, 1) * t2s_2(1, 0)
                     + t3dg_3(2, 1, 1) * t2s_2(1, 1)
                     + t3dg_3(2, 2, 1) * t2s_2(1, 2)),
                "T2s(l,j)*T3dg(i,j,k)(2,1,1)");
  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(2, 1, 2)
                  - (t3dg_3(2, 0, 1) * t2s_2(2, 0)
                     + t3dg_3(2, 1, 1) * t2s_2(2, 1)
                     + t3dg_3(2, 2, 1) * t2s_2(2, 2)),
                "T2s(l,j)*T3dg(i,j,k)(2,1,2)");
  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(2, 2, 0)
                  - (t3dg_3(2, 0, 2) * t2s_2(0, 0)
                     + t3dg_3(2, 1, 2) * t2s_2(0, 1)
                     + t3dg_3(2, 2, 2) * t2s_2(0, 2)),
                "T2s(l,j)*T3dg(i,j,k)(2,2,0)");
  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(2, 2, 1)
                  - (t3dg_3(2, 0, 2) * t2s_2(1, 0)
                     + t3dg_3(2, 1, 2) * t2s_2(1, 1)
                     + t3dg_3(2, 2, 2) * t2s_2(1, 2)),
                "T2s(l,j)*T3dg(i,j,k)(2,2,1)");
  test_for_zero((t2s_2(l, j) * t3dg_3(i, j, k))(2, 2, 2)
                  - (t3dg_3(2, 0, 2) * t2s_2(2, 0)
                     + t3dg_3(2, 1, 2) * t2s_2(2, 1)
                     + t3dg_3(2, 2, 2) * t2s_2(2, 2)),
                "T2s(l,j)*T3dg(i,j,k)(2,2,2)");
}