subroutine putsum(icx,x,iopt)
*
#include "HepTuple/hbook/pilot.h"
#include "HepTuple/hbook/hcbook.inc"
#include "HepTuple/hbook/hcprin.inc"
*
      integer icx, iopt, lw, ln
      real      x
*.___________________________________________
*
      lw = lq(lcont)
c
c  Profile histogram. 
c
      ln=lq(lw)
      if(iopt.eq.1)  q(lcont+kcon1+icx) = x 
      if(iopt.eq.2)  q(lw+icx) = x
      if(iopt.eq.3)  q(ln+icx) = x
      end