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 |
34 |
integer mult(nclstrmax) !cluster multiplicity |
integer mult(nclstrmax) !cluster multiplicity |
35 |
real dedx(nclstrmax) !cluster multiplicity |
real sgnl(nclstrmax) !cluster multiplicity |
36 |
integer indstart(nclstrmax) !cluster starting point index in clsignal array |
integer indstart(nclstrmax) !cluster starting point index in clsignal array |
37 |
integer indmax(nclstrmax) !cluster maximum point index in clsignal array |
integer indmax(nclstrmax) !cluster maximum point index in clsignal array |
38 |
integer totCLlength !sum of all clusters length (to assign |
integer totCLlength !sum of all clusters length (to assign |
39 |
! dimension to clsignal array) |
! dimension to clsignal array) |
40 |
real clsignal(maxlength) !sgnal values of all strips belonging to clusters |
real clsignal(maxlength) !sgnal values of all strips belonging to clusters |
|
|
|
41 |
real clsigma(maxlength) |
real clsigma(maxlength) |
42 |
integer cladc(maxlength) |
integer cladc(maxlength) |
43 |
integer clbad(maxlength) |
integer clbad(maxlength) |
50 |
c !(in this case clusters are not saved) |
c !(in this case clusters are not saved) |
51 |
integer whichtrack(nclstrmax) !flag to tag clusters associated to a track |
integer whichtrack(nclstrmax) !flag to tag clusters associated to a track |
52 |
common/level1event/good1,nclstr1,view,ladder,maxs |
common/level1event/good1,nclstr1,view,ladder,maxs |
53 |
$ ,mult,dedx,indstart |
$ ,mult,sgnl,indstart |
54 |
$ ,indmax,totCLlength,clsignal,clsigma,cladc,clbad |
$ ,indmax,totCLlength,clsignal,clsigma,cladc,clbad |
55 |
$ ,cnev,cnnev,cnrmsev,fshower,whichtrack |
$ ,cnev,cnnev,cnrmsev,fshower,whichtrack |
56 |
c $ ,cnev,cnnev,fshower,whichtrack |
c $ ,cnev,cnnev,fshower,whichtrack |