subroutine unpakyy(idd,x,kcase,numm)
*
*     This routine unpacks 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 getsum
      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,'unpakyy',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','unpakyy',idd)
         go to 99
      endif
      lcont=ifw
      ncx=iq(ifx)
      if(ify.eq.0)then
         do 10 i=1,ncx
            x(i)=getsum(i,2)
  10     continue
         go to 99
      endif
      go to 99
*
  40  nw=iq(lcid-1)
      call ucopy(q(lcid+1),x,nw)
*
  99  return
      end