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

Contents of /root2paw/src/claclev1.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 INTEGER FUNCTION CLACLEV1()
3 C------------------------------------------------
4 C
5 INCLUDE 'ACINT.TXT'
6 C
7 INTEGER icycle
8 c
9 CLACLEV1 = 0
10 CALL HROUT(0,icycle,' ')
11 CALL HREND('Event')
12 CLOSE (59)
13 CC
14 RETURN
15 END

  ViewVC Help
Powered by ViewVC 1.1.23