subroutine repakw(idd,x,kcase,numm)
*
*     This routine repacks values corresponding to hist id
*
#include "HepTuple/hbook/pilot.h"
#include "HepTuple/hbook/hcbook.inc"
#include "HepTuple/hbook/hcprin.inc"
*
      integer idd, numm, narg, icas, num, jbyt, ncx
     +,       ifx, ify, i
      real x(1)
      character*(*) kcase
*.___________________________________________
      narg=4
      call noarg(narg)
      icas=0
      num=0
      if(narg.eq.4)num=numm
      if(narg.gt.2)then
         call uctoh(kcase,icas,4,4)
      endif
*
      if(lfix.eq.0)  then
         call hfinop(idd,'unpakw',ifw,nb,ifx,ify,icas,num)
         lcont=lq(lcid-1)
      else
         ifw=lcont
         ifx=lprx
         ify=lpry
      endif
*
      if(ifw.eq.0)  then
         if(jbyt(iq(lcid+kbits),1,3).eq.0) go to 40
         call hbug('cannot find projection','unpakw',idd)
         go to 99
      endif
      lcont=ifw
      ncx=iq(ifx)
      if(ify.eq.0)then
         do 10 i=1,ncx
            call putsum(i,x(i),3)
  10     continue
         go to 99
      endif
      go to 99
*
  40  nw=iq(lcid-1)
      call ucopy(x,q(lcid+1),nw)
*
  99  return
      end