Subroutine ko_tree

subroutine ko_tree

        ! Uses
    use precision_mod
    use namelist_mod
    use track_mod, ONLY: helixfit_type, fNumHelixFits, fHelixFits
    use track_mod, ONLY: fgresult_type, nFGresult, FGresult, kFailNoFit
    use unpmc_mod
    use pattern_mod

        ! Calls
    call fill

        ! Variables
    integer :: i
    integer :: j
    integer :: iwindow
    integer :: wtype
    integer :: imc
    integer :: ihe
    integer :: ifg

        ! Subroutines and functions
    subroutine fill (imc, ifg, ihe)
    subroutine printFit (mctrk, nfg, fg, fit)
    subroutine mcspz (zstart, zend, pstart, cstart, phistart, pend, cend, pmean, prms, cmean, crms)
    function myReal4 (v)
    function V3mag (a)
    function finite (name, x)
    function makeFinite (name, x, y, z)

end subroutine ko_tree

Description of Variables

integer :: i

integer :: j

integer :: iwindow

integer :: wtype

integer :: imc

integer :: ihe

integer :: ifg

Description of Subroutines and Functions

subroutine fill (imc, ifg, ihe)
    integer, intent(in) :: imc
    integer, intent(in) :: ifg
    integer, intent(in) :: ihe
    ! Calls: filltree, makebranch, setbranchvar
end subroutine fill

subroutine printFit (mctrk, nfg, fg, fit)
    type (mctrack_type), INTENT(in) :: mctrk
    integer, INTENT(in) :: nfg
    type (fgresult_type), INTENT(in) :: fg
    type (helixfit_type), INTENT(in) :: fit
    ! Calls: mcspz
end subroutine printFit

subroutine mcspz (zstart, zend, pstart, cstart, phistart, pend, cend, pmean, prms, cmean, crms)
    real (kind=R8), INTENT(in) :: zstart
    real (kind=R8), INTENT(in) :: zend
    real, INTENT(out) :: pstart
    real, INTENT(out) :: cstart
    real, INTENT(out) :: phistart
    real, INTENT(out) :: pend
    real, INTENT(out) :: cend
    real, INTENT(out) :: pmean
    real, INTENT(out) :: prms
    real, INTENT(out) :: cmean
    real, INTENT(out) :: crms
end subroutine mcspz

function myReal4 (v)
    real (kind=R8), intent(in) :: v
    real :: myReal4
end function myReal4

function V3mag (a)
    real (kind=R8), INTENT(in), dimension (3) :: a
    real :: v3mag
end function V3mag

function finite (name, x)
    character (len=*), INTENT(in) :: name
    real, INTENT(in) :: x
    logical :: finite
end function finite

function makeFinite (name, x, y, z)
    character (len=*), INTENT(in) :: name
    real, INTENT(in) :: x
    real, INTENT(in) :: y
    real, INTENT(in) :: z
    real :: makeFinite
end function makeFinite