Télécharger nbco.eso

Retour à la liste

Numérotation des lignes :

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

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