Télécharger lfile.eso

Retour à la liste

Numérotation des lignes :

  1. C LFILE SOURCE CHAT 05/01/13 01:16:16 5004
  2. SUBROUTINE LFILE(NOM,TYPE,CSGT,ISGT)
  3. C************************************************************************
  4. C
  5. C CE SOUS PROGRAMME FAIT LA LISTEC DES OBJETS D'UN TYPE DONNE
  6. C ET LA MET DANS LE SEGMENT IZTGN
  7. C LE SEGMENT IZTGP CONTIENT LUI LES POINTEURS DE CES OBJETS
  8. C
  9. C************************************************************************
  10. IMPLICIT INTEGER(I-N)
  11. IMPLICIT REAL*8 (A-H,O-Z)
  12. -INC CCOPTIO
  13. -INC TMLCHA8
  14. SEGMENT CSGT
  15. CHARACTER*8 CSGTR(0)
  16. ENDSEGMENT
  17. SEGMENT/ISGT/(ISGTR(0))
  18. CHARACTER*8 TYPE,NOM
  19.  
  20. C CONSTRUCTION DE LA TABLE DES OBJETS
  21. SEGINI CSGT,ISGT
  22. CALL REPERT(TYPE,ITITI)
  23. IF(ITITI.NE.0) THEN
  24. CALL REPLIS(TYPE,MLCHA8)
  25. ICO=1
  26. DO 11 I=1,ITITI
  27. CALL LIROBJ(TYPE,IP1,1,IRETOU)
  28. IF(IERR.NE.0) RETURN
  29. IF (IP1.EQ.0) GOTO 11
  30. ISGTR(**)=IP1
  31. CSGTR(**)=MLCHAR(I)
  32. ICO=ICO+3
  33. 11 CONTINUE
  34. SEGSUP MLCHA8
  35. 12 ENDIF
  36.  
  37.  
  38. RETURN
  39. END
  40.  
  41.  
  42.  

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