anchor.diff:  ! --- Helper functions ---
   
       subroutine create_spawned_particle_ccmc(basis, ref, cdet, connection, nspawned, ispace, &
  -                                            ex_level, ex_lvl_sort, fexcit, spawn, bloom_stats)
  +                                            parent_cluster_ex_level, ex_lvl_sort, fexcit, spawn, bloom_stats)
   
           use basis_types, only: basis_t
           use reference_determinant, only: reference_t
  
positive.code:         use bloom_handler, only: bloom_stats_t, accumulate_bloom_stats
          use excitations, only: excit_t, create_excited_det
          use proc_pointers, only: create_spawned_particle_ptr
          use ccmc_utils, only: add_ex_level_bit_string_provided
  
          type(basis_t), intent(in) :: basis
          type(reference_t), intent(in) :: ref
  
negative.code:         type(excit_t), intent(in) :: connection
  
          integer(int_p), intent(in) :: nspawned
          integer, intent(in) :: ispace, parent_cluster_ex_level
          integer(i0), intent(in) :: fexcit(:)
          logical, intent(in) :: ex_lvl_sort
          integer(i0) :: fexcit_loc(lbound(fexcit,dim=1):ubound(fexcit,dim=1))
  
          if (parent_cluster_ex_level /= huge(0)) then
              call create_excited_det(basis, cdet%f, connection, fexcit_loc)
          else
              fexcit_loc = fexcit
          end if
  
          if (ex_lvl_sort) call add_ex_level_bit_string_calc(basis%string_len, ref%f0, fexcit_loc)
          call create_spawned_particle_ptr(basis, ref, cdet, connection, nspawned, &
                                          ispace, spawn, fexcit_loc)
          call accumulate_bloom_stats(bloom_stats, nspawned)
  