src/Level2/RelaxBas.cc
// ____________________________________________________________________________
//      Functions For Relaxation/Evolution Using Longitudinal Coefficients
// ____________________________________________________________________________
Functions For Relaxation/Evolution Using Longitudinal Coefficients
Functions For Relaxation / Evolution Using Longitudinal Coefficients
gen_op RBasic::SigmaT1(const gen_op& sigma)
  {
  gen_op sigT1;					
  int ns = spins();				
  SetCsigs(sigma);				
  for(int i=0; i<ns; i++)			
    sigT1 += Csig[i]*Izis[i];			
  return sigT1;
  }
gen_op RBasic :: SigmaT1 ( const gen_op & sigma ) { gen_op sigT1 ; int ns = spins ( ) ; SetCsigs ( sigma ) ; for ( int i = 0 ; i < ns ; i ++ ) sigT1 += Csig [ i ] * Izis [ i ] ; return sigT1 ; }
____________________________________________________________________________
Functions For Relaxation/Evolution Using Longitudinal Coefficients
____________________________________________________________________________
____________________________________________________________________________ Functions For Relaxation / Evolution Using Longitudinal Coefficients ____________________________________________________________________________
// Empty operator // Number of spins // Genereate coefficients // Loop over spins // and sum sigT1i's