LEVEL2/src/clcalol2.for

C------------------------------------------------
      INTEGER FUNCTION CLCALOL2()
C------------------------------------------------
C
      INCLUDE 'INTEST.TXT'
C
      INTEGER icycle
      REAL hmemor(9000000)
      integer Iquest(100)    
      COMMON /pawcd/hmemor
      save /pawcd/
C
      Common /QUESTd/ Iquest
      save /questd/
c
      CLCALOL2 = 0
      CALL HROUT(0,icycle,' ')
      CALL HREND('Event')
      CLOSE (59)
CC
 52   continue
      RETURN
      END
1	C------------------------------------------------
2	INTEGER FUNCTION CLCALOL2()
3	C------------------------------------------------
4	C
5	INCLUDE 'INTEST.TXT'
6	C
7	INTEGER icycle
8	REAL hmemor(9000000)
9	integer Iquest(100)
10	COMMON /pawcd/hmemor
11	save /pawcd/
12	C
13	Common /QUESTd/ Iquest
14	save /questd/
15	c
16	CLCALOL2 = 0
17	CALL HROUT(0,icycle,' ')
18	CALL HREND('Event')
19	CLOSE (59)
20	CC
21	52 continue
22	RETURN
23	END