inc/F77/momanhough_init.f

C     Parameter definition for the program 
C
C     momanhough.f
C
C     Author: Vannuccini Elena
C     Date: 2004/2005
C
c------------------------------------------------------------------------
c     CUTS and other parameters
c------------------------------------------------------------------------

c*****************************************************
cccccc 10/9/2005 modified by david fedele  --> (1)
c
cccccc20/10/2005 modified by elena         --> (2)
c     (rilasciati i tagli per la hough transform, 
c      in attesa dell'allineamento delle colonne)
c****************************************************

      PARAMETER (PIGR=3.14)     !159265359)!(1)
*     -----------------------------------------------------
*     cuts on cluster signal
*     -----------------------------------------------------
c      parameter (dedx_x_min=70.)
c      parameter (dedx_y_min=50.)
      parameter (dedx_x_min=0.)
      parameter (dedx_y_min=0.)
*     -----------------------------------------------------
*     cuts on cluster multiplicity
*     -----------------------------------------------------
      parameter (mult_x_max=15)
      parameter (mult_y_max=15)
*     -----------------------------------------------------
*     number of GOOD strips around MAXS
*     (NB this cut has been removed in track fitting but 
*     not in calibration)
*     now the cut is used to avoid charge correlation
*     for clusters with bad strips
*     -----------------------------------------------------
*      parameter (ngoodstr=1)   
*      parameter (ngoodstr=2)   
      parameter (ngoodstr=2)   

*     -----------------------------------------------------
*     first cuts on the parameters determined with 
*     the hough transform, in order to exclude from the 
*     following analysis not physical dublets and triplets
*     (out of the geometrical acceptance of the apparatus)
*     -----------------------------------------------------
      parameter (alfyz1_max=70.7) !Y0
      parameter (alfyz2_max=0.47) !tg theta-yz (25 deg)
      parameter (alfxz1_max=80.7) !X0
      parameter (alfxz2_max=0.47) !tg theta-xz (25 deg)
*     -----------------------------------------------------
*     cut on the position of the circle center:
*     center inside the spectrometer volume is not physical
*     ==> THE TRIPLET IS REJECTED
*     -----------------------------------------------------
      parameter (xclimit=8.)    !cm

*     -----------------------------------------------------
*     Parameter normalization constants, needed to evaluate
*     distances in parameter space
*     -----------------------------------------------------
      parameter (Dalfayz1=0.1689e-2)
      parameter (Dalfayz2=0.4813e-4)
      parameter (Dalfaxz1=0.1974e-2)
      parameter (Dalfaxz2=0.7978e-4)
      parameter (Dalfaxz3=1.)
*     -----------------------------------------------------
*     Cut on normalized distances in parameter space. 
*     Doublets/triplets are recursively included in a cloud 
*     if the distance from any of the points already included
*     is less than this cut.
*     -----------------------------------------------------
c      parameter (cutdistyz=10.) !y0 / tg theta_yz space
c      parameter (cutdistxz=30.) !x0 / tg theta_xz space
c      parameter (cutdistyz=20.) !y0 / tg theta_yz space   !(2)
c      parameter (cutdistxz=60.) !x0 / tg theta_xz space   !(2)
      parameter (cutdistyz=30.) !y0 / tg theta_yz space   !(2)
      parameter (cutdistxz=90.) !x0 / tg theta_xz space   !(2)
*     (NB deflection is not considered in the selection criteria)

*     --------------------------------------------------
*     cloud selection
*     --------------------------------------------------
*     minimum number of COUPLES required in order to select a cloud
c      parameter (ncpyz_min=3)   !for a straight line
c      parameter (ncpxz_min=4)   !for a circle
      parameter (ncpyz_min=3)   !for a straight line   !(2)
      parameter (ncpxz_min=3)   !for a circle          !(2)
*     minimum number of POINTS required in order to select a cloud
c      parameter (nptyz_min=3)   !for a straight line
c      parameter (nptxz_min=6)   !for a circle
      parameter (nptyz_min=3)   !for a straight line   !(2)
      parameter (nptxz_min=3)   !for a circle          !(2)
*     minimum number of PLANES required in order to select a cloud
c      parameter (nplyz_min=3)   !for a straight line
c      parameter (nplxz_min=4)   !for a circle
      parameter (nplyz_min=3)   !for a straight line   !(2)
      parameter (nplxz_min=3)   !for a circle          !(2)
*     --------------------------------------------------

*     -----------------------------------------------------
*     minimum number of matching couples required to combine
*     XZ-YZ clouds and perform the fit
*     -----------------------------------------------------
c      parameter (ncpok=4)
      parameter (ncpok=3)       !(2)

*     -----------------------------------------------------
*     maximum value of deflection from Hough transform
*     accepted in order to perform the track fit
*     -----------------------------------------------------
c      parameter (defmax=10.) !GV-1
c      parameter (defmax=10000.) !GV-1
      parameter (defmax=25.)    !GV-1

*     -----------------------------------------------------
*     cut to include new couple or single clusters in the
*     track fitting, after the first fit
*     -----------------------------------------------------
c      parameter (clinc=4)
c      parameter (clinc=6)
      parameter (clinc=10)


1	mocchiut	1.1	C Parameter definition for the program
2			C
3			C momanhough.f
4			C
5			C Author: Vannuccini Elena
6			C Date: 2004/2005
7			C
8			c------------------------------------------------------------------------
9			c CUTS and other parameters
10			c------------------------------------------------------------------------
11
12			c*****************************************************
13			cccccc 10/9/2005 modified by david fedele --> (1)
14			c
15			cccccc20/10/2005 modified by elena --> (2)
16			c (rilasciati i tagli per la hough transform,
17			c in attesa dell'allineamento delle colonne)
18			c****************************************************
19
20			PARAMETER (PIGR=3.14) !159265359)!(1)
21			* -----------------------------------------------------
22			* cuts on cluster signal
23			* -----------------------------------------------------
24	pam-fi	1.3	c parameter (dedx_x_min=70.)
25			c parameter (dedx_y_min=50.)
26			parameter (dedx_x_min=0.)
27			parameter (dedx_y_min=0.)
28	mocchiut	1.1	* -----------------------------------------------------
29	pam-fi	1.4	* cuts on cluster multiplicity
30			* -----------------------------------------------------
31			parameter (mult_x_max=15)
32			parameter (mult_y_max=15)
33			* -----------------------------------------------------
34	mocchiut	1.1	* number of GOOD strips around MAXS
35			* (NB this cut has been removed in track fitting but
36			* not in calibration)
37	pam-fi	1.3	* now the cut is used to avoid charge correlation
38			* for clusters with bad strips
39	mocchiut	1.1	* -----------------------------------------------------
40			* parameter (ngoodstr=1)
41	pam-fi	1.3	* parameter (ngoodstr=2)
42	mocchiut	1.1	parameter (ngoodstr=2)
43
44			* -----------------------------------------------------
45			* first cuts on the parameters determined with
46			* the hough transform, in order to exclude from the
47			* following analysis not physical dublets and triplets
48			* (out of the geometrical acceptance of the apparatus)
49			* -----------------------------------------------------
50			parameter (alfyz1_max=70.7) !Y0
51			parameter (alfyz2_max=0.47) !tg theta-yz (25 deg)
52			parameter (alfxz1_max=80.7) !X0
53			parameter (alfxz2_max=0.47) !tg theta-xz (25 deg)
54			* -----------------------------------------------------
55			* cut on the position of the circle center:
56			* center inside the spectrometer volume is not physical
57			* ==> THE TRIPLET IS REJECTED
58			* -----------------------------------------------------
59			parameter (xclimit=8.) !cm
60
61			* -----------------------------------------------------
62			* Parameter normalization constants, needed to evaluate
63			* distances in parameter space
64			* -----------------------------------------------------
65			parameter (Dalfayz1=0.1689e-2)
66			parameter (Dalfayz2=0.4813e-4)
67			parameter (Dalfaxz1=0.1974e-2)
68			parameter (Dalfaxz2=0.7978e-4)
69			parameter (Dalfaxz3=1.)
70			* -----------------------------------------------------
71			* Cut on normalized distances in parameter space.
72			* Doublets/triplets are recursively included in a cloud
73			* if the distance from any of the points already included
74			* is less than this cut.
75			* -----------------------------------------------------
76			c parameter (cutdistyz=10.) !y0 / tg theta_yz space
77			c parameter (cutdistxz=30.) !x0 / tg theta_xz space
78	pam-fi	1.2	c parameter (cutdistyz=20.) !y0 / tg theta_yz space !(2)
79			c parameter (cutdistxz=60.) !x0 / tg theta_xz space !(2)
80			parameter (cutdistyz=30.) !y0 / tg theta_yz space !(2)
81			parameter (cutdistxz=90.) !x0 / tg theta_xz space !(2)
82	mocchiut	1.1	* (NB deflection is not considered in the selection criteria)
83
84			* --------------------------------------------------
85			* cloud selection
86			* --------------------------------------------------
87			* minimum number of COUPLES required in order to select a cloud
88			c parameter (ncpyz_min=3) !for a straight line
89			c parameter (ncpxz_min=4) !for a circle
90			parameter (ncpyz_min=3) !for a straight line !(2)
91			parameter (ncpxz_min=3) !for a circle !(2)
92			* minimum number of POINTS required in order to select a cloud
93			c parameter (nptyz_min=3) !for a straight line
94			c parameter (nptxz_min=6) !for a circle
95			parameter (nptyz_min=3) !for a straight line !(2)
96			parameter (nptxz_min=3) !for a circle !(2)
97			* minimum number of PLANES required in order to select a cloud
98			c parameter (nplyz_min=3) !for a straight line
99			c parameter (nplxz_min=4) !for a circle
100			parameter (nplyz_min=3) !for a straight line !(2)
101			parameter (nplxz_min=3) !for a circle !(2)
102			* --------------------------------------------------
103
104			* -----------------------------------------------------
105			* minimum number of matching couples required to combine
106			* XZ-YZ clouds and perform the fit
107			* -----------------------------------------------------
108			c parameter (ncpok=4)
109			parameter (ncpok=3) !(2)
110
111			* -----------------------------------------------------
112			* maximum value of deflection from Hough transform
113			* accepted in order to perform the track fit
114			* -----------------------------------------------------
115			c parameter (defmax=10.) !GV-1
116			c parameter (defmax=10000.) !GV-1
117			parameter (defmax=25.) !GV-1
118
119			* -----------------------------------------------------
120			* cut to include new couple or single clusters in the
121			* track fitting, after the first fit
122			* -----------------------------------------------------
123			c parameter (clinc=4)
124			c parameter (clinc=6)
125			parameter (clinc=10)
126
127