anchor.diff:       1 '               [-auto h|d|s DIST INCR] [-long] [-prog] ',
        2                   '[-gmt GMTFILE]'
         write(*,*)
  -     1 '               [-empirical WC|MB|B|YM[p]]'
  +     1 '               [-empirical WC|MB|B|YM[p]] [-thr THR]'
         write(*,*)
        1 '               [-vol VOLFILE (!!TESTING!!)]'
         write(*,*)
  
positive.code:       incr = 1.0d99
        adist = 1.0d99
        long = 0
  C Input file status indicators (ICHECK block)
  C 0=unspecified; 1=specified; -1=specified, but file not found
        kffm = 0
  
negative.code: C----
        call gcmdln(ffmf,fltf,magf,haff,staf,trgf,dspf,stnf,stsf,norf,
       1            shrf,coulf,gmtf,flttyp,auto,incr,adist,xy,prog,long,
       2            emprel,volf,sthr,verbos)
        if (verbos.eq.1) then
            write(0,*) 'FFMF:   ',trim(ffmf)
            write(0,*) 'FLTF:   ',trim(fltf)
            write(0,*) 'MAGF:   ',trim(magf)
            write(0,*) 'HAFF:   ',trim(haff)
            write(0,*) 'STAF:   ',trim(staf)
            write(0,*) 'TRGF:   ',trim(trgf)
            write(0,*) 'DSPF:   ',trim(dspf)
            write(0,*) 'STNF:   ',trim(stnf)
            write(0,*) 'STSF:   ',trim(stsf)
            write(0,*) 'NORF:   ',trim(norf)
            write(0,*) 'SHRF:   ',trim(shrf)
            write(0,*) 'COULF:  ',trim(coulf)
            write(0,*) 'GMTF:   ',trim(gmtf)
            write(0,*) 'FLTTYP: ',flttyp
            write(0,*) 'AUTO:   ',auto
            write(0,*) 'INCR:   ',incr
            write(0,*) 'ADIST:  ',adist
            write(0,*) 'XY:     ',xy
            write(0,*) 'PROG:   ',prog
            write(0,*) 'LONG:   ',long
            write(0,*) 'EMPREL: ',emprel
            write(0,*) 'VOLF:   ',volf
            write(0,*) 'STHR:   ',sthr
            write(0,*) 'VERBOS: ',verbos
        endif
  
  C----
  C Check for input fault source files, and whether output is specified
  