#include "HepTuple/hbook/pilot.h"
      REAL FUNCTION GETW(ICX,IOPT)
*.==========>
*.           IOPT =1 GETW = WEIGHT FOR CHANNEL ICX
*.           IOPT =2 GETW = WEIGHTED Y FOR CHANNEL ICX
*.           IOPT =3 GETW = WEIGHTED Y*Y FOR CHANNEL ICX
*..=========> ( R.Brun )
#include "HepTuple/hbook/hcbook.inc"
*.___________________________________________
#include "HepTuple/hbook/jbyt.inc"
C
C RETURN THE SUM OF THE WEIGHTS FOR IOPT=1,
C             SUM OF WEIGHTED Y FOR IOPT=2,
C           SUM OF WEIGHTED Y*Y FOR IOPT=3,
C
      REAL SUMW,SUMY,SUMY2
      INTEGER ICX,IOPT,LW,LN
      GETW = 0.0
      LW = LQ(LCONT)
C
C  Profile histogram. See HBPROF for explanation of options
C
      LN=LQ(LW)
      SUMW=ABS(Q(LN+ICX))
      SUMY=Q(LCONT+KCON1+ICX)
      SUMY2=Q(LW+ICX)
      IF(IOPT.EQ.1) GETW = SUMW
      IF(IOPT.EQ.2) GETW = SUMY
      IF(IOPT.EQ.3) GETW = SUMY2
      RETURN

      END