extract_excit_type_rdm Function

public pure function extract_excit_type_rdm(rdm_ind) result(excit_typ)

Arguments

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

Return Value integer


Contents

Source Code

extract_excit_type_rdm

Source Code

    pure function extract_excit_type_rdm(rdm_ind) result(excit_typ)
        integer(int_rdm), intent(in) :: rdm_ind
        integer :: excit_typ

        excit_typ = int(ibits(rdm_ind, pos_excit_type_bits, n_excit_type_bits))

    end function extract_excit_type_rdm