19  t2_1(
i, 
j) = t1_1(
i) * t1_2(
j);
 
   20  test_for_zero(t2_1(0, 0) - t1_1(0) * t1_2(0), 
"T2(i,j)=T1(i)*T1(j)(0,0)");
 
   21  test_for_zero(t2_1(0, 1) - t1_1(0) * t1_2(1), 
"T2(i,j)=T1(i)*T1(j)(0,1)");
 
   22  test_for_zero(t2_1(0, 2) - t1_1(0) * t1_2(2), 
"T2(i,j)=T1(i)*T1(j)(0,2)");
 
   23  test_for_zero(t2_1(1, 0) - t1_1(1) * t1_2(0), 
"T2(i,j)=T1(i)*T1(j)(1,0)");
 
   24  test_for_zero(t2_1(1, 1) - t1_1(1) * t1_2(1), 
"T2(i,j)=T1(i)*T1(j)(1,1)");
 
   25  test_for_zero(t2_1(1, 2) - t1_1(1) * t1_2(2), 
"T2(i,j)=T1(i)*T1(j)(1,2)");
 
   26  test_for_zero(t2_1(2, 0) - t1_1(2) * t1_2(0), 
"T2(i,j)=T1(i)*T1(j)(2,0)");
 
   27  test_for_zero(t2_1(2, 1) - t1_1(2) * t1_2(1), 
"T2(i,j)=T1(i)*T1(j)(2,1)");
 
   28  test_for_zero(t2_1(2, 2) - t1_1(2) * t1_2(2), 
"T2(i,j)=T1(i)*T1(j)(2,2)");