Subroutine DPLOT

subroutine DPLOT

        ! Uses
    use precision_mod
    use unp_mod
    use unpmc_mod, ONLY: unpmc, unpGeantSP, unpackMUSR
    use unpderiv_mod
    use filters_mod
    use hists_mod
    use rawhists_mod
    use user_hists_mod
    use namelist_mod
    use xtalk_mod
    use pattern_mod
    use windowbj_mod
    use windowstat_mod
    use pattern_log_mod
    use tracking_mod
    use stopdistrib_mod
    use classify_mod
    use classifybj_mod
    use physics_hist_mod
    use skim_mod
    use trackrange_mod
    use beam_spot_mod
    use track_mod
    use pact_mod
    use tec_mod
    use qhists_mod
    use bmspotjb_mod
    use chambers_mod
    use timezero_mod

        ! Calls
    call BMJBanalysis
    call BeamSpots
    call BulgeMonitor
    call ClearClassify
    call ClearImportantTECArrays
    call ClearTracking
    call ClearWindowingBJ
    call EvalTwoHits
    call Fail_Status
    call FillHelixTree
    call FillPhysicsHists
    call FillRawHists
    call Filters
    call GetCWD
    call Getenv
    call HF1
    call IdentifyPositrons
    call InitTracking
    call LogFGResult
    call LogWinDCs
    call PACTanalysis
    call PACThists
    call PactRawHists
    call PostFitClassify
    call Ratios
    call ResetSkim
    call SelectTriggerParticle
    call TECanalysis
    call TimeZeroHists
    call Tracking
    call UnpGeantSP
    call UnpackDeriv
    call UnpackMUSR
    call WindowingBJ
    call Xtalk
    call hbook1
    call hf1
    call kerror
    call ko_tdctree
    call ko_tree
    call makebranch
    call opentree
    call savec
    call savetree
    call see_tec
    call setbranchvar
    call tdc_listhits
    call trackrange
    call uFillPatternHists
    call uFillPostFilterHists
    call uFillRawHists
    call uFillTrackHists

        ! Variables
    integer, EXTERNAL :: iutime
    integer :: eventstarttime
    integer :: eventendtime
    integer :: unpackstarttime
    integer :: unpackendtime
    integer :: windowingstarttime
    integer :: windowingendtime
    integer :: xtalkstarttime
    integer :: xtalkendtime
    integer :: trackingstarttime
    integer :: trackingendtime
    logical, PARAMETER :: enableTiming = .false.
    integer (kind=i4) :: itest
    integer (kind=i4) :: istat
    integer (kind=i4) :: dummy
    integer (kind=i4) :: iTime
    integer (kind=i4) :: iWindow
    integer (kind=i4) :: ClassStat
    integer (kind=i4), PARAMETER :: iTimeMax = 20
    real (kind=r4), dimension (iTimeMax) :: Time
    logical :: first = .true.
    logical :: sprint
    logical :: Pact_Fail
    integer (kind=i4) :: itr
    character (len=4) :: cer
    logical :: AnalyzeEvent = .true.
    character (len=256) :: strfile1
    character (len=256) :: strfile2
    real (kind=r8) :: totalP
    character (len=255) :: tree_path
    character (len=255) :: FullTreeFilename

        ! Subroutines and functions
    subroutine ClearClassify ()
    function elapsedtime (start, stop)

end subroutine DPLOT

Description of Variables

integer, EXTERNAL :: iutime

integer :: eventstarttime

integer :: eventendtime

integer :: unpackstarttime

integer :: unpackendtime

integer :: windowingstarttime

integer :: windowingendtime

integer :: xtalkstarttime

integer :: xtalkendtime

integer :: trackingstarttime

integer :: trackingendtime

logical, PARAMETER :: enableTiming = .false.

integer (kind=i4) :: itest

integer (kind=i4) :: istat

integer (kind=i4) :: dummy

integer (kind=i4) :: iTime

integer (kind=i4) :: iWindow

integer (kind=i4) :: ClassStat

integer (kind=i4), PARAMETER :: iTimeMax = 20

real (kind=r4), dimension (iTimeMax) :: Time

logical :: first = .true.

logical :: sprint

logical :: Pact_Fail

integer (kind=i4) :: itr

character (len=4) :: cer

logical :: AnalyzeEvent = .true.

character (len=256) :: strfile1

character (len=256) :: strfile2

real (kind=r8) :: totalP

character (len=255) :: tree_path

character (len=255) :: FullTreeFilename

Description of Subroutines and Functions

subroutine ClearClassify ()
end subroutine ClearClassify

function elapsedtime (start, stop)
    integer, INTENT(in) :: start
    integer, INTENT(in) :: stop
    real :: elapsedtime
end function elapsedtime