8{
   12 
   16 
   18 
   19  t3(
i, 
j, 
k) = t3_1(
i, 
j, 
k);
 
   20 
   21  test_for_zero(t3(0, 0, 0) - t3_1(0, 0, 0), 
"T3(i,j,k)=T3(i,j,k)(0,0,0)");
 
   22  test_for_zero(t3(0, 0, 1) - t3_1(0, 0, 1), 
"T3(i,j,k)=T3(i,j,k)(0,0,1)");
 
   23  test_for_zero(t3(0, 0, 2) - t3_1(0, 0, 2), 
"T3(i,j,k)=T3(i,j,k)(0,0,2)");
 
   24  test_for_zero(t3(0, 1, 0) - t3_1(0, 1, 0), 
"T3(i,j,k)=T3(i,j,k)(0,1,0)");
 
   25  test_for_zero(t3(0, 1, 1) - t3_1(0, 1, 1), 
"T3(i,j,k)=T3(i,j,k)(0,1,1)");
 
   26  test_for_zero(t3(0, 1, 2) - t3_1(0, 1, 2), 
"T3(i,j,k)=T3(i,j,k)(0,1,2)");
 
   27  test_for_zero(t3(0, 2, 0) - t3_1(0, 2, 0), 
"T3(i,j,k)=T3(i,j,k)(0,2,0)");
 
   28  test_for_zero(t3(0, 2, 1) - t3_1(0, 2, 1), 
"T3(i,j,k)=T3(i,j,k)(0,2,1)");
 
   29  test_for_zero(t3(0, 2, 2) - t3_1(0, 2, 2), 
"T3(i,j,k)=T3(i,j,k)(0,2,2)");
 
   30 
   31  test_for_zero(t3(1, 0, 0) - t3_1(1, 0, 0), 
"T3(i,j,k)=T3(i,j,k)(1,0,0)");
 
   32  test_for_zero(t3(1, 0, 1) - t3_1(1, 0, 1), 
"T3(i,j,k)=T3(i,j,k)(1,0,1)");
 
   33  test_for_zero(t3(1, 0, 2) - t3_1(1, 0, 2), 
"T3(i,j,k)=T3(i,j,k)(1,0,2)");
 
   34  test_for_zero(t3(1, 1, 0) - t3_1(1, 1, 0), 
"T3(i,j,k)=T3(i,j,k)(1,1,0)");
 
   35  test_for_zero(t3(1, 1, 1) - t3_1(1, 1, 1), 
"T3(i,j,k)=T3(i,j,k)(1,1,1)");
 
   36  test_for_zero(t3(1, 1, 2) - t3_1(1, 1, 2), 
"T3(i,j,k)=T3(i,j,k)(1,1,2)");
 
   37  test_for_zero(t3(1, 2, 0) - t3_1(1, 2, 0), 
"T3(i,j,k)=T3(i,j,k)(1,2,0)");
 
   38  test_for_zero(t3(1, 2, 1) - t3_1(1, 2, 1), 
"T3(i,j,k)=T3(i,j,k)(1,2,1)");
 
   39  test_for_zero(t3(1, 2, 2) - t3_1(1, 2, 2), 
"T3(i,j,k)=T3(i,j,k)(1,2,2)");
 
   40 
   41  test_for_zero(t3(2, 0, 0) - t3_1(2, 0, 0), 
"T3(i,j,k)=T3(i,j,k)(2,0,0)");
 
   42  test_for_zero(t3(2, 0, 1) - t3_1(2, 0, 1), 
"T3(i,j,k)=T3(i,j,k)(2,0,1)");
 
   43  test_for_zero(t3(2, 0, 2) - t3_1(2, 0, 2), 
"T3(i,j,k)=T3(i,j,k)(2,0,2)");
 
   44  test_for_zero(t3(2, 1, 0) - t3_1(2, 1, 0), 
"T3(i,j,k)=T3(i,j,k)(2,1,0)");
 
   45  test_for_zero(t3(2, 1, 1) - t3_1(2, 1, 1), 
"T3(i,j,k)=T3(i,j,k)(2,1,1)");
 
   46  test_for_zero(t3(2, 1, 2) - t3_1(2, 1, 2), 
"T3(i,j,k)=T3(i,j,k)(2,1,2)");
 
   47  test_for_zero(t3(2, 2, 0) - t3_1(2, 2, 0), 
"T3(i,j,k)=T3(i,j,k)(2,2,0)");
 
   48  test_for_zero(t3(2, 2, 1) - t3_1(2, 2, 1), 
"T3(i,j,k)=T3(i,j,k)(2,2,1)");
 
   49  test_for_zero(t3(2, 2, 2) - t3_1(2, 2, 2), 
"T3(i,j,k)=T3(i,j,k)(2,2,2)");
 
   50 
   52 
   62 
   72 
   82 
   83  t3(
i, 
j, 
k) = t3_1(
i, 
k, 
j);
 
   84 
   85  test_for_zero(t3(0, 0, 0) - t3_1(0, 0, 0), 
"T3(i,j,k)=T3(i,k,j)(0,0,0)");
 
   86  test_for_zero(t3(0, 0, 1) - t3_1(0, 1, 0), 
"T3(i,j,k)=T3(i,k,j)(0,0,1)");
 
   87  test_for_zero(t3(0, 0, 2) - t3_1(0, 2, 0), 
"T3(i,j,k)=T3(i,k,j)(0,0,2)");
 
   88  test_for_zero(t3(0, 1, 0) - t3_1(0, 0, 1), 
"T3(i,j,k)=T3(i,k,j)(0,1,0)");
 
   89  test_for_zero(t3(0, 1, 1) - t3_1(0, 1, 1), 
"T3(i,j,k)=T3(i,k,j)(0,1,1)");
 
   90  test_for_zero(t3(0, 1, 2) - t3_1(0, 2, 1), 
"T3(i,j,k)=T3(i,k,j)(0,1,2)");
 
   91  test_for_zero(t3(0, 2, 0) - t3_1(0, 0, 2), 
"T3(i,j,k)=T3(i,k,j)(0,2,0)");
 
   92  test_for_zero(t3(0, 2, 1) - t3_1(0, 1, 2), 
"T3(i,j,k)=T3(i,k,j)(0,2,1)");
 
   93  test_for_zero(t3(0, 2, 2) - t3_1(0, 2, 2), 
"T3(i,j,k)=T3(i,k,j)(0,2,2)");
 
   94 
   95  test_for_zero(t3(1, 0, 0) - t3_1(1, 0, 0), 
"T3(i,j,k)=T3(i,k,j)(1,0,0)");
 
   96  test_for_zero(t3(1, 0, 1) - t3_1(1, 1, 0), 
"T3(i,j,k)=T3(i,k,j)(1,0,1)");
 
   97  test_for_zero(t3(1, 0, 2) - t3_1(1, 2, 0), 
"T3(i,j,k)=T3(i,k,j)(1,0,2)");
 
   98  test_for_zero(t3(1, 1, 0) - t3_1(1, 0, 1), 
"T3(i,j,k)=T3(i,k,j)(1,1,0)");
 
   99  test_for_zero(t3(1, 1, 1) - t3_1(1, 1, 1), 
"T3(i,j,k)=T3(i,k,j)(1,1,1)");
 
  100  test_for_zero(t3(1, 1, 2) - t3_1(1, 2, 1), 
"T3(i,j,k)=T3(i,k,j)(1,1,2)");
 
  101  test_for_zero(t3(1, 2, 0) - t3_1(1, 0, 2), 
"T3(i,j,k)=T3(i,k,j)(1,2,0)");
 
  102  test_for_zero(t3(1, 2, 1) - t3_1(1, 1, 2), 
"T3(i,j,k)=T3(i,k,j)(1,2,1)");
 
  103  test_for_zero(t3(1, 2, 2) - t3_1(1, 2, 2), 
"T3(i,j,k)=T3(i,k,j)(1,2,2)");
 
  104 
  105  test_for_zero(t3(2, 0, 0) - t3_1(2, 0, 0), 
"T3(i,j,k)=T3(i,k,j)(2,0,0)");
 
  106  test_for_zero(t3(2, 0, 1) - t3_1(2, 1, 0), 
"T3(i,j,k)=T3(i,k,j)(2,0,1)");
 
  107  test_for_zero(t3(2, 0, 2) - t3_1(2, 2, 0), 
"T3(i,j,k)=T3(i,k,j)(2,0,2)");
 
  108  test_for_zero(t3(2, 1, 0) - t3_1(2, 0, 1), 
"T3(i,j,k)=T3(i,k,j)(2,1,0)");
 
  109  test_for_zero(t3(2, 1, 1) - t3_1(2, 1, 1), 
"T3(i,j,k)=T3(i,k,j)(2,1,1)");
 
  110  test_for_zero(t3(2, 1, 2) - t3_1(2, 2, 1), 
"T3(i,j,k)=T3(i,k,j)(2,1,2)");
 
  111  test_for_zero(t3(2, 2, 0) - t3_1(2, 0, 2), 
"T3(i,j,k)=T3(i,k,j)(2,2,0)");
 
  112  test_for_zero(t3(2, 2, 1) - t3_1(2, 1, 2), 
"T3(i,j,k)=T3(i,k,j)(2,2,1)");
 
  113  test_for_zero(t3(2, 2, 2) - t3_1(2, 2, 2), 
"T3(i,j,k)=T3(i,k,j)(2,2,2)");
 
  114 
  115  t3(
i, 
j, 
k) = t3_1(
j, 
i, 
k);
 
  116 
  117  test_for_zero(t3(0, 0, 0) - t3_1(0, 0, 0), 
"T3(i,j,k)=T3(j,i,k)(0,0,0)");
 
  118  test_for_zero(t3(0, 0, 1) - t3_1(0, 0, 1), 
"T3(i,j,k)=T3(j,i,k)(0,0,1)");
 
  119  test_for_zero(t3(0, 0, 2) - t3_1(0, 0, 2), 
"T3(i,j,k)=T3(j,i,k)(0,0,2)");
 
  120  test_for_zero(t3(0, 1, 0) - t3_1(1, 0, 0), 
"T3(i,j,k)=T3(j,i,k)(0,1,0)");
 
  121  test_for_zero(t3(0, 1, 1) - t3_1(1, 0, 1), 
"T3(i,j,k)=T3(j,i,k)(0,1,1)");
 
  122  test_for_zero(t3(0, 1, 2) - t3_1(1, 0, 2), 
"T3(i,j,k)=T3(j,i,k)(0,1,2)");
 
  123  test_for_zero(t3(0, 2, 0) - t3_1(2, 0, 0), 
"T3(i,j,k)=T3(j,i,k)(0,2,0)");
 
  124  test_for_zero(t3(0, 2, 1) - t3_1(2, 0, 1), 
"T3(i,j,k)=T3(j,i,k)(0,2,1)");
 
  125  test_for_zero(t3(0, 2, 2) - t3_1(2, 0, 2), 
"T3(i,j,k)=T3(j,i,k)(0,2,2)");
 
  126 
  127  test_for_zero(t3(1, 0, 0) - t3_1(0, 1, 0), 
"T3(i,j,k)=T3(j,i,k)(1,0,0)");
 
  128  test_for_zero(t3(1, 0, 1) - t3_1(0, 1, 1), 
"T3(i,j,k)=T3(j,i,k)(1,0,1)");
 
  129  test_for_zero(t3(1, 0, 2) - t3_1(0, 1, 2), 
"T3(i,j,k)=T3(j,i,k)(1,0,2)");
 
  130  test_for_zero(t3(1, 1, 0) - t3_1(1, 1, 0), 
"T3(i,j,k)=T3(j,i,k)(1,1,0)");
 
  131  test_for_zero(t3(1, 1, 1) - t3_1(1, 1, 1), 
"T3(i,j,k)=T3(j,i,k)(1,1,1)");
 
  132  test_for_zero(t3(1, 1, 2) - t3_1(1, 1, 2), 
"T3(i,j,k)=T3(j,i,k)(1,1,2)");
 
  133  test_for_zero(t3(1, 2, 0) - t3_1(2, 1, 0), 
"T3(i,j,k)=T3(j,i,k)(1,2,0)");
 
  134  test_for_zero(t3(1, 2, 1) - t3_1(2, 1, 1), 
"T3(i,j,k)=T3(j,i,k)(1,2,1)");
 
  135  test_for_zero(t3(1, 2, 2) - t3_1(2, 1, 2), 
"T3(i,j,k)=T3(j,i,k)(1,2,2)");
 
  136 
  137  test_for_zero(t3(2, 0, 0) - t3_1(0, 2, 0), 
"T3(i,j,k)=T3(j,i,k)(2,0,0)");
 
  138  test_for_zero(t3(2, 0, 1) - t3_1(0, 2, 1), 
"T3(i,j,k)=T3(j,i,k)(2,0,1)");
 
  139  test_for_zero(t3(2, 0, 2) - t3_1(0, 2, 2), 
"T3(i,j,k)=T3(j,i,k)(2,0,2)");
 
  140  test_for_zero(t3(2, 1, 0) - t3_1(1, 2, 0), 
"T3(i,j,k)=T3(j,i,k)(2,1,0)");
 
  141  test_for_zero(t3(2, 1, 1) - t3_1(1, 2, 1), 
"T3(i,j,k)=T3(j,i,k)(2,1,1)");
 
  142  test_for_zero(t3(2, 1, 2) - t3_1(1, 2, 2), 
"T3(i,j,k)=T3(j,i,k)(2,1,2)");
 
  143  test_for_zero(t3(2, 2, 0) - t3_1(2, 2, 0), 
"T3(i,j,k)=T3(j,i,k)(2,2,0)");
 
  144  test_for_zero(t3(2, 2, 1) - t3_1(2, 2, 1), 
"T3(i,j,k)=T3(j,i,k)(2,2,1)");
 
  145  test_for_zero(t3(2, 2, 2) - t3_1(2, 2, 2), 
"T3(i,j,k)=T3(j,i,k)(2,2,2)");
 
  146 
  147  t3(
i, 
j, 
k) = t3_1(
j, 
k, 
i);
 
  148 
  149  test_for_zero(t3(0, 0, 0) - t3_1(0, 0, 0), 
"T3(i,j,k)=T3(j,k,i)(0,0,0)");
 
  150  test_for_zero(t3(0, 0, 1) - t3_1(0, 1, 0), 
"T3(i,j,k)=T3(j,k,i)(0,0,1)");
 
  151  test_for_zero(t3(0, 0, 2) - t3_1(0, 2, 0), 
"T3(i,j,k)=T3(j,k,i)(0,0,2)");
 
  152  test_for_zero(t3(0, 1, 0) - t3_1(1, 0, 0), 
"T3(i,j,k)=T3(j,k,i)(0,1,0)");
 
  153  test_for_zero(t3(0, 1, 1) - t3_1(1, 1, 0), 
"T3(i,j,k)=T3(j,k,i)(0,1,1)");
 
  154  test_for_zero(t3(0, 1, 2) - t3_1(1, 2, 0), 
"T3(i,j,k)=T3(j,k,i)(0,1,2)");
 
  155  test_for_zero(t3(0, 2, 0) - t3_1(2, 0, 0), 
"T3(i,j,k)=T3(j,k,i)(0,2,0)");
 
  156  test_for_zero(t3(0, 2, 1) - t3_1(2, 1, 0), 
"T3(i,j,k)=T3(j,k,i)(0,2,1)");
 
  157  test_for_zero(t3(0, 2, 2) - t3_1(2, 2, 0), 
"T3(i,j,k)=T3(j,k,i)(0,2,2)");
 
  158 
  159  test_for_zero(t3(1, 0, 0) - t3_1(0, 0, 1), 
"T3(i,j,k)=T3(j,k,i)(1,0,0)");
 
  160  test_for_zero(t3(1, 0, 1) - t3_1(0, 1, 1), 
"T3(i,j,k)=T3(j,k,i)(1,0,1)");
 
  161  test_for_zero(t3(1, 0, 2) - t3_1(0, 2, 1), 
"T3(i,j,k)=T3(j,k,i)(1,0,2)");
 
  162  test_for_zero(t3(1, 1, 0) - t3_1(1, 0, 1), 
"T3(i,j,k)=T3(j,k,i)(1,1,0)");
 
  163  test_for_zero(t3(1, 1, 1) - t3_1(1, 1, 1), 
"T3(i,j,k)=T3(j,k,i)(1,1,1)");
 
  164  test_for_zero(t3(1, 1, 2) - t3_1(1, 2, 1), 
"T3(i,j,k)=T3(j,k,i)(1,1,2)");
 
  165  test_for_zero(t3(1, 2, 0) - t3_1(2, 0, 1), 
"T3(i,j,k)=T3(j,k,i)(1,2,0)");
 
  166  test_for_zero(t3(1, 2, 1) - t3_1(2, 1, 1), 
"T3(i,j,k)=T3(j,k,i)(1,2,1)");
 
  167  test_for_zero(t3(1, 2, 2) - t3_1(2, 2, 1), 
"T3(i,j,k)=T3(j,k,i)(1,2,2)");
 
  168 
  169  test_for_zero(t3(2, 0, 0) - t3_1(0, 0, 2), 
"T3(i,j,k)=T3(j,k,i)(2,0,0)");
 
  170  test_for_zero(t3(2, 0, 1) - t3_1(0, 1, 2), 
"T3(i,j,k)=T3(j,k,i)(2,0,1)");
 
  171  test_for_zero(t3(2, 0, 2) - t3_1(0, 2, 2), 
"T3(i,j,k)=T3(j,k,i)(2,0,2)");
 
  172  test_for_zero(t3(2, 1, 0) - t3_1(1, 0, 2), 
"T3(i,j,k)=T3(j,k,i)(2,1,0)");
 
  173  test_for_zero(t3(2, 1, 1) - t3_1(1, 1, 2), 
"T3(i,j,k)=T3(j,k,i)(2,1,1)");
 
  174  test_for_zero(t3(2, 1, 2) - t3_1(1, 2, 2), 
"T3(i,j,k)=T3(j,k,i)(2,1,2)");
 
  175  test_for_zero(t3(2, 2, 0) - t3_1(2, 0, 2), 
"T3(i,j,k)=T3(j,k,i)(2,2,0)");
 
  176  test_for_zero(t3(2, 2, 1) - t3_1(2, 1, 2), 
"T3(i,j,k)=T3(j,k,i)(2,2,1)");
 
  177  test_for_zero(t3(2, 2, 2) - t3_1(2, 2, 2), 
"T3(i,j,k)=T3(j,k,i)(2,2,2)");
 
  178 
  179  t3(
i, 
j, 
k) = t3_1(
k, 
i, 
j);
 
  180 
  181  test_for_zero(t3(0, 0, 0) - t3_1(0, 0, 0), 
"T3(i,j,k)=T3(k,i,j)(0,0,0)");
 
  182  test_for_zero(t3(0, 0, 1) - t3_1(1, 0, 0), 
"T3(i,j,k)=T3(k,i,j)(0,0,1)");
 
  183  test_for_zero(t3(0, 0, 2) - t3_1(2, 0, 0), 
"T3(i,j,k)=T3(k,i,j)(0,0,2)");
 
  184  test_for_zero(t3(0, 1, 0) - t3_1(0, 0, 1), 
"T3(i,j,k)=T3(k,i,j)(0,1,0)");
 
  185  test_for_zero(t3(0, 1, 1) - t3_1(1, 0, 1), 
"T3(i,j,k)=T3(k,i,j)(0,1,1)");
 
  186  test_for_zero(t3(0, 1, 2) - t3_1(2, 0, 1), 
"T3(i,j,k)=T3(k,i,j)(0,1,2)");
 
  187  test_for_zero(t3(0, 2, 0) - t3_1(0, 0, 2), 
"T3(i,j,k)=T3(k,i,j)(0,2,0)");
 
  188  test_for_zero(t3(0, 2, 1) - t3_1(1, 0, 2), 
"T3(i,j,k)=T3(k,i,j)(0,2,1)");
 
  189  test_for_zero(t3(0, 2, 2) - t3_1(2, 0, 2), 
"T3(i,j,k)=T3(k,i,j)(0,2,2)");
 
  190 
  191  test_for_zero(t3(1, 0, 0) - t3_1(0, 1, 0), 
"T3(i,j,k)=T3(k,i,j)(1,0,0)");
 
  192  test_for_zero(t3(1, 0, 1) - t3_1(1, 1, 0), 
"T3(i,j,k)=T3(k,i,j)(1,0,1)");
 
  193  test_for_zero(t3(1, 0, 2) - t3_1(2, 1, 0), 
"T3(i,j,k)=T3(k,i,j)(1,0,2)");
 
  194  test_for_zero(t3(1, 1, 0) - t3_1(0, 1, 1), 
"T3(i,j,k)=T3(k,i,j)(1,1,0)");
 
  195  test_for_zero(t3(1, 1, 1) - t3_1(1, 1, 1), 
"T3(i,j,k)=T3(k,i,j)(1,1,1)");
 
  196  test_for_zero(t3(1, 1, 2) - t3_1(2, 1, 1), 
"T3(i,j,k)=T3(k,i,j)(1,1,2)");
 
  197  test_for_zero(t3(1, 2, 0) - t3_1(0, 1, 2), 
"T3(i,j,k)=T3(k,i,j)(1,2,0)");
 
  198  test_for_zero(t3(1, 2, 1) - t3_1(1, 1, 2), 
"T3(i,j,k)=T3(k,i,j)(1,2,1)");
 
  199  test_for_zero(t3(1, 2, 2) - t3_1(2, 1, 2), 
"T3(i,j,k)=T3(k,i,j)(1,2,2)");
 
  200 
  201  test_for_zero(t3(2, 0, 0) - t3_1(0, 2, 0), 
"T3(i,j,k)=T3(k,i,j)(2,0,0)");
 
  202  test_for_zero(t3(2, 0, 1) - t3_1(1, 2, 0), 
"T3(i,j,k)=T3(k,i,j)(2,0,1)");
 
  203  test_for_zero(t3(2, 0, 2) - t3_1(2, 2, 0), 
"T3(i,j,k)=T3(k,i,j)(2,0,2)");
 
  204  test_for_zero(t3(2, 1, 0) - t3_1(0, 2, 1), 
"T3(i,j,k)=T3(k,i,j)(2,1,0)");
 
  205  test_for_zero(t3(2, 1, 1) - t3_1(1, 2, 1), 
"T3(i,j,k)=T3(k,i,j)(2,1,1)");
 
  206  test_for_zero(t3(2, 1, 2) - t3_1(2, 2, 1), 
"T3(i,j,k)=T3(k,i,j)(2,1,2)");
 
  207  test_for_zero(t3(2, 2, 0) - t3_1(0, 2, 2), 
"T3(i,j,k)=T3(k,i,j)(2,2,0)");
 
  208  test_for_zero(t3(2, 2, 1) - t3_1(1, 2, 2), 
"T3(i,j,k)=T3(k,i,j)(2,2,1)");
 
  209  test_for_zero(t3(2, 2, 2) - t3_1(2, 2, 2), 
"T3(i,j,k)=T3(k,i,j)(2,2,2)");
 
  210 
  211  t3(
i, 
j, 
k) = t3_1(
k, 
j, 
i);
 
  212 
  213  test_for_zero(t3(0, 0, 0) - t3_1(0, 0, 0), 
"T3(i,j,k)=T3(k,j,i)(0,0,0)");
 
  214  test_for_zero(t3(0, 0, 1) - t3_1(1, 0, 0), 
"T3(i,j,k)=T3(k,j,i)(0,0,1)");
 
  215  test_for_zero(t3(0, 0, 2) - t3_1(2, 0, 0), 
"T3(i,j,k)=T3(k,j,i)(0,0,2)");
 
  216  test_for_zero(t3(0, 1, 0) - t3_1(0, 1, 0), 
"T3(i,j,k)=T3(k,j,i)(0,1,0)");
 
  217  test_for_zero(t3(0, 1, 1) - t3_1(1, 1, 0), 
"T3(i,j,k)=T3(k,j,i)(0,1,1)");
 
  218  test_for_zero(t3(0, 1, 2) - t3_1(2, 1, 0), 
"T3(i,j,k)=T3(k,j,i)(0,1,2)");
 
  219  test_for_zero(t3(0, 2, 0) - t3_1(0, 2, 0), 
"T3(i,j,k)=T3(k,j,i)(0,2,0)");
 
  220  test_for_zero(t3(0, 2, 1) - t3_1(1, 2, 0), 
"T3(i,j,k)=T3(k,j,i)(0,2,1)");
 
  221  test_for_zero(t3(0, 2, 2) - t3_1(2, 2, 0), 
"T3(i,j,k)=T3(k,j,i)(0,2,2)");
 
  222 
  223  test_for_zero(t3(1, 0, 0) - t3_1(0, 0, 1), 
"T3(i,j,k)=T3(k,j,i)(1,0,0)");
 
  224  test_for_zero(t3(1, 0, 1) - t3_1(1, 0, 1), 
"T3(i,j,k)=T3(k,j,i)(1,0,1)");
 
  225  test_for_zero(t3(1, 0, 2) - t3_1(2, 0, 1), 
"T3(i,j,k)=T3(k,j,i)(1,0,2)");
 
  226  test_for_zero(t3(1, 1, 0) - t3_1(0, 1, 1), 
"T3(i,j,k)=T3(k,j,i)(1,1,0)");
 
  227  test_for_zero(t3(1, 1, 1) - t3_1(1, 1, 1), 
"T3(i,j,k)=T3(k,j,i)(1,1,1)");
 
  228  test_for_zero(t3(1, 1, 2) - t3_1(2, 1, 1), 
"T3(i,j,k)=T3(k,j,i)(1,1,2)");
 
  229  test_for_zero(t3(1, 2, 0) - t3_1(0, 2, 1), 
"T3(i,j,k)=T3(k,j,i)(1,2,0)");
 
  230  test_for_zero(t3(1, 2, 1) - t3_1(1, 2, 1), 
"T3(i,j,k)=T3(k,j,i)(1,2,1)");
 
  231  test_for_zero(t3(1, 2, 2) - t3_1(2, 2, 1), 
"T3(i,j,k)=T3(k,j,i)(1,2,2)");
 
  232 
  233  test_for_zero(t3(2, 0, 0) - t3_1(0, 0, 2), 
"T3(i,j,k)=T3(k,j,i)(2,0,0)");
 
  234  test_for_zero(t3(2, 0, 1) - t3_1(1, 0, 2), 
"T3(i,j,k)=T3(k,j,i)(2,0,1)");
 
  235  test_for_zero(t3(2, 0, 2) - t3_1(2, 0, 2), 
"T3(i,j,k)=T3(k,j,i)(2,0,2)");
 
  236  test_for_zero(t3(2, 1, 0) - t3_1(0, 1, 2), 
"T3(i,j,k)=T3(k,j,i)(2,1,0)");
 
  237  test_for_zero(t3(2, 1, 1) - t3_1(1, 1, 2), 
"T3(i,j,k)=T3(k,j,i)(2,1,1)");
 
  238  test_for_zero(t3(2, 1, 2) - t3_1(2, 1, 2), 
"T3(i,j,k)=T3(k,j,i)(2,1,2)");
 
  239  test_for_zero(t3(2, 2, 0) - t3_1(0, 2, 2), 
"T3(i,j,k)=T3(k,j,i)(2,2,0)");
 
  240  test_for_zero(t3(2, 2, 1) - t3_1(1, 2, 2), 
"T3(i,j,k)=T3(k,j,i)(2,2,1)");
 
  241  test_for_zero(t3(2, 2, 2) - t3_1(2, 2, 2), 
"T3(i,j,k)=T3(k,j,i)(2,2,2)");
 
  242}
FTensor::Index< 'i', SPACE_DIM > i
FTensor::Index< 'j', 3 > j
FTensor::Index< 'k', 3 > k
void test_for_zero(const T &t, const std::string &s)