anchor.diff:        write(*,*)
        1 '               [-h|-help] [-d|-details]'
         write(*,*)
  -      STOP 1
  +      STOP
         END
   
   C----------------------------------------------------------------------C
  
positive.code: C     vol. 82, no. 2, pp. 1018-1040.
  C----
        IMPLICIT NONE
        CHARACTER*40 ffmf,fltf,magf,haff,staf,trgf,dspf,stnf,stsf,norf,
       1             shrf,coulf,gmtf,emprel,volf
        INTEGER flttyp,auto,xy,prog,long
  
negative.code:       PARAMETER (FMAX=150000)
        REAL*8 evlo(FMAX),evla(FMAX),evdp(FMAX),str(FMAX),dip(FMAX),
       1       rak(FMAX),dx(FMAX),dy(FMAX),slip(FMAX),hylo,hyla
  =======
  
  C---- Input files
        CHARACTER*40 ffmf      ! faults, finite fault model format
        CHARACTER*40 fltf      ! faults, lon-lat-dep-str-dip-rak-slip-wid-len format
        CHARACTER*40 magf      ! faults, lon-lat-dep-str-dip-rak-mag format
        CHARACTER*40 haff      ! half-space parameters
        CHARACTER*40 staf      ! station locations
        CHARACTER*40 trgf      ! target/receiver fault geometry
        CHARACTER*40 volf      ! volume sources: planar or isotropic
  
  C---- Output files
        CHARACTER*40 dspf      ! displacement
        CHARACTER*40 stnf      ! strain tensor
        CHARACTER*40 stsf      ! stress tensor
        CHARACTER*40 norf      ! normal stress
        CHARACTER*40 shrf      ! shear stress
        CHARACTER*40 coulf     ! Coulomb stress
        CHARACTER*40 gmtf      ! GMT psxy -SJ faults
        CHARACTER*40 emprel    ! magnitude-fault area empirical relation
  
  C---- Operation switches
        INTEGER flttyp         ! source type flag: point=0, finite=1
        INTEGER xy             ! coordinate flag: geographic=0, Cartesian=1
        INTEGER prog           ! progress indicator flag
        INTEGER long           ! higher precision output flag
  
  C---- Automatic grid variables
        INTEGER auto           ! automatic grid flag: hor=1; dip-par=2, str-par=3
        REAL*8 incr            ! grid increment
        REAL*8 adist           ! grid position
  
  C---- Input variables
        INTEGER nflt           ! number of input faults
        INTEGER FMAX           ! max number of input faults
        PARAMETER (FMAX=1500)
        REAL*8 evlo(FMAX)      ! x-coordinate
        REAL*8 evla(FMAX)      ! y-coordinate
        REAL*8 evdp(FMAX)      ! z-coordinate (positive down)
        REAL*8 str(FMAX)       ! strike
        REAL*8 dip(FMAX)       ! dip
        REAL*8 rak(FMAX)       ! rake
        REAL*8 dx(FMAX)        ! along-strike length
        REAL*8 dy(FMAX)        ! along-dip width
        REAL*8 slip(FMAX)      ! slip
  
        REAL*8 hylo,hyla
  >>>>>>> Stashed changes
        REAL*8 vp,vs,dens
        INTEGER nsta,ntrg,typ(FMAX)
  
  C---- Input file markers
        INTEGER kffm           ! 0:no 1:yes
        INTEGER kflt           ! 0:no 1:yes
        INTEGER kmag           ! 0:no 1:yes
        INTEGER ksta           ! 0:no 1:yes
        INTEGER khaf           ! 0:no 1:yes
        INTEGER ktrg           ! 0:no 1:yes 2:cmdln
        INTEGER kvol           ! 0:no 1:yes
  
  C---- Output file markers
        INTEGER kdsp           !
        INTEGER kstn           !
        INTEGER ksts           !
        INTEGER knor           !
        INTEGER kshr           !
        INTEGER kcou           !
        INTEGER kgmt           !
        COMMON /ICHECK/ kffm,kflt,kmag,ksta,khaf,ktrg,kvol
        COMMON /OCHECK/ kdsp,kstn,ksts,knor,kshr,kcou,kgmt
  
  