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