SYMLT Function

public function SYMLT(A, B)

Arguments

Type IntentOptional Attributes Name
type(Symmetry) :: A
type(Symmetry) :: B

Return Value logical


Contents

Source Code

SYMLT

Source Code

    LOGICAL FUNCTION SYMLT(A, B)
        IMPLICIT NONE
        TYPE(Symmetry) A, B
        IF (A%s >= 0) THEN
            IF (B%s >= 0) THEN
                SYMLT = A%s < B%s
            ELSE
                SYMLT = .TRUE.
            end if
        ELSE
            IF (B%s >= 0) THEN
                SYMLT = .FALSE.
            ELSE
                SYMLT = A%s < B%s
            end if
        end if
        RETURN
    END FUNCTION SYMLT