anchor.diff:          end if
   
           if (nkill /= 0) then
  -            ndeath_tot = ndeath_tot + abs(nkill)
               ! Create nkill excips with sign of -K_ii A_i
               if (KiiAi > 0) nkill = -nkill
   !            cdet%initiator_flag=0  !All death is allowed
  
positive.code:         !    rng: random number generator.
          !    spawn: spawn_t object to which the spanwed particle will be added.
  
  
          use ccmc_data, only: cluster_t
          use determinants, only: det_info_t
          use excitations, only: excit_t
          use proc_pointers, only: sc0_ptr, create_spawned_particle_ptr
          use dSFMT_interface, only: dSFMT_t, get_rand_close_open
          use spawn_data, only: spawn_t
          use spawning, only: calc_qn_weighting
          use system, only: sys_t
          use qmc_data, only: qmc_state_t
          use logging, only: logging_t, write_logging_death
          type(sys_t), intent(in) :: sys
          type(qmc_state_t), intent(in) :: qs
          logical, intent(in) :: linked_ccmc
  
negative.code:             ! care of the rest.
              ! Pass through a null excitation so that we create a spawned particle on
              ! the current excitor.
              call create_spawned_particle_ptr(basis, ref, cdet, null_excit, nkill, ispace, spawn)
          end if
  
      end subroutine stochastic_death_attempt
  
      subroutine stochastic_ccmc_death_nc(rng, linked_ccmc,  sys, qs, isD0, dfock, Hii, proj_energy, population, &
                                          tot_population, ndeath)
  