is_core_state Function

public function is_core_state(ilut, nI, run_) result(t_core)

Uses

Check whether an ilut belongs to the core space for performance reasons (decoding is expensive and we likely already know nI at this point)

Arguments

Type IntentOptional Attributes Name
integer(kind=n_int), intent(in) :: ilut(0:NIfTot)
integer, intent(in) :: nI(:)
integer, intent(in), optional :: run_

Return Value logical


Source Code

    function is_core_state(ilut, nI, run_) result(t_core)
        use hash, only: FindWalkerHash

        integer(n_int), intent(in) :: ilut(0:NIfTot)
        integer, intent(in) :: nI(:)
        integer, intent(in), optional :: run_
        integer :: i, run
        logical :: t_core

        def_default(run, run_, core_run)
        if (t_global_core_space) run = core_run

        associate(rep => cs_replicas(run))
            call shared_rht_lookup(rep%core_ht, ilut, nI, rep%core_space, i, t_core)
        end associate
    end function is_core_state