anchor.diff:       1 'Usage: ff2gmt -f FFMFILE -slip SLIPFILE -time TIMEFILE',
        2                  ' -dep DEPFILE'
         write(*,*)
  -     1 '              -clip CLIPFILE|-clipseg CLIPFILE'
  +     1 '              -clip CLIPFILE|-clipseg CLIPFILE -epi EPIFILE ',
  +     2                 '-dc DCFILE'
         write(*,*)
        1 '              [-trup TIME] [-noslip NOSLIPFILE] [-h]'
         write(*,*)
  
positive.code:       IMPLICIT none
        REAL*8 pi,d2r
        PARAMETER (pi=4.0d0*datan(1.0d0),d2r=pi/180.0d0)
        CHARACTER*40 ifile,sfile,tfile,zfile,cfile,nfile
        LOGICAL ex
        INTEGER i,nflt,FMAX,cf
        PARAMETER (FMAX=1500)
  
negative.code: 
  C----------------------------------------------------------------------c
  
        SUBROUTINE gcmdln(ifile,sfile,tfile,zfile,cfile,nfile,efile,dfile,
       1                  time,cf)
        IMPLICIT none
        CHARACTER*40 tag,ifile,sfile,tfile,zfile,cfile,nfile,efile,dfile
        INTEGER narg,i,cf
        REAL*8 time
        ifile = 'none'
  