| 17 |
* **/8/2006 modified to store info about CN computation and "showers" |
* **/8/2006 modified to store info about CN computation and "showers" |
| 18 |
************************************************************************* |
************************************************************************* |
| 19 |
|
|
| 20 |
parameter (nclstrmax_view = 50) ! maximum number of clusters per view |
parameter (nclstrmax_view = 200) ! maximum number of clusters per view |
| 21 |
parameter (nclstrmax = nclstrmax_view * nviews) |
parameter (nclstrmax = nclstrmax_view * nviews) |
| 22 |
parameter (nclstrp = 20) ! maximum number of stored strips per cluster |
parameter (nclstrp = 20) ! maximum number of stored strips per cluster |
| 23 |
parameter (maxlength = nclstrmax * nclstrp) |
parameter (maxlength = nclstrmax * nclstrp) |
| 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) !signal values of all strips belonging to clusters |
real clsignal(maxlength) !sgnal values of all strips belonging to clusters |
| 41 |
|
|
| 42 |
real clsigma(maxlength) |
real clsigma(maxlength) |
| 43 |
integer cladc(maxlength) |
integer cladc(maxlength) |
Parent Directory
| 
Revision Log
| 
Patch