src/Level1/SpinT.cc
// Input		sys1 : spin system
// Return		SphT : spin tensor associated with
//	                       the input spin system
Input          sys1 : spin system
Return         SphT : spin tensor associated with
the input spin system
Input sys1 : spin system Return SphT : spin tensor associated with the input spin system
spin_T::spin_T(const spin_sys& sys1)
  {
spin_sys sys2(sys1);
sys = &sys2;			
//  sys = sys1;			
  rank = 0;			
  pr = NULL;			
  }
spin_T :: spin_T ( const spin_sys & sys1 ) { spin_sys sys2 ( sys1 ) ; sys = & sys2 ; rank = 0 ; pr = NULL ; }
Input          sys1 : spin system
Return         SphT : spin tensor associated with
the input spin system
Input sys1 : spin system Return SphT : spin tensor associated with the input spin system
// sosi - this is a totally lame kludge // Copy spin system //  sys = sys1;			// Copy spin system // Tensor rank // Currently empty tensor