/[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.4 by pam-fi, Fri Oct 27 16:08:18 2006 UTC revision 1.8 by pam-fi, Tue Nov 21 17:13:52 2006 UTC
# Line 19  c     * charge correlation Line 19  c     * charge correlation
19  c      c    
20  c------------------------------------------------------------------------  c------------------------------------------------------------------------
21    
22  *     maximum (total) number of stored clusters  *     maximum (total) number of STORED clusters
23        parameter (nclstrmax_level2 = nclstrmax)        parameter (nclstrmax_level2 = nclstrmax) ! same as level1
 c      parameter (nclstrmax_level2=10*nplanes)  
 c      parameter (nclstrmax_level2=5*nplanes)  
24    
25  *     -----------------------------------------------------------  *     -----------------------------------------------------------
26  *     maximum number of cluster (per view) required to perform  *     maximum number of cluster (per view) required to perform
27  *     track serching with full Hough transform  *     track serching with full Hough transform
28        parameter (nclustermax=6)  *     (singlets recovered during track refinement)
29          parameter (nclusterlimit=6)
30    *     -----------------------------------------------------------
31    *     maximum number of couples (per plane) required to perform
32    *     track serching with full Hough transform
33    *     (couples recovered during track refinement)
34          parameter (ncouplelimit=8)
35    
36  *     -----------------------------------------------------------  *     -----------------------------------------------------------
37  *     maximum number of couples per plane and total  *     maximum number of STORED couples, per plane and total
38  *     (only to dimension the vectors)  *     (to dimension the vectors)
39  c      parameter (ncouplemax=2*(nclstrmax_level2/nplanes)**2)  c      parameter (ncouplemax=2*(nclstrmax_level2/nplanes)**2)
40  c      parameter (ncouplemaxtot=ncouplemax*nplanes)  c      parameter (ncouplemaxtot=ncouplemax*nplanes)
41         parameter (ncouplemax=nclustermax*nclustermax)         parameter (ncouplemax    = nclusterlimit*nclusterlimit)
42         parameter (ncouplemaxtot=ncouplemax*nplanes)         parameter (ncouplemaxtot = ncouplemax*nplanes)
43  *     -----------------------------------------------------------  *     -----------------------------------------------------------
44  *     maximum number of STORED couples  *     maximum number of STORED couples
45  *     (if the identified couples exceeds this number the  *     (if the identified couples exceeds this number the
# Line 43  c      parameter (ncouplemaxtot=ncouplem Line 47  c      parameter (ncouplemaxtot=ncouplem
47  *     tagged as not good)  *     tagged as not good)
48  c      parameter (ncp_max=10*nplanes)  c      parameter (ncp_max=10*nplanes)
49  c      parameter (ncp_max=10*nplanes)  c      parameter (ncp_max=10*nplanes)
50        parameter (ncp_max=ncouplemaxtot)  c      parameter (ncp_max        = ncouplemaxtot)
51    
52    
53    
54  *     -----------------------------------------------------------  *     -----------------------------------------------------------
55  *     mask of views  *     mask of views
56  *     0 = ok  *     0 = ok
57  *     1 = n.clusters > nclustermax  *     1 = n.clusters > nclusterlimit    
58    *     8 = n.couples  > ncouplelimit
59    *     2 = n.couples  > ncouplemax
60    *     3 = n.doublets > ndblt_max
61    *     4 = n.triplets > ntrpt_max
62    *     5 = n.clouds yz > ncloyz_max
63    *     6 = n.clouds xz > ncloxz_max
64    *     7 = n.track candidates > NTRACKSMAX
65        integer mask_view(nviews)        integer mask_view(nviews)
66        common/maskview/mask_view        common/maskview/mask_view
67    
# Line 339  c$$$ Line 350  c$$$
350  *     distances in parameter space  *     distances in parameter space
351  *     -----------------------------------------------------  *     -----------------------------------------------------
352        parameter (Dalfaxz3=1.)        parameter (Dalfaxz3=1.)
353        parameter (Dalfayz1=0.8864e-1)  
354        parameter (Dalfayz2=0.6204e-3)  *     --- David ground
355        parameter (Dalfaxz1=0.2909e-1)  c$$$      parameter (Dalfayz1=0.8864e-1)
356        parameter (Dalfaxz2=0.2759e-2)  c$$$      parameter (Dalfayz2=0.6204e-3)
357    c$$$      parameter (Dalfaxz1=0.2909e-1)
358    c$$$      parameter (Dalfaxz2=0.2759e-2)
359    *     --- David flight (preliminary)
360          parameter (Dalfayz1=0.64e-3)
361          parameter (Dalfayz2=0.54e-3)
362          parameter (Dalfaxz1=0.50e-3)
363          parameter (Dalfaxz2=0.12e-3)
364    
365    
366  *     -----------------------------------------------------  *     -----------------------------------------------------
367  *     Cut on normalized distances in parameter space.  *     Cut on normalized distances in parameter space.
368  *     Doublets/triplets are recursively included in a cloud  *     Doublets/triplets are recursively included in a cloud
369  *     if the distance from any of the points already included  *     if the distance from any of the points already included
370  *     is less than this cut.  *     is less than this cut.
371  *     -----------------------------------------------------  *     -----------------------------------------------------
372        parameter(cutystart=0.3)    *     --- David ground
373        parameter(cutystep=0.3)      c$$$      parameter(cutystart=0.3)  
374        parameter(cutxstart=1.)  c$$$      parameter(cutystep=0.3)    
375        parameter(cutxstep=1.)    c$$$      parameter(cutxstart=1.)
376        parameter(maxcuty=100.)  c$$$      parameter(cutxstep=1.)  
377        parameter(maxcutx=150.)  c$$$      parameter(maxcuty=100.)
378    c$$$      parameter(maxcutx=150.)
379    c$$$      parameter(nstepx=50)     !inclusion-cut increasing steps
380    c$$$      parameter(nstepy=50)
381    *     --- David flight (preliminary)
382          parameter(cutystart=7.)  
383          parameter(cutystep=5.)              
384          parameter(cutxstart=5.)
385          parameter(cutxstep=2.)  
386          parameter(maxcuty=200.)
387          parameter(maxcutx=150.)  
388          parameter(nstepx=5)       !inclusion-cut increasing steps
389          parameter(nstepy=5)
390          
391    
       parameter(nstepx=50)     !inclusion-cut increasing steps  
       parameter(nstepy=50)  
392    
393        real cutdistyz            !y0 / tg theta_yz space          real cutdistyz            !y0 / tg theta_yz space  
394        real cutdistxz            !x0 / tg theta_xz space          real cutdistxz            !x0 / tg theta_xz space  
# Line 393  c$$$ Line 424  c$$$
424  *     maximum value of deflection from Hough transform  *     maximum value of deflection from Hough transform
425  *     accepted in order to perform the track fit  *     accepted in order to perform the track fit
426  *     -----------------------------------------------------  *     -----------------------------------------------------
427        parameter (defmax=10000.) !GV-1  c      parameter (defmax=10000.) !GV-1
428          parameter (defmax=100.) !GV-1
429    
430  *     -----------------------------------------------------  *     -----------------------------------------------------
431  *     cut to include new couple or single clusters in the  *     cut to include new couple or single clusters in the
432  *     track fitting, after the first fit  *     track fitting, after the first fit
433  *     -----------------------------------------------------  *     -----------------------------------------------------
434        parameter (clinc=10)        parameter (clinc=3)
435    
436    
437    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.23