anchor.diff:          type(p_single_double_coll_t), intent(inout) :: ps_stat
   
           integer :: i, nspawnings_cluster
  -        logical :: try_death
  +        logical :: attempt_death
   
           ! Spawning
           ! This has the potential to create blooms, so we allow for multiple
  
positive.code:         ! a determinant is in the truncation space?  If so, also
          ! need to attempt a death/cloning step.
          ! optimisation: call only once per iteration for clusters of size 0 or 1 for ccmc_in%full_nc.
          if (try_death) then
             ! Clusters above size 2 can't die in linked ccmc.
              if ((.not. ccmc_in%linked) .or. contrib%cluster%nexcitors <= 2) then
                 ! Do death for non-composite clusters directly and in a separate loop
  
negative.code:             if (contrib%cluster%excitation_level <= qs%ref%ex_level+2 .or. &
                        get_excitation_level(contrib%cdet%f(:sys%basis%bit_string_len),qs%second_ref%f0(:sys%basis%bit_string_len)) &
                        <= qs%second_ref%ex_level+2) then
                  attempt_death = (contrib%cluster%excitation_level <= qs%ref%ex_level .or. &
                        get_excitation_level(contrib%cdet%f(:sys%basis%bit_string_len),qs%second_ref%f0(:sys%basis%bit_string_len)) &
                        <= qs%second_ref%ex_level) 
  
                  call do_spawning_death(rng, sys, qs, ccmc_in, &
                                   logging_info, ms_stats, bloom_stats, contrib, &
                                   nattempts_spawn_tot, ndeath, ps_stat, nspawnings_cluster, attempt_death)
  
   
  !                do i = 1, nspawnings_cluster
  