anchor.diff:  logical :: getPointsOutsideBoundary
   logical :: getPointsOnBoundary
   double precision :: epsilon
  +logical :: printRecord
   
   end module clip
   
  
positive.code: 
  
  ! Read input data and clip it
  do
      read(luin,'(A)',iostat=ios) line
      if (ios.ne.0) then
          exit
      endif
  
      read(line,*,iostat=ios) x,y
      if (ios.ne.0) then
          write(stderr,*) 'clip: error reading input file coordinates'
  
negative.code: getPointsOutsideBoundary = .false.
  getPointsOnBoundary = .false.
  epsilon = 1.0d-8
  printRecord = .false.
  
  ! Number of arguments
  narg = command_argument_count()
  