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