extract_excit_lvl_rdm Function

public pure function extract_excit_lvl_rdm(rdm_ind) result(excit_lvl)

Arguments

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

Return Value integer

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