C MENAG5    SOURCE    CHAT      05/01/13    01:42:47     5004           
C  SUPPRIMER LES SEGMENTS INDESIRABLES                                          
C                                                                               
      SUBROUTINE MENAG5(ICOLAC,ITL)                                             
*                                                                               
      IMPLICIT INTEGER(I-N)
-INC CCOPTIO                                                                    
      SEGMENT ISLI2(0)                                                          
      SEGMENT ITL(0)                                                            
*                                                                               
*                                                                               
*  EXTRAIRE DE ICOLAC LA LISTES DES SEGMENTS                                    
*                                                                               
      CALL MENAG2(ISLI2,ICOLAC)                                                 
*                                                                               
*  RAJOUTER EVENTUELLEMENT L'ITLAC DES MELEME                                   
*                                                                               
      IF (ITL.NE.0) THEN                                                        
       LISLI2=ISLI2(/1)                                                         
       DO 10 I=1,LISLI2                                                         
        IF (ISLI2(I).LT.ITL) GOTO 10                                            
         ISLI2(**)=ISLI2(LISLI2)                                                
         DO 20 J=LISLI2,I+1,-1                                                  
          ISLI2(J)=ISLI2(J-1)                                                   
  20     CONTINUE                                                               
         ISLI2(I)=ITL                                                           
         GOTO 30                                                                
  10   CONTINUE                                                                 
       ISLI2(**)=ITL                                                            
  30   CONTINUE                                                                 
      ENDIF                                                                     
*                                                                               
*  LISTE DES SEGMENTS CONTENUS DANS L'ENSEMBLE DES OBJETS                       
*                                                                               
      CALL MENAG1(ISLIS)                                                        
*
*  mise a jour des piles d'objets deja sauves. Mise a zero de ceux
*  qui n'existent plus
*
      IF(IPSAUV.NE.0) CALL MENAG7(ICOLAC)
*                                                                               
*  OTER DE CETTE LISTE LA LISTE DES SEGMENTS A GARDER                           
*                                                                               
      CALL MENAG3(ISLIS,ISLI2)                                                  
*                                                                               
*  DETRUIRE CES SEGMENTS                                                        
*                                                                               
      CALL MENAG4(ISLIS)                                                        
*                                                                               
      END