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 type(ExcitationType_t)


Source Code

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

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

    end function extract_excit_info_type