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

Contents of /root2paw/src/opaclev1.for

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations) (download)
Mon Dec 5 16:17:39 2005 UTC (18 years, 11 months ago) by mocchiut
Branch point for: GroundDataConvert, MAIN
Initial revision

1 C------------------------------------------------
2 INTEGER FUNCTION OPACLEV1(name)
3 C------------------------------------------------
4 c
5 INCLUDE 'ACINT.TXT'
6 C
7 CHARACTER*200 name
8 C
9 INTEGER lrec
10 INTEGER istat, ierr
11 integer Iquest(100)
12 PARAMETER (lrec=8190)
13 C
14 REAL hmemor(9000000)
15 C
16 COMMON /pawc/hmemor
17 C
18 Common /QUEST/ Iquest
19 C
20 CALL HLIMIT(9000000)
21 Iquest(10) = 256000
22 C
23 print *,'Open file...'
24 C
25 CALL HROPEN(59,'Event',name,'npqe',lrec,istat)
26 CALL HBNT(77,'Pamela AC',' ')
27 CALL HBSET('BSIZE',lrec,ierr)
28 CALL HBNAME(77,'ac',OBT,'OBT:R,EVFILE:R,HEADC:R,'//
29 & 'STATUS(2):I,HITMAP(2):I,HITSTATUS(2):I,'//
30 & 'TRIGGER(2):I')
31 C
32 OPACLEV1 = 0
33
34 RETURN
35 END
36

  ViewVC Help
Powered by ViewVC 1.1.23