Subroutine ko_eff
subroutine ko_eff
! Uses
use Precision_mod
use namelist_mod
use pattern_mod
use Hitpos_mod
use Kalman_mod
use chambers_mod
use unp_mod
! Calls
call getWwire
call hbook1
call hbook2
call hf1
call hf2
call hpak
call trkatz
! Variables
integer :: iwindow
integer :: iplane
integer :: ihit
integer :: jhit
integer :: itdchit
integer :: iwire
real :: z
real :: utrk
real :: vtrk
real :: uhit
real :: vhit
real (kind=R8), dimension (3) :: res3
real (kind=R8) :: res
real (kind=R8) :: sum0
real (kind=R8) :: sum1
real (kind=R8) :: sum2
real (kind=R8) :: mean
real (kind=R8) :: sigma
real :: wtrk
real :: wmin
real :: wmax
integer, PARAMETER :: kHbookBase = 50
integer, PARAMETER :: kHbookChiSqr = kHbookBase + 0
integer, PARAMETER :: kHbookNhits = kHbookBase + 1
integer, PARAMETER :: kHbookConlev = kHbookBase + 2
integer, PARAMETER :: kHbookPCexp = kHbookBase + 3
integer, PARAMETER :: kHbookDCexp = kHbookBase + 4
integer, PARAMETER :: kHbookPCres = kHbookBase + 5
integer, PARAMETER :: kHbookDCres = kHbookBase + 6
integer, PARAMETER :: kHbookPCeff = kHbookBase + 7
integer, PARAMETER :: kHbookDCeff = kHbookBase + 8
integer, PARAMETER :: kHbookXXMap = kHbookBase + 9
integer, PARAMETER :: kHbookPCnoise = kHbookBase + 10
integer, PARAMETER :: kHbookDCnoise = kHbookBase + 11
integer, PARAMETER :: kHbookPCmult = kHbookBase + 12
integer, PARAMETER :: kHbookDCmult = kHbookBase + 13
logical, SAVE :: FirstTime = .true.
integer, PARAMETER :: kMaxPCs = 14
integer, PARAMETER :: kMaxDCs = 50
integer, PARAMETER :: mapPC = 9
integer, PARAMETER :: mapDC = 0
integer, SAVE, dimension (kMaxPCs) :: PCexp
integer, SAVE, dimension (kMaxPCs) :: PCgot
integer, SAVE, dimension (kMaxPCs) :: PCgotNoise
integer, SAVE, dimension (kMaxPCs) :: PCgotMult
integer, SAVE, dimension (kMaxDCs) :: DCexp
integer, SAVE, dimension (kMaxDCs) :: DCgot
integer, SAVE, dimension (kMaxDCs) :: DCgotNoise
integer, SAVE, dimension (kMaxDCs) :: DCgotMult
real, SAVE, dimension (kMaxPCs) :: PCeff
real, SAVE, dimension (kMaxPCs) :: PCnoise
real, SAVE, dimension (kMaxPCs) :: PCmult
real, SAVE, dimension (kMaxDCs) :: DCeff
real, SAVE, dimension (kMaxDCs) :: DCnoise
real, SAVE, dimension (kMaxDCs) :: DCmult
integer :: expwire
integer, EXTERNAL :: findWire
real (kind=R8), EXTERNAL :: conlev
real (kind=R8) :: trkChiSqr
real (kind=R8) :: trkConlev
integer :: trkNhits
real, PARAMETER :: sigma0 = 0.1300
integer :: numhits
end subroutine ko_eff
Description of Variables
iwindow
integer :: iwindow
iplane
integer :: iplane
ihit
integer :: ihit
jhit
integer :: jhit
itdchit
integer :: itdchit
iwire
integer :: iwire
z
real :: z
utrk
real :: utrk
vtrk
real :: vtrk
uhit
real :: uhit
vhit
real :: vhit
res3
real (kind=R8), dimension (3) :: res3
res
real (kind=R8) :: res
sum0
real (kind=R8) :: sum0
sum1
real (kind=R8) :: sum1
sum2
real (kind=R8) :: sum2
mean
real (kind=R8) :: mean
sigma
real (kind=R8) :: sigma
wtrk
real :: wtrk
wmin
real :: wmin
wmax
real :: wmax
kHbookBase
integer, PARAMETER :: kHbookBase = 50
kHbookChiSqr
integer, PARAMETER :: kHbookChiSqr = kHbookBase + 0
kHbookNhits
integer, PARAMETER :: kHbookNhits = kHbookBase + 1
kHbookConlev
integer, PARAMETER :: kHbookConlev = kHbookBase + 2
kHbookPCexp
integer, PARAMETER :: kHbookPCexp = kHbookBase + 3
kHbookDCexp
integer, PARAMETER :: kHbookDCexp = kHbookBase + 4
kHbookPCres
integer, PARAMETER :: kHbookPCres = kHbookBase + 5
kHbookDCres
integer, PARAMETER :: kHbookDCres = kHbookBase + 6
kHbookPCeff
integer, PARAMETER :: kHbookPCeff = kHbookBase + 7
kHbookDCeff
integer, PARAMETER :: kHbookDCeff = kHbookBase + 8
kHbookXXMap
integer, PARAMETER :: kHbookXXMap = kHbookBase + 9
kHbookPCnoise
integer, PARAMETER :: kHbookPCnoise = kHbookBase + 10
kHbookDCnoise
integer, PARAMETER :: kHbookDCnoise = kHbookBase + 11
kHbookPCmult
integer, PARAMETER :: kHbookPCmult = kHbookBase + 12
kHbookDCmult
integer, PARAMETER :: kHbookDCmult = kHbookBase + 13
FirstTime
logical, SAVE :: FirstTime = .true.
kMaxPCs
integer, PARAMETER :: kMaxPCs = 14
kMaxDCs
integer, PARAMETER :: kMaxDCs = 50
mapPC
integer, PARAMETER :: mapPC = 9
mapDC
integer, PARAMETER :: mapDC = 0
PCexp
integer, SAVE, dimension (kMaxPCs) :: PCexp
PCgot
integer, SAVE, dimension (kMaxPCs) :: PCgot
PCgotNoise
integer, SAVE, dimension (kMaxPCs) :: PCgotNoise
PCgotMult
integer, SAVE, dimension (kMaxPCs) :: PCgotMult
DCexp
integer, SAVE, dimension (kMaxDCs) :: DCexp
DCgot
integer, SAVE, dimension (kMaxDCs) :: DCgot
DCgotNoise
integer, SAVE, dimension (kMaxDCs) :: DCgotNoise
DCgotMult
integer, SAVE, dimension (kMaxDCs) :: DCgotMult
PCeff
real, SAVE, dimension (kMaxPCs) :: PCeff
PCnoise
real, SAVE, dimension (kMaxPCs) :: PCnoise
PCmult
real, SAVE, dimension (kMaxPCs) :: PCmult
DCeff
real, SAVE, dimension (kMaxDCs) :: DCeff
DCnoise
real, SAVE, dimension (kMaxDCs) :: DCnoise
DCmult
real, SAVE, dimension (kMaxDCs) :: DCmult
expwire
integer :: expwire
findWire
integer, EXTERNAL :: findWire
conlev
real (kind=R8), EXTERNAL :: conlev
trkChiSqr
real (kind=R8) :: trkChiSqr
trkConlev
real (kind=R8) :: trkConlev
trkNhits
integer :: trkNhits
sigma0
real, PARAMETER :: sigma0 = 0.1300
numhits
integer :: numhits