anchor.diff:  
       subroutine do_spawning_death(rng, sys, qs, ccmc_in, &
                                    logging_info, ms_stats, bloom_stats, contrib, &
  -                                 nattempts_spawn_tot, ndeath, ps_stat, nspawnings_cluster, try_death)
  +                                 nattempts_spawn_tot, ndeath, ps_stat, nspawnings_cluster, attempt_death)
   
           use dSFMT_interface, only: dSFMT_t
           use system, only: sys_t
           use qmc_data, only: qmc_state_t, ccmc_in_t
           use ccmc_data, only: multispawn_stats_t, ms_stats_update, wfn_contrib_t
   
  -        use ccmc_death_spawning, only: spawner_ccmc, linked_spawner_ccmc, stochastic_ccmc_death
  -        use ccmc_death_spawning, only: stochastic_ccmc_death_nc, spawner_complex_ccmc
  +        use ccmc_death_spawning, only: stochastic_ccmc_death
           use bloom_handler, only: bloom_stats_t, accumulate_bloom_stats
           use logging, only: logging_t
           use excit_gens, only: p_single_double_coll_t
  
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:         type(multispawn_stats_t), intent(inout) :: ms_stats
          type(p_single_double_coll_t), intent(inout) :: ps_stat
          integer, intent(in) :: nspawnings_cluster
          logical, intent(in) :: attempt_death
  
          integer :: i
  
  