anchor.diff:  ! Susy QPI
  -! This program outputs data used to chart
  +! This program outputs data used to plot
   ! the QPI spectrum of the Kondo Lattice Model
   ! using a supersymmetric representation
   ! 
  
positive.code:   Uf  = 1e-3_dp
  
  ! Make directory YYYYMMDD_HHMM
    call date_and_time(date,time)
    call system("mkdir -p "//date//"_"//time )
  ! Write experimental data to data.txt
    open(10, file=date//"_"//time//"/data.txt", status="new")
  
negative.code:   implicit none
    include "inc/susy_qpi.f90"
  
    call date_and_time(date,time)
    open(10, file="susy_qpi.log", position="append", status="unknown")
    write(10,*) "******************START: susy_qpi********************"
    write(10,*) "DATE: "//date//" TIME: "//time
    close(10)
  
  
  