Module stopdistrib_mod

module stopdistrib_mod

        ! Uses
    use precision_mod
    use namelist_mod
    use chambers_mod
    use det_geom_mod
    use tdc_mod
    use unp_mod
    use hists_mod
    use track_mod
    use trackswim_mod, only : TrackToZ
    use pattern_mod
    use skim_mod
    use filters_mod
    use trackrange_mod

        ! Types
    public type ratio_type

        ! Variables
    type (ratio_type), public, DIMENSION(1:MAX_PLANES_P) :: PC_ratio
    type (ratio_type), public, DIMENSION(1:MAX_PLANES_D) :: DC_ratio
    real (kind=r4), private, dimension (56) :: RL_plane
    real (kind=r4), private, dimension (56) :: RL_mid_plane
    real (kind=r4), private, dimension (56) :: RL_end_plane

        ! Subroutines and functions
    public subroutine Ratios ()
    private subroutine radiation_lengths ()

end module stopdistrib_mod
 ====================================================================
  Author: Stephen LaRoy
  Date written: Feb 18, 2002
  Last update: Mar 28, 2002
  Updated by: S. LaRoy
  New updates: Apr 12, 2003
  Updated by: DRG
 --------------------------------------------------------------------
  Description: Makes Histograms to study stopping of muons in target
 ====================================================================

Description of Types

public type ratio_type
    integer (kind=i4) :: Hits_count
    integer (kind=i4) :: Stops_count
end type ratio_type

Description of Variables

type (ratio_type), public, DIMENSION(1:MAX_PLANES_P) :: PC_ratio

type (ratio_type), public, DIMENSION(1:MAX_PLANES_D) :: DC_ratio

real (kind=r4), private, dimension (56) :: RL_plane

real (kind=r4), private, dimension (56) :: RL_mid_plane

real (kind=r4), private, dimension (56) :: RL_end_plane

Description of Subroutines and Functions

public subroutine Ratios ()
    ! Calls: Calc_ratios, FillSkim, radiation_lengths
end subroutine Ratios

private subroutine radiation_lengths ()
end subroutine radiation_lengths