C------------------------------------------------
      INTEGER FUNCTION CLACLEV1()
C------------------------------------------------
C
      INCLUDE 'ACINT.TXT'
C
      INTEGER icycle
c
      CLACLEV1 = 0
      CALL HROUT(0,icycle,' ') 
      CALL HREND('Event')
      CLOSE (59)
CC
      RETURN
      END