MaxSymRep Function

public function MaxSymRep()

Arguments

None

Return Value integer(kind=int64)


Contents

Source Code

MaxSymRep

Source Code

    integer(int64) function MaxSymRep()
        implicit none
        integer abel(3)
        abel(:) = nprop(:) - 1
        if (TAbelian) then
            MaxSymRep = ComposeAbelianSym(abel)
        else
            MaxSymRep = 0
        end if
    end function MaxSymRep