anchor.diff:            write(*,*)
         endif
         write(*,*)
  +     1 '-thr THR                Minimum slip threshold'
  +      if (str.eq.'long') then
  +          write(*,*)
  +          write(*,*)
  +     1 '    Set slip less than THR to zero'
  +          write(*,*)
  +     1 '        THR>0: THR is a slip value'
  +          write(*,*)
  +     1 '        -1<THR<0: |THR| is a fraction of maximum slip value'
  +          write(*,*)
  +          write(*,9999)
  +          write(*,*)
  +      endif
  +      write(*,*)
        1 '-vol VOLFILE            Volume source file (TESTING!!)'
         write(*,*)
        1 '    NOTE: cannot use -vol with -ffm, -flt, or -mag'
  
positive.code:               kvol = 1
                i = i + 1
                call getarg(i,volf)
            elseif (tag(1:2).eq.'-h'.or.tag(1:5).eq.'-help') then
                call usagelong(' ')
            elseif (tag(1:2).eq.'-d'.or.tag(1:8).eq.'-details') then
  
negative.code: C Read input fault files
  C----
        call readsrc(ffmf,fltf,magf,nflt,evlo,evla,evdp,str,dip,rak,dx,dy,
       1             slip,hylo,hyla,emprel,haff,sthr)
  
  C----
  C Check for auto flag to define stations
  