C LIBPIL    SOURCE    FANDEUR   12/07/05    21:15:58     7424           

C=======================================================================
C CE SOUPROGRAMME LIBERE DU NOYAU PUIS DETRUIT LA PILE ICOLAC ET LES 
C PILES ASSOCIEES 
C=======================================================================
C
      SUBROUTINE LIBPIL (ICOLAC)
C
      IMPLICIT INTEGER(I-N)
C
-INC TMCOLAC
C
      IF (ICOLAC.EQ.0) RETURN
C* Desactivation de l'horodatage pour pouvoir supprimer les segments
C* pointes dans ICOLAC et qui ont ete crees dans un precedent operateur
      CALL ooohor(0,0)
      SEGACT,ICOLAC
      NITLAC = KCOLA(/1)
      DO I = 1, NITLAC
        ITLACC = KCOLA(I)
        IF (ITLACC.NE.0) THEN
          CALL LIBSEG(ITLACC)
          SEGSUP,ITLACC
        ENDIF
        ISGTR = ICOLA(I)
        IF (ISGTR.NE.0) THEN
          CALL LIBSEG(ISGTR)
          SEGSUP,ISGTR
        ENDIF
      ENDDO
      ILISSE = ILISSG
      IF (ILISSE.NE.0) THEN
        CALL LIBSEG(ILISSE)
        SEGSUP,ILISSE
      ENDIF
      CALL LIBSEG(ICOLAC)
      SEGSUP,ICOLAC
      ICOLAC = 0

      RETURN
      END