18  t2(
i, 
j) = t2_1(
i, 
j);
 
   23  test_for_zero(t2(0, 0) - (t2_1(0, 0) * 4), 
"T2(i,N)*=T(0,0)");
 
   24  test_for_zero(t2(1, 0) - (t2_1(1, 0) * 4), 
"T2(i,N)*=T(1,0)");
 
   25  test_for_zero(t2(2, 0) - (t2_1(2, 0) * 4), 
"T2(i,N)*=T(2,0)");
 
   26  test_for_zero(t2(0, 1) - (t2_1(0, 1) * 6), 
"T2(i,N)*=T(0,1)");
 
   27  test_for_zero(t2(1, 1) - (t2_1(1, 1) * 6), 
"T2(i,N)*=T(1,1)");
 
   28  test_for_zero(t2(2, 1) - (t2_1(2, 1) * 6), 
"T2(i,N)*=T(2,1)");
 
   29  test_for_zero(t2(0, 2) - (t2_1(0, 2) * 8), 
"T2(i,N)*=T(0,2)");
 
   30  test_for_zero(t2(1, 2) - (t2_1(1, 2) * 8), 
"T2(i,N)*=T(1,2)");
 
   31  test_for_zero(t2(2, 2) - (t2_1(2, 2) * 8), 
"T2(i,N)*=T(2,2)");
 
   33  t2(
i, 
j) = t2_1(
i, 
j);
 
   38  test_for_zero(t2(0, 0) - (t2_1(0, 0) / 2), 
"T2(i,N)/=T(0,0)");
 
   39  test_for_zero(t2(1, 0) - (t2_1(1, 0) / 2), 
"T2(i,N)/=T(1,0)");
 
   40  test_for_zero(t2(2, 0) - (t2_1(2, 0) / 2), 
"T2(i,N)/=T(2,0)");
 
   41  test_for_zero(t2(0, 1) - (t2_1(0, 1) / 3), 
"T2(i,N)/=T(0,1)");
 
   42  test_for_zero(t2(1, 1) - (t2_1(1, 1) / 3), 
"T2(i,N)/=T(1,1)");
 
   43  test_for_zero(t2(2, 1) - (t2_1(2, 1) / 3), 
"T2(i,N)/=T(2,1)");
 
   44  test_for_zero(t2(0, 2) - (t2_1(0, 2) / 4), 
"T2(i,N)/=T(0,2)");
 
   45  test_for_zero(t2(1, 2) - (t2_1(1, 2) / 4), 
"T2(i,N)/=T(1,2)");
 
   46  test_for_zero(t2(2, 2) - (t2_1(2, 2) / 4), 
"T2(i,N)/=T(2,2)");
 
   48  t2(
i, 
j) = t2_1(
i, 
j);