encode_excit_info_obj Function

private 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)


Contents

Source Code

encode_excit_info_obj

Source Code

    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