C MAXP32    SOURCE    CHAT      05/01/13    01:37:32     5004           
      SUBROUTINE MAXP32(ICOLAC,IMAX)                                            
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  
C=======================================================================        
C      CE SUBROUTINE CHERCHE DANS LA PILE 32 LE  PLUS GRAND                     
C      NUMERO DE POINT                                                          
C ENTREE ICOLAC                                                                 
C SORTIE IMAX                                                                   
C      APPELE PAR SAUV                                                          
C=======================================================================        
C  TABLEAU KCOLA :                                                              
C    1  MELEME  2 CHPOIN  3 MRIGID  4 MCHAFF  5 MCHELM  6                       
C    7          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                                    
C=======================================================================        
-INC CCOPTIO                                                                    
-INC SMELEME                                                                    
-INC TMCOLAC                                                                                       
C                                                                               
C                                                                               
C  **** LES POINTS SONT CLASSES AVEC EN TETE CEUX DES OBJETS QUI NOUS           
C  **** INTERESSENT.  ON RECHERCHE LE PLUS GRAND POINT A SORTIR: IMAX           
C                                                                               
      IMAX=0                                                                    
      SEGACT ICOLAC                                                             
      ITLACC=KCOLA(32)
      ILISSE=ILISSG
      SEGACT ILISSE*MOD                                                          
      N1=ITLAC(/1)                                                             
C                                                                               
      IF (N1.EQ.0) GO TO 9
C
C  SI N1 = 0 ON NE SAUVE PAS NSDPGE EN CAS DE DPG
C
      IF (IFOUR.EQ.-3.AND.IONIVE.GE.6.AND.NSDPGE.NE.0) THEN
        IMIL = NSDPGE
        CALL AJOUN(ITLACC,IMIL,ILISSE,3)
        N1=ITLAC(/1)
      ENDIF
C
      DO 398 I=1,N1                                                             
      K=ITLAC(I)                                                                
      IMAX=MAX(IMAX,K)                                                          
 398  CONTINUE                                                                  
   9  CONTINUE                                                                  
*      SEGDES ICOLAC,ILISSE                                                             
      RETURN                                                                    
      END