refresh_semistochastic_space Subroutine

public subroutine refresh_semistochastic_space()

Arguments

None

Contents


Source Code

    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