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