anchor.diff:  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)
  
positive.code:     elseif (trim(tag).eq.'-lsqr:mode') then
          i = i + 1
          call get_command_argument(i,lsqr_mode)
      elseif (trim(tag).eq.'-lsqr:stress_weight') then
          i = i + 1
          call get_command_argument(i,tag)
          read(tag,*) stress_weight
  
      ! Simulated annealing options
      elseif (trim(tag).eq.'-anneal:init_mode') then
  
negative.code: 
  subroutine initialize_fltinv_variables()
  use io_module, only: verbosity, initialize_program_data
  use variable_module, only: output_file, displacement, disp_components, prestress, stress_weight, &
                             fault, slip_constraint, rake_constraint, &
                             gf_type, gf_disp, gf_stress, &
                             inversion_mode, damping_constant, smoothing_constant, smoothing, &
                             coord_type, halfspace, disp_misfit_file
  use lsqr_module, only: lsqr_mode
  use anneal_module, only: anneal_init_mode, anneal_log_file, max_iteration, reset_iteration, &
                           temp_start, temp_minimum, cooling_factor
  implicit none
  