Esope source files

   1 : C PRCLST    SOURCE    CHAT      05/01/13    02:22:10     5004           
   2 :       SUBROUTINE PRCLST(IRET)                                                   
   3 : C                                                                               
   4 : C  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC                                 
   5 : C  C ECRIT L'OBJET CL1 (DDL BLOQUE) STRUCTURE C                                 
   6 : C  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC                                 
   7 : C                                                                               
   8 :       IMPLICIT INTEGER(I-N)
   9 : -INC CCOPTIO                                                                    
  10 : -INC SMCLSTR                                                                    
  11 :       MCLSTR=IRET                                                               
  12 :       SEGACT MCLSTR                                                             
  13 :       N=ISOSTR(/1)                                                              
  14 :       INTERR(1)=MCLSTR                                                          
  15 :       INTERR(2)=N                                                               
  15 :       CALL ERREUR(-128)                                                         
  16 :       DO 10 NN=1,N                                                              
  17 :       INTERR(1)=IRIGCL(NN)                                                      
  18 :       INTERR(2)=ISOSTR(NN)                                                      
  18 :       CALL ERREUR(-129)                                                         
  19 :    10 CONTINUE                                                                  
  20 :       SEGDES MCLSTR                                                             
  21 :       WRITE(IOIMP,300)                                                          
  22 :   300 FORMAT(/)                                                                 
  23 :       RETURN                                                                    
  24 :       END                                                                       
  25 :