Télécharger cfin.eso

Retour à la liste

Numérotation des lignes :

  1. C CFIN SOURCE PV 16/11/26 21:15:08 9205
  2. subroutine CFIN
  3. integer nproc,iproc
  4. -INC CCOPTIO
  5. -INC CCNOYAU
  6. -INC COCOLL
  7. -INC TMCOLAC
  8. C-INC CCASSIS
  9. pointeur piles.LISPIL
  10. pointeur jcolac.ICOLAC
  11. nproc=0
  12. piles = piComm
  13.  
  14. segact piles*mod
  15. if(iimpi.ge.6) then
  16. write(ioimp,*) 'Fermeture de l''environnement MPI'
  17. endif
  18. C* Desactivation de l'horodatage pour pouvoir supprimer les segments
  19. C* pointes dans ICOLAC et qui ont ete crees dans un precedent operateur
  20. call ooohor(0,0)
  21. c Recuperation des info sur le nb de proc et le num local
  22. call mpinbc ( nproc )
  23. c Boucle sur la pile de piles pour supprimer les piles associees à
  24. c chaque proc
  25. do iproc=1,nproc
  26. jcolac = piles.proc(iproc)
  27. call clibpi(jcolac)
  28. enddo
  29. C Suppression de la pile de piles de communication
  30. call libseg(piles)
  31. segdes piles
  32. segsup piles
  33. piComm=0
  34. C Cloture de l'environnement MPI
  35. call mpifin()
  36. end
  37.  
  38.  
  39.  
  40.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales