anchor.diff:          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
  +        integer :: ndeath, nspawned, excitation_level
  +        real(p) :: cluster_amplitude, pcluster
  +        type(excit) :: connection
   
           logical :: soft_exit
   
  
positive.code: 
      end subroutine do_ccmc
  
      function select_cluster_size(max_excit_level) result(cluster_size)
  
          integer :: cluster_size
          integer, intent(in) :: max_excit_level
  
          
  
      end function select_cluster_size
  
  end module ccmc
  
negative.code:                 ! Allow one spawning & death attempt for each walker on the
                  ! processor.
                  do iattempt = 1, nparticles(1)
  
                      ! TODO: select cluster size
  
                      ! TODO: select cluster
  
                      ! TODO: collapse cluster (return also excitation_level)
  
                      if (excitation_level <= truncation_level+2) then
  
                          ! TODO: projected estimator.
  !                        call update_proj_energy_ptr(cdet, amp)
  
                          ! TODO: evolve.
  !                        call spawner_ccmc(cdet, cluster_amplitude, pcluster, nspawned, connection)
  
                          if (nspawned /= 0) then
                              call create_spawned_particle_ptr(cdet, connection, nspawned, spawned_pop)
                          end if
  
                          ! Does the cluster collapsed onto D0 produce
                          ! a determinant is in the truncation space?  If so, also
                          ! need to attempt a death/cloning step.
                          if (excitation_level <= truncation_level) call stochastic_ccmc_death(cdet, cluster_amplitude, pcluster)
  
                      end if
  
                  end do
  
                  ! Add the spawning rate (for the processor) to the running
  