encode_excit_info_obj Function

private pure function encode_excit_info_obj(excitInfo) result(excit_info_int)

Arguments

Type IntentOptional Attributes Name
type(ExcitationInformation_t), intent(in) :: excitInfo

Return Value integer(kind=int64)


Source Code

    pure function encode_excit_info_obj(excitInfo) result(excit_info_int)
        type(ExcitationInformation_t), intent(in) :: excitInfo
        integer(int64) :: excit_info_int

        ! function to encode directly from ExcitationInformation_t type to
        ! a 64-bit integer
        excit_info_int = 0_int64

        excit_info_int =  encode_excit_info_vec(excitInfo%typ, &
            [excitInfo%i, excitInfo%j, excitInfo%k, excitInfo%l])

    end function encode_excit_info_obj