anchor.diff:  C----
         IMPLICIT none
         INTEGER nflt,FMAX,i
  -      PARAMETER (FMAX=1500)
  +      PARAMETER (FMAX=150000)
         REAL*8 str(FMAX),dx(FMAX),dy(FMAX),slip(FMAX)
         REAL*8 str0,tmp,mom,mu
         mu = 4.3d10
  
positive.code:       CHARACTER*40 volf,jnk
        CHARACTER*200 inline
        INTEGER nflt,FMAX
        PARAMETER (FMAX=1500)
        INTEGER typ(FMAX),i,f,ln
        REAL*8 evlo(FMAX),evla(FMAX),evdp(FMAX),str(FMAX),dip(FMAX),
       1       dx(FMAX),dy(FMAX),slip(FMAX)
  
negative.code:       IMPLICIT NONE
        CHARACTER*40 fltf
        INTEGER i,f,nflt,FMAX,ln
        PARAMETER (FMAX=150000)
        REAL*8 evlo(FMAX),evla(FMAX),evdp(FMAX),str(FMAX),dip(FMAX),
       1       rak(FMAX),dx(FMAX),dy(FMAX),slip(FMAX)
        call linecount(fltf,ln)
  