anchor.diff:  real(8), allocatable :: wqpt(:)
   ! weights associated with the integral of 1/q^2
   real(8), allocatable :: wiq2(:)
  -
  +end module
  +module mod_SHT
   !-----------------------------------------------------!
   !     spherical harmonic transform (SHT) matrices     !
   !-----------------------------------------------------!
  
positive.code: ! Lorentzian lineshape in optics
  logical :: optltz
  ! broadening for Lorentzian lineshape
  real(8) :: optswidth  
  !</sag>
  logical lmirep
  ! spin-quantisation axis in Cartesian coordinates used when plotting the
  
negative.code: ! fixed spin moment global effective field in Cartesian coordinates
  real(8) bfsmc(3)
  ! muffin-tin fixed spin moments
  real(8) mommtfix(3,_MAXATOMS_,_MAXSPECIES_)
  ! muffin-tin fixed spin moment effective fields in Cartesian coordinates
  real(8) bfsmcmt(3,_MAXATOMS_,_MAXSPECIES_)
  ! fixed spin moment field mixing parameter
  real(8) taufsm
  ! second-variational spinor dimension (1 or 2)
  integer nspinor
  ! external magnetic field in each muffin-tin in lattice coordinates
  real(8) bflmt(3,_MAXATOMS_,_MAXSPECIES_)
  ! external magnetic field in each muffin-tin in Cartesian coordinates
  real(8) bfcmt(3,_MAXATOMS_,_MAXSPECIES_)
  ! global external magnetic field in lattice coordinates
  real(8) bfieldl(3)
  ! global external magnetic field in Cartesian coordinates
  