src/IntRank2/SolidSys.cc
/* Each Spin Pair That Involves An Electron And A Nucleon May Have A Hyperfine
   Interaction Set. We Don't Particularly Care If There Isn't A HF Interaction
   Defined For Any Particular Spin Pair, The Vector Of Such Interactions Will
   Simply Have An Zero Values If No HF Anisotropy Has Been Specified.

           Input                ssys    : Solid spin system (this)
                                pset    : A parameter set
           Output               none    : System hyperfine interactions
                                          are set from parameters in pset
           Note                         : It isn't mandatory that there be
                                          any hyperfine interactions
           Note                         : Isotopes MUST be set prior to here.
                                          Isotopes used to avoid confusion
                                          over electron vs nuclear spins     */
Each Spin Pair That Involves An Electron And A Nucleon May Have A Hyperfine
Interaction Set. We Don't Particularly Care If There Isn't A HF Interaction
Defined For Any Particular Spin Pair, The Vector Of Such Interactions Will
Simply Have An Zero Values If No HF Anisotropy Has Been Specified.


Each Spin Pair That Involves An Electron And A Nucleon May Have A Hyperfine Interaction Set . We Don ' t Particularly Care If There Isn ' t A HF Interaction Defined For Any Particular Spin Pair The Vector Of Such Interactions Will Simply Have An Zero Values If No HF Anisotropy Has Been Specified .
void solid_sys::setHFs(const ParameterSet& pset)
  {
  int i, j, k, ns = spins();		
  HFvec = IntHFVec(pset, IsoVec(), 0);	
  for(i=0, k=0; i<ns-1; i++)		
    for(j=i+1; j<ns; j++, k++) 		
      if(nepair(i,j))			
        A(i,j,HFvec[k].iso());		
  }
void solid_sys :: setHFs ( const ParameterSet & pset ) { int i , j , k , ns = spins ( ) ; HFvec = IntHFVec ( pset , IsoVec ( ) , 0 ) ; for ( i = 0 , k = 0 ; i < ns - 1 ; i ++ ) for ( j = i + 1 ; j < ns ; j ++ , k ++ ) if ( nepair ( i , j ) ) A ( i , j , HFvec [ k ] . iso ( ) ) ; }
Each Spin Pair That Involves An Electron And A Nucleon May Have A Hyperfine
Interaction Set.
Each Spin Pair That Involves An Electron And A Nucleon May Have A Hyperfine Interaction Set .
// Number of spins in system // Set interactions vector // Must set the isotropic A factors // as they may be set by {Axx,Ayy,Azz} // but this is done only if we have  // an electron-nucleon pair