anchor.diff:                          call attempt_spawn(rng, iwalker)
                       end do
   
  -                    call simple_death(rng, iwalker)
  +                    call simple_death(rng, Hii, walker_population(1,iwalker))
   
                   end do
   
  
positive.code:         type(dSFMT_t) :: rng
          integer :: ref_det, ndets
          integer(i0), allocatable :: dets(:,:)
  
          call init_simple_fciqmc(sys, ndets, dets, ref_det)
  
  
negative.code:                 ! Consider all walkers.
                  do iwalker = 1, ndets
  
                      H0i = hamil(iwalker,ref_det)
                      Hii = hamil(iwalker,iwalker)
  
                      ! It is much easier to evaluate the projected energy at the
                      ! start of the FCIQMC cycle than at the end.
                      call simple_update_proj_energy(ref_det == iwalker, H0i, walker_population(1,iwalker), proj_energy)
  
                      ! Simulate spawning.
                      do ipart = 1, abs(walker_population(1,iwalker))
  