Module qhists_mod
module qhists_mod
! Uses
use precision_mod
use unp_mod, ONLY:DC_NPhits,PC_NPhits,dctdc,pctdc
use tdc_mod, ONLY:whits_TYPE
use namelist_mod, ONLY: FirstPlaneDC,LastPlaneDC,FirstPlanePC,LastPlanePC, tdc_min,tdc_max
use pattern_mod
use classifybj_mod, ONLY: fillwinuvpvertex
use chambers_mod, ONLY: uv2xy
use det_geom_mod
use cluster_mod
use track_mod
! Variables
integer, private :: MaxDCBulgeHit
integer, public, dimension (MaxDCBulgeHit) :: dcbulgeP
integer, public :: Ndcbulgehit
real (kind=R4), public, dimension (MaxDCBulgeHit) :: dcbulgeX
real (kind=R4), public, dimension (MaxDCBulgeHit) :: dcbulgeY
real (kind=R4), public, dimension (MaxDCBulgeHit) :: dcbulgeZ
real (kind=R4), public, dimension (MaxDCBulgeHit) :: dcbulgeT
integer (kind=i4), private, PARAMETER :: IDH_DCdtime = 2000
integer (kind=i4), private, PARAMETER :: IDH_PCdtime = 2100
integer (kind=i4), private, PARAMETER :: IDH_QOther = 2150
integer (kind=i4), private, PARAMETER :: IDH_DCpostime = 2200
integer (kind=i4), private, PARAMETER :: IDH_PCpostime = 2450
integer (kind=i4), private, PARAMETER :: IDH_DCbulge = 2600
integer (kind=i4), private, PARAMETER :: IDH_DCindiv = 2700
integer (kind=i4), private, PARAMETER :: IDH_DCindivs = 2750
integer (kind=i4), private, PARAMETER :: IDH_DCouter = 2800
integer (kind=i4), private, PARAMETER :: IDH_DCouters = 2850
integer (kind=i4), private, PARAMETER :: IDH_DCinner = 2900
integer (kind=i4), private, PARAMETER :: IDH_DCinners = 2950
integer (kind=i4), private, PARAMETER :: IDH_DCdiff1 = 3000
integer (kind=i4), private, PARAMETER :: IDH_DCdiff2 = 3500
integer (kind=i4), private, PARAMETER :: IDH_DCring1 = 4000
integer (kind=i4), private, PARAMETER :: IDH_DCring2 = 4500
real (kind=r4), private, PARAMETER :: qtdc_min = 0.
real (kind=r4), private, PARAMETER :: qtdc_max = 1000.
! Subroutines and functions
public subroutine DefineBulgeHists ()
public subroutine BulgeMonitor ()
end module qhists_mod
Description of Variables
MaxDCBulgeHit
integer, private :: MaxDCBulgeHit
dcbulgeP
integer, public, dimension (MaxDCBulgeHit) :: dcbulgeP
Ndcbulgehit
integer, public :: Ndcbulgehit
dcbulgeX
real (kind=R4), public, dimension (MaxDCBulgeHit) :: dcbulgeX
dcbulgeY
real (kind=R4), public, dimension (MaxDCBulgeHit) :: dcbulgeY
dcbulgeZ
real (kind=R4), public, dimension (MaxDCBulgeHit) :: dcbulgeZ
dcbulgeT
real (kind=R4), public, dimension (MaxDCBulgeHit) :: dcbulgeT
IDH_DCdtime
integer (kind=i4), private, PARAMETER :: IDH_DCdtime = 2000
IDH_PCdtime
integer (kind=i4), private, PARAMETER :: IDH_PCdtime = 2100
IDH_QOther
integer (kind=i4), private, PARAMETER :: IDH_QOther = 2150
IDH_DCpostime
integer (kind=i4), private, PARAMETER :: IDH_DCpostime = 2200
IDH_PCpostime
integer (kind=i4), private, PARAMETER :: IDH_PCpostime = 2450
IDH_DCbulge
integer (kind=i4), private, PARAMETER :: IDH_DCbulge = 2600
IDH_DCindiv
integer (kind=i4), private, PARAMETER :: IDH_DCindiv = 2700
IDH_DCindivs
integer (kind=i4), private, PARAMETER :: IDH_DCindivs = 2750
IDH_DCouter
integer (kind=i4), private, PARAMETER :: IDH_DCouter = 2800
IDH_DCouters
integer (kind=i4), private, PARAMETER :: IDH_DCouters = 2850
IDH_DCinner
integer (kind=i4), private, PARAMETER :: IDH_DCinner = 2900
IDH_DCinners
integer (kind=i4), private, PARAMETER :: IDH_DCinners = 2950
IDH_DCdiff1
integer (kind=i4), private, PARAMETER :: IDH_DCdiff1 = 3000
IDH_DCdiff2
integer (kind=i4), private, PARAMETER :: IDH_DCdiff2 = 3500
IDH_DCring1
integer (kind=i4), private, PARAMETER :: IDH_DCring1 = 4000
IDH_DCring2
integer (kind=i4), private, PARAMETER :: IDH_DCring2 = 4500
qtdc_min
real (kind=r4), private, PARAMETER :: qtdc_min = 0.
qtdc_max
real (kind=r4), private, PARAMETER :: qtdc_max = 1000.
Description of Subroutines and Functions
DefineBulgeHists
public subroutine DefineBulgeHists ()
! Calls: HBOOK1, HBOOK2
end subroutine DefineBulgeHists
BulgeMonitor
public subroutine BulgeMonitor ()
! Calls: FillWinUVPVertex, HF2, hf1, uv2xy
end subroutine BulgeMonitor