anchor.diff:  logical :: getPointsOutsideBoundary
   logical :: getPointsOnBoundary
   double precision :: epsilon
  +logical :: printRecord
   
   end module clip
   
  
positive.code:                 getPointsInsideBoundary, &
                  getPointsOutsideBoundary, &
                  getPointsOnBoundary, &
                  epsilon
  
  implicit none
  
  ! Local variables
  integer :: i, ios, luin, luout, nclip, inout
  character(len=512) :: line
  double precision :: x, y
  double precision, allocatable :: polygon(:,:)
  
negative.code:                 getPointsInsideBoundary, &
                  getPointsOutsideBoundary, &
                  getPointsOnBoundary, &
                  epsilon, &
                  printRecord
  
  implicit none
  
  