Module helixfit_common_mod

module helixfit_common_mod

        ! Uses
    use precision_mod
    use hists_mod

        ! Variables
    integer, public, PARAMETER :: kHbookBase1 = HelixFitHist
    integer, public, PARAMETER :: kHbookBase2 = HelixFitHist + 1000
    integer, public, PARAMETER :: kHbookBase5 = HelixFitHist + 4000
    integer, public, PARAMETER :: kHbookBase6 = HelixfitHist + 5000
    integer, public, PARAMETER :: kHbookBase7 = HelixfitHist + 3900
    integer, public, PARAMETER :: kHbookBase8 = HelixfitHist + 3800

        ! Subroutines and functions
    public subroutine Die ()
    public subroutine sortreal8 (num, indin, indout, datain, dataout)

end module helixfit_common_mod

Description of Variables

kHbookBase1

integer, public, PARAMETER :: kHbookBase1 = HelixFitHist
 per-plane histograms

kHbookBase2

integer, public, PARAMETER :: kHbookBase2 = HelixFitHist + 1000
 input

kHbookBase5

integer, public, PARAMETER :: kHbookBase5 = HelixFitHist + 4000
 fit-mc comparison

kHbookBase6

integer, public, PARAMETER :: kHbookBase6 = HelixfitHist + 5000
 fg-mc comparison

kHbookBase7

integer, public, PARAMETER :: kHbookBase7 = HelixfitHist + 3900
 fit-mc par comparison

kHbookBase8

integer, public, PARAMETER :: kHbookBase8 = HelixfitHist + 3800
 fg-mc  par comparison

Description of Subroutines and Functions

Die

public subroutine Die ()
    ! Calls: kerror
end subroutine Die
 SUBROUTINE die

 "call die" prints the current run and event number and kills mofia.

 It is used like C "assert": to bomb out on internal errors
 and other unrecoverable or unhandled situations, where processing
 further events is dangerous and meaningless unless the asserted
 condition is fixed. K.O.

sortreal8

public subroutine sortreal8 (num, indin, indout, datain, dataout)
    integer, INTENT(in) :: num
    integer, INTENT(in), dimension (num) :: indin
    integer, INTENT(out), dimension (num) :: indout
    real (kind=R8), INTENT(in), dimension (num) :: datain
    real (kind=R8), INTENT(out), dimension (num) :: dataout
end subroutine sortreal8
 SUBROUTINE sortreal8

 Sort  tuple into 
 The sorting is only efficient for very small data sets.
 Do NOT use this as a general sorting routine.