anchor.diff:              call create_excited_det(sys%basis, cdet%f, connection, fexcit)
               excitor_level = get_excitation_level(qs%ref%f0(:sys%basis%bit_string_len), fexcit(:sys%basis%bit_string_len))
               call convert_excitor_to_determinant(fexcit, excitor_level, excitor_sign, qs%ref%f0)
  -	        if (ccmcin%multiref) then
  -	            excitor_level_2 = get_excitation_level(ccmcin%second_ref%f0(:sys%basis%bit_string_len), fexcit(:sys%basis%bit_string_len))
  +	        if (ccmc_in%multiref) then
  +	            excitor_level_2 = get_excitation_level(qs%second_ref%f0(:sys%basis%bit_string_len), fexcit(:sys%basis%bit_string_len))
   	            !print*, excitor_level, excitor_level_2
                   if (excitor_level > qs%ref%ex_level .and.  excitor_level_2 >qs%ref%ex_level) nspawn=0
   	        end if
  
positive.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 (ccmcin%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(ccmcin%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, &
  
negative.code:     end subroutine spawner_ccmc
  
      subroutine stochastic_ccmc_death(rng, spawn, linked_ccmc, ex_lvl_sort, sys, qs, cdet, cluster, &
                                      logging_info, ndeath_tot, ccmc_in)
  
          ! Attempt to 'die' (ie create an excip on the current excitor, cdet%f)
          ! with probability
  