Télécharger la plaquette Cast3M


fr en

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.       save /cnoyau/
  38. C
  39.       PARAMETER (LONOM=24)
  40. C       LONOM : Longueur des noms des objets GIBIANE
  41. C
  42.       SEGMENT JPOOB
  43. C                            1  VALEUR DEJA LU OU NON
  44. C                            2  RANG DANS TABLE DES NOMS SI EXISTE
  45. C                            4  RANG DANS LA PILE
  46.              LOGICAL JPOOB1(N)
  47.              INTEGER JPOOB2(N)
  48.              INTEGER JPOOB4(N)
  49. C                                 TYPE DANS PILE INTERNE
  50.              CHARACTER*(8) JTYOBJ(N)
  51.       ENDSEGMENT
  52. C  LES 3 SEGMENTS SUIVANTS MARCHENT  ENSEMBLE,ILS REPERENT LES
  53. C  OBJETS EN MEMOIRE
  54.       SEGMENT ITABOB
  55. C                           1 TABLEAUX DES NOMS D'OBJETS
  56.              INTEGER INOOB1(N)
  57.       ENDSEGMENT
  58.       SEGMENT ITABOC
  59. C                           2 TYPES DES OBJETS
  60.              CHARACTER*(8) INOOB2(N)
  61.       ENDSEGMENT
  62.       SEGMENT ITABOD
  63. C                           2 NUMERO DANS LA PILE
  64.              INTEGER IOUEP2(N)
  65.       ENDSEGMENT
  66.  
  67.       SEGMENT IPTRA
  68. C                               PILE DE TRAVAIL POUR TASREE
  69.              INTEGER IIFLOT(LM)
  70.       ENDSEGMENT
  71.        SEGMENT IPILOC
  72. *      SEGMENT IPFLO
  73. C                               PILE DES FLOTTANTS
  74.              REAL*8 XIFLOT(LMXX)
  75. *      ENDSEGMENT
  76. **      SEGMENT IPCHA
  77. C                               PILE DES CHAINES
  78.              CHARACTER*(LMMM)  ICHARA
  79. *      ENDSEGMENT
  80. *      SEGMENT IPCHA1
  81. C                               POSITION DE FIN DANS LA PILE CHAINES
  82.              INTEGER IPCHAR(LMCC)
  83.              INTEGER IPHCOD(LMCC)
  84. *      ENDSEGMENT
  85. *      SEGMENT IPLOG
  86. C                               PILE DES LOGIQUES
  87.              LOGICAL IPLOGI(LMLL)
  88.       ENDSEGMENT
  89.       SEGMENT IPIPRO
  90. C                               PILE DES OBJETS PROCEDUR
  91.              INTEGER IPIPR1(LM),IPIPRL
  92.       ENDSEGMENT
  93.       SEGMENT IPOBJ
  94. C                               PILE DES OBJETS TYPES
  95.               INTEGER IPOBJT(LM)
  96.       ENDSEGMENT
  97.       SEGMENT ITABNO
  98. C                               TYPES DES NOMS A ATTRIBUER
  99.              CHARACTER*(8) ITANOM(M)
  100. C                               RANG DANS TABLE DES NOMS
  101.              INTEGER ITANO1(M)
  102.       ENDSEGMENT
  103.       SEGMENT ITTINT
  104. C                               RESULTAT DE LA PRECOMPILATION
  105. C                               NUMERO DE L'OBJET DANS LA TABLE
  106. C                               =0 FIN D'INSTRUCTIONS ELEMENTAIRE
  107. C                               =-1 FIN DE PHRASE
  108.              INTEGER ITINTE(0)
  109.       ENDSEGMENT
  110.       SEGMENT MESSER
  111.         INTEGER IPMESS(NMESS,NLANG),NIVERR(NMESS),NUMERR(NMESS)
  112.         CHARACTER*4 LANGUA(NLANG)
  113.       ENDSEGMENT
  114.       SEGMENT MCHERR
  115.         CHARACTER*(LCHER1) CHERR1
  116.         CHARACTER*(LCHER2) CHERR2
  117.       ENDSEGMENT
  118.       SEGMENT MEFFAC
  119. *       pile des objets fantome : neffec est le nombre effectif d'objet fantome
  120. *       tyeffa est le type,  neffac est le numero du segment
  121.         character*8 TYEFFA (NEFF)
  122.         INTEGER     NEFFAC (NEFF),neffec
  123.       ENDSEGMENT
  124.  

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