anchor.diff:       1             slip,hylo,hyla)
   
   C----
  -C Check for auto flag
  -C   auto=0: User-defined receiver, half-space, and target parameters
  -C   auto=1: Automatically determine receiver grid, write to STAFILE
  -C           Use default half-space parameters
  -C           Designed for only computing displacements, but could also
  -c           use option like -coul COUFILE to compute stresses on grid
  -C----
  -C      if (auto.eq.1) then
  -c          call autodispgrid(staf,evlo,evla,evdp,str,dip,rak,dx,dy,
  -C     1                      slip,hylo,hyla,nflt,incr,depth,dspf,xy)
  -C      elseif (auto.eq.2) then
  -C          call autocoulgrid(staf,evlo,evla,evdp,str,dip,rak,dx,dy,
  -C     1                      slip,hylo,hyla,nflt,incr,depth,coulf,xy)
  -C      elseif (auto.eq.3) then
  -C          call autocoulffm()
  -C      endif
  +C Check for auto flag to define stations
  +C----
  +       if (auto.ne.0) then
  +           if (auto.lt.10.or.val.gt.1d90.or.incr.gt.1d90) then
  +               call usage('!! Error: -auto AB VAL INCR incorrect')
  +           endif
  +           call doauto(staf,nflt,evlo,evla,evdp,str,dx,dy,slip,
  +     1                 auto,val,incr,xy)
  +       endif
   
   C----
   C Check for input receiver, half-space, and target parameter files
  
positive.code:           write(*,*)
       1 '    definition. The horizontal width is the along-dip ',
       2      'width times cos(dip).'
            write(*,*)
            write(*,9999)
            write(*,*)
        endif
        write(*,*)
       1 '-prog                   Display a progress indicator'
        if (str.eq.'long') then
            write(*,*)
            write(*,9999)
            write(*,*)
  
negative.code: 
  
        SUBROUTINE dbggcmdln(ffmf,fltf,magf,haff,staf,trgf,dspf,stnf,stsf,
       1                     norf,shrf,coulf,gmtf,flttyp,auto,incr,val,
       2                     xy,prog,long)
        IMPLICIT none
        CHARACTER*40 ffmf,fltf,magf,haff,staf,trgf,
       1             dspf,stnf,stsf,norf,shrf,coulf,
       2             gmtf
        INTEGER flttyp,auto,xy,prog,long
        REAL*8 incr,val
        INTEGER kffm,kflt,kmag,ksta,khaf,ktrg
        INTEGER kdsp,kstn,ksts,knor,kshr,kcou,kgmt
        COMMON /ICHECK/ kffm,kflt,kmag,ksta,khaf,ktrg
  