anchor.diff:                dx(ct+i) = dxr
                 dy(ct+i) = dyr
                 evdp(ct+i) = 1.0d3*evdp(ct+i)
  +              seg(ct+i) = g
     312     continue
             ct = ct + nx*ny
     313 continue
  
positive.code:           write(*,*)
        endif
        write(*,*)
       1 'Usage: ff2gmt -f FFMFILE -slip SLIPFILE|-time TIMEFILE',
       2                  '|-dep DEPFILE|-clip CLIPFILE'
        write(*,*)
       1 '              [-trup TIME] [-noslip NOSLIPFILE] [-h]'
        write(*,*)
  
negative.code:   101     continue
    102 continue
        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)
  