SYMEQ Function

public function SYMEQ(A, B)

Uses

Arguments

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

Return Value logical


Contents

Source Code

SYMEQ

Source Code

    LOGICAL FUNCTION SYMEQ(A, B)
        use SystemData, only: Symmetry
        IMPLICIT NONE
        TYPE(Symmetry) A, B
        SYMEQ = A%s == B%s
        RETURN
!Need to cope with 'unsigned integers'
    END FUNCTION SYMEQ