| 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 |