Télécharger la plaquette Cast3M


fr en

Télécharger inilir.eso

Retour à la liste

Numérotation des lignes : 

inilir

  1. C INILIR    SOURCE    CB215821  24/07/17    21:15:07     11961          
  2. CIF DOC
  3. C                INILIR
  4. C                ------
  5. C
  6. C   CE SERVEUR FAIT PARTIE DU NOYAU DE GESTION DES OBJETS.(GIBI 1.00)
  7. C   IL A POUR BUT D'INITIALISER LE SEGMENT NECESSAIRE A LA LECTURE ET
  8. C   ECRITURE DANS LA PILE  IPILE
  9. C   IL INITIALISE EGALEMENT LES TABLES PERMANENTES ET TEMPORAIRES D'OBJE
  10. C
  11. C   LISTE DES VARIABLES INITIALISEE
  12. C        IBPILE   - PREMIERE VALEUR DE LA PILE A ANALYSER.
  13. C
  14. C        IHPILE  - DERNIERE VALEUR DE LA PILE A ANALYSER
  15. C
  16. C        IMOTLU  - POSITION DE MOT(3) DU DERNIER MOT LU
  17. C
  18. C        IPILE  - POUR CHAQUE OBJET QUATRE MOTS SONT NECESSAIRES:
  19. C                    MOT(1),MOT(2)  :  TYPE DE L'OBJET (8 CARACTERES)
  20. C                    MOT(3)         :  =0 SI DEJA UTILISER EN LECTURE
  21. C                                      =1 SI PAS ENCORE UTILISER
  22. C                    MOT(4)         :  VALEUR ASSOCIEE A L'OBJET.
  23. C
  24. C   VALEURS  DONNEES A L'INITIALISATION.
  25. C        IBPILE =  5   (ON LAISSE 5 INFORMATIONS VIDES)
  26. C        IHPILE =  4
  27. C        IMOTLU =  0
  28. C
  29. CENDIF
  30.       SUBROUTINE INILIR
  31.       IMPLICIT INTEGER(I-N)
  32. -INC CCNOYAU
  33. -INC SMBLOC
  34.       iblqm=1
  35.       IBPILE=10
  36.       IHPILE=9
  37.       IMOTLU=0
  38.       ISTOP=0
  39.       N=20
  40.       M=0
  41.       SEGINI JPOOB
  42.       N=0
  43.       LM=100
  44.       LMXX=100
  45.       LMMM=1
  46.       LMCC=100
  47.       LMLL=2
  48.       SEGINI ITABOB,ITABOC,ITABOD
  49.       SEGINI IPTRA,IPILOC,IPOBJ
  50.       SEGINI ITABNO,ITTINT,IPIPRO
  51.       IPLOGI(1)=.TRUE.
  52.       IPLOGI(2)=.FALSE.
  53.       IPCHAR(1)=1
  54.       IPCHAR(2)=2
  55.       ICHARA(1:1)='.'
  56.       LMNENT=0
  57.       LMNREE=0
  58.       LMNLOG=2
  59.       LMNCHA=0
  60.       LMNOBJ=0
  61.       LMNNOM=0
  62.       NBNOM=0
  63.       IPVINT=0
  64.       INILU=1
  65.       IINTPO=1
  66.       INTEMP=0
  68.       IPTEM=0
  69.       LECTAB=0
  70.       NOMLU=0
  71.       NBMOT=0
  72.       SEGINI MBLOC
  73.       NVQTEM=20
  74.       SEGINI ISSPOT
  75.       ISPOTE=ISSPOT
  76.       MBLSUP=0
  77.       MBLPRO=0
  78.       MBFONC=1
  79.       MDEOBJ=1
  80.       MARGUM=0
  81.       RETURN
  82.       END
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  

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