anchor.diff:  double precision :: pre, amp, pha
   
   
  -#ifndef USE_LAPACK
  -    call usage('fitutil: does not work if compiled without LAPACK libraries')
  -#endif
  -
  -
   ! Parse command line
   call gcmdln()
   
  
positive.code: if (luout.ne.stdout) then
      close(12)
  endif
  
  end
  
  
negative.code: !==================================================================================================!
  
  program main
  
  #ifdef USE_LAPACK
  
  use io, only: stdin, stdout, stderr, fileExists, line_count
  use trig, only: pi
  