root2paw/src/cltrklev2.for

C------------------------------------------------
      FUNCTION CLTRKLEV2()
C------------------------------------------------
C     Written by Emiliano Mocchiutti
C     v. 0.2
C
      INCLUDE 'COMMON2.TXT'
      INTEGER cltrklev2
      REAL hmemor(9000000)
      integer Iquest(100)    
      COMMON /pawc/hmemor
      save /pawc/
      Common /QUEST/ Iquest
      save /quest/
c
c
      cltrklev2 = 0
      call HCDIR('//LEVEL2',' ')
      call HREND('level2')
      CLOSE (81)
CC
 52   continue
      RETURN
      END


1	C------------------------------------------------
2	FUNCTION CLTRKLEV2()
3	C------------------------------------------------
4	C Written by Emiliano Mocchiutti
5	C v. 0.2
6	C
7	INCLUDE 'COMMON2.TXT'
8	INTEGER cltrklev2
9	REAL hmemor(9000000)
10	integer Iquest(100)
11	COMMON /pawc/hmemor
12	save /pawc/
13	Common /QUEST/ Iquest
14	save /quest/
15	c
16	c
17	cltrklev2 = 0
18	call HCDIR('//LEVEL2',' ')
19	call HREND('level2')
20	CLOSE (81)
21	CC
22	52 continue
23	RETURN
24	END
25
26