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	mocchiut	1.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