Télécharger la plaquette Cast3M


fr en

Télécharger cupmel.eso

Retour à la liste

Numérotation des lignes : 

cupmel

  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