anchor.diff:  C----
         IMPLICIT none
         INTEGER nflt,FMAX,i
  -      PARAMETER (FMAX=1500)
  +      PARAMETER (FMAX=150000)
         REAL*8 evlo(FMAX),evla(FMAX),evdp(FMAX),dx(FMAX),dy(FMAX),
        1       slip(FMAX)
         REAL*8 x0,y0,d0,mom,mu,tmp
  
positive.code:       INTEGER i,nsta,ntrg,progout
        REAL*8 stlo,stla,stdp,trgstr,trgdip,trgrak,frict,vp,vs,dens
        INTEGER nflt,FMAX,flttyp,xy,prog,long
        PARAMETER (FMAX=1500)
        REAL*8 evlo(FMAX),evla(FMAX),evdp(FMAX),str(FMAX),dip(FMAX),
       1       rak(FMAX),dx(FMAX),dy(FMAX),slip(FMAX)
        REAL*8 uN,uE,uZ,strain(3,3),stress(3,3),norml,shear,coul,estrs
  
negative.code:       REAL*8 xmin,xmax,ymin,ymax,xmin0,xmax0,ymin0,ymax0,x,y
        REAL*8 x0,y0
        INTEGER nflt,FMAX
        PARAMETER (FMAX=150000)
        REAL*8 evlo(FMAX),evla(FMAX),evdp(FMAX),str(FMAX),dip(FMAX),
       1       rak(FMAX),dx(FMAX),dy(FMAX),slip(FMAX)
        REAL*8 uE,uN,uZ,stdp,vp,vs,dens,adist
  