root2paw/src/cltrklev1.for

C------------------------------------------------
      FUNCTION CLTRKLEV1()
C------------------------------------------------
C     Written by Emiliano Mocchiutti
C     v. 0.2
C
      INCLUDE 'COMMON.TXT'
      INTEGER cltrklev1
c
c
      cltrklev1 = 0
      call HCDIR('//LEVEL1',' ')
      call HREND('level1')
      CLOSE (79)
CC
 52   continue
      RETURN
      END


1	mocchiut	1.1	C------------------------------------------------
2			FUNCTION CLTRKLEV1()
3			C------------------------------------------------
4			C Written by Emiliano Mocchiutti
5			C v. 0.2
6			C
7			INCLUDE 'COMMON.TXT'
8			INTEGER cltrklev1
9			c
10			c
11			cltrklev1 = 0
12			call HCDIR('//LEVEL1',' ')
13			call HREND('level1')
14			CLOSE (79)
15			CC
16			52 continue
17			RETURN
18			END
19
20