anchor.diff:                  !$omp do schedule(dynamic,200) private(nspawned, connection, junk) reduction(+:D0_population_cycle,proj_energy)
                   do iattempt = 1, nattempts
   
  -                    call select_cluster(rng(it), nattempts, D0_pos, cumulative_abs_pops, tot_abs_pop, max_cluster_size, &
  -                                        cdet(it), cluster(it))
  +                    call select_cluster(rng(it), nattempts, D0_normalisation, D0_pos, cumulative_abs_pops, &
  +                                        tot_abs_pop, max_cluster_size, cdet(it), cluster(it))
   
                       if (cluster(it)%excitation_level <= truncation_level+2) then
   
  
positive.code: 
  implicit none
  
  integer :: D0_normalisation
  
  contains
  
      subroutine do_ccmc(sys)
  
negative.code:                 call convert_excitor_to_determinant(cdet%f, cluster%excitation_level, cluster%cluster_to_det_sign)
  
                  ! Normalisation factor for cluster%amplitudes...
                  cluster%amplitude = cluster_population/(real(normalisation,p)**(cluster%nexcitors-1))
              else
                  ! Simply set excitation level to a too high (fake) level to avoid
                  ! this cluster being used.
  