Télécharger CCNOYAU.INC

Retour à la liste

Numérotation des lignes :

  1. C CES QUELQUES CARTES SONT A INCORPORER DANS TOUS SERVEURS DU NOYAU
  2. C DE GESTION DE LA PILE DES DONNEES.
  3. C IPTEM POINTEUR SUR LE DERNIER OBJET TEMPORAIRE CREE
  4. C IBPILE BAS DE LA PILE
  5. C IHPILE HAUT DE LA PILE
  6. C IMOTLU POSITION DU MOT(3) DU DERNIER MOT LU
  7. C ITTINT RESULTAT DE LA PRECOMPILATION
  8. C IPVINT NOMBRE DE VALEUR ISSUE DE LA PRECOMPILATION
  9. C IINTPO POSITION DE LECTURE DANS LA PRECOMPILATION
  10. C INTEMP ON A CREE UN NOM TEMPORAIRE
  11. C NBNOM NOMBRE DE NOMS A AFFECTER
  12. C INILU A DECLARER EN BLOCK DATA A 0 (INITIALISATION EFFECTUEE)
  13. C NOMLU LECTURE DES NOMS EFFECTUEE
  14. C MBLOC BLOC COURAMMENT ACTIF
  15. C MPROCE PROCEDURE COURAMMENT ACTIVE
  16. C ISTOP FIN D'INSTRUCTION ELEMENTAIRE
  17. C IRAZ ON A RENCONTRE LE POINT VIRGULE
  18. C INTEXT=1 BLOQUE L'INTERPRETATION D'UN TEXTE
  19. C LECTAB=1 BLOQUE LA RECHERCHE DANS UNE TABLE
  20. C IDEBPR=1 ON VIENT DE LIRE DEBP ET ON BLOQUE LE DECODAGE PAR IRE=4
  21. C IBLQM=1 LES MOTS SONT BLOQUANTS POUR LA LECTURE. AVEC 0 ils ne le sont pas
  22. C
  23. C 04/04/14: Modif GF: Declaration explicite des variables
  24. C
  25. COMMON/CNOYAU/
  26. #ITABOB,JPOOB,IPTRA,IPILOC,IPOBJ,
  27. #ITABNO,ITTINT,
  28. #ISTOP,IBPILE,IHPILE,IMOTLU,IPTEM,NBNOM,INILU,NOMLU,IEGAL,INTEXT,
  29. #MBLOC,IPVINT,IINTPO,INTEMP,IRAZ,MPROCE,LECTAB,LMNOBJ,LMNENT,
  30. #LMNREE,LMNCHA,LMNLOG,LMNNOM,ITABOC,ITABOD,NOYSEG,IDEBPR,JARGMT,
  31. #MESSER,IPIPRO,MESERR,MEFFAC,IBLQM
  32. integer
  33. #ISTOP,IBPILE,IHPILE,IMOTLU,IPTEM,NBNOM,INILU,NOMLU,IEGAL,INTEXT,
  34. #IPVINT,IINTPO,INTEMP,IRAZ,LECTAB,LMNOBJ,LMNENT,
  35. #LMNREE,LMNCHA,LMNLOG,LMNNOM,NOYSEG,IDEBPR,JARGMT,
  36. #MESERR,IBLQM
  37. C
  38. SEGMENT JPOOB
  39. C 1 VALEUR DEJA LU OU NON
  40. C 2 RANG DANS TABLE DES NOMS SI EXISTE
  41. C 4 RANG DANS LA PILE
  42. LOGICAL JPOOB1(N)
  43. INTEGER JPOOB2(N)
  44. INTEGER JPOOB4(N)
  45. C TYPE DANS PILE INTERNE
  46. CHARACTER*(8) JTYOBJ(N)
  47. ENDSEGMENT
  48. C LES 3 SEGMENTS SUIVANTS MARCHENT ENSEMBLE,ILS REPERENT LES
  49. C OBJETS EN MEMOIRE
  50. SEGMENT ITABOB
  51. C 1 TABLEAUX DES NOMS D'OBJETS
  52. INTEGER INOOB1(N)
  53. ENDSEGMENT
  54. SEGMENT ITABOC
  55. C 2 TYPES DES OBJETS
  56. CHARACTER*(8) INOOB2(N)
  57. ENDSEGMENT
  58. SEGMENT ITABOD
  59. C 2 NUMERO DANS LA PILE
  60. INTEGER IOUEP2(N)
  61. ENDSEGMENT
  62.  
  63. SEGMENT IPTRA
  64. C PILE DE TRAVAIL POUR TASREE
  65. INTEGER IIFLOT(LM)
  66. ENDSEGMENT
  67. SEGMENT IPILOC
  68. * SEGMENT IPFLO
  69. C PILE DES FLOTTANTS
  70. REAL*8 XIFLOT(LMXX)
  71. * ENDSEGMENT
  72. ** SEGMENT IPCHA
  73. C PILE DES CHAINES
  74. CHARACTER*(LMMM) ICHARA
  75. * ENDSEGMENT
  76. * SEGMENT IPCHA1
  77. C POSITION DE FIN DANS LA PILE CHAINES
  78. INTEGER IPCHAR(LMCC)
  79. INTEGER IPHCOD(LMCC)
  80. * ENDSEGMENT
  81. * SEGMENT IPLOG
  82. C PILE DES LOGIQUES
  83. LOGICAL IPLOGI(LMLL)
  84. ENDSEGMENT
  85. SEGMENT IPIPRO
  86. C PILE DES OBJETS PROCEDUR
  87. INTEGER IPIPR1(LM),IPIPRL
  88. ENDSEGMENT
  89. SEGMENT IPOBJ
  90. C PILE DES OBJETS TYPES
  91. INTEGER IPOBJT(LM)
  92. ENDSEGMENT
  93. SEGMENT ITABNO
  94. C TYPES DES NOMS A ATTRIBUER
  95. CHARACTER*(8) ITANOM(M)
  96. C RANG DANS TABLE DES NOMS
  97. INTEGER ITANO1(M)
  98. ENDSEGMENT
  99. SEGMENT ITTINT
  100. C RESULTAT DE LA PRECOMPILATION
  101. C NUMERO DE L'OBJET DANS LA TABLE
  102. C =0 FIN D'INSTRUCTIONS ELEMENTAIRE
  103. C =-1 FIN DE PHRASE
  104. INTEGER ITINTE(0)
  105. ENDSEGMENT
  106. SEGMENT MESSER
  107. INTEGER IPMESS(NMESS,NLANG),NIVERR(NMESS),NUMERR(NMESS)
  108. CHARACTER*4 LANGUA(NLANG)
  109. ENDSEGMENT
  110. SEGMENT MCHERR
  111. CHARACTER*(LCHER1) CHERR1
  112. CHARACTER*(LCHER2|spanstxle="color: #009900;">) CHERR2
  113. ENDSEGMENT
  114. SEGMENT MEFFAC
  115. * pile des objets fantome : neffec est le nombre effectif d'objet fantome
  116. * tyeffa est le type, neffac est le numero du segment
  117. character*8 TYEFFA(NEFF)
  118. INTEGER NEFFAC (NEFF),neffec
  119. ENDSEGMENT
  120.  

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