anchor.diff:  
   contains
   
  -    subroutine spawner_ccmc(rng, sys, qs, spawn_cutoff, linked_ccmc, cdet, cluster, ccmcin, &
  +    subroutine spawner_ccmc(rng, sys, qs, spawn_cutoff, linked_ccmc, cdet, cluster, ccmc_in, &
                               gen_excit_ptr, logging_info, nspawn, connection, nspawnings_total, ps_stat)
   
           ! Attempt to spawn a new particle on a connected excitor with
  
positive.code:         integer, intent(in) :: nspawnings_total
          type(gen_excit_ptr_t), intent(in) :: gen_excit_ptr
          type(logging_t), intent(in) :: logging_info
  	    type (ccmc_in_t), intent(in) :: ccmcin
          integer(int_p), intent(out) :: nspawn
          type(excit_t), intent(out) :: connection
  
  
negative.code:         KiiAi = KiiAi * qs%tau / cluster%pselect
  
          if (ex_lvl_sort) call add_ex_level_bit_string_provided(sys%basis, cluster%excitation_level, cdet%f)
  	    if (ccmc_in%multiref) then
  	        if (get_excitation_level(qs%ref%f0(:sys%basis%bit_string_len),cdet%f(:sys%basis%bit_string_len)) > qs%ref%ex_level .and. &
                                                   get_excitation_level(qs%second_ref%f0(:sys%basis%bit_string_len), &
                                                   cdet%f(:sys%basis%bit_string_len)) > qs%ref%ex_level) then
  	            nkill=0
  	        else
                  call stochastic_death_attempt(rng, real(KiiAi, p), 1, cdet, qs%ref, sys%basis, spawn, &
  