SYMGT Function

public function SYMGT(A, B)

Arguments

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

Return Value logical


Contents

Source Code

SYMGT

Source Code

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