anchor.diff:        CHARACTER*40 volf,jnk
         CHARACTER*200 inline
         INTEGER nflt,FMAX
  -      PARAMETER (FMAX=1500)
  +      PARAMETER (FMAX=150000)
         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)
  
positive.code: C----
        IMPLICIT NONE
        INTEGER i,nval,FMAX
        PARAMETER (FMAX=1500)
        REAL*8 mean,array(FMAX)
        mean = 0.0d0
        do 161 i = 1,nval
  
negative.code:       REAL*8 uNnet,uEnet,uZnet,ux,uy,uN,uE,uz
        REAL*8 stlo,stla,stdp,dist,az,x,y,delx,dely
        INTEGER f,nflt,FMAX
        PARAMETER (FMAX=150000)
        REAL*8 evlo(FMAX),evla(FMAX),evdp(FMAX),str(FMAX),dip(FMAX),
       1       rak(FMAX),slip(FMAX),dx(FMAX),dy(FMAX),area
        INTEGER flttyp,xy
  