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