root2paw/src/claclev1.for

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
1	C------------------------------------------------
2	INTEGER FUNCTION CLACLEV1()
3	C------------------------------------------------
4	C
5	INCLUDE 'ACINT.TXT'
6	C
7	INTEGER icycle
8	c
9	CLACLEV1 = 0
10	CALL HROUT(0,icycle,' ')
11	CALL HREND('Event')
12	CLOSE (59)
13	CC
14	RETURN
15	END