Télécharger la plaquette Cast3M


fr en

Télécharger lfile.eso

Retour à la liste

Numérotation des lignes : 

lfile

  1. C LFILE     SOURCE    PV        22/04/19    16:18:06     11344          
  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.  
  13. -INC PPARAM
  14. -INC CCOPTIO
  15. -INC CCNOYAU
  16. -INC TMLNOMS
  17.       SEGMENT CSGT
  18.          CHARACTER*(LONOM) CSGTR(0)
  19.       ENDSEGMENT
  20.       SEGMENT/ISGT/(ISGTR(0))
  21.       CHARACTER*8 TYPE
  22.       CHARACTER*(*) NOM
  23.  
  24. C CONSTRUCTION DE LA TABLE DES OBJETS
  25.       SEGINI CSGT,ISGT
  26.       CALL REPERT(TYPE,ITITI)
  27.       IF(ITITI.NE.0) THEN
  28.          CALL REPLIS(TYPE,MLNOMS)
  29.          ICO=1
  30.          DO 11 I=1,ITITI
  31.             CALL LIROBJ(TYPE,IP1,1,IRETOU)
  32.             IF(IERR.NE.0) RETURN
  33.             IF (IP1.EQ.0) GOTO 11
  34.             ISGTR(**)=IP1
  35.             CSGTR(**)=LINOMS(I)
  36.             ICO=ICO+3
  37.   11     CONTINUE
  38.          SEGSUP MLNOMS
  39.   12  ENDIF
  40.  
  41.  
  42.       RETURN
  43.       END
  44.  
  45.  
  46.  
  47.  
  48.  

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