Télécharger nbco.eso

Retour à la liste

Numérotation des lignes :

  1. C NBCO SOURCE GF238795 15/04/23 21:16:02 8502
  2. subroutine NBCO
  3. integer mpiSiz
  4. -INC CCOPTIO
  5. -INC COCOLL
  6. mpiSiz=0
  7. if(piComm.le.0) then
  8. write(ioimp,*) 'Impossible de recuperer les informations
  9. &voulues sans initialiser la communication auparavant'
  10. write(ioimp,*) 'Appelez CDEB avant tout appel a des fonctions
  11. &MPI'
  12. call erreur(758)
  13. return
  14. endif
  15. C Recuperation de la taille du communicateur
  16. call mpinbc ( mpiSiz )
  17. c Renvoi du resultat
  18. CALL ecrent(mpiSiz)
  19. end
  20.  
  21.  
  22.  

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