anchor.diff:          call check_allocate('real_population', qs%psip_list%nspaces, ierr)
           allocate(weighted_population(qs%psip_list%nspaces), stat=ierr)
           call check_allocate('weighted_population', qs%psip_list%nspaces, ierr)
  -        allocate(nattempts_current_det(qs%psip_list%nspaces), stat=ierr)
  -        call check_allocate('nattempts_current_det', qs%psip_list%nspaces, ierr)
   
           call dSFMT_init(qmc_in%seed+iproc, 50000, rng)
           if (restart_in%restart_rng .and. allocated(qs%rng_state%dsfmt_state)) then
  
positive.code:                                                         qs%estimators(ispace), connection, hmatel)
                          end if
  
  
                          call do_fciqmc_spawning_attempt(rng, qs%spawn_store%spawn, bloom_stats, sys, qs, &
                                                          nattempts_current_det(ispace), &
                                                          cdet, determ, determ_parent, qs%psip_list%pops(ispace, idet), &
                                                          sys%read_in%comp .and. modulo(ispace,2)==0, &
                                                          ispace, logging_info)
  
negative.code: 
          call dealloc_det_info_t(cdet, .false.)
          
          call dSFMT_end(rng)
  
      end subroutine do_fciqmc
  