anchor.diff:  write(stderr,'(A)') '-gf:sts_file GF_STS_FILE     Pre-computed stress Greens functions'
   write(stderr,*)
   write(stderr,'(A)') 'Inversion Options'
  -write(stderr,'(A)') '-mode INVERSION_MODE         Inversion mode'
   write(stderr,'(A)') '-damp DAMP                   Damping regularization'
   write(stderr,'(A)') '-smooth SMOOTH SMOOTH_FILE   Smoothing regularization'
   write(stderr,*)
  
positive.code:         call get_command_argument(i,gf_stress%file)
  
      ! Inversion options
      elseif (trim(tag).eq.'-mode') then
          i = i + 1
          call get_command_argument(i,inversion_mode)
      elseif (trim(tag).eq.'-damp') then
          i = i + 1
          call get_command_argument(i,tag)
  
negative.code: endif
  if (verbosity.ge.2) then
      write(stderr,'("Parsed command line inputs")')
      write(stderr,'("    inversion_mode:         ",A)') trim(inversion_mode)
      write(stderr,*)
      write(stderr,'("    output_file:            ",A)') trim(output_file)
      write(stderr,*)
      write(stderr,'("    displacement%file:      ",A)') trim(displacement%file)
      write(stderr,'("    disp_components:        ",A)') trim(disp_components)
      write(stderr,'("    disp_misfit_file:       ",A)') trim(disp_misfit_file)
      write(stderr,'("    prestress%file:         ",A)') trim(prestress%file)
      write(stderr,'("    stress_weight:          ",1PE14.6)') stress_weight
      write(stderr,'("    fault%file:             ",A)') trim(fault%file)
      write(stderr,'("    rake_constraint%file:   ",A)') trim(rake_constraint%file)
      write(stderr,'("    slip_constraint%file:   ",A)') trim(slip_constraint%file)
  