C MENAG4    SOURCE    CHAT      05/01/13    01:42:43     5004           
C  SUPPRIMER LES SEGMENTS INDESIRABLES                                          
C                                                                               
      SUBROUTINE MENAG4(ISLIS)                                                  
      IMPLICIT INTEGER(I-N)
      SEGMENT ISLIS(NP)                                                         
      SEGMENT ISEG(0)                                                           
      IPREC=0                                                                   
      DO 10 I=1,ISLIS(/1)                                                       
        ISEG=ISLIS(I)                                                           
        IF (ISEG.EQ.ISLIS) GOTO 10                                              
        IF (ISEG.EQ.IPREC) GOTO 10                                              
        IPREC=ISEG                                                              
        SEGSUP ISEG                                                             
  10  CONTINUE                                                                  
      SEGSUP ISLIS                                                              
      END