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