Télécharger cdeb.eso

Retour à la liste

Numérotation des lignes :

  1. C CDEB SOURCE PV 16/11/26 21:15:06 9205
  2. subroutine CDEB
  3. C L'operateur CDEB initialise les communications MPI
  4. C Une fois cela fait, il allloue les piles d'objets échangés avec les
  5. C autres processus
  6. integer nproc,iproc
  7. integer nitlac
  8. character*(8) typNom
  9. integer typNum
  10. -INC CCOPTIO
  11. -INC COCOLL
  12. -INC TMCOLAC
  13. pointeur piles.LISPIL
  14. pointeur jcolac.ICOLAC
  15. nproc=0
  16. C Initialisation de la communication MPI
  17. call mpiini()
  18. C Allocation des piles d'echange
  19. c recuperer le nb max et le num de rang
  20. call mpinbc(nproc)
  21. c allouer le segment piComm contenant les piles d'objet par
  22. c Recuperation de la taille des piles
  23. segini piles
  24. typNom=' '
  25. typNum=-1
  26. call typfil(typNom,typNum)
  27. nitlac=-typNum
  28. c allocation des piles et ajout au noyau
  29. C pour plus d'info sur les segments de type ICOLAC, voir sauv.eso
  30. do iproc=1,nproc
  31. Cdb write(ioimp,*)colRan,'Piles de communication avec le processeur',
  32. Cdb & iproc
  33. call crepil(jcolac,nitlac)
  34. piles.proc(iproc) = jcolac
  35. Cdb write(ioimp,*) colRan,'Piles allouees',piles.proc(iproc+1)
  36. call cblopi(jcolac,1)
  37. Cdb write(ioimp,*) colRan,'Piles ajoutees au noyau'
  38. enddo
  39. piComm = piles
  40. Cdb write(ioimp,*) "piComm dans cdeb",piComm
  41. call savseg(piles)
  42. segdes piles
  43. C Allocation de la liste des intercommunicateurs
  44. C Blocage du segment
  45.  
  46.  
  47. Cdb write(ioimp,*) colRan,'piComm',piComm
  48. end
  49.  
  50.  
  51.  
  52.  
  53.  

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