subroutine putstat(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,'PUTSTAT')
*
*     Stuff the required data into the histogram banks
*
      iq(lcont+knoent) = nent
*
*     We set sumw2 negative for 2D plots. The rest of the arguments are
*     not relevant for them so we simply bail out after setting noent.
*
      if(sumw2.lt.0.0) return
      q(lcont+kstat1) = sumw
      q(lcont+kstat1+1) = sumw2

      swx(1) = sumwx
      swx(2) = sumwx2
      call ucopy(swx,q(lcont+kstat1+2),4)
*
      return
      end