C ECLREE    SOURCE    CHAT      05/01/12    23:23:35     5004           
      SUBROUTINE ECLREE (IPLREE)                                                
************************************************************************        
*                                                                               
*                             E C L R E E                                       
*                             -----------                                       
*                                                                               
* FONCTION:                                                                     
* ---------                                                                     
*                                                                               
*     IMPRESSION D'UN OBJET 'LISTREEL'.                                         
*                                                                               
* MODE D'APPEL:                                                                 
* -------------                                                                 
*                                                                               
*     CALL ECLREE (IPLREE)                                                      
*                                                                               
* PARAMETRES:  (E)=ENTREE   (S)=SORTIE                                          
* -----------                                                                   
*                                                                               
*     IPLREE  ENTIER    (E)  POINTEUR SUR L'OBJET DE TYPE 'LISTREEL'.           
*                                                                               
* AUTEUR, DATE DE CREATION:                                                     
* -------------------------                                                     
*                                                                               
*     PASCAL MANIGOT     19 AVRIL 1985                                          
*                                                                               
* LANGAGE:                                                                      
* --------                                                                      
*                                                                               
*     ESOPE + FORTRAN77                                                         
*                                                                               
************************************************************************        
*                                                                               
      IMPLICIT INTEGER(I-N)
-INC CCOPTIO                                                                    
-INC SMLREEL                                                                    
*                                                                               
      MLREEL = IPLREE                                                           
      SEGACT,MLREEL                                                             
      LONG = PROG(/1)                                                           
*                                                                               
      WRITE (IOIMP,2010) LONG                                                   
 2010 FORMAT (/,' NOMBRE DE REELS =',I4,/)                                      
      IF (LONG .GT. 0) THEN                                                     
         WRITE (IOIMP,2020) (PROG(I),I=1,LONG)                                  
 2020    FORMAT (' VALEURS DES REELS:'/,(8(3X,1PD12.5)) )                       
      END IF                                                                    
*                                                                               
      SEGDES,MLREEL                                                       
*                                                                               
      END