--- DarthVader/TrackerLevel2/inc/F77/common_momanhough.f	2007/04/27 10:39:57	1.9
+++ DarthVader/TrackerLevel2/inc/F77/common_momanhough.f	2014/01/16 15:29:41	1.13
@@ -82,8 +82,9 @@
 *      0 = not used
       integer cl_used(nclstrmax_level2)
       integer ncl_view(nviews)  !n.clusters per plane
+      real dedx_x_min,dedx_y_min
 *     -----------------------------------------------------------
-      common/clusters/cl_good,cl_used,ncl_view
+      common/clusters/cl_good,cl_used,ncl_view,dedx_x_min,dedx_y_min
 
 *     -----------------------------------------------------------
 *     --- COUPLES -----------------------------------------------
@@ -136,6 +137,9 @@
       common/singlets/ncls,cls,cl_single
 
 
+      logical RECOVER_SINGLETS,RECOVER_NUCLEI,SECOND_SEARCH
+      common/recover/RECOVER_SINGLETS,RECOVER_NUCLEI,SECOND_SEARCH
+
 c+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
 c + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
 c------------------------------------------------------------------------
@@ -263,7 +267,8 @@
 c------------------------------------------------------------------------
 
 *     track candidates
-      PARAMETER (NTRACKSMAX=ncloyz_max*ncloxz_max)
+cc      PARAMETER (NTRACKSMAX=ncloyz_max*ncloxz_max)
+      PARAMETER (NTRACKSMAX=10000)
       INTEGER NTRACKS           !number of track candidates
       REAL AL_STORE(5,NTRACKSMAX)
       REAL XM_STORE(NPLANES,NTRACKSMAX)
@@ -285,13 +290,14 @@
       REAL BX_STORE(NPLANES,NTRACKSMAX)
       REAL BY_STORE(NPLANES,NTRACKSMAX)
       REAL RCHI2_STORE(NTRACKSMAX)
-      common/track_candidates/NTRACKS,AL_STORE
+      common/trackcandidates/NTRACKS,AL_STORE
      $     ,XV_STORE,YV_STORE,ZV_STORE
      $     ,XM_STORE,YM_STORE,ZM_STORE
      $     ,RESX_STORE,RESY_STORE
      $     ,AXV_STORE,AYV_STORE
      $     ,XGOOD_STORE,YGOOD_STORE
-     $     ,CP_STORE,CLS_STORE,SENSOR_STORE,LADDER_STORE
+     $     ,CP_STORE,CLS_STORE
+     $     ,SENSOR_STORE,LADDER_STORE
      $     ,BX_STORE,BY_STORE
      $     ,RCHI2_STORE
 
@@ -306,10 +312,15 @@
 c------------------------------------------------------------------------
       PARAMETER (PIGR=3.14)     !159265359)!(1)
 *     -----------------------------------------------------
-*     cuts on cluster signal
+*     cuts on cluster signal (MIP)
 *     -----------------------------------------------------
-      parameter (dedx_x_min=0.)
-      parameter (dedx_y_min=0.)
+      parameter (dedx_x_min_mip=0.)
+      parameter (dedx_y_min_mip=0.)
+      parameter (dedx_x_min_nuclei=5.)
+      parameter (dedx_y_min_nuclei=5.)
+      parameter (dedx_min_nuclei=9.1) !cut to apply nuclei recovery
+      parameter (ddedx_min_nuclei=0.35)!cut to identify bad tracked nuclei
+
 *     -----------------------------------------------------
 *     number of GOOD strips around MAXS
 *     (NB this cut has been removed in track fitting but 
@@ -394,6 +405,7 @@
 c$$$      parameter(nstepx=5)       !inclusion-cut increasing steps
 c$$$      parameter(nstepy=5)      
 *     --- David flight 
+      real maxcuty, maxcutx ! EM GCC4.7
       parameter(cutystart=30.)   
       parameter(cutystep=10.)              !buoni???
       parameter(cutxstart=5.) 
@@ -411,6 +423,7 @@
 *     --------------------------------------------------
 *     cloud selection
 *     --------------------------------------------------
+      integer x_min_start,x_min_step ! EM GCC4.7
       parameter(x_min_start=4) 
       parameter(x_min_step=1)  
       
@@ -420,6 +433,7 @@
 
       common/cutxclouds/ncpxz_min,nptxz_min,nplxz_min 
 
+      integer y_min_start ! EM GCC4.7
       parameter(y_min_start=3) 
 
       integer ncpyz_min