ComposeAbelianSym Function

public pure function ComposeAbelianSym(AbelSym)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: AbelSym(3)

Return Value integer(kind=int64)


Source Code

    integer(int64) pure function ComposeAbelianSym(AbelSym)
        integer, intent(in) :: AbelSym(3)
        integer(int64) :: TempVar
        TempVar = AbelSym(3)
!LShift
        ComposeAbelianSym = IShft(Tempvar, PropBitLen * 2) &
                            + IShft(AbelSym(2), PropBitLen) &
                            + AbelSym(1)
    end function ComposeAbelianSym