Module leftright_mod

module leftright_mod

        ! Uses
    use precision_mod
    use det_geom_mod
    use chambers_mod
    use filters_mod
    use tdc_mod
    use unp_mod
    use hists_mod
    use namelist_mod
    use pattern_mod

        ! Types
    public type LeftRight_type
    private type LeftRightUV_type

        ! Variables
    type (LeftRight_type), public, TARGET, dimension (DCMaxAllowedHits) :: LeftRight
    type (LeftRight_type), private, dimension (DCMaxAllowedHits/2) :: LeftRightUV
    real (kind=r4), private :: Chi2Save
    logical, public :: PermDone
    integer (kind=i4), private :: nPermMaxU
    integer (kind=i4), private :: nPermMaxV
    integer (kind=i4), public, TARGET :: nHitsWind
    integer (kind=i4), public :: nHitsWindU
    integer (kind=i4), public :: nHitsWindV
    integer (kind=i4), public :: nPerm
    integer (kind=i4), private :: nPermMax
    integer (kind=i4), private :: iHitUV
    integer (kind=i4), public :: nPermSave
    integer (kind=i4), private :: nPermSave2

        ! Subroutines and functions
    public subroutine LeftRightGeom (iWindow, exclude)
    public subroutine LeftRightInit (UVdir)
    public subroutine LeftRightPerm (Chi2, UVdir)

end module leftright_mod

Description of Types

public type LeftRight_type
    character :: LCR
    integer (kind=i4) :: plane
    logical :: resolved
    logical :: exclude
end type LeftRight_type

private type LeftRightUV_type
    character :: LCR
    logical :: resolved
end type LeftRightUV_type

Description of Variables

type (LeftRight_type), public, TARGET, dimension (DCMaxAllowedHits) :: LeftRight

type (LeftRight_type), private, dimension (DCMaxAllowedHits/2) :: LeftRightUV

real (kind=r4), private :: Chi2Save

logical, public :: PermDone

integer (kind=i4), private :: nPermMaxU

integer (kind=i4), private :: nPermMaxV

integer (kind=i4), public, TARGET :: nHitsWind

integer (kind=i4), public :: nHitsWindU

integer (kind=i4), public :: nHitsWindV

integer (kind=i4), public :: nPerm

integer (kind=i4), private :: nPermMax

integer (kind=i4), private :: iHitUV

integer (kind=i4), public :: nPermSave

integer (kind=i4), private :: nPermSave2

Description of Subroutines and Functions

public subroutine LeftRightGeom (iWindow, exclude)
    integer (kind=i4) :: iWindow
    logical (kind=i4), dimension (DCMaxAllowedHits) :: exclude
    ! Calls: kerror
end subroutine LeftRightGeom

public subroutine LeftRightInit (UVdir)
    integer (kind=i4) :: UVdir
end subroutine LeftRightInit

public subroutine LeftRightPerm (Chi2, UVdir)
    real (kind=r4) :: Chi2
    integer (kind=i4) :: UVdir
end subroutine LeftRightPerm