Télécharger cfin.eso

Retour à la liste

Numérotation des lignes :

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

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