SYMNE Function

public function SYMNE(A, B)

Arguments

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

Return Value logical


Contents

Source Code


Source Code

    LOGICAL FUNCTION SYMNE(A, B)
        IMPLICIT NONE
        TYPE(Symmetry) A, B
        SYMNE = A%s /= B%s
        RETURN
    END FUNCTION SYMNE