C PRCLST    SOURCE    CHAT      05/01/13    02:22:10     5004           
      SUBROUTINE PRCLST(IRET)                                                   
C                                                                               
C  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC                                 
C  C ECRIT L'OBJET CL1 (DDL BLOQUE) STRUCTURE C                                 
C  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC                                 
C                                                                               
      IMPLICIT INTEGER(I-N)
-INC CCOPTIO                                                                    
-INC SMCLSTR                                                                    
      MCLSTR=IRET                                                               
      SEGACT MCLSTR                                                             
      N=ISOSTR(/1)                                                              
      INTERR(1)=MCLSTR                                                          
      INTERR(2)=N                                                               
      CALL ERREUR(-128)                                                         
      DO 10 NN=1,N                                                              
      INTERR(1)=IRIGCL(NN)                                                      
      INTERR(2)=ISOSTR(NN)                                                      
      CALL ERREUR(-129)                                                         
   10 CONTINUE                                                                  
      SEGDES MCLSTR                                                             
      WRITE(IOIMP,300)                                                          
  300 FORMAT(/)                                                                 
      RETURN                                                                    
      END