anchor.diff:        SUBROUTINE gcmdln(ifile,sfile,tfile,zfile,cfile,nfile,efile,dfile,
        1                  time,cf,itype)
         IMPLICIT none
  -      CHARACTER*40 tag,ifile,sfile,tfile,zfile,cfile,nfile,efile,dfile
  +      CHARACTER*512 tag,ifile,sfile,tfile,zfile,cfile,nfile,efile,dfile
         INTEGER narg,i,cf,itype
         REAL*8 time
         ifile = 'none'
  
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,efile,dfile
        LOGICAL ex
        INTEGER i,nflt,FMAX,cf,itype
        PARAMETER (FMAX=1500)
  
negative.code:       IMPLICIT none
        REAL*8 pi,d2r
        PARAMETER (pi=4.0d0*datan(1.0d0),d2r=pi/180.0d0)
        CHARACTER*512 cfile
        INTEGER i,nflt,FMAX,cf,nseg
        PARAMETER (FMAX=1500)
        REAL*8 evlo(FMAX),evla(FMAX),str(FMAX),dip(FMAX),
  