*       -INC SMELEME                                                            
*                                                                               
*     L'OBJET  MAILLAGE  REPRESENTE UNE TOPOLOGIE                               
*                                                                               
      SEGMENT      MELEME                                                       
      INTEGER      ITYPEL                                                       
      INTEGER      NUM(NBNN,NBELEM)                                             
      INTEGER      LISOUS(NBSOUS),LISREF(NBREF)                                 
      INTEGER      ICOLOR(NBELEM)                                               
*     INTEGER      IGEOME(NBELEM)                                               
      ENDSEGMENT                                                                
      POINTEUR     IPT1.MELEME,IPT2.MELEME,IPT3.MELEME,IPT4.MELEME              
      POINTEUR     IPT5.MELEME,IPT6.MELEME,IPT7.MELEME,IPT8.MELEME              
      POINTEUR     IPT9.MELEME                                                  
*                                                                               
*     OBJET GEOMETRIQUE SIMPLE (UN SEUL TYPE D'ELEMENT)                         
*                                                                               
*     ITYPEL   : NUMERO DU TYPE D'ELEMENT (D'APRES ILCOUR DANS CCGEOME)         
*     NBSOUS   : 0 PAS DE SOUS-OBJETS                                           
*     NBREF    : NOMBRE DE REFERENCES ( COTES FACES ....                        
*     LISREF   : LISTE DES REFERENCES (POINTEURS SUR MELEME                     
*     NBNN     : NOMBRE DE POINTS DANS L'ELEMENT                                
*     NBELEM   : NOMBRE D ELEMENTS DANS LE MELEME                               
*     NUM(I,J) : NUMERO DU IEME NOEUD DU JIEME ELEMENT                          
*     ICOLOR   : COULEUR DE CHAQUE ELEMENT                                      
**    IGEOME   : POINTEUR SUR UNE GEOMETRIE SOUS-JACENTE A L'ELEMENT            
*                                                                               
*     OBJET GEOMETRIQUE COMPLEXE (PLUSIEURS TYPES D'ELEMENTS)                   
*                                                                               
*     ITYPEL   : PAS UTILISE                                                    
*     NBSOUS   : NOMBRE DE SOUS-OBJETS (OBJETS GEOMETRIQUES SIMPLES)            
*     LISOUS   : LISTE DES SOUS-OBJETS (POINTEURS SUR MELEME)                   
*     NBREF    : NOMBRE DE REFERENCES ( COTES FACES ....                        
*     LISREF   : LISTE DES REFERENCES (POINTEURS SUR MELEME                     
*     NBNN     : 0                                                              
*     NBELEM   : 0                                                              
*