Esope source files

   1 : C PRELST    SOURCE    CHAT      05/01/13    02:25:41     5004           
   2 :       SUBROUTINE PRELST(IRET)                                                   
   3 : C                                                                               
   4 : C  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC                                          
   5 : C  C ECRIT L'OBJET ELEMENT STRUCTURE C                                          
   6 : C  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC                                          
   7 : C                                                                               
   8 :       IMPLICIT INTEGER(I-N)
   9 : -INC CCOPTIO                                                                    
  10 : -INC SMELSTR                                                                    
  11 : -INC SMELEME                                                                    
  12 :       MELSTR=IRET                                                               
  13 :       SEGACT MELSTR                                                             
  14 :       N=ISOSTU(/1)                                                              
  15 :       INTERR(1)=MELSTR                                                          
  16 :       INTERR(2)=N                                                               
  16 :       CALL ERREUR(-126)                                                         
  17 :       DO 10 NN=1,N                                                              
  18 :       INTERR(1)=IMELEM(NN)                                                      
  19 :       INTERR(2)=ISOSTU(NN)                                                      
  19 :       CALL ERREUR(-127)                                                         
  20 :       MELEME=IMELEM(NN)                                                         
  21 :       SEGACT MELEME                                                             
  22 :       NBELEM=NUM(/2)                                                            
  23 :       WRITE(IOIMP,200)(NUM(1,I),I=1,NBELEM)                                     
  24 :       SEGDES MELEME                                                             
  25 :    10 CONTINUE                                                                  
  26 :       SEGDES MELSTR                                                             
  27 :       WRITE(IOIMP,300)                                                          
  28 :   200 FORMAT(10(I4,2X))                                                         
  29 :   300 FORMAT(/)                                                                 
  30 :       RETURN                                                                    
  31 :       END                                                                       
  32 :