reset_core_space Subroutine

    subroutine reset_core_space()

        integer(int64) :: i

        do i = 1, TotWalkers
            call clr_flag_multi(CurrentDets(:, i), flag_deterministic)
        end do

    end subroutine reset_core_space