Subroutine ko_tdctree

subroutine ko_tdctree

        ! Uses
    use precision_mod
    use namelist_mod
    use track_mod

        ! Calls
    call filltree
    call makebranch
    call setbranchvar

        ! Variables
    integer :: ifit
    integer :: ihit
    logical, save :: firstTime = .true.
    real, save :: startz
    real, save :: cost
    real, save :: pmag
    real, save :: tref
    integer, save :: ierror
    integer, save :: numhits
    real, save, dimension (MaxDCTrackHits) :: thit

        ! Subroutines and functions
    function V3mag (a)

end subroutine ko_tdctree

Description of Variables

ifit

integer :: ifit

ihit

integer :: ihit

firstTime

logical, save :: firstTime = .true.

startz

real, save :: startz

cost

real, save :: cost

pmag

real, save :: pmag

tref

real, save :: tref

ierror

integer, save :: ierror

numhits

integer, save :: numhits

thit

real, save, dimension (MaxDCTrackHits) :: thit

Description of Subroutines and Functions

V3mag

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