extract_excit_info_type Function

public pure function extract_excit_info_type(excit_info_int) result(typ)

Arguments

Type IntentOptional Attributes Name
integer(kind=int64), intent(in) :: excit_info_int

Return Value integer


Contents

Source Code

extract_excit_info_type

Source Code

    pure function extract_excit_info_type(excit_info_int) result(typ)
        integer(int64), intent(in) :: excit_info_int
        integer :: typ

        typ = int(ibits(excit_info_int, 0, n_excit_type_bits))

    end function extract_excit_info_type