anchor.diff:    end do
   
   end program susy_qpi
  +
  +!==============================================================
  +! write_data  Writes data to YYYYMMDD_HHSS_w=OMEGA_susy_qpi.dat
  +!   om        real part of frequency
  +!   del       imaginary part of frequency
  +!==============================================================
   
   subroutine write_data(om, del)
     implicit none
  
positive.code: end subroutine write_data
  
  !==============================================================
  
  subroutine sG0(ndim, z, nfun, f)
    implicit none
  
negative.code: ! Susy QPI
  ! This program outputs data used to chart
  ! the QPI spectrum of the Kondo Lattice Model
  ! using a supersymmetric representation
  ! 
  ! by Eric Mascot
  ! 
  !==============================================================
  ! susy_qpi    Set experimental data and frequency
  !==============================================================
  
  program susy_qpi
    implicit none
  
  