* * $Id: tpccom.inc,v 1.1 2004/05/28 16:00:45 dpp Exp $ * * $Log: tpccom.inc,v $ * Revision 1.1 2004/05/28 16:00:45 dpp * -> NEW * -> all tpc response constants * -> common for tpc_FADC_response * * * #if !defined(CLEO_NOCOMDOC) * tpccom Documentation * * * M_FADC_TIME_BINS......number of time bins in the FADC * must accomodate * 2*(ZENDCD+TPC_FADC_BIN_OFFSET) * /TPC_DRIFT_VEL /TPC_FADC_BIN_TIME * eg. 2*(2.5+.25) / 50E-9 / 2E4 = 5500 * FADC_PH...............pulse height values in FADC * FADC_PH_HOLD..........as above, hold a particular cell * FADC_PH_SUM...........sum of the last TPC_FADC_N_SMOOTH pulse height * values for smoothing * FADC_PH_SUM_HOLD......as above, hold a particular cell * FADC_PH_CLUS_SUM......sum of the pulse height values since start of cluster * FADC_PH_CLUS_SUM_HOLD.as above, hold a particular cell * FADC_PH_PED_SUM.......sum of the pulse height values contributing to pedistal * FADC_PH_PED_SUM_HOLD..as above, hold a particular cell * FADC_TAG..............store the tag of the original ion cluster in FADC * FADC_TAG_HOLD.........as above, hold a particular cell * FADC_CELL_HOLD........global cell number for FADC_PH_HOLD * FADC_LYR_HOLD.........layer number for FADC_CELL_HOLD * FADC_WIR_HOLD.........wire number for FADC_CELL_HOLD * TPC_Bfield............magnetic field in ? * TPC_IR................inner radius in meters * TPC_OR................outer radius in meters * TPC_haflen............half length of the TPC in meters * TPC_cyl_crossings.....number of crossing cylinders generating MC points * these are radii where track crossings are recorded * TPC_nominal_cell_wid..nominal cell, or pad, width, in meters * TPC_ncell_devis.......number of cells in a layer must be * devisible by this * TPC_cell_z_width......z cell width, * essentially infinite for a 1 sided readout * TPC_TIME_INHIBIT......applied inhibit in picosec * for possible use in time response simulation * TPC_TIME_AMP..........amplifier shaping time in picosec * for possible use in time response simulation * TPC_SIGNAL_SIGMA_PADS.sigma of gaussian charge spread on pads * TPC_CUTOFF_TOT_PADS...cut off of charge spread based on number of pads * TPC_CUTOFF_FRAC_HT....cut off of charge spread based on pulse height * TPC_min_ion_PH........pulse height, for the ionization center hit, * in a single cell height, for min ion particle * TPC_noise_fraction....noise rate used in calculating TPC_randomH_area * TPC_randomH_area......area per random noise hit: width*length /occupancy * TPC_randomH_Zwidth....length (width in Z) of a random hit, in meters * TPC_randomH_maxPH.....maximum pulse height of random hits * TPC_DRIFT_VEL.........drift velocity in meters/ps * TPC_FADC_BIN_TIME.....period of the FADC in ps * TPC_FADC_LENGTH_XTR...FADC extra length, in meters, * allow a margin for tails and poorly measured time * TPC_FADC_BIN_OFFSET...FADC bin for Z=0 * TPC_EXPON_TAIL_CUT....pulse height value in exponential of pulse to * cut off adding ph to FADC time bin * pre-renormalizing FADC ph; compare to TPC_min_ion_PH * TPC_TIME_AMP_BINS.....amplifier shaping time converted to FADC bins * TPC_TIME_AMP_BINS=TPC_TIME_AMP/TPC_FADC_BIN_TIME * TPC_FADC_SCALE_SINGLE_CELL_MAX * ........the maximum PH in the FADC from a track * crossing a single cell and leaving all charge * in that one cell, * at theta=0 (so there is no longitudinal spread) * TPC_FADC_NOISE_TO_SIGNAL * .........noise-to-signal ratio * noise observed in FADC compared to * TPC_FADC_SCALE_SINGLE_CELL_MAX * TPC_FADC_PED_I........pedistal for initiating a hit in the FADC bins, * as a fraction of TPC_FADC_SCALE_SINGLE_CELL_MAX * TPC_FADC_PED_C........pedistal for continuing a hit in the FADC bins, * as a fraction of TPC_FADC_SCALE_SINGLE_CELL_MAX * TPC_FADC_PED_FRAC.....upper limit of dynamic pedistal, * compared to the current hit pulseheight * that is allowed to observe hit * for possible use in time cluster resolution * TPC_FADC_N_SMOOTH.....number of FADC bins to average * TPC_FADC_PERSIST......persistancy of a FADC time cluster, * minimum pulse length * TPC_FADC_EXTRA_NORM...extra normanlization factor for displaying * pulse heights in xts_FADCview. This multiplies * AREA_NORM=TPC_TIME_AMP/TPC_FADC_BIN_TIME * to obtain the PH normalization. * ARTIFICIAL_LAYER_STOP.artificially cut off the chamber after this layer #endif C----------------------------------------------------------------------- INTEGER M_FADC_TIME_BINS PARAMETER(M_FADC_TIME_BINS= 6000 ) REAL FADC_PH REAL FADC_PH_HOLD REAL FADC_PH_SUM REAL FADC_PH_SUM_HOLD REAL FADC_PH_CLUS_SUM REAL FADC_PH_CLUS_SUM_HOLD REAL FADC_PH_PED_SUM REAL FADC_PH_PED_SUM_HOLD INTEGER FADC_TAG INTEGER FADC_TAG_HOLD INTEGER FADC_CELL_HOLD INTEGER FADC_LYR_HOLD INTEGER FADC_WIR_HOLD REAL TPC_Bfield REAL TPC_IR REAL TPC_OR REAL TPC_haflen INTEGER TPC_cyl_crossing REAL TPC_nominal_cell_wid INTEGER TPC_ncell_devis REAL TPC_cell_z_width REAL TPC_TIME_INHIBIT REAL TPC_TIME_AMP REAL TPC_SIGNAL_SIGMA_PADS INTEGER TPC_CUTOFF_TOT_PADS REAL TPC_CUTOFF_FRAC_HT REAL TPC_min_ion_PH REAL TPC_noise_fraction REAL TPC_randomH_area REAL TPC_randomH_Zwidth REAL TPC_randomH_maxPH REAL TPC_DRIFT_VEL REAL TPC_FADC_BIN_TIME REAL TPC_FADC_LENGTH_XTR INTEGER TPC_FADC_BIN_OFFSET REAL TPC_EXPON_TAIL_CUT REAL TPC_TIME_AMP_BINS REAL TPC_FADC_SCALE_SINGLE_CELL_MAX REAL TPC_FADC_NOISE_TO_SIGNAL REAL TPC_FADC_PED_I REAL TPC_FADC_PED_C REAL TPC_FADC_PED_FRAC INTEGER TPC_FADC_N_SMOOTH INTEGER TPC_FADC_PERSIST REAL TPC_FADC_EXTRA_NORM INTEGER ARTIFICIAL_LAYER_STOP C----------------------------------------------------------------------- COMMON /TPCFADCR/ + FADC_PH (M_FADC_TIME_BINS), + FADC_PH_HOLD (M_FADC_TIME_BINS), + FADC_PH_SUM (M_FADC_TIME_BINS), + FADC_PH_SUM_HOLD (M_FADC_TIME_BINS), + FADC_PH_CLUS_SUM (M_FADC_TIME_BINS), + FADC_PH_CLUS_SUM_HOLD(M_FADC_TIME_BINS), + FADC_PH_PED_SUM (M_FADC_TIME_BINS), + FADC_PH_PED_SUM_HOLD (M_FADC_TIME_BINS) COMMON /TPCFADCI/ + FADC_TAG(M_FADC_TIME_BINS), + FADC_TAG_HOLD(M_FADC_TIME_BINS), + FADC_CELL_HOLD,FADC_LYR_HOLD,FADC_WIR_HOLD, + TPC_FADC_N_SMOOTH,TPC_FADC_PERSIST, + ARTIFICIAL_LAYER_STOP C----------------------------------------------------------------------- COMMON /TPCCOMR/ + TPC_Bfield, TPC_IR, TPC_OR, + TPC_haflen, + TPC_nominal_cell_wid, TPC_cell_z_width, + TPC_TIME_INHIBIT, TPC_TIME_AMP, + TPC_SIGNAL_SIGMA_PADS,TPC_CUTOFF_FRAC_HT, TPC_min_ion_PH, + TPC_noise_fraction, TPC_randomH_area, + TPC_randomH_Zwidth, TPC_randomH_maxPH, + TPC_DRIFT_VEL, TPC_FADC_BIN_TIME, + TPC_FADC_LENGTH_XTR, TPC_EXPON_TAIL_CUT, + TPC_TIME_AMP_BINS, TPC_FADC_SCALE_SINGLE_CELL_MAX, + TPC_FADC_NOISE_TO_SIGNAL, + TPC_FADC_PED_I, TPC_FADC_PED_C, TPC_FADC_PED_FRAC, + TPC_FADC_EXTRA_NORM C----------------------------------------------------------------------- COMMON /TPCCOMI/ + TPC_cyl_crossing, + TPC_ncell_devis, + TPC_CUTOFF_TOT_PADS, + TPC_FADC_BIN_OFFSET C----------------------------------------------------------------------- SAVE /TPCFADCR/,/TPCFADCI/,/TPCCOMR/,/TPCCOMI/