C RESTME    SOURCE    CHAT      05/01/13    02:54:00     5004           
      SUBROUTINE RESTME  (ITLACC,IMAX1,ICOLAC,IDEB)                                         
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)                                                 
C=======================================================================        
C   RESTAURATION DES POINTEURS                                                  
C                                                                               
C   APPELE PAR RESTPI                                                           
C   APPELLE : ERREUR                                                            
C=======================================================================        
C    1  MELEME  2 CHPOIN  3 MRIGID  4 MCHAFF  5 MCHELM  6 MCLSTR                
C    7  MELSTR  8 MSOLUT  9 MSTRUC 10        11 MAFFEC 12 MSOSTU                
C   13  IMATRI 14 MJONCT 15 MATTAC 16 MMATRI 17 MDEFOR 18 MLREEL                
C   19  MLENTI 20 MCHARG 21 MODELE 22 MEVOLL 23 MSUPER                          
C=======================================================================        
-INC CCOPTIO                                                                    
-INC SMELEME
-INC TMCOLAC                                                                                 
C=======================================================================        
C                      A EXAMINER.                                              
C                    APRES, CONTIENTPOUR CHAQUE PILE LE NBRE D'OBJETS A         
C                    SORTIR                                                     
C=======================================================================        
C                                                                               
C                                                                               
C                                                                               
C****** BOUCLE SUR LES FILES DE SORTIE IFILE=1,NITLAC******************         
C                                                                               
C     ****************************** MELEME ****************************        
      ITLAC1=KCOLA(32)
 6001 CONTINUE                                                                  
      DO 20 I=IDEB,IMAX1                                                           
      MELEME=ITLAC(I)                                                           
      IF (MELEME.EQ.0) GO TO 20                                                 
      SEGACT MELEME*MOD
      IF (LISOUS(/1).EQ.0) GOTO 21                                              
      DO 1003 J=1,LISOUS(/1)                                                    
      LISOUS(J)=ITLAC(LISOUS(J))                                                
 1003 CONTINUE                                                                  
  21  CONTINUE                                                                  
      IF (LISREF(/1).EQ.0) GOTO 25                                              
      DO 1004 J=1,LISREF(/1)                                                    
      LISREF(J)=ITLAC(LISREF(J))                                                
 1004 CONTINUE                                                                  
  25  CONTINUE
      IF(NUM(/2).EQ.0) GO TO  60
      IF(IONIVE.GT.9) THEN
        DO 61 K2=1,NUM(/2)
        DO 61 K1=1,NUM(/1)
          NUM(K1,K2) = ITLAC1.ITLAC(NUM(K1,K2))
  61    CONTINUE
      ENDIF
  60  CONTINUE                                                                 
      SEGDES MELEME                                                             
  20  CONTINUE                                                                  
      GOTO 1098                                                                 
C***********************************************************************        
 1098 CONTINUE                                                                  
C*********************************************************************          
C                                                                               
      RETURN                                                                    
      END