Subroutine PlotClusters 
subroutine PlotClusters
        ! Uses
    use Precision_mod
    use Chambers_mod
    use Det_Geom_mod
    use Pattern_mod
        ! Calls
    call add_hitclusterc
        ! Variables
    integer (kind=I4) :: iWindow
    integer (kind=I4) :: iPair
    integer (kind=I4) :: iCl
    real (kind=R4), PARAMETER :: SclDC = 0.2
    real (kind=R4), PARAMETER :: SclPC = 0.1
    type (coord_type), POINTER :: CoordP
    integer :: iplane
    integer :: iwire
    integer :: icolor
    real (kind=R4) :: u
    real (kind=R4) :: v
end subroutine PlotClusters
 Description of Variables 
iWindow
integer (kind=I4) :: iWindow
iPair
integer (kind=I4) :: iPair
iCl
integer (kind=I4) :: iCl
SclDC
real (kind=R4), PARAMETER :: SclDC = 0.2
SclPC
real (kind=R4), PARAMETER :: SclPC = 0.1
CoordP
type (coord_type), POINTER :: CoordP
iplane
integer :: iplane
iwire
integer :: iwire
icolor
integer :: icolor
u
real (kind=R4) :: u
v
real (kind=R4) :: v