DATE     94/01/10

    Opérateur EGA                              See also :NEG < 
    -------------                                        > <EG 
                                                         >EG 
    LOG1 = OBJET1  EGA  OBJET2 (FLOT1) ;

                                   OBJET1=ENTIER,FLOTTANT,LOGIQUE
                                          LISTENTI,MOT,TEXTE,POINT
    Description :
    _____________

    The EGA operator compares two objects: OBJET1 and OBJET2.

    Contents :
    __________

    OBJETi : objects to be compared
             The possible types for OBJET1 and OBJET2 are :

                            ENTIER
                            FLOTTANT
                            POINT
                            LISTENTI
                            MOT
                            TEXTE
                            LOGIQUE

    FLOT1  : tolerance (FLOTTANT type) used for comparing objects of
             FLOTTANT or POINT type. In this last case, the tolerance
             equals 0. by default.
    LOG1   : result (LOGIQUE type) ; its value is VRAI (true) if the
             two objects are identical and FAUX (false) if not

    Note :
    ________

    Two POINT type objects are considered to be "equal" if they have
 the same position in space. A tolerance FLOT1 (FLOTTANT type) equalling
 by default 1/10th of the point densities, or 1/10th of the current
 density if the point densities are null, may be imposed.

    For MOT type objects, it is required that the following order
 be maintained :

                LOG1 = EGA  MOT1  MOT2  ;