C CUPPLO    SOURCE    GF238795  15/04/23    21:15:46     8502
      subroutine cupplo(bu,bufPos,pilLoc)
C=======================================================================
C  Sous-programme cupplo (COLlaborateur UnPAQuettage Pile LOcale)
C  Lecture des listes de reels et mots
C  dans le buffer  bu à la position  bufPos
C=======================================================================
      integer bufPos
      integer lonBuf
      integer nArg
      integer nbRee,nbCha,nbMot
      segment BUFFER
         character*1 ffer(lonBuf)
      endsegment
      segment PILOC
             real*8 reel(nbRee)
             character*(nbCha)  chara
             integer motdeb(nbMot+1)
      endsegment
      pointeur pilLoc.PILOC
      pointeur bu.BUFFER
C      write(ioimp,*) 'Entree dans CUPPLO'

      nbRee=0
      nbCha=0
      nbMot=0
      lonBuf=bu.ffer(/2)
      call mpiupI(nbRee,1,bu,bufPos)
      call mpiupI(nbCha,1,bu,bufPos)
      call mpiupI(nbMot,1,bu,bufPos)
      segadj pilLoc
      if(nbRee.gt.0) then
         call mpiupR(pilLoc.reel,nbRee,bu,bufPos)
      endif
      if(nbCha.gt.0) then
         call mpiupc(pilLoc.chara,nbCha,bu,bufPos)
      endif
      if(nbMot.gt.0) then
         call mpiupI(pilLoc.motDeb,nbMot+1,bu,bufPos)
      endif
C      write(ioimp,*) 'Sortie de CUPPLO'
      end