anchor.diff:  end subroutine write_data
   
   !==============================================================
  +! sG0         Integrand for dcuhre
  +!   ndim      number of variables
  +!   z         variables for integration
  +!   nfun      number of components of integral
  +!   f         value of integrand
  +!==============================================================
   
   subroutine sG0(ndim, z, nfun, f)
     implicit none
  
positive.code:   end do
  
  end program susy_qpi
  
  subroutine write_data(om, del)
    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
  
  