79 |
c------------------------------------------------------------------------ |
c------------------------------------------------------------------------ |
80 |
|
|
81 |
c parameter (chcut=3.) !cut to associate two clusters |
c parameter (chcut=3.) !cut to associate two clusters |
82 |
parameter (chcut=4.) !cut to associate two clusters |
c parameter (chcut=4.) !cut to associate two clusters |
83 |
|
parameter (chcut=10.) !cut to associate two clusters |
84 |
|
parameter (chsatx=2500.) !saturation limit |
85 |
|
parameter (chsaty=2500.) !saturation limit |
86 |
|
* above saturation limit correlation conditions are not applied |
87 |
real kch(nplanes,nladders_view) !angular coeff |
real kch(nplanes,nladders_view) !angular coeff |
88 |
real cch(nplanes,nladders_view) !const |
real cch(nplanes,nladders_view) !const |
89 |
real sch(nplanes,nladders_view) !sigma |
real sch(nplanes,nladders_view) !sigma |