Télécharger cupmel.eso

Retour à la liste

Numérotation des lignes :

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

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