anchor.diff:    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")
  
positive.code: ! Susy QPI
  ! This program outputs data used to chart
  ! the QPI spectrum of the Kondo Lattice Model
  ! using a supersymmetric representation
  ! 
  
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)
  
  
  