Module windowcalc_mod

module windowcalc_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 Pattern_mod
    use Cluster_mod
    use Pattern_Log_mod
    use Xtalk_mod, ONLY: DC_IsXtalk, PC_IsXtalk
    use windowstat_mod

        ! Subroutines and functions
    public subroutine PrintWindowTypes ()
    public subroutine PrintWinSlideStat ()
    public subroutine CalcWinSlideAvgSig ()
    public subroutine CalcWinStartStop ()
    public subroutine GlobalPlaneMinMaxToCH (restrictplanesmin, restrictplanesmax, minpc, maxpc, mindc, maxdc)
    private subroutine PrintWinCHgaps ()
    public subroutine CalcWinUpDownStat ()
    public subroutine PrintUpDnPCStat ()
    public subroutine PrintWinCHStat ()

end module windowcalc_mod
==============================================================================
 Name: windowcalc_mod
------------------------------------------------------------------------------
 Description:

 [put description here]
==============================================================================

Author: Blair jamieson

Version: 1.1

Description of Subroutines and Functions

public subroutine PrintWindowTypes ()
end subroutine PrintWindowTypes
 SUBROUTINE PrintWindowTypes
------------------------------------------------------------------
 Author: Blair
 Date: Jan. 2003
 Description:
 This prints the same info that you get about windows when you
 run photo. (Except I couldn't get the same type of format
 statement to work -- so its not as pretty?)

public subroutine PrintWinSlideStat ()
end subroutine PrintWinSlideStat
 SUBROUTINE PrintWinSlideStat
------------------------------------------------------------------
 Author: Blair
 Date: Jan. 2003
 Description:
 This subroutine prints the per particle track slide statistics.
 (For both PC and DC planes).

public subroutine CalcWinSlideAvgSig ()
end subroutine CalcWinSlideAvgSig
 SUBROUTINE CalcWinSlideAvgSig
------------------------------------------------------------------
 Author: Blair
 Date: Jan. 2003
 Description:
 This subroutine calculates averages and sigmas for the slide
 statistics type.  (Once the slide hit sums and counters have
 been filled).

public subroutine CalcWinStartStop ()
    ! Calls: GlobalPlaneMinMaxToCH, PrintWinCHgaps
end subroutine CalcWinStartStop
 SUBROUTINE CalcWinStartStop
------------------------------------------------------------------
 Author: Blair
 Date: Jan. 2003
 Description:
 This subroutine uses the plane hits counters to determine start
 and stop plane (global plane numbers).  The results are stored in
 the window stop_type (plane).  Note that this code tries to ignore
 planes that look like they could be cosmics or noise.

public subroutine GlobalPlaneMinMaxToCH (restrictplanesmin, restrictplanesmax, minpc, maxpc, mindc, maxdc)
    integer (kind=i4), INTENT(in) :: restrictplanesmin
    integer (kind=i4), INTENT(in) :: restrictplanesmax
    integer (kind=i4), INTENT(out) :: minpc
    integer (kind=i4), INTENT(out) :: maxpc
    integer (kind=i4), INTENT(out) :: mindc
    integer (kind=i4), INTENT(out) :: maxdc
end subroutine GlobalPlaneMinMaxToCH

private subroutine PrintWinCHgaps ()
end subroutine PrintWinCHgaps

public subroutine CalcWinUpDownStat ()
end subroutine CalcWinUpDownStat
 SUBROUTINE CalcWinUpDownStat
------------------------------------------------------------------
 Author: Blair
 Date: Jan. 2003
 Description:
 This subroutine calculates averages, sigmas and hits per plane for
 the upstream vs downstream of target statistics.  To do this, the
 per stream counters and sums are used.

public subroutine PrintUpDnPCStat ()
end subroutine PrintUpDnPCStat

public subroutine PrintWinCHStat ()
end subroutine PrintWinCHStat
 SUBROUTINE PrintWinCHStat
------------------------------------------------------------------
 Author: Blair
 Date: Jan. 2003
 Description:
 This subroutine prints the per particle window chamber hit 
 statistics for both PCs and DCs.