C=======================================================================        
C     OBJET DE TYPE 'BASEMODA'                                                  
      SEGMENT MBASEM                                                            
        INTEGER LISBAS(N)                                                       
      ENDSEGMENT                                                                
      POINTEUR MBASE1.MBASEM,MBASE2.MBASEM                                      
C                                                                               
      SEGMENT MSOBAS                                                            
        INTEGER IBSTRM(NIBST)                                                   
      ENDSEGMENT                                                                
      POINTEUR MSOBA1.MSOBAS,MSOBA2.MSOBAS                                      
C                                                                               
C     LISBAS(I) : POINTEUR SUR MSOBAS                                           
C     IBSTRM(1) : POINTEUR SUR OBJET STRUCTURE (SEGMENT MSOSTU)                 
C     IBSTRM(2) : POINTEUR SUR OBJET MSOLUT (LES MODES)                         
C     IBSTRM(3) : POINTEUR SUR OBJET MSOLUT (LES SOLUTIONS STATIQUES)           
C     IBSTRM(4) : POINTEUR SUR OBJET ATTACHE (LES LIAISONS)                     
C     IBSTRM(5) : POINTEUR SUR OBJET MSOLUT (LES PSEUDO MODES)                  
C                                                                               
C=======================================================================