C ECLMOT    SOURCE    CHAT      05/01/12    23:23:31     5004           
      SUBROUTINE ECLMOT (IPMOTS)                                                
************************************************************************        
*                                                                               
*                             E C L M O T                                       
*                             -----------                                       
*                                                                               
* FONCTION:                                                                     
* ---------                                                                     
*                                                                               
*     IMPRESSION D'UN OBJET 'LISTMOTS'.                                         
*                                                                               
* MODE D'APPEL:                                                                 
* -------------                                                                 
*                                                                               
*     CALL ECLMOT (IPMOTS)                                                      
*                                                                               
* PARAMETRES:  (E)=ENTREE   (S)=SORTIE                                          
* -----------                                                                   
*                                                                               
*     IPMOTS  ENTIER    (E)  POINTEUR SUR L'OBJET DE TYPE 'LISTMOTS'.           
*                                                                               
* AUTEUR, DATE DE CREATION:                                                     
* -------------------------                                                     
*                                                                               
*     PASCAL MANIGOT     26 OCTOBRE 1984                                        
*                                                                               
* LANGAGE:                                                                      
* --------                                                                      
*                                                                               
*     ESOPE + FORTRAN77 + EXTENSION: CARACTERES MIS DANS DES ENTIERS.           
*                                                                               
************************************************************************        
*                                                                               
      IMPLICIT INTEGER(I-N)
-INC CCOPTIO                                                                    
-INC SMLMOTS                                                                    
*                                                                               
      MLMOTS = IPMOTS                                                           
      SEGACT,MLMOTS                                                             
      LONG = MOTS(/2)                                                           
      LARG=MOTS(/1)                                                             
      INTERR(1)=MLMOTS                                                          
      INTERR(2)=LONG                                                            
      INTERR(3)=LARG                                                            
      CALL ERREUR(-109)                                                         
                                                                                
                                                                                
*                                                                               
      WRITE (IOIMP,2010) LONG                                                   
 2010 FORMAT (/,' NOMBRE DE MOTS =',I4,/)                                       
      IF (LONG .GT. 0) THEN                                                     
         IF(LARG.LE.4) THEN                                                     
            WRITE (IOIMP,2019) (MOTS(I),I=1,LONG)                               
 2019       FORMAT (20(2X,A4) )                                                 
         ELSEIF(LARG.LE.8) THEN                                                 
            WRITE (IOIMP,2020) (MOTS(I),I=1,LONG)                               
 2020       FORMAT (12(2X,A8) )                                                 
         ELSEIF(LARG.LE.16) THEN                                                
            WRITE (IOIMP,2021) (MOTS(I),I=1,LONG)                               
 2021       FORMAT (7(2X,A16) )                                                 
         ELSEIF(LARG.LE.24) THEN                                                
            WRITE (IOIMP,2022) (MOTS(I),I=1,LONG)                               
 2022       FORMAT (5(2X,A24) )                                                 
         ELSEIF(LARG.LE.32) THEN                                                
            WRITE (IOIMP,2023) (MOTS(I),I=1,LONG)                               
 2023       FORMAT (3(2X,A32) )                                                 
         ELSEIF(LARG.LE.54) THEN                                                
            WRITE (IOIMP,2024) (MOTS(I),I=1,LONG)                               
 2024       FORMAT (2(2X,A54) )                                                 
         ELSEIF(LARG.LE.100) THEN                                               
            WRITE (IOIMP,2025) (MOTS(I),I=1,LONG)                               
 2025       FORMAT (2X,A100 )                                                   
         ENDIF                                                                  
      END IF                                                                    
*                                                                               
      SEGDES,MLMOTS                                                       
*                                                                               
      END