*  -INC SMATTAC                                                                 
*                                                                               
*     OBJET DE TYPE 'ATTACHE '                                                  
      SEGMENT MATTAC                                                            
       INTEGER LISATT(N)                                                        
      ENDSEGMENT                                                                
       POINTEUR MATTA1.MATTAC,MATTA2.MATTAC                                     
*                                                                               
      SEGMENT MSOUMA                                                            
       CHARACTER*4 ITYATT                                                       
       INTEGER IPMATK(M),IATREL(N),IGEOCH,IPHYCH                                
      ENDSEGMENT                                                                
       POINTEUR MSOUM1.MSOUMA,MSOUM2.MSOUMA                                     
*                                                                               
      SEGMENT MJONCT                                                            
       CHARACTER*4 MJODDL,MJOTYP                                                
       INTEGER MJOPOI,ISTRJO(N),IPCHJO(N),IPOSJO(N)                             
      ENDSEGMENT                                                                
       POINTEUR MJONC1.MJONCT,MJONC2.MJONCT                                     
*                                                                               
      SEGMENT MGEOCH                                                            
       CHARACTER*4 MPOPRO(NP)                                                   
       INTEGER     INORCH(NI),IMAPRO(N1)                                        
       REAL*8      RJEUCH(NJ),TAIPRO(NT)                                        
      ENDSEGMENT                                                                
       POINTEUR MGEOC1.MGEOCH,MGEOC2.MGEOCH                                     
*                                                                               
      SEGMENT MPHYCH                                                            
       REAL*8 RAIPRO,AMOPRO(NA),FROPRO(NF)                                      
      ENDSEGMENT                                                                
       POINTEUR MPHYC1.MPHYCH,MPHYC2.MPHYCH                                     
*                                                                               
*     LISATT : POINTEURS SUR LES SEGMENTS MSOUMA                                
*     ITYATT : TYPE DE LA LIAISON:MECA,FLUI,CHOC                                
*     IGEOCH : POINTEUR SUR LE SEGMENT MGEOCH:CARACTERISTIQUES GEOMETRI         
*              QUES DU CHOC                                                     
*     IPHYCH : POINTEUR SUR LE SEGMENT MPHYCH:CARACTERISTIQUES PHYSIQUES        
*              DU CHOC                                                          
*     IPMATK : POINTEURS SUR DES OBJETS DE TYPE RIGIDITE                        
*     IATREL : POINTEURS SUR LES SEGMENTS MJONCT                                
*     MJOPOI : POINT ASSOCIE AU MJONCT                                          
*     MJODDL : =LX (RESP.FLX) SI MJONCT LIBRE (RESP.BLOQUE)                     
*     MJOTYP : RAPPEL DE ITYATT=TYPE DE LA LIAISON.                             
*     ISTRJO : POINTEURS SUR LES MSOSTU D UN OBJET STRUCTURE                    
*     IPCHJO : POINTEURS SUR OBJETS DE TYPE CHPOINT                             
*     IPOSJO : POINTEURS SUR OBJETS DE TYPE MELEME (CENTRE DU PROFIL)           
*     INORCH : POINTEURS SUR OBJETS DE TYPE POINT DEFINISSANT LE REPERE         
*              DU PLAN DE CHOC                                                  
*     RJEUCH : FLOTTANT                                                         
*     IMAPRO : POINTEURS SUR OBJETS DE TYPE MELEME : PROFILS DE CHOC            
*     MPOPRO : MOTS:POSITION RELATIVE DES DEUX PROFILS                          
*     TAIPRO : FLOTTANTS:TAILLES DES PROFILS                                    
*     RAIPRO : FLOTTANT:RAIDEUR                                                 
*     AMOPRO : FLOTTANT:AMORTISSEMENT                                           
*     FROPRO : FLOTTANT:COEF DE FROTTEMENT                                      
*                                                                               
*  -ENDINCLUDE