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