Esope source files

   1 : C MENAG5    SOURCE    CHAT      05/01/13    01:42:47     5004           
   2 : C  SUPPRIMER LES SEGMENTS INDESIRABLES                                          
   3 : C                                                                               
   4 :       SUBROUTINE MENAG5(ICOLAC,ITL)                                             
   5 : *                                                                               
   6 :       IMPLICIT INTEGER(I-N)
   7 : -INC CCOPTIO                                                                    
   8 :       SEGMENT ISLI2(0)                                                          
   9 :       SEGMENT ITL(0)                                                            
  10 : *                                                                               
  11 : *                                                                               
  12 : *  EXTRAIRE DE ICOLAC LA LISTES DES SEGMENTS                                    
  13 : *                                                                               
  13 :       CALL MENAG2(ISLI2,ICOLAC)                                                 
  14 : *                                                                               
  15 : *  RAJOUTER EVENTUELLEMENT L'ITLAC DES MELEME                                   
  16 : *                                                                               
  17 :       IF (ITL.NE.0) THEN                                                        
  18 :        LISLI2=ISLI2(/1)                                                         
  19 :        DO 10 I=1,LISLI2                                                         
  20 :         IF (ISLI2(I).LT.ITL) GOTO 10                                            
  21 :          ISLI2(**)=ISLI2(LISLI2)                                                
  22 :          DO 20 J=LISLI2,I+1,-1                                                  
  23 :           ISLI2(J)=ISLI2(J-1)                                                   
  24 :   20     CONTINUE                                                               
  25 :          ISLI2(I)=ITL                                                           
  26 :          GOTO 30                                                                
  27 :   10   CONTINUE                                                                 
  28 :        ISLI2(**)=ITL                                                            
  29 :   30   CONTINUE                                                                 
  30 :       ENDIF                                                                     
  31 : *                                                                               
  32 : *  LISTE DES SEGMENTS CONTENUS DANS L'ENSEMBLE DES OBJETS                       
  33 : *                                                                               
  33 :       CALL MENAG1(ISLIS)                                                        
  34 : *
  35 : *  mise a jour des piles d'objets deja sauves. Mise a zero de ceux
  36 : *  qui n'existent plus
  37 : *
  37 :       IF(IPSAUV.NE.0) CALL MENAG7(ICOLAC)
  38 : *                                                                               
  39 : *  OTER DE CETTE LISTE LA LISTE DES SEGMENTS A GARDER                           
  40 : *                                                                               
  40 :       CALL MENAG3(ISLIS,ISLI2)                                                  
  41 : *                                                                               
  42 : *  DETRUIRE CES SEGMENTS                                                        
  43 : *                                                                               
  43 :       CALL MENAG4(ISLIS)                                                        
  44 : *                                                                               
  45 :       END                                                                       
  46 :  
  47 :  
  48 :