Module projections_mod

module projections_mod

        ! Uses
    use precision_mod
    use det_geom_mod
    use calibrations_mod
    use chambers_mod
    use filters_mod
    use tdc_mod
    use unp_mod
    use kalman_mod
    use namelist_mod
    use trackswim_mod
    use track_mod
    use hists_mod

        ! Subroutines and functions
    public subroutine ProjectionsHists (iTrack)
    public function UVpos (iTrack, Zpos, dir)
    public function CellNumberDC (iPlane, UVpos)
    public function CellNumberPC (iPlane, UVpos)
    public function intersectDC (iPlane, UVin, UVout)
    public function intersectPC (iPlane, UVin, UVout)

end module projections_mod

Description of Subroutines and Functions

public subroutine ProjectionsHists (iTrack)
    integer (kind=i4) :: iTrack
    ! Calls: HF2, uv2xy
end subroutine ProjectionsHists

public function UVpos (iTrack, Zpos, dir)
    integer (kind=i4) :: iTrack
    real (kind=r4), INTENT(in) :: Zpos
    character, INTENT(in) :: dir
    real (kind=r4) :: UVpos
end function UVpos
========================================================
 October 2000
------------------------------------------------------------------
 Find U or V position of the track at the specified 'Zpos'.
========================================================

Author: Maher Quraan

public function CellNumberDC (iPlane, UVpos)
    integer (kind=i4), INTENT(in) :: iPlane
    real (kind=r4), DIMENSION(2), INTENT(in) :: UVpos
    integer (kind=i4) :: CellNumberDC
end function CellNumberDC
========================================================
 October 2000
 modified May 2002 by Marc Lalancette
--------------------------------------------------------
 Find the cell number given U or V position of the track
 at the entrance or exit point of a given plane
========================================================

Author: Maher Quraan

public function CellNumberPC (iPlane, UVpos)
    integer (kind=i4), INTENT(in) :: iPlane
    real (kind=r4), DIMENSION(2), INTENT(in) :: UVpos
    integer (kind=i4) :: CellNumberPC
end function CellNumberPC
========================================================
 October 2000
 modified May 2002 by Marc Lalancette
 --------------------------------------------------------
 Find the physical wire number given U or V position of the track
 at the entrance or exit point of a given plane
========================================================

Author: Maher Quraan

public function intersectDC (iPlane, UVin, UVout)
    integer (kind=i4) :: iPlane
    real (kind=r4), DIMENSION(2), INTENT(in) :: UVin
    real (kind=r4), DIMENSION(2), INTENT(in) :: UVout
    logical :: intersectDC
end function intersectDC
========================================================
 October 2000
--------------------------------------------------------
 Check if the track intersected the plane
========================================================

Author: Maher Quraan

public function intersectPC (iPlane, UVin, UVout)
    integer (kind=i4) :: iPlane
    real (kind=r4), DIMENSION(2), INTENT(in) :: UVin
    real (kind=r4), DIMENSION(2), INTENT(in) :: UVout
    logical :: intersectPC
end function intersectPC
========================================================
 November 2001
--------------------------------------------------------
 Check if the track intersected the plane
========================================================

Author: Maher Quraan