anchor.diff:          use annihilation, only: direct_annihilation
           use basis, only: basis_length, nbasis
           use determinants, only: det_info, alloc_det_info, dealloc_det_info
  -        use excitations, only: excit
  +        use excitations, only: excit, get_excitation_level
           use energy_evaluation, only: update_energy_estimators
           use fciqmc_data
           use fciqmc_common
  
positive.code:         use proc_pointers
  
          integer :: ireport, icycle
  !        integer :: iparticle ! not used yet
          integer(lint) :: iattempt, nattempts, nparticles_old(sampling_size)
          type(det_info) :: cdet
  
          integer :: ndeath
  !        integer :: nspawned ! not used yet
  !        type(excit) :: connection  ! not used yet
  
          logical :: soft_exit
  
  
negative.code: ! (especially the spawning, death and annihilation).  As a result, the structure
  ! of do_ccmc is remarkably similar to the other do_*mc routines.
  
  use const, only: p
  
  implicit none
  
  contains
  