Subroutine PlotTrackVPQTEZ

subroutine PlotTrackVPQTEZ

        ! Uses
    use precision_mod
    use trackswim_mod

        ! Calls
    call add_track_point

        ! Variables
    integer, INTENT(in) :: iwindow
    integer, INTENT(in) :: itrk
    character (len=2), INTENT(in) :: name
    real (kind=R8), INTENT(in), dimension (3) :: v0
    real (kind=R8), INTENT(in), dimension (3) :: p0
    integer, INTENT(in) :: q
    real (kind=R8), INTENT(in) :: t
    integer, INTENT(in) :: ierror
    real (kind=R8), INTENT(in) :: zstop
    real (kind=R8), dimension (3) :: v
    real (kind=R8), dimension (3) :: p
    real (kind=R8) :: pmag
    real (kind=R8) :: z
    real (kind=R8) :: zstep
    real (kind=R8) :: zmin
    real (kind=R8) :: zmax
    real (kind=R4) :: uplot
    real (kind=R4) :: vplot
    real (kind=R4) :: zplot
    real (kind=R8), PARAMETER :: kDefaultZstep = 0.1
    integer (kind=I4) :: i
    real (kind=R8) :: cost
    real (kind=R8) :: k

end subroutine PlotTrackVPQTEZ

Description of Variables

iwindow

integer, INTENT(in) :: iwindow
 Description: plot a track, given starting point and momentum

itrk

integer, INTENT(in) :: itrk

name

character (len=2), INTENT(in) :: name

v0

real (kind=R8), INTENT(in), dimension (3) :: v0

p0

real (kind=R8), INTENT(in), dimension (3) :: p0

q

integer, INTENT(in) :: q

t

real (kind=R8), INTENT(in) :: t

ierror

integer, INTENT(in) :: ierror

zstop

real (kind=R8), INTENT(in) :: zstop

v

real (kind=R8), dimension (3) :: v

p

real (kind=R8), dimension (3) :: p

pmag

real (kind=R8) :: pmag

z

real (kind=R8) :: z

zstep

real (kind=R8) :: zstep

zmin

real (kind=R8) :: zmin

zmax

real (kind=R8) :: zmax

uplot

real (kind=R4) :: uplot

vplot

real (kind=R4) :: vplot

zplot

real (kind=R4) :: zplot

kDefaultZstep

real (kind=R8), PARAMETER :: kDefaultZstep = 0.1

i

integer (kind=I4) :: i

cost

real (kind=R8) :: cost

k

real (kind=R8) :: k