Module FGntuple_mod

module FGntuple_mod

        ! Uses
    use Precision_mod
    use physicalconstants_mod
    use Namelist_mod
    use Chambers_mod
    use Det_Geom_mod
    use Tdc_mod
    use Unp_mod
    use Pattern_mod
    use Track_mod
    use FirstGuess_mod

        ! Variables
    character (len=10), private :: Directory
    character (len=10), private :: dirques
    character (len=100000), private :: CHFORM
    character (len=5), private :: aPause
    integer (kind=I4), private :: ikykle

        ! Subroutines and functions
    public subroutine FGnt ()
    private subroutine MCnt ()
    private subroutine IncrementMCFile ()
    private subroutine DefineMCntuples ()
    private function nHitPlanes (kWin, PorD) result (nPls)
    private subroutine DataNt ()
    private subroutine InsertDataNt (iFGTrack, jFGTrack)
    private subroutine IncrementDataFile ()
    private subroutine DefineDataNtuples ()

end module FGntuple_mod
==============================================================================
 Author: Jim Musser
 Date Created: October 29, 2001
------------------------------------------------------------------------------

Description of Variables

character (len=10), private :: Directory

character (len=10), private :: dirques

character (len=100000), private :: CHFORM

character (len=5), private :: aPause

integer (kind=I4), private :: ikykle

Description of Subroutines and Functions

public subroutine FGnt ()
    ! Calls: DataNt, MCnt
end subroutine FGnt
------------------------------------------------------------------------------

private subroutine MCnt ()
    ! Calls: HCDIR, HFNT, IncrementMCFile
end subroutine MCnt
------------------------------------------------------------------------------
 x = (1/Emax)[(eB)^2*(R^2 + 1/w^2) + m^2*c^4]^(1/2)
------------------------------------------------------------------------------

private subroutine IncrementMCFile ()
    ! Calls: DefineMCntuples, Getenv, HCDIR, HREND, HROPEN, HROUT
end subroutine IncrementMCFile

private subroutine DefineMCntuples ()
    ! Calls: HBNAME, HBNT, HNFORM
end subroutine DefineMCntuples

private function nHitPlanes (kWin, PorD) result (nPls)
    integer (kind=I4), INTENT(in) :: kWin
    character, INTENT(in) :: PorD
    integer (kind=I4) :: nPls
end function nHitPlanes

private subroutine DataNt ()
    ! Calls: HCDIR, HFNT, IncrementDataFile, InsertDataNt
end subroutine DataNt

private subroutine InsertDataNt (iFGTrack, jFGTrack)
    integer (kind=I4), INTENT(in) :: iFGTrack
    integer (kind=I4), INTENT(in) :: jFGTrack
end subroutine InsertDataNt

private subroutine IncrementDataFile ()
    ! Calls: DefineDataNtuples, Getenv, HCDIR, HREND, HROPEN, HROUT
end subroutine IncrementDataFile

private subroutine DefineDataNtuples ()
    ! Calls: HBNAME, HBNT, HNFORM
end subroutine DefineDataNtuples