SUBROUTINE ZESCOL()
      IMPLICIT NONE
#include "zescommon.inc"
#include "partap.inc"
#include "zdskey.inc"
#include "caltru.inc"
#include "caltruc.inc"

      INTEGER IDUM

C set run and event number
      CALL MODIN('ZESCOL', IDum)
      CALL FETTAB(ZDSKEY,ID,1)
      ZES_RunNr   = ZDSKEY_NR1
      ZES_EventNr = ZDSKEY_NR2

      CALL ZES_TRIG_FILL

      CALL ZES_FSIG_FILL

      CALL ZES_DIFF_FILL

      CALL ZES_JETS_FILL

      CALL ZES_BITWORD_FILL

C set run and event number again to store the right numbers
      CALL FETTAB(ZDSKEY,ID,1)
      ZES_RunNr   = ZDSKEY_NR1
      ZES_EventNr = ZDSKEY_NR2

      CALL MODOUT('ZESCOL')
      RETURN
      END