anchor.diff:  
           if (dump_restart_file) call dump_restart(mc_cycles_done, nparticles_old(1))
   
  -        call dealloc_det_info(cdet)
  -        cdet%cluster => NULL()
  -        deallocate(cluster%excitors, stat=ierr)
  -        call check_deallocate('cluster%excitors', ierr)
  +        ! TODO: deallocation...
  +!        call dealloc_det_info(cdet)
  +!        cdet%cluster => NULL()
  +!        deallocate(cluster%excitors, stat=ierr)
  +!        call check_deallocate('cluster%excitors', ierr)
   
       end subroutine do_ccmc
   
  
positive.code:                                      &implement better factorial routines.')
          end if
  
          ! Allocate det_info components...
          call alloc_det_info(cdet)
          ! ...and cluster_t components
          allocate(cluster%excitors(truncation_level+2), stat=ierr)
          call check_allocate('cluster%excitors', truncation_level+2, ierr)
          ! ...and scratch space for calculative cumulative probabilities.
          allocate(cumulative_abs_pops(walker_length), stat=ierr)
          call check_allocate('cumulative_abs_pops', walker_length, ierr)
  
          allocate(rng(0:nthreads-1), stat=ierr)
          call check_allocate('rng', size(rng), ierr)
          if (parent) call rng_init_info(seed+iproc)
          do i = 0, nthreads-1
              call dSFMT_init(seed+(iproc*nthreads)+i, 50000, rng(i))
          end do
  
          ! Whilst cluster data can be accessed from cdet, I recommend explicitly
          ! passing it as an argument rather than accessing cdet%cluster both for
          ! the sake of brevity and clarity.  In particular, I wish to encourage
          ! not using cdet%cluster in order to maintain (where possible and
          ! relevant) generality in routines applicable to FCIQMC and CCMC.
          cdet%cluster => cluster
  
          ! from restart
          nparticles_old = nparticles_old_restart
  
negative.code:                         ! estimator.  See comments in spawning.F90 for why we
                          ! must divide through by the probability of selecting
                          ! the cluster.
                          call update_proj_energy_ptr(cdet(it), &
                                   cluster(it)%cluster_to_det_sign*cluster(it)%amplitude/cluster(it)%pselect)
  
                          call spawner_ccmc(rng(it), cdet(it), cluster(it), nspawned, connection)
  
                          if (nspawned /= 0) then
                              call create_spawned_particle_ptr(cdet(it), 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 (cluster(it)%excitation_level <= truncation_level) then
                              call stochastic_ccmc_death(rng(it), cdet(it), cluster(it))
                          end if
  
                      end if
  
  