C MENAG1    SOURCE    PV        13/04/11    21:16:02     7755           
C  SUPPRIMER LES SEGMENTS INDESIRABLES                                          
C                                                                               
      SUBROUTINE MENAG1(ISLIS)                                                  
      IMPLICIT INTEGER(I-N)
-INC CCNOYAU
-INC SMELEME
-INC CCPRECO                                                                    
      SEGMENT ISLIS(NP)                                                         
      SEGMENT ISLI2(0) 
      segment isli3(0)                                                         
      SEGMENT IBLIS(ISLIS(/1))                                                  
*  LISTE DES SEGMENTS                                                           
      CALL OOOLIS(ISLIS)                                                        
      SEGINI IBLIS                                                              
*  TRI                                                                        
      CALL TRIENT(ISLIS(1),IBLIS(1),ISLIS(/1))                                  
*  LISTE DES SEGMENTS INITIAUX                                                  
      ISLI2=NOYSEG                                                              
      SEGACT ISLI2
*  liste des segments du preconditionnement
      segini isli3
      do 10 ip=1,30       
       meleme=prenum(ip)
       if (meleme.eq.0) goto 10
       isli3(**)=meleme
       segact meleme
       do 20 is=1,lisous(/1)
         isli3(**)=lisous(is)
  20   continue
       segdes meleme
  10   continue
**    do  ip=1,nbemel
**     meleme=premel(ip)
**     if (meleme.ne.0) isli3(**)=meleme
**     enddo
       if (isli3(/1).ne.0) CALL TRIENT(ISLI3(1),IBLIS(1),ISLI3(/1))
       SEGSUP IBLIS
*  OTER LA DEUXIEME LISTE A LA PREMIERE                                         
      CALL MENAG3(ISLIS,ISLI2)                                                  
      SEGDES ISLI2                                                              
*  OTER LA TROISIEME LISTE
      CALL MENAG3(ISLIS,ISLI3)
      segsup isli3
      END