/[PAMELA software]/DarthVader/TrackerLevel2/inc/F77/common_momanhough.f
ViewVC logotype

Diff of /DarthVader/TrackerLevel2/inc/F77/common_momanhough.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by pam-fi, Mon May 14 11:03:05 2007 UTC revision 1.13 by mocchiut, Thu Jan 16 15:29:41 2014 UTC
# Line 82  c      parameter (ncp_max        = ncoup Line 82  c      parameter (ncp_max        = ncoup
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 -----------------------------------------------
# Line 136  c      parameter (ncp_max        = ncoup Line 137  c      parameter (ncp_max        = ncoup
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------------------------------------------------------------------------
# Line 263  c     variable related to track selectio Line 267  c     variable related to track selectio
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)
# Line 285  c--------------------------------------- Line 290  c---------------------------------------
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
# Line 307  c     CUTS and other parameters Line 312  c     CUTS and other parameters
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
# Line 395  c$$$      parameter(maxcutx=150.)   Line 405  c$$$      parameter(maxcutx=150.)  
405  c$$$      parameter(nstepx=5)       !inclusion-cut increasing steps  c$$$      parameter(nstepx=5)       !inclusion-cut increasing steps
406  c$$$      parameter(nstepy=5)        c$$$      parameter(nstepy=5)      
407  *     --- David flight  *     --- David flight
408          real maxcuty, maxcutx ! EM GCC4.7
409        parameter(cutystart=30.)          parameter(cutystart=30.)  
410        parameter(cutystep=10.)              !buoni???        parameter(cutystep=10.)              !buoni???
411        parameter(cutxstart=5.)        parameter(cutxstart=5.)
# Line 412  c$$$      parameter(nstepy=5)       Line 423  c$$$      parameter(nstepy=5)      
423  *     --------------------------------------------------  *     --------------------------------------------------
424  *     cloud selection  *     cloud selection
425  *     --------------------------------------------------  *     --------------------------------------------------
426          integer x_min_start,x_min_step ! EM GCC4.7
427        parameter(x_min_start=4)        parameter(x_min_start=4)
428        parameter(x_min_step=1)          parameter(x_min_step=1)  
429                
# Line 421  c$$$      parameter(nstepy=5)       Line 433  c$$$      parameter(nstepy=5)      
433    
434        common/cutxclouds/ncpxz_min,nptxz_min,nplxz_min        common/cutxclouds/ncpxz_min,nptxz_min,nplxz_min
435    
436          integer y_min_start ! EM GCC4.7
437        parameter(y_min_start=3)        parameter(y_min_start=3)
438    
439        integer ncpyz_min              integer ncpyz_min      
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.23