Module user_hists_mod
module user_hists_mod
! Uses
use precision_mod
use det_geom_mod
use chambers_mod
use tdc_mod
use unp_mod
use hists_mod
use filters_mod
use namelist_mod
use calibrations_mod
! Variables
integer (kind=i4), public, parameter :: userh_s = 52300
integer (kind=i4), public :: userhist_id1 = userh_s
integer (kind=i4), public :: userhist_id2 = userh_s + 1
integer (kind=i4), public :: userhist_id3 = userh_s + 2
integer (kind=i4), public :: userhist_id4 = userh_s + 10
integer (kind=i4), public :: userhist_id5 = userh_s + 20
integer (kind=i4), public :: userhist_id6 = userh_s + 21
integer (kind=i4), public :: userhist_id7 = userh_s + 22
integer (kind=i4), public, parameter :: rpmhistsbase = 55000
real (kind=r4), private, dimension (max_planes_p) :: avgadc
character (len=2), private :: ipString
integer (kind=I4), private, PARAMETER :: idh_deltap_p = 50101
integer (kind=I4), private, PARAMETER :: idh_deltap_c = 50102
integer (kind=I4), private, PARAMETER :: idh_dpmag_p = 50103
integer (kind=I4), private, PARAMETER :: idh_dpmag_c = 50104
integer (kind=I4), private, PARAMETER :: idh_dcost_p = 50105
integer (kind=I4), private, PARAMETER :: idh_dcost_c = 50106
integer (kind=I4), private, PARAMETER :: idh_deltap_evt = 50107
integer (kind=I4), private, PARAMETER :: idh_dpmag_evt = 50108
integer (kind=I4), private, PARAMETER :: idh_dcost_evt = 50109
integer (kind=I4), private, PARAMETER :: idh_deltap_p2 = 50110
integer (kind=I4), private, PARAMETER :: idh_kink1_costh = 50111
integer (kind=I4), private, PARAMETER :: idh_kink2_costh = 50112
integer (kind=I4), private, PARAMETER :: idh_kink3_costh = 50113
integer (kind=I4), private, PARAMETER :: idh_kinksigma_costh = 50114
integer (kind=I4), private, PARAMETER :: idh_kscl1_costh = 50115
integer (kind=I4), private, PARAMETER :: idh_kscl2_costh = 50116
integer (kind=I4), private, PARAMETER :: idh_kscl3_costh = 50117
integer (kind=I4), private, PARAMETER :: idh_rdpdk_costh = 50118
integer (kind=I4), private, PARAMETER :: idh_pdpdk_costh = 50119
integer (kind=I4), private, PARAMETER :: idh_zdpdk_costh = 50120
integer (kind=I4), private, PARAMETER :: idh_rdpd1_costh = 50121
integer (kind=I4), private, PARAMETER :: idh_pdpd1_costh = 50122
integer (kind=I4), private, PARAMETER :: idh_rdpd2_costh = 50123
integer (kind=I4), private, PARAMETER :: idh_pdpd2_costh = 50124
integer (kind=I4), private, PARAMETER :: idh_zdpd1_costh = 50125
integer (kind=I4), private, PARAMETER :: idh_zdpd2_costh = 50126
integer (kind=I4), private, PARAMETER :: idh_rdpd3_costh = 50127
integer (kind=I4), private, PARAMETER :: idh_zdpd3_costh = 50128
integer (kind=I4), private, PARAMETER :: idh_rdpdkangle_costh = 50129
integer (kind=I4), private, PARAMETER :: idh_pdpdkangle_costh = 50130
integer (kind=I4), private, PARAMETER :: idh_zdpdkangle_costh = 50131
integer (kind=I4), private, PARAMETER :: idh_rkangle_pgt10 = 50140
integer (kind=I4), private, PARAMETER :: idh_pkangle_pgt10 = 50150
integer (kind=I4), private, PARAMETER :: idh_zkangle_pgt10 = 50160
integer (kind=i4), public, PARAMETER :: IDH_HitRadius = 50060
integer (kind=i4), public, PARAMETER :: IDH_FAILED_TRACK = 60000
integer (kind=i4), public, PARAMETER :: IDH_RESID_LengthBin = 53000
integer (kind=i4), public, PARAMETER :: IDH_Chi2 = 50023
integer (kind=I4), public, PARAMETER :: IDH_Xtalk_Fraction = 62000
integer (kind=I4), public, PARAMETER :: IDH_WIRE_DIFF = 62001
integer (kind=i4), public, PARAMETER :: msor6nbins = 100
real (kind=R4), public, PARAMETER :: msor6cmin = -5.0
real (kind=R4), public, PARAMETER :: msor6binwid = 0.1
integer, public, PARAMETER :: IDH_MSOR6_FIRSTHIST = 66000
! Subroutines and functions
public subroutine uDefineRawHists ()
public subroutine uDefinePostFilterHists ()
public subroutine uDefineXtalkHists ()
public subroutine uDefineSkimmingHists ()
public subroutine uDefinePatternHists ()
public subroutine uDefineTrackHists ()
public subroutine uDefinePhysicsHists ()
public subroutine uDefineTCSTRHists ()
public subroutine uFillRawHists ()
public subroutine uFillPostFilterHists ()
public subroutine uFillXtalkHists ()
private subroutine uFillSkimHists ()
public subroutine uFillPatternHists ()
public subroutine uFillTrackHists ()
public subroutine uFillPhysicsHists ()
end module user_hists_mod
Description of Variables
userh_s
integer (kind=i4), public, parameter :: userh_s = 52300
hist start index
userhist_id1
integer (kind=i4), public :: userhist_id1 = userh_s
userhist_id2
integer (kind=i4), public :: userhist_id2 = userh_s + 1
userhist_id3
integer (kind=i4), public :: userhist_id3 = userh_s + 2
userhist_id4
integer (kind=i4), public :: userhist_id4 = userh_s + 10
userhist_id5
integer (kind=i4), public :: userhist_id5 = userh_s + 20
userhist_id6
integer (kind=i4), public :: userhist_id6 = userh_s + 21
userhist_id7
integer (kind=i4), public :: userhist_id7 = userh_s + 22
rpmhistsbase
integer (kind=i4), public, parameter :: rpmhistsbase = 55000
avgadc
real (kind=r4), private, dimension (max_planes_p) :: avgadc
ipString
character (len=2), private :: ipString
idh_deltap_p
integer (kind=I4), private, PARAMETER :: idh_deltap_p = 50101
idh_deltap_c
integer (kind=I4), private, PARAMETER :: idh_deltap_c = 50102
idh_dpmag_p
integer (kind=I4), private, PARAMETER :: idh_dpmag_p = 50103
idh_dpmag_c
integer (kind=I4), private, PARAMETER :: idh_dpmag_c = 50104
idh_dcost_p
integer (kind=I4), private, PARAMETER :: idh_dcost_p = 50105
idh_dcost_c
integer (kind=I4), private, PARAMETER :: idh_dcost_c = 50106
idh_deltap_evt
integer (kind=I4), private, PARAMETER :: idh_deltap_evt = 50107
idh_dpmag_evt
integer (kind=I4), private, PARAMETER :: idh_dpmag_evt = 50108
idh_dcost_evt
integer (kind=I4), private, PARAMETER :: idh_dcost_evt = 50109
idh_deltap_p2
integer (kind=I4), private, PARAMETER :: idh_deltap_p2 = 50110
idh_kink1_costh
integer (kind=I4), private, PARAMETER :: idh_kink1_costh = 50111
idh_kink2_costh
integer (kind=I4), private, PARAMETER :: idh_kink2_costh = 50112
idh_kink3_costh
integer (kind=I4), private, PARAMETER :: idh_kink3_costh = 50113
idh_kinksigma_costh
integer (kind=I4), private, PARAMETER :: idh_kinksigma_costh = 50114
idh_kscl1_costh
integer (kind=I4), private, PARAMETER :: idh_kscl1_costh = 50115
idh_kscl2_costh
integer (kind=I4), private, PARAMETER :: idh_kscl2_costh = 50116
idh_kscl3_costh
integer (kind=I4), private, PARAMETER :: idh_kscl3_costh = 50117
idh_rdpdk_costh
integer (kind=I4), private, PARAMETER :: idh_rdpdk_costh = 50118
idh_pdpdk_costh
integer (kind=I4), private, PARAMETER :: idh_pdpdk_costh = 50119
idh_zdpdk_costh
integer (kind=I4), private, PARAMETER :: idh_zdpdk_costh = 50120
idh_rdpd1_costh
integer (kind=I4), private, PARAMETER :: idh_rdpd1_costh = 50121
idh_pdpd1_costh
integer (kind=I4), private, PARAMETER :: idh_pdpd1_costh = 50122
idh_rdpd2_costh
integer (kind=I4), private, PARAMETER :: idh_rdpd2_costh = 50123
idh_pdpd2_costh
integer (kind=I4), private, PARAMETER :: idh_pdpd2_costh = 50124
idh_zdpd1_costh
integer (kind=I4), private, PARAMETER :: idh_zdpd1_costh = 50125
idh_zdpd2_costh
integer (kind=I4), private, PARAMETER :: idh_zdpd2_costh = 50126
idh_rdpd3_costh
integer (kind=I4), private, PARAMETER :: idh_rdpd3_costh = 50127
idh_zdpd3_costh
integer (kind=I4), private, PARAMETER :: idh_zdpd3_costh = 50128
idh_rdpdkangle_costh
integer (kind=I4), private, PARAMETER :: idh_rdpdkangle_costh = 50129
idh_pdpdkangle_costh
integer (kind=I4), private, PARAMETER :: idh_pdpdkangle_costh = 50130
idh_zdpdkangle_costh
integer (kind=I4), private, PARAMETER :: idh_zdpdkangle_costh = 50131
idh_rkangle_pgt10
integer (kind=I4), private, PARAMETER :: idh_rkangle_pgt10 = 50140
idh_pkangle_pgt10
integer (kind=I4), private, PARAMETER :: idh_pkangle_pgt10 = 50150
idh_zkangle_pgt10
integer (kind=I4), private, PARAMETER :: idh_zkangle_pgt10 = 50160
IDH_HitRadius
integer (kind=i4), public, PARAMETER :: IDH_HitRadius = 50060
IDH_FAILED_TRACK
integer (kind=i4), public, PARAMETER :: IDH_FAILED_TRACK = 60000
IDH_RESID_LengthBin
integer (kind=i4), public, PARAMETER :: IDH_RESID_LengthBin = 53000
IDH_Chi2
integer (kind=i4), public, PARAMETER :: IDH_Chi2 = 50023
IDH_Xtalk_Fraction
integer (kind=I4), public, PARAMETER :: IDH_Xtalk_Fraction = 62000
IDH_WIRE_DIFF
integer (kind=I4), public, PARAMETER :: IDH_WIRE_DIFF = 62001
msor6nbins
integer (kind=i4), public, PARAMETER :: msor6nbins = 100
msor6cmin
real (kind=R4), public, PARAMETER :: msor6cmin = -5.0
msor6binwid
real (kind=R4), public, PARAMETER :: msor6binwid = 0.1
IDH_MSOR6_FIRSTHIST
integer, public, PARAMETER :: IDH_MSOR6_FIRSTHIST = 66000
Description of Subroutines and Functions
uDefineRawHists
public subroutine uDefineRawHists ()
end subroutine uDefineRawHists
uDefinePostFilterHists
public subroutine uDefinePostFilterHists ()
! Calls: hbook1, hbook2
end subroutine uDefinePostFilterHists
uDefineXtalkHists
public subroutine uDefineXtalkHists ()
end subroutine uDefineXtalkHists
uDefineSkimmingHists
public subroutine uDefineSkimmingHists ()
end subroutine uDefineSkimmingHists
uDefinePatternHists
public subroutine uDefinePatternHists ()
! Calls: hbook1
end subroutine uDefinePatternHists
uDefineTrackHists
public subroutine uDefineTrackHists ()
! Calls: hbook1, hbook2
end subroutine uDefineTrackHists
uDefinePhysicsHists
public subroutine uDefinePhysicsHists ()
end subroutine uDefinePhysicsHists
uDefineTCSTRHists
public subroutine uDefineTCSTRHists ()
! Calls: HBOOK2
end subroutine uDefineTCSTRHists
uFillRawHists
public subroutine uFillRawHists ()
end subroutine uFillRawHists
uFillPostFilterHists
public subroutine uFillPostFilterHists ()
! Calls: hf1, hf2
end subroutine uFillPostFilterHists
uFillXtalkHists
public subroutine uFillXtalkHists ()
end subroutine uFillXtalkHists
uFillSkimHists
private subroutine uFillSkimHists ()
end subroutine uFillSkimHists
uFillPatternHists
public subroutine uFillPatternHists ()
! Calls: hf1
end subroutine uFillPatternHists
uFillTrackHists
public subroutine uFillTrackHists ()
! Calls: hf1, hf2
end subroutine uFillTrackHists
uFillPhysicsHists
public subroutine uFillPhysicsHists ()
end subroutine uFillPhysicsHists