C IMPPIL    SOURCE    JC220346  18/12/04    21:15:28     9991           
      SUBROUTINE IMPPIL (ITOTO,IVOULU)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
C=======================================================================
C      CE SUBROUTINE IMPRIME SUR LE FICHIER IOIMP
C      LE CONTENU DES PILES
C      APPELE PAR SAUV
C      APPELLE :
C      ECRIT PAR FARVACQUE-LENA
C=======================================================================
C  TABLEAU KCOLA :
C    1  MELEME  2 CHPOIN  3 MRIGID  4 MCHAFF  5 MCHELM  6
C    77          8 MSOLUT  9 MSTRUC 10        11 MAFFEC 12 MSOSTU
C   13  IMATRI 14 MJONCT 15 MATTAC 16 MMATRI 17 MDEFOR 18 MLREEL
C   19  MLENTI 20 MCHARG 21 MODELE 22 MEVOLL
C=======================================================================

-INC PPARAM
-INC CCOPTIO
-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=======================================================================
C
      IF (IVOULU.NE.0) THEN
         NPIL1=IVOULU
         NPIL2= NPIL1
      ELSE
         ICOLAC=ITOTO
         NPIL1=1
         SEGACT ICOLAC
         NITLAC=ICOLA(/1)
         NPIL2=NITLAC
         WRITE(IOIMP,900)(ICOLA(I),KCOLA(I),MCOLA(I),
     +                                               I=1,NPIL2)
      ENDIF

      DO 2 I=NPIL1,NPIL2
         IF (IVOULU.EQ.0) THEN
            ITLACC=KCOLA(I)
            segact itlacc
         ELSE
            ITLACC=ITOTO
         ENDIF
         N1=ITLAC(/1)
         WRITE(IOIMP,901) I,N1
         IF(I.EQ.38)  WRITE(6,*) (ITLAC(KO),KO=1,N1)
         IF (IVOULU.NE.0) GO TO 2

         ISGTR=ICOLA(I)
         IF(ISGTR.EQ.0) GO TO 1
         segact isgtr
         WRITE(IOIMP,906)
         NTOTO=ISGTRI(/1)
         IF (NTOTO.NE.0) THEN
            DO 9 K=1,NTOTO
               WRITE(IOIMP,905) ISGTRC(K),ISGTRI(K)
 9          CONTINUE
         ENDIF
 1       CONTINUE
 2    CONTINUE
      IF (IVOULU.EQ.0) SEGDES ICOLAC
      RETURN
C
 900  FORMAT(' SEGMENT ICOLAC ,TETE DES PILES'/(1X,3I8) )
 901  FORMAT('  PILE NUMERO=',I4,'  . IL Y A ',I5,'  TERMES.')
 902  FORMAT(6I12)
 906  FORMAT(' TABLES DES  NOMS-POINTEURS ASSOCIES')
 905  FORMAT(2X,A24,1X,I8)
C
      END