Esope source files

   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
  21 :       CALL REPERT(TYPE,ITITI)
  22 :       IF(ITITI.NE.0) THEN
  22 :          CALL REPLIS(TYPE,MLCHA8)
  23 :          ICO=1
  24 :          DO 11 I=1,ITITI
  24 :             CALL LIROBJ(TYPE,IP1,1,IRETOU)
  25 :             IF(IERR.NE.0) RETURN
  26 :             IF (IP1.EQ.0) GOTO 11
  27 :             ISGTR(**)=IP1
  28 :             CSGTR(**)=MLCHAR(I)
  29 :             ICO=ICO+3
  30 :   11     CONTINUE
  31 :          SEGSUP MLCHA8
  32 :   12  ENDIF
  33 : 
  34 : 
  35 :       RETURN
  36 :       END
  37 :  
  38 :