anchor.diff:  
           type(sys_t), intent(in) :: sys
           type(qmc_state_t), intent(in) :: qs
  -	    type (ccmc_in_t), intent (in) :: ccmcin
  +	    type (ccmc_in_t), intent (in) :: ccmc_in
           logical, intent(in) :: linked_ccmc, ex_lvl_sort
           type(det_info_t), intent(inout) :: cdet
           type(cluster_t), intent(in) :: cluster
  
positive.code:     end subroutine spawner_ccmc
  
      subroutine stochastic_ccmc_death(rng, spawn, linked_ccmc, ex_lvl_sort, sys, qs, cdet, cluster, &
                                      logging_info, ndeath_tot, ccmcin)
  
          ! Attempt to 'die' (ie create an excip on the current excitor, cdet%f)
          ! with probability
  
negative.code:             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 (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
  