anchor.diff:  ! (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
  +use const, only: p, lint
   
   implicit none
   
  
positive.code:         use fciqmc_restart, only: dump_restart
          use interact, only: fciqmc_interact
          use proc_pointers
  
          integer :: ireport, icycle
          integer(lint) :: iattempt, nattempts, nparticles_old(sampling_size)
  
negative.code:                 ! Reset death counter
                  ndeath = 0
  
                  ! Allow one spawning & death attempt for each excip on the
                  ! processor.
                  do iattempt = 1, nparticles(1)
  
                      ! TODO: initiator.
                      call select_cluster(nparticles(1), cdet, excitation_level, cluster_amplitude, pcluster)
  
                      if (excitation_level <= truncation_level+2) then
  
                          ! TODO: projected estimator.
  !                        call update_proj_energy_ptr(cdet, 1, amp)
  
                          call spawner_ccmc(cdet, cluster_amplitude, pcluster, nspawned, connection)
  
  