anchor.diff:        if (cfile.ne.'none') then
             call getclip(cfile,evlo,evla,str,dx,dy,dip,seg,nseg,nflt,cf)
         endif
  -
  -C      do 11 i=1,nflt
  -C          print *,seg(i)
  -C   11 continue
   
         close(21)
         close(22)
  
positive.code:           endif
    402 continue
        if (cf.eq.1) then
            lo = evlo(iL(1))
            j = 1
            do 403 i = 2,nseg
  
negative.code:   407     continue
            write(24,*) evlo(j),evla(j)
        endif
    410 continue
        close(24)
        RETURN
        END
  