/[PAMELA software]/yoda/techmodel/forroutines/tracker/commonyoda/level0.f
ViewVC logotype

Contents of /yoda/techmodel/forroutines/tracker/commonyoda/level0.f

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2.0 - (show annotations) (download)
Tue Sep 21 20:51:17 2004 UTC (20 years, 2 months ago) by kusanagi
Branch: MAIN
CVS Tags: Rev040922, Rev041203, Rev050129
Changes since 1.1: +0 -0 lines
Major release

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/

  ViewVC Help
Powered by ViewVC 1.1.23