anchor.diff:  
   ! Local variables
   integer :: i, ierr
  -double precision :: centroid(3), moment, lon, lat, x, y, dx, dy
  +double precision :: moment, lon, lat, x, y, dx, dy
   
   if (station_file.ne.'o92_autosta_86_this_when_finished') then
       return
  
positive.code: call read_tensile()
  
  
  if (autoStations) then
      call auto_stations()
  endif
  
  
negative.code:     write(stderr,*) '-az                  Displacement vector outputs (AZ HMAG Z)'
      write(stderr,*) '-prog                Turn on progress indicator'
      write(stderr,*) '-v LVL               Turn on verbose mode'
      ! write(stderr,*) '-log LOGFILE         Write verbose program information to log file'
      write(stderr,*)
  endif
  if (info.ne.'all') then
  