SUBROUTINE ZES_BITWORD_FILL()
      IMPLICIT NONE
#include "zescommon.inc"
#include "zestmpcommon.inc"

      INTEGER JBIT

      ZES_BITWORD(1) = 0
      ZES_BITWORD(2) = 0

      IF (ZESTMP_gTrk1.gt.3) ZESTMP_gTrk1 = 3

      CALL SBIT(ZESTMP_evtake,ZES_BITWORD(1),1)
      CALL SBIT(ZESTMP_exotake,ZES_BITWORD(1),2)
      CALL SBIT(ZESTMP_xsectake,ZES_BITWORD(1),3)
      CALL SBIT(JBIT(ZESTMP_BunchNr,1),ZES_BITWORD(1),4)
      CALL SBIT(JBIT(ZESTMP_BunchNr,2),ZES_BITWORD(1),5)

C 17.12.98 AFM : zero these bits. Now fixed and available
C as integer variables BMuon1 and BMuon2
C      CALL SBIT(ZESTMP_BMuon1,ZES_BITWORD(1),6)
C      CALL SBIT(ZESTMP_BMuon2,ZES_BITWORD(1),7)
      CALL SBIT(0,ZES_BITWORD(1),6)
      CALL SBIT(0,ZES_BITWORD(1),7)

      CALL SBIT(ZESTMP_FMuon1,ZES_BITWORD(1),8)

C 17.12.98 AFM : zero these bits. Now fixed and available
C as integer variables MuonF1, MuonF2, SparkF
C      CALL SBIT(ZESTMP_muonbit1,ZES_BITWORD(1),9)
C      CALL SBIT(ZESTMP_muonbit2,ZES_BITWORD(1),10)
C      CALL SBIT(ZESTMP_sparkbit,ZES_BITWORD(1),11)
      CALL SBIT(0,ZES_BITWORD(1),9)
      CALL SBIT(0,ZES_BITWORD(1),10)
      CALL SBIT(0,ZES_BITWORD(1),11)

      CALL SBIT(ZESTMP_qedcbit,ZES_BITWORD(1),12)
      CALL SBIT(ZESTMP_rhobit,ZES_BITWORD(1),13)
      CALL SBIT(JBIT(ZESTMP_gTrk1,1),ZES_BITWORD(1),14)
      CALL SBIT(JBIT(ZESTMP_gTrk1,2),ZES_BITWORD(1),15)
      CALL SBIT(ZESTMP_FJetA,ZES_BITWORD(1),16)
      CALL SBIT(ZESTMP_FJetB,ZES_BITWORD(1),17)
      CALL SBIT(ZESTMP_FJetC,ZES_BITWORD(1),18)
      CALL SBIT(ZESTMP_FJetD,ZES_BITWORD(1),19)

      RETURN
      END