C CDEB      SOURCE    PV        17/12/05    21:15:07     9646           
      subroutine CDEB
C L'operateur CDEB initialise les communications MPI
C Une fois cela fait, il allloue les piles d'objets échangés avec les
C autres processus
      integer nproc,iproc
      integer nitlac
      character*(8) typNom
      integer typNum

-INC PPARAM
-INC CCOPTIO
-INC COCOLL
-INC TMCOLAC
      pointeur piles.LISPIL
      pointeur jcolac.ICOLAC
      nproc=0
C Initialisation de la communication MPI
      call mpiini()
C Allocation des piles d'echange
c recuperer le nb max et le num de rang
      call mpinbc(nproc)
c allouer le segment piComm contenant les piles d'objet par
c     Recuperation de la taille des piles
      segini piles
      typNom='        '
      typNum=-1
      call typfil(typNom,typNum)
      nitlac=-typNum
c allocation des piles et ajout au noyau
C pour plus d'info sur les segments de type ICOLAC, voir sauv.eso
      do iproc=1,nproc
Cdb         write(ioimp,*)colRan,'Piles de communication avec le processeur',
Cdb     &             iproc
         call crepil(jcolac,nitlac)
         piles.proc(iproc) = jcolac
Cdb         write(ioimp,*) colRan,'Piles allouees',piles.proc(iproc+1)
         call cblopi(jcolac,1)
Cdb         write(ioimp,*) colRan,'Piles ajoutees au noyau'
      enddo
      piComm = piles
Cdb      write(ioimp,*) "piComm dans cdeb",piComm
      call savseg(piles)
      segdes piles
C Allocation de la liste des intercommunicateurs
C Blocage du segment


Cdb      write(ioimp,*) colRan,'piComm',piComm
      end