LSYMSYM Function

public elemental function LSYMSYM(SYM)

Arguments

Type IntentOptional Attributes Name
type(Symmetry), intent(in) :: SYM

Return Value logical


Contents

Source Code

LSYMSYM

Source Code

    LOGICAL elemental FUNCTION LSYMSYM(SYM)
        Type(Symmetry), intent(in) :: SYM
        if (TAbelian) then
            LSymSym = Sym%s == 0
        else
            LSYMSYM = (SYM%s == 0 .OR. BTEST(SYM%s, 0))
        end if
        RETURN
    END FUNCTION LSYMSYM