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	kusanagi	1.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/