anchor.diff:          integer :: nspawned, ndeath
           type(excit) :: connection
           real(p) :: hmatel
  -        integer :: dummy=0
  +
           logical :: soft_exit
   
           real :: t1
  
positive.code:         !    sys: system being studied.
  
          use parallel
          use loadbal_data
          use load_balancing
          use annihilation, only: direct_annihilation
          use basis, only: basis_length, nbasis
          use bloom_handler, only: bloom_stats_t, accumulate_bloom_stats
  
negative.code:             if (soft_exit) exit
  
          end do
  
          if (parent) then
              call write_fciqmc_final(ireport)
              write (6,'()')
  