C QUIDAN    SOURCE    CHAT      05/01/13    02:42:19     5004           
C  METS DANS ISGTR TOUS LES OBJETS DE ITLAC DONS LES NOEUDS SONT                
C  INFERIEURS A IMAX                                                            
C                                                                               
      SUBROUTINE QUIDAN(ISGTR,ITLAC,IMAX)                                       
      IMPLICIT INTEGER(I-N)
-INC SMELEME                                                                    
      SEGMENT ITLAC(0)                                                          
      SEGMENT ISGTR(0)                                                          
      DO 1 II=1,ITLAC(/1)                                                       
      IPT1=ITLAC(II)                                                            
      SEGACT IPT1                                                               
      IPT2=IPT1                                                                 
      DO 11 JJ=1,MAX(1,IPT2.LISOUS(/1))                                         
      IF (IPT2.LISOUS(/1).NE.0) THEN                                            
       IPT1=IPT2.LISOUS(JJ)                                                     
       SEGACT IPT1                                                              
      ENDIF                                                                     
      IF(IPT1.NUM(/1).EQ.0) GO TO 15                                            
      IF(IPT1.NUM(/2).EQ.0) GO TO 15                                            
      DO 2 I=1,IPT1.NUM(/1)                                                     
      DO 2 J=1,IPT1.NUM(/2)                                                     
      IF (IPT1.NUM(I,J).GT.IMAX) GOTO 15                                        
   2  CONTINUE                                                                  
      IF (IPT2.LISOUS(/1).NE.0) SEGDES IPT1                                     
  11  CONTINUE                                                                  
      SEGDES IPT2                                                               
      ISGTR(**)=IPT2                                                            
  15  SEGDES IPT1,IPT2                                                          
   1  CONTINUE                                                                  
      RETURN                                                                    
      END