Télécharger inimen.eso

Retour à la liste

Numérotation des lignes :

  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
  13. CALL OOOLIS(ISLIS)
  14. SEGINI IBLIS
  15. * TRI
  16. CALL TRIENT(ISLIS(1),IBLIS(1),ISLIS(/1))
  17. SEGSUP IBLIS
  18. SEGDES ISLIS
  19. NOYSEG=ISLIS
  20. * pour initialiser la place occupee on appelle menage
  21. iautom=0
  22. CALL MENAGE (iautom)
  23. END
  24.  
  25.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales