| 82 | 
 *      0 = not used | 
 *      0 = not used | 
| 83 | 
       integer cl_used(nclstrmax_level2) | 
       integer cl_used(nclstrmax_level2) | 
| 84 | 
       integer ncl_view(nviews)  !n.clusters per plane | 
       integer ncl_view(nviews)  !n.clusters per plane | 
| 85 | 
  | 
       real dedx_x_min,dedx_y_min | 
| 86 | 
 *     ----------------------------------------------------------- | 
 *     ----------------------------------------------------------- | 
| 87 | 
       common/clusters/cl_good,cl_used,ncl_view | 
       common/clusters/cl_good,cl_used,ncl_view,dedx_x_min,dedx_y_min | 
| 88 | 
  | 
  | 
| 89 | 
 *     ----------------------------------------------------------- | 
 *     ----------------------------------------------------------- | 
| 90 | 
 *     --- COUPLES ----------------------------------------------- | 
 *     --- COUPLES ----------------------------------------------- | 
| 137 | 
       common/singlets/ncls,cls,cl_single | 
       common/singlets/ncls,cls,cl_single | 
| 138 | 
  | 
  | 
| 139 | 
  | 
  | 
| 140 | 
  | 
       logical RECOVER_SINGLETS,RECOVER_NUCLEI,SECOND_SEARCH | 
| 141 | 
  | 
       common/recover/RECOVER_SINGLETS,RECOVER_NUCLEI,SECOND_SEARCH | 
| 142 | 
  | 
  | 
| 143 | 
 c+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | 
 c+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | 
| 144 | 
 c + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | 
 c + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | 
| 145 | 
 c------------------------------------------------------------------------ | 
 c------------------------------------------------------------------------ | 
| 267 | 
 c------------------------------------------------------------------------ | 
 c------------------------------------------------------------------------ | 
| 268 | 
  | 
  | 
| 269 | 
 *     track candidates | 
 *     track candidates | 
| 270 | 
       PARAMETER (NTRACKSMAX=ncloyz_max*ncloxz_max) | 
 cc      PARAMETER (NTRACKSMAX=ncloyz_max*ncloxz_max) | 
| 271 | 
  | 
       PARAMETER (NTRACKSMAX=10000) | 
| 272 | 
       INTEGER NTRACKS           !number of track candidates | 
       INTEGER NTRACKS           !number of track candidates | 
| 273 | 
       REAL AL_STORE(5,NTRACKSMAX) | 
       REAL AL_STORE(5,NTRACKSMAX) | 
| 274 | 
       REAL XM_STORE(NPLANES,NTRACKSMAX) | 
       REAL XM_STORE(NPLANES,NTRACKSMAX) | 
| 290 | 
       REAL BX_STORE(NPLANES,NTRACKSMAX) | 
       REAL BX_STORE(NPLANES,NTRACKSMAX) | 
| 291 | 
       REAL BY_STORE(NPLANES,NTRACKSMAX) | 
       REAL BY_STORE(NPLANES,NTRACKSMAX) | 
| 292 | 
       REAL RCHI2_STORE(NTRACKSMAX) | 
       REAL RCHI2_STORE(NTRACKSMAX) | 
| 293 | 
       common/track_candidates/NTRACKS,AL_STORE | 
       common/trackcandidates/NTRACKS,AL_STORE | 
| 294 | 
      $     ,XV_STORE,YV_STORE,ZV_STORE | 
      $     ,XV_STORE,YV_STORE,ZV_STORE | 
| 295 | 
      $     ,XM_STORE,YM_STORE,ZM_STORE | 
      $     ,XM_STORE,YM_STORE,ZM_STORE | 
| 296 | 
      $     ,RESX_STORE,RESY_STORE | 
      $     ,RESX_STORE,RESY_STORE | 
| 312 | 
 c------------------------------------------------------------------------ | 
 c------------------------------------------------------------------------ | 
| 313 | 
       PARAMETER (PIGR=3.14)     !159265359)!(1) | 
       PARAMETER (PIGR=3.14)     !159265359)!(1) | 
| 314 | 
 *     ----------------------------------------------------- | 
 *     ----------------------------------------------------- | 
| 315 | 
 *     cuts on cluster signal | 
 *     cuts on cluster signal (MIP) | 
| 316 | 
 *     ----------------------------------------------------- | 
 *     ----------------------------------------------------- | 
| 317 | 
       parameter (dedx_x_min=0.) | 
       parameter (dedx_x_min_mip=0.) | 
| 318 | 
       parameter (dedx_y_min=0.) | 
       parameter (dedx_y_min_mip=0.) | 
| 319 | 
  | 
       parameter (dedx_x_min_nuclei=5.) | 
| 320 | 
  | 
       parameter (dedx_y_min_nuclei=5.) | 
| 321 | 
  | 
       parameter (dedx_min_nuclei=9.1) !cut to apply nuclei recovery | 
| 322 | 
  | 
       parameter (ddedx_min_nuclei=0.35)!cut to identify bad tracked nuclei | 
| 323 | 
  | 
  | 
| 324 | 
 *     ----------------------------------------------------- | 
 *     ----------------------------------------------------- | 
| 325 | 
 *     number of GOOD strips around MAXS | 
 *     number of GOOD strips around MAXS | 
| 326 | 
 *     (NB this cut has been removed in track fitting but  | 
 *     (NB this cut has been removed in track fitting but  |