1 |
************************************************************************* |
2 |
* |
3 |
* Common for tracker LEVEL0 data |
4 |
* |
5 |
************************************************************************* |
6 |
|
7 |
|
8 |
integer good0 !flag to mark good or noise events |
9 |
|
10 |
c HEADER block: |
11 |
c header variables for each view: |
12 |
integer DAQmode(12) !9 = full acquisition mode |
13 |
!10 = compressed acquisition mode |
14 |
!11 = compressed+full acquisition mode |
15 |
integer DSPnumber(12) !view number |
16 |
integer DATAlength(12) !data buffer length |
17 |
integer eventn(12) !DSP event number |
18 |
integer nclust(12) !nclust*2+1 = number of strips to be |
19 |
! included in cluster |
20 |
integer cutc(12) !cut to include strips in a cluster |
21 |
integer cutcl(12) !cut to search for clusters |
22 |
integer addrcluster(12,3) !address of the greatest cluster(view,ladder) |
23 |
integer signcluster(12,3) !signal of the greatest cluster(view,ladder) |
24 |
integer fc(12) !compression flag |
25 |
integer compressiontime(12) !DSP program compression time |
26 |
integer fl5(12) !flag |
27 |
integer fl4(12) !flag |
28 |
integer fl3(12) !flag |
29 |
integer fl2(12) !flag |
30 |
integer fl1(12) !flag |
31 |
integer fl6(12) !flag |
32 |
integer checksum(12) !DSP header checksum |
33 |
integer pnum(12) !peripheral number |
34 |
integer cmdnum(12) !command number |
35 |
integer bid(12) !board identifier |
36 |
integer alarm(12) !alarm |
37 |
integer aswr(12) !response length |
38 |
integer crc(12) !DSP crc controll |
39 |
|
40 |
c DATA block: |
41 |
integer TOTDATAlength !sum of all views datalength (to assign |
42 |
* ! dimension to datatracker array) |
43 |
integer datatracker(49152)!data tracker buffer (.DAT raw data) |
44 |
|
45 |
common/level0/ |
46 |
$ DAQmode,DSPnumber,DATAlength,eventn,nclust,cutc,cutcl |
47 |
$ ,addrcluster,signcluster,fc,compressiontime |
48 |
$ ,fl5,fl4,fl3,fl2,fl1,fl6,checksum,TOTDATAlength |
49 |
$ ,datatracker,pnum,cmdnum,bid,alarm,aswr,good0,crc |
50 |
|
51 |
SAVE/level0/ |