anchor.diff:  
       end subroutine attempt_spawn
   
  -    subroutine simple_death(rng, iwalker)
  +    subroutine simple_death(rng, Hii, pop)
   
           ! Simulate cloning/death part of FCIQMC algorithm.
           ! In:
  -        !    iwalker: walker whose particles attempt to clone/die.
  +        !    Hii: diagonal matrix element, <D_i|H|D_i>
           ! In/Out:
           !    rng: random number generator.
  -
  -        integer, intent(in) :: iwalker
  +        !    pop: population on |D_i>.  On output, the population is updated from applying
  +        !         the death step.
  +
           type(dSFMT_t), intent(inout) :: rng
  +        real(p), intent(in) :: Hii
  +        integer(int_p), intent(inout) :: pop
   
           integer :: nkill
           real(p) :: rate
  
positive.code:                         call attempt_spawn(rng, iwalker)
                      end do
  
                      call simple_death(rng, iwalker)
  
                  end do
  
  
negative.code:         type(dSFMT_t) :: rng
          integer :: ref_det, ndets
          integer(i0), allocatable :: dets(:,:)
          real(p) :: H0i, Hii
  
          call init_simple_fciqmc(sys, ndets, dets, ref_det)
  
  