Sources Esope | Cast3M

cpacfg
C CPACFG    SOURCE    PV        17/12/05    21:15:28     9646           
      subroutine cpacfg(pConfi,lisNoe,bu,bufPos)
C=======================================================================
C  Sous-programme cpacfg (COLlaborateur PAquettage ConFiGuration)
C  Enregistre la configuration pointee par le pointeur pConfi d'argument
C  dans le buffer d'envoi. Cette configuration est tronquee èt
C  renumerote par la liste des noeuds necessaires a la communication
C  (pile 32)
C  Il faut s'assurer au prealabe que la taille du buffer est
C  suffisante
C=======================================================================
      integer bufPos
      integer nNoCo,iNoCo,iNoLo
      integer lonBuf
      integer posXco
 
-INC PPARAM
-INC CCOPTIO
-INC SMCOORD
-INC TMCOLAC
      segment BUFFER
         character ffer(lonBuf)
      endsegment
      segment LISNOD
         integer numero(nNoeud)
      endsegment
      pointeur bu.BUFFER
      pointeur pConfi.MCOORD
 
      pointeur lisNoe.LISNOD
 
C      write(ioimp,*) 'Entree dans CPACFG'
C      write(ioimp,*)'Pointeur recu',pConfi
 
C     Paquetage de la configuration tronquée et reordonnée selon la
C     liste de noeud listNoe
      if(pConfi .ne. 0) then
         if(pConfi.ne.mcoord) then
            segact pConfi
         endif
         lonBuf=bu.ffer(/2)
         nNoCo=lisNoe.numero(/1)
         call mpipaI(nNoCo,1,bu,bufPos)
         call mpipaI(IDIM,1,bu,bufPos)
         do iNoCo=1,nNoCo
            iNoLo=lisNoe.numero(iNoCo)
            posXco= (IDIM+1)*(iNoLo-1)
         call mpipaR(pConfi.XCOOR(posXco+1),IDIM+1,bu,bufPos)
         enddo
         if(pConfi.ne.mcoord) then
            segdes pConfi
         endif
      else
         write(ioimp,*) 'Erreur: pointeur vers un objet MCOORD nul'
         call erreur(5)
      endif
C      write(ioimp,*) 'Sortie de CPACFG'
      end