Esope source files

   1 : C RAZPIL    SOURCE    CHAT      06/03/16    21:25:20     5336           
   2 : C   REINITIALISE LA PILE DE COMMUNICATION ET LA TABLE DES OBJETS        
   3 : C   TEMPORAIRES                                                         
   4 : C                                                                       
   5 :       SUBROUTINE RAZPIL                                                 
   6 :       IMPLICIT INTEGER(I-N)
   7 : -INC CCNOYAU                                                            
   8 : -INC SMBLOC                                                             
   9 : -INC CCREDLE                                                            
  10 : -INC CCOPTIO  
  11 :       SREDLE=IREDLE                                                     
  12 :       NOMLU= 0                                                          
  13 :       IBPILE=10                                                         
  14 :       IHPILE=9                                                          
  15 :       IMOTLU=0                                                          
  16 :       ISTOP=0                                                           
  17 :       IF(IPTEM.EQ.0) RETURN  
  18 :            ISSPOT=ISPOTE
  19 :            DO 8987 IKL = 1, IIPOTE
  20 :            ITBNOM=IPOTEM(IKL)
  21 :            INOOB2(ITBNOM)='ANNULE'                                      
  22 :            IOUEP2(ITBNOM)=1        
  23 :  8987      CONTINUE
  24 :            IIPOTE=0                                                 
  25 :       IPTEM=0                                                    
  26 :       INTEXT=0                                                          
  27 :       RETURN                                                            
  28 :       END              
  29 :