/[PAMELA software]/yoda/techmodel/forroutines/tracker/commonyoda/commontracker-YODA.f
ViewVC logotype

Contents of /yoda/techmodel/forroutines/tracker/commonyoda/commontracker-YODA.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 parameter (nviews=12) !number of views
3 parameter (nplanes=nviews/2) !number of planes
4 parameter (nladders_view=3) !number of ladders per view
5 parameter (nva1_ladder=8) !number of VA1s per ladder (per side)
6 parameter (nstrips_va1=128) !number of strips per VA1
7 parameter (nstrips_ladder=nstrips_va1*nva1_ladder) !number of strips
8 ! per ladder
9 parameter (nva1_view=nva1_ladder*nladders_view) !number of VA1s per
10 ! view
11 parameter (nstrips_view=nstrips_va1*nva1_view) !number of strips per
12 ! view
13 parameter (nva1=nva1_view*nviews) !number of VA1s
14 parameter (nstrips=nstrips_va1*nva1) !number of strips
15 c------------------------------------------------------------------------
16 c
17 c pedestal, sigma and badstrip variables
18 c
19 c------------------------------------------------------------------------
20
21 real pedestal(nviews,nva1_view,nstrips_va1) !pedestal value
22 real pedestal_t(nviews,nva1_view,nstrips_va1) !pedestal truncated value
23
24 real sigma(nviews,nva1_view,nstrips_va1) !sigma value
25 real sigma_t(nviews,nva1_view,nstrips_va1) !sigma truncated value
26
27 integer bad(nviews,nva1_view,nstrips_va1) !bad strip flag matrix
28 ! (bad=1 --> good strip, bad=0 --> bad strip)
29
30 c common/pedsigbad/pedestal,pedestal_t,sigma,sigma_t,bad
31 common/pedsigbad/pedestal,sigma,bad
32 common/pedsigbad_t/pedestal_t,sigma_t
33
34 *************************************************************************
35 *
36 * Common level0.f
37 *
38 *************************************************************************
39 c EVENT block:
40 logical good0 !flag to mark good or noise events
41 integer nev0 !level0 event number
42 integer DAQmode(12) !9 = full acquisition mode
43 !10 = compressed acquisition mode
44 !11 = compressed+full acquisition mode
45 integer DSPnumber(12) !view number
46 integer DATAlength(12) !data buffer length
47 integer eventn(12) !DSP event number
48 integer nclust(12) !nclust*2+1 = number of strips to be
49 ! included in cluster
50 integer cutc(12) !cut to include strips in a cluster
51 integer cutcl(12) !cut to search for clusters
52 integer addrcluster(12,3) !address of the greatest cluster(view,ladder)
53 integer signcluster(12,3) !signal of the greatest cluster(view,ladder)
54 integer fc(12) !compression flag
55 integer compressiontime(12) !DSP program compression time
56 integer fl5(12) !flag
57 integer fl4(12) !flag
58 integer fl3(12) !flag
59 integer fl2(12) !flag
60 integer fl1(12) !flag
61 integer fl6(12) !flag
62 integer checksum(12) !DSP header checksum
63 integer pnum(12) !peripheral number
64 integer cmdnum(12) !command number
65 integer bid(12) !board identifier
66 integer alarm(12) !alarm
67 integer aswr(12) !response length
68 c DATA block:
69 integer TOTDATAlength !sum of all views datalength (to assign
70 ! dimension to datatracker array)
71 integer datatracker(49152) !data tracker buffer (.DAT raw data)
72
73 common/level0/good0,nev0
74 $ ,DAQmode,DSPnumber,DATAlength,eventn,nclust,cutc,cutcl
75 $ ,addrcluster,signcluster,fc,compressiontime
76 $ ,fl5,fl4,fl3,fl2,fl1,fl6,checksum
77 $ ,TOTDATAlength,datatracker,pnum,cmdnum,bid,alarm,aswr

  ViewVC Help
Powered by ViewVC 1.1.23