C CUPNOD    SOURCE    PV090527  26/03/12    08:44:58     12495          
      subroutine cupnod(bu,bufPos,pNoeud,pConfi)
C=======================================================================
C  Sous-programme cupnod (COLlaborateur UnPAquettage NOeuD)
C=======================================================================
      integer i
      integer bufPos
      integer lonBuf
      integer posXco
      integer iDiDis,iDiUt
      integer pNoeud
      real*8 coorLu(4)

-INC PPARAM
-INC CCOPTIO
-INC SMCOORD
      segment BUFFER
         character ffer(lonBuf)
      endsegment
      pointeur bu.BUFFER
      pointeur pConfi.MCOORD
C      write(ioimp,*) 'Entree dans CUPNOD'
      nbpts = pConfi.xcoor(/1)/(idim+1)
      if(pNoeud .eq. 0) then
         nbpts=nbpts+1
         segadj pConfi
         pNoeud = nbpts
      else
         if(pNoeud.gt.nbpts) then
            nbpts=pNoeud
            segadj pConfi
         endif
      endif
      lonBuf=bu.ffer(/2)
      call mpiupI( iDiDis,1,bu,bufPos)
      call mpiupR( coorLu(1),iDiDis+1,bu,bufPos)
      iDiUt=min(idim,iDiDis)
      posXco= (IDIM+1)*(pNoeud-1)
      do i=1,iDiUt
         pConfi.xcoor(posXco+i)=coorlu(i)
      enddo
      pConfi.xcoor(posXco+idim+1)=coorlu(iDiDis+1)
      end