anchor.diff:        REAL*8 evlo(FMAX),evla(FMAX),evdp(FMAX),str(FMAX),dip(FMAX),
        1       rak(FMAX),dx(FMAX),dy(FMAX),slip(FMAX),hylo,hyla
         REAL*8 vp,vs,dens
  -      INTEGER nsta,ntrg
  -      INTEGER kffm,kflt,kmag,ksta,khaf,ktrg        ! kvar definitions
  +      INTEGER nsta,ntrg,typ(FMAX)
  +      INTEGER kffm,kflt,kmag,ksta,khaf,ktrg,kvol        ! kvar definitions
         INTEGER kdsp,kstn,ksts,knor,kshr,kcou,kgmt   ! in gcmdln comments
  -      COMMON /ICHECK/ kffm,kflt,kmag,ksta,khaf,ktrg
  +      COMMON /ICHECK/ kffm,kflt,kmag,ksta,khaf,ktrg,kvol
         COMMON /OCHECK/ kdsp,kstn,ksts,knor,kshr,kcou,kgmt
   
   C----
  
positive.code:       ksta = 0
        khaf = 0
        ktrg = 0
  C Output file status indicators (OCHECK block variables)
  C 0=unused; 1=output value; 2=use value, do not output
        kdsp = 0
  
negative.code:      1 '               [-auto h|d|s DIST INCR] [-long] [-prog] ',
       2                   '[-gmt GMTFILE]'
        write(*,*)
       1 '               [-empirical WC|MB|B|YM[p]]'
        write(*,*)
       1 '               [-vol VOLFILE (!!TESTING!!)]'
        write(*,*)
       1 '               [-h|-help] [-d|-details]'
        write(*,*)
        STOP
        END
  