anchor.diff:  
       subroutine stochastic_ccmc_death(cdet, amplitude, pcluster)
   
  -        ! Attempt to 'die' (ie create an excip on the current exictor, cdet%f)
  +        ! Attempt to 'die' (ie create an excip on the current excitor, cdet%f)
           ! with probability
           !    \tau |<D_s|H|D_s> A_s|
           !    ----------------------
  
positive.code: 
                      if (excitation_level <= truncation_level+2) then
  
                          ! TODO: projected estimator.
                          call update_proj_energy_ptr(cdet, cluster_amplitude)
  
                          call spawner_ccmc(cdet, cluster_amplitude, pcluster, nspawned, connection)
  
negative.code:         use determinants, only: det_info
          use dSFMT_interface, only: genrand_real2
          use fciqmc_data, only: f0, D0_population, tot_walkers, &
                                 walker_population, walker_dets
          use proc_pointers, only: decoder_ptr
          use utils, only: factorial
  
  