C CLIBPI    SOURCE    CB215821  19/07/30    21:15:38     10273          
      subroutine clibpi(icolac)
C=======================================================================
C sous-programme clibpi (COLlaborateur LIBere PIles)
C        Desallocation d'un segment ICOLAC
C        Note : variation basse sur la sous-routine SUPPIL mais
C        impossible de se servir de cette derniere tel quel car elle va
C        taper directement dans le common IPSAUV
C        Suppression de l'argument ivoulu qui permettait a SUPPIL de
C        soit : supprimer les piles ou les sauvegarder
C        Ceci est remplacé par deux sous-routinea différentes
C        Entree :
C                 ICOLAC: pointeur vers le segment ICOLAC a supprimer
C=======================================================================
      integer i
      integer nitlac
-INC TMCOLAC
      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)
      segact icolac*mod
      nitlac=kcola(/1)
      do i=1,nitlac
         itlacc=kcola(i)
         if (itlacc.ne.0) then
            call libseg(itlacc)
            segdes itlacc
            segsup itlacc
         endif
         isgtr=icola(i)
         if (isgtr.ne.0) then
            call libseg(isgtr)
            segdes isgtr
            segsup isgtr
         endif
      enddo
      ilisse=ilissg
      if (ilisse.ne.0) then
        call libseg(ilisse)
        segdes ilisse
        segsup ilisse
      endif
      call libseg(icolac)
      segdes icolac
      segsup icolac
      icolac = 0
      end