21  t3dg_1(
i, 
j, N0) = t2s_1(
i, 
j);
 
   22  t3dg_1(
i, 
j, N1) = t2s_2(
i, 
j);
 
   23  t3dg_1(
i, 
j, N2) = t2s_3(
i, 
j);
 
   24  test_for_zero(t3dg_1(0, 0, 0) - t2s_1(0, 0), 
"T3dg(i,j,N)=T2s(i,j)(0,0,0)");
 
   25  test_for_zero(t3dg_1(0, 1, 0) - t2s_1(0, 1), 
"T3dg(i,j,N)=T2s(i,j)(0,1,0)");
 
   26  test_for_zero(t3dg_1(0, 2, 0) - t2s_1(0, 2), 
"T3dg(i,j,N)=T2s(i,j)(0,2,0)");
 
   27  test_for_zero(t3dg_1(1, 1, 0) - t2s_1(1, 1), 
"T3dg(i,j,N)=T2s(i,j)(1,1,0)");
 
   28  test_for_zero(t3dg_1(1, 2, 0) - t2s_1(1, 2), 
"T3dg(i,j,N)=T2s(i,j)(1,2,0)");
 
   29  test_for_zero(t3dg_1(2, 2, 0) - t2s_1(2, 2), 
"T3dg(i,j,N)=T2s(i,j)(2,2,0)");
 
   30  test_for_zero(t3dg_1(0, 0, 1) - t2s_2(0, 0), 
"T3dg(i,j,N)=T2s(i,j)(0,0,1)");
 
   31  test_for_zero(t3dg_1(0, 1, 1) - t2s_2(0, 1), 
"T3dg(i,j,N)=T2s(i,j)(0,1,1)");
 
   32  test_for_zero(t3dg_1(0, 2, 1) - t2s_2(0, 2), 
"T3dg(i,j,N)=T2s(i,j)(0,2,1)");
 
   33  test_for_zero(t3dg_1(1, 1, 1) - t2s_2(1, 1), 
"T3dg(i,j,N)=T2s(i,j)(1,1,1)");
 
   34  test_for_zero(t3dg_1(1, 2, 1) - t2s_2(1, 2), 
"T3dg(i,j,N)=T2s(i,j)(1,2,1)");
 
   35  test_for_zero(t3dg_1(2, 2, 1) - t2s_2(2, 2), 
"T3dg(i,j,N)=T2s(i,j)(2,2,1)");
 
   36  test_for_zero(t3dg_1(0, 0, 2) - t2s_3(0, 0), 
"T3dg(i,j,N)=T2s(i,j)(0,0,2)");
 
   37  test_for_zero(t3dg_1(0, 1, 2) - t2s_3(0, 1), 
"T3dg(i,j,N)=T2s(i,j)(0,1,2)");
 
   38  test_for_zero(t3dg_1(0, 2, 2) - t2s_3(0, 2), 
"T3dg(i,j,N)=T2s(i,j)(0,2,2)");
 
   39  test_for_zero(t3dg_1(1, 1, 2) - t2s_3(1, 1), 
"T3dg(i,j,N)=T2s(i,j)(1,1,2)");
 
   40  test_for_zero(t3dg_1(1, 2, 2) - t2s_3(1, 2), 
"T3dg(i,j,N)=T2s(i,j)(1,2,2)");
 
   41  test_for_zero(t3dg_1(2, 2, 2) - t2s_3(2, 2), 
"T3dg(i,j,N)=T2s(i,j)(2,2,2)");
 
 
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)