Télécharger rgco.eso

Retour à la liste

Numérotation des lignes :

  1. C RGCO SOURCE GF238795 15/04/23 21:16:03 8502
  2. subroutine RGCO
  3. -INC CCOPTIO
  4. -INC COCOLL
  5. integer col_id
  6. col_id=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 MPI
  11. &MPI'
  12. call erreur(758)
  13. return
  14. endif
  15. c Recuperation du numero de rang
  16. call mpirgc(col_id)
  17. c Envoi du numero de rang (col_id+1) pour etre coherent avec Castem et
  18. c fortran qui font varier les indices en partant de 1
  19. call ecrent(col_id+1)
  20. end
  21.  
  22.  
  23.  

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