anchor.diff:  return
   end subroutine
   
  +
   !--------------------------------------------------------------------------------------------------!
  +
   
   subroutine read_header(nit,nflt,npoles,log_format)
   
  
positive.code: return
  end subroutine
  
  !--------------------------------------------------------------------------------------------------!
  
  subroutine parse_iteration_header(input_line,it,temp,obj,uncert,isAccepted,ierr)
  !----
  
negative.code:     ! Resample the ensemble
      allocate(samp(nit))
      allocate(obj_resamp(nit))
      max_obj = maxval(obj(1:nit))
      do i = 1,nit
          obj_resamp(i) = exp(obj(i) - max_obj)
      enddo
      call resample(obj_resamp,samp,nit)
  
  