anchor.diff:              call create_excited_det(sys%basis, cdet%f, connection, fexcit)
               excitor_level = get_excitation_level(qs%ref%f0, fexcit)
               call convert_excitor_to_determinant(fexcit, excitor_level, excitor_sign, qs%ref%f0)
  +	    if (ccmc_in%multiref) then
  +	        excitor_level_2 = get_excitation_level(ccmc_in%f0, fexcit)
  +	        if (excitor_level > qs%red%ex_level && excitor_level_2 >qs%ref%ex_level) nspawn=0
  +	    end if
               if (excitor_sign < 0) nspawn = -nspawn
               if (debug) call write_logging_spawn(logging_info, hmatel_save, pgen, invdiagel, [nspawn], &
                           real(cluster%amplitude,p), sys%read_in%comp, spawn_pgen, cdet%f, fexcit, connection)
  
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)
  
          call stochastic_death_attempt(rng, real(KiiAi, p), 1, cdet, qs%ref, sys%basis, spawn, &
                             nkill, pdeath)
          ndeath_tot = ndeath_tot + abs(nkill)
  
          if (debug) call write_logging_death(logging_info, real(KiiAi,p), qs%estimators(1)%proj_energy_old, qs%shift(1), invdiagel, &
  
negative.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) :: ccmc_in
          integer(int_p), intent(out) :: nspawn
          type(excit_t), intent(out) :: connection
  
  