anchor.diff:        SUBROUTINE readfsp(fspf,evlo,evla,evdp,str,dip,rak,dx,dy,slip,
        1                   trup,hylo,hyla,seg,nseg,nflt)
         IMPLICIT none
  -      CHARACTER*40 fspf
  +      CHARACTER*512 fspf
         CHARACTER*10 segc
         CHARACTER*200 line
         INTEGER i,nflt,FMAX
  
positive.code:       IMPLICIT none
        REAL*8 pi,d2r
        PARAMETER (pi=4.0d0*datan(1.0d0),d2r=pi/180.0d0)
        CHARACTER*40 cfile
        INTEGER i,nflt,FMAX,cf,nseg
        PARAMETER (FMAX=1500)
        REAL*8 evlo(FMAX),evla(FMAX),str(FMAX),dip(FMAX),
  
negative.code:       SUBROUTINE gcmdln(ifile,sfile,tfile,zfile,cfile,nfile,efile,dfile,
       1                  time,cf,itype)
        IMPLICIT none
        CHARACTER*512 tag,ifile,sfile,tfile,zfile,cfile,nfile,efile,dfile
        INTEGER narg,i,cf,itype
        REAL*8 time
        ifile = 'none'
  