Télécharger cupmel.eso

Retour à la liste

Numérotation des lignes :

  1. C CUPMEL SOURCE PV 17/12/05 21:15:48 9646
  2. subroutine cupmel(bu,bufPos,pMelem)
  3. C=======================================================================
  4. C COLlaborateur UnPAQuettage MELeme
  5. C lecture du maillage pMelem dans le buffer d'envoi bu
  6. C=======================================================================
  7. integer nbnn, nbelem, nbsous, nbref
  8. integer bufPos
  9. integer lonBuf
  10. integer iNoeud,iRef,iSous
  11. integer iPoint
  12. integer jtypel
  13.  
  14. -INC PPARAM
  15. -INC CCOPTIO
  16. -INC SMELEME
  17. C-INC TMCOLAC
  18. segment BUFFER
  19. character ffer(lonBuf)
  20. endsegment
  21. pointeur pMelem.MELEME
  22. pointeur bu.BUFFER
  23.  
  24. C write(ioimp,*) 'Entre dans CUPMEL'
  25. lonBuf=bu.ffer(/2)
  26. jtypel=0
  27. call mpiupI(jtypel,1,bu,bufPos)
  28.  
  29. C write(ioimp,*)'Lecture du type delement',jtypel
  30. call mpiupI(nbsous , 1,bu,bufPos)
  31.  
  32. C write(ioimp,*)"nbsous",nbsous
  33. call mpiupI(nbref , 1,bu,bufPos)
  34.  
  35. C write(ioimp,*)"nbref",nbref
  36. call mpiupI(nbnn , 1,bu,bufPos)
  37.  
  38. C write(ioimp,*)"nbnn",nbnn
  39. call mpiupI(nbelem , 1,bu,bufPos)
  40.  
  41. C write(ioimp,*)"nbelem",nbelem
  42.  
  43. if (pMelem.ne.0) then
  44. segact pMelem*mod
  45. segadj pMelem
  46. else
  47. segini pMelem
  48. endif
  49. pMelem.itypel=jtypel
  50. C Lecture de la position des sous-maillages dans la pile
  51. if(nbsous.gt.0) then
  52. C write(ioimp,*) 'Lecture de la position des sous-maillages dans
  53. C &la pile'
  54. call mpiupI( pMelem.lisous(1) , nbsous,bu,bufPos)
  55.  
  56. C do iSous=1,nbsous
  57. C write(ioimp,*) 'Sous maillage :',iSous
  58. C iPoint=pMelem.lisous(iSous)
  59. C write(ioimp,*) 'Pointeur: ',iPoint
  60. C enddo
  61. else
  62. C write(ioimp,*) 'Pas de sous-maillages'
  63. endif
  64. C Lecture de la position des references dans la pile
  65. if(nbref.gt.0) then
  66. C write(ioimp,*)'Lecture de la position des references dans la
  67. C &pile'
  68. call mpiupI( pMelem.lisref(1) , nbref,bu,bufPos)
  69.  
  70.  
  71. C do iRef=1,nbref
  72. C write(ioimp,*) 'Reference :',iRef
  73. C iPoint=pMelem.lisref(iRef)
  74. C write(ioimp,*) 'Pointeur: ',iPoint
  75. C enddo
  76. else
  77. C write(ioimp,*) 'Pas de references'
  78. endif
  79. C Lecture de la connectivite
  80. if(nbelem.gt.0) then
  81. C write(ioimp,*) 'Lecture de la connectivite'
  82. call mpiupI( pMelem.num(1,1) , nbnn*nbelem,bu,bufPos)
  83.  
  84. C write(ioimp,*) 'Lecture des couleurs'
  85. call mpiupI( pMelem.icolor(1), nbelem,bu,bufPos)
  86.  
  87. else
  88. write(ioimp,*) 'Maillage vide sans element'
  89. endif
  90.  
  91. segdes pMelem
  92. C write(ioimp,*) 'Sortie de CUPMEL'
  93. end
  94.  
  95.  
  96.  
  97.  
  98.  

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