subroutine getstat(idd,nent,sumw,sumw2,sumwx,sumwx2)
*
#include "HepTuple/hbook/pilot.h"
#include "HepTuple/hbook/hcbook.inc"
*
      integer            idd,   nent
      real              sumw,  sumw2
      double precision sumwx, sumwx2, swx(4)
*.___________________________________________
*
*
*     Set up the links for the requested ID
*
      call hfind(idd,'GETSTAT')
*
*     Pluck the required data from the histogram banks
*
      nent  = iq(lcont+knoent)
      sumw  =  q(lcont+kstat1)
      sumw2 =  q(lcont+kstat1+1)
      call ucopy(q(lcont+kstat1+2),swx,4)
      sumwx  = swx(1)
      sumwx2 = swx(2)
*
      return
      end