subroutine refresh_semistochastic_space() use CalcData, only: ss_space_in use semi_stoch_gen, only: init_semi_stochastic use semi_stoch_procs, only: end_semistoch implicit none logical :: tStartedFromCoreGround ! as the important determinants might change during time evolution, this ! resets the semistochastic space taking the current population to get a new one call end_semistoch() ! the flag_deterministic flag has to be cleared from all determinants as it is ! assumed that no states have that flag when init_semi_stochastic starts call reset_core_space() call init_semi_stochastic(ss_space_in, tStartedFromCoreGround) end subroutine refresh_semistochastic_space