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