Sources Esope | Cast3M

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