anchor.diff:  
       misfit = 0.0d0
   
  -    if (displacement%file.eq.'none') then
  +    if (displacement%file.eq.'none'.and.displacement%flag.ne.'misfit') then
           return
       endif
   
  
positive.code:         slip_ssds(j,1) = slip_0(j)*dcos(rake_0(j)*d2r)
          slip_ssds(j,2) = slip_0(j)*dsin(rake_0(j)*d2r)
      enddo
      obj_0 = misfit(slip_ssds) + shear_stress(slip_ssds)
      obj_best = obj_0
      last_obj_best = 0
  
  
negative.code: 
      subroutine initialize_annealing()
      use io_module, only: stderr, verbosity
      use variable_module, only: inversion_mode, fault, slip_constraint, rake_constraint
      implicit none
      ! Local variables
      integer :: i
  