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
  67. IPTEM=0
  68. LECTAB=0
  69. NOMLU=0
  70. NBMOT=0
  71. SEGINI MBLOC
  72. NVQTEM=20
  73. SEGINI ISSPOT
  74. ISPOTE=ISSPOT
  75. MBLSUP=0
  76. MBLPRO=0
  77. MBFONC=1
  78. MDEOBJ=1
  79. MARGUM=0
  80. RETURN
  81. END
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  

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