anchor.diff:        IMPLICIT none
         REAL*8 pi,d2r
         PARAMETER (pi=4.0d0*datan(1.0d0),d2r=pi/180.0d0)
  -      CHARACTER*40 cfile
  +      CHARACTER*512 cfile
         INTEGER i,nflt,FMAX,cf,nseg
         PARAMETER (FMAX=1500)
         REAL*8 evlo(FMAX),evla(FMAX),str(FMAX),dip(FMAX),
  
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:       SUBROUTINE readfsp(fspf,evlo,evla,evdp,str,dip,rak,dx,dy,slip,
       1                   trup,hylo,hyla,seg,nseg,nflt)
        IMPLICIT none
        CHARACTER*512 fspf
        CHARACTER*10 segc
        CHARACTER*200 line
        INTEGER i,nflt,FMAX
  