C CFIN      SOURCE    CB215821  19/07/30    21:15:26     10273          
      subroutine CFIN
      integer nproc,iproc

-INC PPARAM
-INC CCOPTIO
-INC CCNOYAU
-INC COCOLL
-INC TMCOLAC
C-INC CCASSIS
      pointeur piles.LISPIL
      pointeur jcolac.ICOLAC
      nproc=0
      piles = piComm

      segact piles*mod
      if(iimpi.ge.6) then
         write(ioimp,*) 'Fermeture de l''environnement MPI'
      endif
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)
c Recuperation des info sur le nb de proc et le num local
      call mpinbc ( nproc )
c Boucle sur la pile de piles pour supprimer les piles associees à
c chaque proc
      do iproc=1,nproc
         jcolac = piles.proc(iproc)
         call clibpi(jcolac)
      enddo
C Suppression de la pile de piles de communication
      call libseg(piles)
      segdes piles
      segsup piles
      piComm=0
C Cloture de l'environnement MPI
      call mpifin()
      end