src/Level1/SpinT.cc
// Input		none : 
// Return		SphT : null spin tensor
Input          none :
Return         SphT : null spin tensor
Input none : Return SphT : null spin tensor
spin_T::spin_T()
  {
  sys = NULL;			
  rank = 0;			
  pr = NULL;			
  }
spin_T :: spin_T ( ) { sys = NULL ; rank = 0 ; pr = NULL ; }
Input          none :
Return         SphT : null spin tensor
Input none : Return SphT : null spin tensor
// Mark spin system // Tensor rank // Currently empty tensor