DATE     94/01/10
    Procédure ANNOIMP
    --------------

    GEO1 = ANNOIMP  N1 FLOT1 FLOT2 HAUT1 FLOT3 FLOT4 ;

    Objet :
    _______

    Cette procédure génère un maillage d'anneau imparfait d'axe Oz.

    Commentaire :
    _____________

    Le rayon de l'anneau varie suivant la loi suivante :

    RAY1 = FLOT2 + FLOT3 * cos(FLOT1 * FLOT4)

    Les coordonnées de la base sont données par :

          X1 = FLOT2 * cos(FLOT4)
          Y1 = FLOT2 * sin(FLOT4)
          Z1 = 0


    HAUT1  : hauteur de l'anneau (type FLOTTANT)

    FLOT1  : mode (type FLOTTANT)

    FLOT2  : rayon (type FLOTTANT)

    FLOT3  : défaut (type FLOTTANT)

    FLOT4  : angle par rapport à Oz (type FLOTTANT)

    N1     : nombre de segments sur la base de l'anneau (type ENTIER)