#include "HepTuple/hbook/pilot.h"
      SUBROUTINE PUNPAK(IDD,X,KASE,NUMM)
*     THIS ROUTINE UNPACKS STATISTICAL DATA FOR PROFILE PLOT ID.
*     FOR KASE = 1, UNPACK SUM(W)
*     FOR KASE = 2, UNPACK SUM(W*Y)
*     FOR KASE = 3, UNPACK SUM(W*Y*Y)
#include "HepTuple/hbook/hcbook.inc"
      INTEGER IDD,KASE,NUM,NUMM,KIND,IFW,IFX,IFY,NB,NCX,I
      REAL X,GETW
      DIMENSION X(1)
      DIMENSION KIND(32)
*.___________________________________________
      NUM=NUMM
      CALL HKIND(IDD,KIND,' ')
      IF(KIND(1).NE.8) THEN
        CALL HBUG('Only valid for profile plots','PUNPAK',IDD)
        GO TO 99
      ENDIF
*
      IF(LFIX.EQ.0)THEN
         CALL HFINOP(IDD,'PUNPAK',IFW,NB,IFX,IFY,20,NUM)
         LCONT=LQ(LCID-1)
      ELSE
         IFW=LCONT
         IFX=LPRX
         IFY=LPRY
      ENDIF
*
      LCONT=IFW
      NCX=IQ(IFX)
      DO 10 I=1,NCX
        X(I)=GETW(I,KASE)
  10  CONTINUE
*
  99  RETURN
      END