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 |
* 10/9/2005 modified by david fedele to include general variables |
13 |
************************************************************************* |
14 |
|
15 |
|
16 |
c***************************************************** |
17 |
cccccc 10/9/2005 modified by david fedele |
18 |
ccc EVENT block********* |
19 |
c GENERAL block: |
20 |
c*************************************************** |
21 |
logical good0 !flag to mark good or noise events |
22 |
integer nev0 !level0 event number |
23 |
c***************************************************** |
24 |
cccccc 10/9/2005 modified by david fedele |
25 |
integer which_calib !calibration file identifier. see DW_DATE_NUM_calib.txt file |
26 |
integer swcode !version of the software |
27 |
c***************************************************** |
28 |
|
29 |
c CPU block: |
30 |
integer pkt_type !CPU packet type identifier. see http://people.roma2.infn.it/~cpu/HB_list.txt |
31 |
c 0x12 --> calibration board 0 |
32 |
c 0x13 --> calibration board 1 |
33 |
c 0x10 --> event |
34 |
c 0x30 --> full event for calib special |
35 |
c 0x83 --> tracker ALARM (control register) |
36 |
integer pkt_num !CPU packet number |
37 |
integer obt !CPU on-board time |
38 |
c***************************************************** |
39 |
cccccc 10/9/2005 modified by david fedele |
40 |
c integer which_calib !calibration file identifier. see DW_DATE_NUM_calib.txt file |
41 |
logical cpu_crc !CPU crc controll |
42 |
c***************************************************** |
43 |
|
44 |
|
45 |
c HEADER block: |
46 |
c header variables for each view: |
47 |
integer DAQmode(12) !9 = full acquisition mode |
48 |
!10 = compressed acquisition mode |
49 |
!11 = compressed+full acquisition mode |
50 |
integer DSPnumber(12) !view number |
51 |
integer DATAlength(12) !data buffer length |
52 |
integer eventn(12) !DSP event number |
53 |
integer nclust(12) !nclust*2+1 = number of strips to be |
54 |
! included in cluster |
55 |
integer cutc(12) !cut to include strips in a cluster |
56 |
integer cutcl(12) !cut to search for clusters |
57 |
integer addrcluster(12,3) !address of the greatest cluster(view,ladder) |
58 |
integer signcluster(12,3) !signal of the greatest cluster(view,ladder) |
59 |
integer fc(12) !compression flag |
60 |
integer compressiontime(12) !DSP program compression time |
61 |
integer fl5(12) !flag |
62 |
integer fl4(12) !flag |
63 |
integer fl3(12) !flag |
64 |
integer fl2(12) !flag |
65 |
integer fl1(12) !flag |
66 |
integer fl6(12) !flag |
67 |
integer checksum(12) !DSP header checksum |
68 |
integer pnum(12) !peripheral number |
69 |
integer cmdnum(12) !command number |
70 |
integer bid(12) !board identifier |
71 |
integer alarm(12) !alarm |
72 |
integer aswr(12) !response length |
73 |
c***************************************************** |
74 |
cccccc 10/9/2005 modified by david fedele |
75 |
logical crc(12) !DSP crc controll |
76 |
c***************************************************** |
77 |
|
78 |
|
79 |
|
80 |
c DATA block: |
81 |
integer TOTDATAlength !sum of all views datalength (to assign |
82 |
! dimension to datatracker array) |
83 |
integer datatracker(49152) !data tracker buffer (.DAT raw data) |
84 |
|
85 |
|
86 |
c***************************************************** |
87 |
cccccc 10/9/2005 modified by david fedele |
88 |
c common/level0_event/good0,nev0 |
89 |
c $ ,pkt_type,pkt_num,obt,which_calib |
90 |
c $ ,DAQmode,DSPnumber,DATAlength,eventn,nclust,cutc,cutcl |
91 |
c $ ,addrcluster,signcluster,fc,compressiontime |
92 |
c $ ,fl5,fl4,fl3,fl2,fl1,fl6,checksum |
93 |
c $ ,TOTDATAlength,datatracker,pnum,cmdnum,bid,alarm,aswr |
94 |
common/level0_event/good0,nev0,which_calib,swcode |
95 |
$ ,pkt_type,pkt_num,obt,cpu_crc |
96 |
$ ,DAQmode,DSPnumber,DATAlength,eventn,nclust,cutc,cutcl |
97 |
$ ,addrcluster,signcluster,fc,compressiontime |
98 |
$ ,fl5,fl4,fl3,fl2,fl1,fl6,checksum,crc,TOTDATAlength |
99 |
$ ,datatracker,pnum,cmdnum,bid,alarm,aswr |
100 |
c*********************************************************** |
101 |
|