tracker/commonyoda/level0.f

*************************************************************************
*     
*     Common level0_2003.f
*     
*     contains LEVEL0 ntuple variables definitions for 2003 test
*     
*     to be included in:
*     - ../readraw/readraw.F
*     - ../reduction/reduction.f
*     - !???
*     
*************************************************************************


c     EVENT block:
      logical good0             !flag to mark good or noise events
      integer nev0              !level0 event number

c     HEADER block:
c     header variables for each view:
      integer DAQmode(12)       !9  = full acquisition mode
                                !10 = compressed acquisition mode
                                !11 = compressed+full acquisition mode
      integer DSPnumber(12)     !view number
      integer DATAlength(12)    !data buffer length
      integer eventn(12)        !DSP event number
      integer nclust(12)        !nclust*2+1 = number of strips to be 
                                ! included in cluster
      integer cutc(12)          !cut to include strips in a cluster
      integer cutcl(12)         !cut to search for clusters
      integer addrcluster(12,3) !address of the greatest cluster(view,ladder)
      integer signcluster(12,3) !signal of the greatest cluster(view,ladder)
      integer fc(12)            !compression flag
      integer compressiontime(12) !DSP program compression time
      integer fl5(12)           !flag
      integer fl4(12)           !flag
      integer fl3(12)           !flag
      integer fl2(12)           !flag
      integer fl1(12)           !flag
      integer fl6(12)           !flag
      integer checksum(12)      !DSP header checksum
      integer pnum(12)          !peripheral number
      integer cmdnum(12)        !command number
      integer bid(12)           !board identifier
      integer alarm(12)         !alarm
      integer aswr(12)          !response length


c     DATA block:
      integer TOTDATAlength     !sum of all views datalength (to assign 
                                ! dimension to datatracker array)
      integer datatracker(49152) !data tracker buffer (.DAT raw data)

c$$$      integer trailer1,trailer2,trailer3,trailer4,trailer5,trailer6 !tappo di 
c$$$c     sergio da scrivere meglio...!???


      common/level0/good0,nev0
     $     ,DAQmode,DSPnumber,DATAlength,eventn,nclust,cutc,cutcl
     $     ,addrcluster,signcluster,fc,compressiontime
     $     ,fl5,fl4,fl3,fl2,fl1,fl6,checksum
     $     ,TOTDATAlength,datatracker,pnum,cmdnum,bid,alarm,aswr
      SAVE/level0/
1	*************************************************************************
2	*
3	* Common level0_2003.f
4	*
5	* contains LEVEL0 ntuple variables definitions for 2003 test
6	*
7	* to be included in:
8	* - ../readraw/readraw.F
9	* - ../reduction/reduction.f
10	* - !???
11	*
12	*************************************************************************
13
14
15	c EVENT block:
16	logical good0 !flag to mark good or noise events
17	integer nev0 !level0 event number
18
19	c HEADER block:
20	c header variables for each view:
21	integer DAQmode(12) !9 = full acquisition mode
22	!10 = compressed acquisition mode
23	!11 = compressed+full acquisition mode
24	integer DSPnumber(12) !view number
25	integer DATAlength(12) !data buffer length
26	integer eventn(12) !DSP event number
27	integer nclust(12) !nclust*2+1 = number of strips to be
28	! included in cluster
29	integer cutc(12) !cut to include strips in a cluster
30	integer cutcl(12) !cut to search for clusters
31	integer addrcluster(12,3) !address of the greatest cluster(view,ladder)
32	integer signcluster(12,3) !signal of the greatest cluster(view,ladder)
33	integer fc(12) !compression flag
34	integer compressiontime(12) !DSP program compression time
35	integer fl5(12) !flag
36	integer fl4(12) !flag
37	integer fl3(12) !flag
38	integer fl2(12) !flag
39	integer fl1(12) !flag
40	integer fl6(12) !flag
41	integer checksum(12) !DSP header checksum
42	integer pnum(12) !peripheral number
43	integer cmdnum(12) !command number
44	integer bid(12) !board identifier
45	integer alarm(12) !alarm
46	integer aswr(12) !response length
47
48
49	c DATA block:
50	integer TOTDATAlength !sum of all views datalength (to assign
51	! dimension to datatracker array)
52	integer datatracker(49152) !data tracker buffer (.DAT raw data)
53
54	c$$$ integer trailer1,trailer2,trailer3,trailer4,trailer5,trailer6 !tappo di
55	c$$$c sergio da scrivere meglio...!???
56
57
58	common/level0/good0,nev0
59	$ ,DAQmode,DSPnumber,DATAlength,eventn,nclust,cutc,cutcl
60	$ ,addrcluster,signcluster,fc,compressiontime
61	$ ,fl5,fl4,fl3,fl2,fl1,fl6,checksum
62	$ ,TOTDATAlength,datatracker,pnum,cmdnum,bid,alarm,aswr
63	SAVE/level0/