C RESTCH    SOURCE    CHAT      07/07/11    21:15:11     5788           
      SUBROUTINE RESTCH (ICOLAC,ITLACC,IMAX1,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  TABLEAU KCOLA :                                                              
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 SMCHPOI                                                                    
-INC TMCOLAC          
C                                                                               
C     **************************CHPOINT*********************************        
 6002 CONTINUE                                                                  
      ITLAC1=KCOLA(1)                                                           
      DO 1101 IEL=IDEB,IMAX1                                                       
      MCHPOI=ITLAC(IEL)                                                         
      IF (MCHPOI.EQ.0) GO TO 1101                                               
      SEGACT MCHPOI                                                             
      NSOUPO=IPCHP(/1)                                                          
      IJK=IPCHP(/1)                                                             
      IF (IJK.EQ.0) GO TO 10                                                    
      DO 1103 ISOU=1,NSOUPO                                                     
      MSOUPO=IPCHP(ISOU)                                                        
      IF (MSOUPO.EQ.0) GO TO 1103                                               
      SEGACT MSOUPO*MOD
      IVA=ABS(IGEOC) 
      nnb=itlac1.itlac(/1)                                                                 
*     IF (IVA.NE.0) IGEOC=ITLAC1.ITLAC(IVA)    MILL 3 / 9 / 92
       IF (IVA.NE.0) IGEOC=ITLAC1.ITLAC(IVA) 
*      IF (IGEOC.LT.0) IGEOC=ITLAC1.ITLAC(IVA)
      SEGDES MSOUPO                                                             
 1103 CONTINUE                                                                  
   10 SEGDES MCHPOI                                                             
 1101 CONTINUE                                                                  
      GOTO 1098                                                                 
C***********************************************************************        
 1098 CONTINUE                                                                  
C                                                                               
      RETURN                                                                    
      END