27 |
|
|
28 |
c CLUSTER block: |
c CLUSTER block: |
29 |
integer nclstr1 !cluster number |
integer nclstr1 !cluster number |
30 |
integer view(nclstrmax) !view the cluster belongs to |
integer view(nclstrmax) !view the cluster belongs to |
31 |
integer ladder(nclstrmax) !ladder the strip carrying the largest signal |
integer ladder(nclstrmax) !ladder the strip carrying the largest signal |
32 |
! value belongs to |
! value belongs to |
33 |
integer maxs(nclstrmax) !cluster strip carrying the largest signal value |
integer maxs(nclstrmax) !cluster strip carrying the largest signal value |
49 |
integer cnnev(nviews,nva1_view) !n.strips used for CN computation |
integer cnnev(nviews,nva1_view) !n.strips used for CN computation |
50 |
integer fshower(nviews) !flag to tag views with too many clusters |
integer fshower(nviews) !flag to tag views with too many clusters |
51 |
c !(in this case clusters are not saved) |
c !(in this case clusters are not saved) |
52 |
integer whichtrack(nclstrmax) !flag to relate the cluster to the track it belongs to |
integer whichtrack(nclstrmax) !flag to tag clusters associated to a track |
53 |
common/level1event/good1,nclstr1,view,ladder,maxs |
common/level1event/good1,nclstr1,view,ladder,maxs |
54 |
$ ,mult,dedx,indstart |
$ ,mult,dedx,indstart |
55 |
$ ,indmax,totCLlength,clsignal,clsigma,cladc,clbad |
$ ,indmax,totCLlength,clsignal,clsigma,cladc,clbad |