Module filters_mod

module filters_mod

        ! Uses
    use precision_mod
    use det_geom_mod
    use unp_mod
    use namelist_mod

        ! Variables
    integer (kind=i4), public, PARAMETER :: MAXTEST = 50
    logical, public, dimension (MAXTEST) :: FailedTest
    integer (kind=i4), public :: TestEvent = 0
    integer (kind=i4), public :: NHitPlanesDC
    integer (kind=i4), public :: NHitPlanesPC
    integer (kind=i4), public, dimension (MAX_PLANES_D) :: NHitWiresDC
    integer (kind=i4), public, dimension (MAX_PLANES_P) :: NHitWiresPC
    integer (kind=i4), public :: NTotHitsDC
    integer (kind=i4), public :: NTotHitsPC
    integer (kind=i4), private :: TotNHitScints
    integer (kind=i4), private, dimension (MAX_SCINTS) :: NhitScints
    integer (kind=i4), private :: NTotScintHits
    integer (kind=i4), public, PARAMETER :: DCMaxAllowedHits = 1000
    integer (kind=i4), public, PARAMETER :: PCMaxAllowedHits = 200

        ! Subroutines and functions
    public subroutine Filters ()
    private subroutine FiltersInit ()
    private subroutine FiltersCounters ()
    private subroutine FiltersApply ()
    public subroutine FillPostFilterHists ()

end module filters_mod

Description of Variables

integer (kind=i4), public, PARAMETER :: MAXTEST = 50

logical, public, dimension (MAXTEST) :: FailedTest

integer (kind=i4), public :: TestEvent = 0

integer (kind=i4), public :: NHitPlanesDC

integer (kind=i4), public :: NHitPlanesPC

integer (kind=i4), public, dimension (MAX_PLANES_D) :: NHitWiresDC

integer (kind=i4), public, dimension (MAX_PLANES_P) :: NHitWiresPC

integer (kind=i4), public :: NTotHitsDC

integer (kind=i4), public :: NTotHitsPC

integer (kind=i4), private :: TotNHitScints

integer (kind=i4), private, dimension (MAX_SCINTS) :: NhitScints

integer (kind=i4), private :: NTotScintHits

integer (kind=i4), public, PARAMETER :: DCMaxAllowedHits = 1000

integer (kind=i4), public, PARAMETER :: PCMaxAllowedHits = 200

Description of Subroutines and Functions

public subroutine Filters ()
    ! Calls: FillPostFilterHists, FiltersApply, FiltersCounters, FiltersInit
end subroutine Filters

private subroutine FiltersInit ()
end subroutine FiltersInit

private subroutine FiltersCounters ()
end subroutine FiltersCounters

private subroutine FiltersApply ()
end subroutine FiltersApply

public subroutine FillPostFilterHists ()
    ! Calls: hf1
end subroutine FillPostFilterHists