anchor.diff:          endif
       elseif (labelAll) then
           if (printRecord) then
  -            write(luout,*) irecord,inout
  -        else
  -            write(luout,*) inout
  +            if (multiPoly) then
  +                write(luout,*) irecord,inout,ipoly
  +            else
  +                write(luout,*) irecord,inout
  +            endif
  +        else
  +            if (multiPoly) then
  +                write(luout,*) inout,ipoly
  +            else
  +                write(luout,*) inout
  +            endif
           endif
       endif
   enddo
  
positive.code:         call usage(     'Offending line: '//trim(line))
      endif
  
      call pnpoly(x,y,polygon(:,1),polygon(:,2),nclip,inout,epsilon)
  
      if (getPointsInsideBoundary.and.inout.eq.1) then
          if (printRecord) then
  
negative.code: implicit none
  
  ! Local variables
  integer :: i, ios, luin, luout, nclip, inout, irecord, ipoly, npoly
  character(len=1) :: ch1
  character(len=512) :: line
  double precision :: x, y
  double precision, allocatable :: polygon(:,:,:)
  logical :: multiPoly
  
  
  ! Parse command line
  