anchor.diff:  
           integer :: i, ireport, icycle, it
           integer(lint) :: iattempt, nattempts, nparticles_old(sampling_size)
  -        type(det_info) :: cdet
  +        type(det_info), allocatable :: cdet(:)
   
           integer :: nspawned, ndeath, ierr
           type(excit) :: connection
  -        type(cluster_t), target :: cluster
  +        type(cluster_t), allocatable, target :: cluster(:)
           type(dSFMT_t), allocatable :: rng(:)
   
           logical :: soft_exit
  
positive.code:         ! in fciqmc_main.
  
          use checking, only: check_allocate, check_deallocate
          use dSFMT_interface, only: dSFMT_t, dSFMT_init
          use errors, only: stop_all
          use utils, only: rng_init_info
  
negative.code: 
          if (dump_restart_file) call dump_restart(mc_cycles_done, nparticles_old(1))
  
          ! 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
  
  