/[PAMELA software]/root2paw/src/cltrklev1.for
ViewVC logotype

Contents of /root2paw/src/cltrklev1.for

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1.1.1 - (show annotations) (download) (vendor branch)
Mon Dec 5 16:17:39 2005 UTC (19 years ago) by mocchiut
Branch: GroundDataConvert, MAIN
CVS Tags: start, v3r00, v4r00, HEAD
Changes since 1.1: +0 -0 lines
Imported sources

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

  ViewVC Help
Powered by ViewVC 1.1.23