Module track_resolution_mod
module track_resolution_mod
! Uses
use precision_mod
use physicalconstants_mod
use namelist_mod
use det_geom_mod
! Variables
integer (kind=i4), private, parameter :: NX_IND = 21
integer (kind=i4), private, parameter :: NY_IND = 21
real (kind=r4), private :: x_inc
real (kind=r4), private, dimension (NX_IND,NY_IND) :: resol_table
! Subroutines and functions
public subroutine read_resolution (nrun)
private subroutine testCellResolution ()
public function getCellResolution (iplane, pos) result (resolution)
public subroutine getResolution (posz, posy, DCResol)
end module track_resolution_mod
Description of Variables
NX_IND
integer (kind=i4), private, parameter :: NX_IND = 21
NY_IND
integer (kind=i4), private, parameter :: NY_IND = 21
x_inc
real (kind=r4), private :: x_inc
resol_table
real (kind=r4), private, dimension (NX_IND,NY_IND) :: resol_table
Description of Subroutines and Functions
read_resolution
public subroutine read_resolution (nrun)
integer, INTENT(in) :: nrun
! Calls: CDFGET, Rite, kerror, testCellResolution
end subroutine read_resolution
Author: Jingliang Hu
Date: Apr. 19, 2005
Read in the resolution table, and store it for Helix fitting
This routine is nearly identical to the one written by
Dennis Wright, for reading the tables into GEANT.
testCellResolution
private subroutine testCellResolution ()
! Calls: getResolution
end subroutine testCellResolution
getCellResolution
public function getCellResolution (iplane, pos) result (resolution)
integer, INTENT(in) :: iplane
real (kind=R8), INTENT(in), dimension (2) :: pos
real (kind=R8) :: resolution
! Calls: getResolution
end function getCellResolution
getResolution
public subroutine getResolution (posz, posy, DCResol)
real (kind=R8), INTENT(in) :: posz
real (kind=R8), INTENT(in) :: posy
real (kind=R8), INTENT(out) :: DCResol
! Calls: kerror
end subroutine getResolution