Esope source files

   1 : C MENAG4    SOURCE    CHAT      05/01/13    01:42:43     5004           
   2 : C  SUPPRIMER LES SEGMENTS INDESIRABLES                                          
   3 : C                                                                               
   4 :       SUBROUTINE MENAG4(ISLIS)                                                  
   5 :       IMPLICIT INTEGER(I-N)
   6 :       SEGMENT ISLIS(NP)                                                         
   7 :       SEGMENT ISEG(0)                                                           
   8 :       IPREC=0                                                                   
   9 :       DO 10 I=1,ISLIS(/1)                                                       
  10 :         ISEG=ISLIS(I)                                                           
  11 :         IF (ISEG.EQ.ISLIS) GOTO 10                                              
  12 :         IF (ISEG.EQ.IPREC) GOTO 10                                              
  13 :         IPREC=ISEG                                                              
  14 :         SEGSUP ISEG                                                             
  15 :   10  CONTINUE                                                                  
  16 :       SEGSUP ISLIS                                                              
  17 :       END                                                                       
  18 :