C    CES QUELQUES CARTES SONT A INCORPORER DANS TOUS SERVEURS DU NOYAU
C    DE GESTION DE LA PILE DES DONNEES.
C     IPTEM   POINTEUR SUR LE DERNIER OBJET TEMPORAIRE CREE
C     IBPILE  BAS DE LA PILE
C     IHPILE  HAUT DE LA PILE
C     IMOTLU  POSITION DU MOT(3) DU DERNIER MOT LU
C     ITTINT  RESULTAT DE LA PRECOMPILATION
C     IPVINT  NOMBRE DE VALEUR ISSUE DE LA PRECOMPILATION
C     IINTPO  POSITION DE LECTURE DANS LA PRECOMPILATION
C     INTEMP  ON A CREE UN NOM TEMPORAIRE
C     NBNOM   NOMBRE DE NOMS A AFFECTER
C     INILU   A DECLARER EN BLOCK DATA  A 0 (INITIALISATION EFFECTUEE)
C     NOMLU   LECTURE DES NOMS EFFECTUEE
C     MBLOC   BLOC COURAMMENT ACTIF
C     MPROCE  PROCEDURE COURAMMENT ACTIVE
C     ISTOP FIN D'INSTRUCTION ELEMENTAIRE
C     IRAZ ON A RENCONTRE LE POINT VIRGULE
C     INTEXT=1 BLOQUE L'INTERPRETATION D'UN TEXTE
C     LECTAB=1 BLOQUE LA RECHERCHE DANS UNE TABLE
C     IDEBPR=1 ON VIENT DE LIRE DEBP ET ON BLOQUE LE DECODAGE PAR IRE=4
C     IBLQM =1 LES MOTS SONT BLOQUANTS POUR LA LECTURE. AVEC 0 ils ne le sont pas
C
C  04/04/14: Modif GF: Declaration explicite des variables
C
      COMMON/CNOYAU/
     #ITABOB,JPOOB,IPTRA,IPILOC,IPOBJ,
     #ITABNO,ITTINT,
     #ISTOP,IBPILE,IHPILE,IMOTLU,IPTEM,NBNOM,INILU,NOMLU,IEGAL,INTEXT,
     #MBLOC,IPVINT,IINTPO,INTEMP,IRAZ,MPROCE,LECTAB,LMNOBJ,LMNENT,
     #LMNREE,LMNCHA,LMNLOG,LMNNOM,ITABOC,ITABOD,NOYSEG,IDEBPR,JARGMT,
     #MESSER,IPIPRO,MESERR,MEFFAC,IBLQM
      integer
     #ISTOP,IBPILE,IHPILE,IMOTLU,IPTEM,NBNOM,INILU,NOMLU,IEGAL,INTEXT,
     #IPVINT,IINTPO,INTEMP,IRAZ,LECTAB,LMNOBJ,LMNENT,
     #LMNREE,LMNCHA,LMNLOG,LMNNOM,NOYSEG,IDEBPR,JARGMT,
     #MESERR,IBLQM
      save /cnoyau/
C
      PARAMETER (LONOM=24)
C       LONOM : Longueur des noms des objets GIBIANE
C
      SEGMENT JPOOB
C                            1  VALEUR DEJA LU OU NON
C                            2  RANG DANS TABLE DES NOMS SI EXISTE
C                            4  RANG DANS LA PILE
             LOGICAL JPOOB1(N)
             INTEGER JPOOB2(N)
             INTEGER JPOOB4(N)
C                                 TYPE DANS PILE INTERNE
             CHARACTER*(8) JTYOBJ(N)
      ENDSEGMENT
C  LES 3 SEGMENTS SUIVANTS MARCHENT  ENSEMBLE,ILS REPERENT LES
C  OBJETS EN MEMOIRE
      SEGMENT ITABOB
C                           1 TABLEAUX DES NOMS D'OBJETS
             INTEGER INOOB1(N)
      ENDSEGMENT
      SEGMENT ITABOC
C                           2 TYPES DES OBJETS
             CHARACTER*(8) INOOB2(N)
      ENDSEGMENT
      SEGMENT ITABOD
C                           2 NUMERO DANS LA PILE
             INTEGER IOUEP2(N)
      ENDSEGMENT

      SEGMENT IPTRA
C                               PILE DE TRAVAIL POUR TASREE
             INTEGER IIFLOT(LM)
      ENDSEGMENT
       SEGMENT IPILOC
*      SEGMENT IPFLO
C                               PILE DES FLOTTANTS
             REAL*8 XIFLOT(LMXX)
*      ENDSEGMENT
**      SEGMENT IPCHA
C                               PILE DES CHAINES
             CHARACTER*(LMMM)  ICHARA
*      ENDSEGMENT
*      SEGMENT IPCHA1
C                               POSITION DE FIN DANS LA PILE CHAINES
             INTEGER IPCHAR(LMCC)
             INTEGER IPHCOD(LMCC)
*      ENDSEGMENT
*      SEGMENT IPLOG
C                               PILE DES LOGIQUES
             LOGICAL IPLOGI(LMLL)
      ENDSEGMENT
      SEGMENT IPIPRO
C                               PILE DES OBJETS PROCEDUR
             INTEGER IPIPR1(LM),IPIPRL
      ENDSEGMENT
      SEGMENT IPOBJ
C                               PILE DES OBJETS TYPES
              INTEGER IPOBJT(LM)
      ENDSEGMENT
      SEGMENT ITABNO
C                               TYPES DES NOMS A ATTRIBUER
             CHARACTER*(8) ITANOM(M)
C                               RANG DANS TABLE DES NOMS
             INTEGER ITANO1(M)
      ENDSEGMENT
      SEGMENT ITTINT
C                               RESULTAT DE LA PRECOMPILATION
C                               NUMERO DE L'OBJET DANS LA TABLE
C                               =0 FIN D'INSTRUCTIONS ELEMENTAIRE
C                               =-1 FIN DE PHRASE
             INTEGER ITINTE(0)
      ENDSEGMENT
      SEGMENT MESSER
        INTEGER IPMESS(NMESS,NLANG),NIVERR(NMESS),NUMERR(NMESS)
        CHARACTER*4 LANGUA(NLANG)
      ENDSEGMENT
      SEGMENT MCHERR
        CHARACTER*(LCHER1) CHERR1
        CHARACTER*(LCHER2) CHERR2
      ENDSEGMENT
      SEGMENT MEFFAC
*       pile des objets fantome : neffec est le nombre effectif d'objet fantome
*       tyeffa est le type,  neffac est le numero du segment
        character*8 TYEFFA (NEFF)
        INTEGER     NEFFAC (NEFF),neffec
      ENDSEGMENT