Esope source files

   1 : C INIMEN    SOURCE    CHAT      06/03/16    21:19:15     5336           
   2 : C  INITIALISATION MENAGE                                                 
   3 : C                                                                        
   4 :       SUBROUTINE INIMEN                                                  
   5 : *                                                                        
   6 : *  LE BUT DE CE S-P EST DE SAUVER LA LISTE DES SEGMENTS PREEXISTANT      
   7 : *  @ LA CREATION D'OBJETS ET DEVANT DE CE FAIT LEUR POSTEXISTER          
   8 :       IMPLICIT INTEGER(I-N)
   9 : -INC CCNOYAU                                                             
  10 :       SEGMENT ISLIS(0)                                                   
  11 :       SEGMENT IBLIS(ISLIS(/1))                                           
  12 : *  LISTE DES SEGMENTS                                                    
  12 :       CALL OOOLIS(ISLIS)                                                 
  13 :       SEGINI IBLIS                                                       
  14 : *  TRI                                                                   
  14 :       CALL TRIENT(ISLIS(1),IBLIS(1),ISLIS(/1))                           
  15 :       SEGSUP IBLIS                                                       
  16 :       SEGDES ISLIS                                                       
  17 :       NOYSEG=ISLIS  
  18 : * pour initialiser la place occupee on appelle menage
  19 :       iautom=0
  19 :       CALL MENAGE (iautom)                                               
  20 :       END 
  21 :