extract_excit_lvl_rdm Function

public pure function extract_excit_lvl_rdm(rdm_ind) result(excit_lvl)

Arguments

Type IntentOptional Attributes Name
integer(kind=int_rdm), intent(in) :: rdm_ind

Return Value integer


Contents

Source Code

extract_excit_lvl_rdm

Source Code

    pure function extract_excit_lvl_rdm(rdm_ind) result(excit_lvl)
        integer(int_rdm), intent(in) :: rdm_ind
        integer :: excit_lvl

        excit_lvl = int(ibits(rdm_ind, pos_excit_lvl_bits, n_excit_lvl_bits))

    end function extract_excit_lvl_rdm