src/Level1/SpinT.cc
// Input		Ie    : Identity matrix
//			m     : Component index		      1
// Output		SOp   : Rank 1 spin tensor component T
//							      0m
Input          Ie    : Identity matrix
m     : Component index               1
Output         SOp   : Rank 1 spin tensor component T
0m
Input Ie : Identity matrix m : Component index 1 Output SOp : Rank 1 spin tensor component T 0m
spin_op T10(spin_op& Ie, int m)
  {
  spin_op SOp;
  switch (m)
    {
    case 0:			
      SOp = 0.0*Ie;		
      break;			
    default:
      spin_T_error(2);
      std::cout << " 0," << m << "\n";
      break;
    }
  return SOp;			
  }
spin_op T10 ( spin_op & Ie , int m ) { spin_op SOp ; switch ( m ) { case 0 : SOp = 0.0 * Ie ; break ; default : spin_T_error ( 2 ) ; std :: cout << " " << m << " \n " ; break ; } return SOp ; }
Input          Ie    : Identity matrix
m     : Component index               1
Output         SOp   : Rank 1 spin tensor component T
0m
Input Ie : Identity matrix m : Component index 1 Output SOp : Rank 1 spin tensor component T 0m
//  (1) // T    = 0 //  00 // Return SOp