C -INC TMCOLAC
C=======================================================================
C  ICOLAC :  KCOLA : POINTEUR SUR LA PILE ITLACC
C            MCOLA : NOMBRE D'OBJETS INSPECTES DANS LA PILE
C            ICOLA : POINTEUR SUR ISGTR ( NOM-NOM-RANG DANS ITLACC)
C            KCOLAC: CONTIENT POUR CHAQUE PILE LE NOMBRE D'OBJETS A
C                    SORTIR
C            ilissg pointeur vers seg ilisse qui contient la place de
C            l'objet dans la pile itlacc ( iliseg(i)=j : le segment de 
C            numéro i est le j ieme de la pile
C            ifform  entier qui vaut 1 si sauvegarde formatée sinon 0
C======================================================================
      SEGMENT/ICOLAC/(ICOLA(NITLAC),KCOLA(NITLAC),MCOLA(NITLAC),
     1  KCOLAC(NITLAC),ILISSG,IFFORM)
      POINTEUR ICOLA1.ICOLAC
      SEGMENT/ITLACC/(ITLAC(0)),ITLAC1.ITLACC,ITLAC2.ITLACC,
     1 ITLAC3.ITLACC,ITLAC4.ITLACC,ITLAC5.ITLACC,ITLAC6.ITLACC
      SEGMENT ISGTR
         CHARACTER*8 ISGTRC(KS)
         INTEGER ISGTRI(KS)
      ENDSEGMENT
      SEGMENT ILISSE
         INTEGER NPGCD,ILISEG(NLISSE)
      ENDSEGMENT
C ENDINC