anchor.diff:        endif
         if (ref(5).gt.8.5d1) then
             call usage('!! Error: fault dip greater than 85')
  +      endif
  + 9001 if (datain.eq.1.and.clip.eq.'none') then
  +          call usage('!! Error: can only check if input is inside '//
  +     1               'polygon along with -clip')
         endif
   C If output file unspecified, print result to standard output
         if (ofile.eq.'none'.and.p.eq.0) p = 1
  
positive.code:  1002     continue
            nn = i - 1
        endif
  
  C----
  C Calculate number of points and grid increments
  
negative.code:           i = i + 3
        elseif (tag(1:3).eq.'-xz') then
            xz = 1
        elseif (tag(1:4).eq.'-in?') then
            datain = 1
        elseif (tag(1:5).eq.'-clip') then
            i = i + 1
            call getarg(i,clip)
  