subroutine init_verlet_iteration() use rdm_data, only: rdm_definitions_t type(rdm_definitions_t) :: dummy FreeSlot(1:iEndFreeSlot) = 0 iStartFreeSlot = 1 iEndFreeSlot = 0 ! verlet always uses a spawn hashtable call clear_hash_table(spawn_ht) call rezero_iter_stats_each_iter(iter_data_fciqmc, dummy) end subroutine init_verlet_iteration