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