[KLOE] [Offline Doc] [TRK Files] Track Reconstruction Library vtxfin.inc

C
C --------- VTXFIN.INC --------------
C
C Include file for module VTXFIN (Vertex Finder)
C
C 	Author:         Marco Incagli
C 	=======
C
C 	Creation date:  20 Sep 1997
C	==============
C
C=======================================================================
C
C Parameters used in Vertex Fit procedure
C
	INTEGER NFH, NVC, NBI, NBU, NVX, NLH, NVL
	                         ! identifiers of geometrical  region
	PARAMETER 
     +     (NFH=1,NVC=2,NBI=3,NBU=4,NVX=5,NLH=6,NVL=7)

c ------------ FIT codes (see subroutine VTXFIT)
	integer NOFIT           ! Track end has not been used in a fit
	parameter (NOFIT=0)
	integer FITGOLD		! Track end used in a "succesfull" fit
	parameter (FITGOLD=1)
	integer FITSILVER	! Tarck end used in an "acceptable" fit
	parameter (FITSILVER=2)
	integer FITBAD, FITNOCONV, FITNEGCHI2, 
     +          FITMAXITER, FITTRKEXTR, FITOUTDC
	parameter (FITBAD=4,FITNOCONV=5,FITNEGCHI2=6,
     +            FITMAXITER=7,FITTRKEXTR=8,FITOUTDC=9)
C ------------

	INTEGER ISWMBACK, ISWMFORW ! Swimming direction (BACK=ext to center)
	PARAMETER (ISWMBACK=-1,ISWMFORW=1)

	REAL RCUTMI, ZCUTMI     ! Max distance between two track ends to
	PARAMETER (RCUTMI=50.,ZCUTMI=100.) ! look for a vertex candidate

	REAL    Rpcamax         ! Max distance PCA-Origin for swimming
	PARAMETER (Rpcamax=60.)	! back track (in cm)

	REAL 	ZclosIP		! tracks closer to IP than this can be used
	PARAMETER (ZclosIP=50.) ! in more than one vertex (before VTXMERG)

	REAL	Rcal, Zecap      ! Parameters used to (roughly) check that
        PARAMETER (Rcal=210.,Zecap=190.)  ! vertex position  is legal

C ----------- CHI2 cuts (VTXFIT, VTXMIN) -----------------

	REAL    CUTRKCSQ         ! Cut on max single track CHI2
	PARAMETER (CUTRKCSQ=10.)

	REAL    CHI2limit        ! Cut on global CHI2 at vertex
	PARAMETER (CHI2limit=50.)

	INTEGER NITFITMAX        ! max number of iterations (VTXFIT)
	PARAMETER (NITFITMAX=10)

	REAL    MINSHIFT         ! min normalized vertex shift for convergence
	PARAMETER (MINSHIFT=10.)

	REAL	SIG2TCON, SIG2ZCON ! sigma**2 for constrained vertex
	PARAMETER (SIG2TCON=0.5, SIG2ZCON=5.)

C ----------- VTXCAN ------------
	INTEGER FLAGFH, FLAGLH   ! candidate vertex from extrap of FH or LH
	PARAMETER (FLAGFH=-1,FLAGLH=1)

c -------------------------------
c
c ---------- VTXCRSS ------------
c
	INTEGER NITERCRSS
	REAL 	TOLER, ABSTOLER, PARALCUT, ZSEPMAX, CUTINTER
	PARAMETER (NITERCRSS=10)! Max number of iterations
	PARAMETER (TOLER=0.10)	! Relative tolerance for tangent tracks
	PARAMETER (ABSTOLER=0.5)! Absolute tolerance (in mm) for tang. trakcs
      	PARAMETER (PARALCUT=0.2)! Cut in radians for defining two tracks as 
                                ! (anti)parallel 
      	PARAMETER (ZSEPMAX=20.) ! Max allowed distance between z intersections
      	PARAMETER (CUTINTER=1.) ! Max distance between consecutive iterations
c -------------------------------
c
c ---------- VTXMERG ------------
c
	REAL DISTVTX		! If 2 vertices are within this distance (cm)
	PARAMETER (DISTVTX=5.) 	! then try a 4 tracks vertex
c
c========================================================================
c
c
c Variables used in Common VXFINCOM, thoughout the module VTXFIN.
c The Talk_To variables are initialized in VTXDAT.INC at job 
c initialization (VTXFIN_IN).
c
	INTEGER Ivwrk, Indvwrk   ! Pointers into  VWRK bank
	INTEGER TOTTRK           ! Total number of tracks
	INTEGER Nvxfit           ! Number of fitted vertices
c
	COMMON /VXFINCOM/ Ivwrk, Indvwrk, Tottrk, Nvxfit
c