anchor.diff:                                              contrib, nattempts_spawn_tot, ndeath, ps_stat)
   
           ! Perform stochastic propogation of a cluster in an appropriate manner
  -        ! for the given inputs. For stochastically selected clusters this
  -        ! attempts spawning and death, adding any created particles to the
  -        ! spawned list. For deterministically selected clusters spawning is
  -        ! performed, while death is performed in-place separately.
  -
  -        ! This is currently non-specific to a any given type of selected
  -        ! cluster, though this may change in future.
  +        ! for the given inputs. For multireference systems, it allows death for
  +        ! clusters within the desired truncation level of either reference.
   
           ! In:
           !   sys: information on system under consideration.
  
positive.code:     subroutine 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)
  
          use dSFMT_interface, only: dSFMT_t
          use system, only: sys_t
  
negative.code:                 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)
              end if
          else
              attempt_death = (contrib%cluster%excitation_level <= qs%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)
          end if
  
      end subroutine do_stochastic_ccmc_propagation  
  