*
* $Id: monte_carlo_tracks.inc,v 1.2 2004/05/28 16:01:57 dpp Exp $
*
* $Log: monte_carlo_tracks.inc,v $
* Revision 1.2  2004/05/28 16:01:57  dpp
*      -> add variable for cdscrtcd hit usage
*
* Revision 1.1  2003/10/28 21:24:56  dpp
*      -> NEW
*      -> list of plausible MC tracks, those that should be found
* 
*
* monte_carlo_tracks.inc
*
#if !defined(CLEO_NOCOMDOC)

C-----------------------------------------------------------------------
C dimensions of arrays
C-----------------------------------------------------------------------

C M_mctrak_plausbl.....maximum number of stored MC tracks

C-----------------------------------------------------------------------
C variables
C-----------------------------------------------------------------------

C n_mctrak_plausbl.....number       of stored MC tracks
C i_mctrak_plausbl.....index that can be used for stored MC tracks
C CU_mctrak_plausbl....curvature    of stored MC tracks
C FI_mctrak_plausbl....phi 0        of stored MC tracks
C D0_mctrak_plausbl....impact param of stored MC tracks
C DZ_mctrak_plausbl....YANDLF       of stored MC tracks
C Z0_mctrak_plausbl....Z0           of stored MC tracks
C NH_mctrak_plausbl....number of hits
C NC_mctrak_plausbl....number of clear hits, see tpc_hitlist_xcheck.F
C MC_mctrak_plausbl....monte carlo track ID

C-----------------------------------------------------------------------
C these variable decribe the cdscrtcd hit usage
C-----------------------------------------------------------------------

C TPC_NhitsGen_Cross...number of hit locations used in cdscrtcd
C                      due to the generated track crossings
C TPC_NhitsGen_wNoise..number of hit locations used in cdscrtcd
C                      including the noise hits
C TPC_NhitsGen_aFADC...number of hit locations used in cdscrtcd
C                      after the FADC generation/clustering analysis

C-----------------------------------------------------------------------
#endif
C-----------------------------------------------------------------------
      INTEGER M_mctrak_plausbl
      PARAMETER (M_mctrak_plausbl=2000)
C-----------------------------------------------------------------------
      INTEGER n_mctrak_plausbl
      INTEGER i_mctrak_plausbl
      REAL CU_mctrak_plausbl
      REAL FI_mctrak_plausbl
      REAL D0_mctrak_plausbl
      REAL DZ_mctrak_plausbl
      REAL Z0_mctrak_plausbl
      INTEGER NH_mctrak_plausbl
      INTEGER NC_mctrak_plausbl
      INTEGER MC_mctrak_plausbl
C-----------------------------------------------------------------------
      INTEGER TPC_NhitsGen_Cross
      INTEGER TPC_NhitsGen_wNoise
      INTEGER TPC_NhitsGen_aFADC
C-----------------------------------------------------------------------
	COMMON/MCTRAK_PLAUSBL_I/
     1     n_mctrak_plausbl,
     2     i_mctrak_plausbl,
     3     NH_mctrak_plausbl(M_mctrak_plausbl),
     4     NC_mctrak_plausbl(M_mctrak_plausbl),
     5     MC_mctrak_plausbl(M_mctrak_plausbl)

	COMMON/MCTRAK_PLAUSBL_R/
     1       CU_mctrak_plausbl(M_mctrak_plausbl),
     2       FI_mctrak_plausbl(M_mctrak_plausbl),
     3       D0_mctrak_plausbl(M_mctrak_plausbl),
     4       DZ_mctrak_plausbl(M_mctrak_plausbl),
     5       Z0_mctrak_plausbl(M_mctrak_plausbl)

        COMMON/TPC_HIT_USAGE/
     +     TPC_NhitsGen_Cross,
     +     TPC_NhitsGen_wNoise,
     +     TPC_NhitsGen_aFADC
C-----------------------------------------------------------------------
	SAVE /MCTRAK_PLAUSBL_I/,/MCTRAK_PLAUSBL_R/,/TPC_HIT_USAGE/