Esope source files

   1 : C MENAG3    SOURCE    PV        11/04/15    21:15:12     6945           
   2 : C  SUPPRIMER LES SEGMENTS INDESIRABLES                                          
   3 : C                                                                               
   4 :       SUBROUTINE MENAG3(ISLIS,ISLI2)                                            
   5 :       IMPLICIT INTEGER(I-N)
   6 :       SEGMENT ISLIS(NP)                                                         
   7 :       SEGMENT ISLI2(0)                                                          
   8 : *  LISTE DES SEGMENTS NOUVEAUX                                                  
   9 :       IRANG=0                                                                   
  10 :       IRAN2=0                                                                   
  11 :       IRAN3=0                                                                   
  12 :   10  CONTINUE                                                                  
  13 :       IRANG=IRANG+1                                                             
  14 :       IF (IRANG.GT.ISLIS(/1)) GOTO 15                                           
  15 :   11  CONTINUE                                                                  
  16 :       IRAN2=IRAN2+1                                                             
  17 :       IF (IRAN2.GT.ISLI2(/1)) GOTO 13                                           
  18 :       IP1=ISLIS(IRANG)                                                          
  19 :       IP2=ISLI2(IRAN2)                                                          
  20 :       if (ip2.eq.0) goto 13
  21 :       IF (IP2.LT.IP1) GOTO 11                                                   
  22 :       IF (IP2.EQ.IP1) GOTO 10                                                   
  23 :   13  CONTINUE                                                                  
  24 :       IRAN3=IRAN3+1                                                             
  25 :       ISLIS(IRAN3)=ISLIS(IRANG)                                                 
  26 :       IRAN2=IRAN2-1                                                             
  27 :       GOTO 10                                                                   
  28 :   15  CONTINUE                                                                  
  29 :       SEGDES ISLI2                                                              
  30 : *     WRITE(6,*) ' SEGMENT DE LA LISTE         ',ISLIS                          
  31 : *     WRITE(6,*) ' NOMBRE DE SEGMENTS INITIAUX ',ISLI2(/1)                      
  32 : *     WRITE(6,*) ' NOMBRE DE SEGMENTS ACTUELS  ',ISLIS(/1)                      
  33 : *     WRITE(6,*) ' SEGMENTS A SUPPRIMER        ',IRAN3                          
  34 : *     DO 20 I=1,IRAN3                                                           
  35 : *      WRITE (6,*) ' SEGMENT SUPPLEMENTAIRE ',ISLIS(I)                          
  36 : * 20  CONTINUE                                                                  
  37 :       NP=IRAN3                                                                  
  38 :       SEGADJ ISLIS                                                              
  39 :       END                                                                       
  40 :  
  41 :