Subroutine PlotTrackMCSP

subroutine PlotTrackMCSP

        ! Uses
    use precision_mod
    use unpmc_mod
    use trackswim_mod

        ! Calls
    call add_track_point
    call set_track_color
    call set_track_flags

        ! Variables
    integer :: i
    integer :: nsteps
    integer :: istep
    integer, PARAMETER :: ibasetrk = 10
    integer, PARAMETER :: icolor = 46
    real (kind=R8), dimension (3) :: v
    real (kind=R8), dimension (3) :: p
    real (kind=R8) :: z
    real (kind=R8) :: z1
    real (kind=R8) :: z2
    integer :: q
    integer :: itrack
    integer :: itrk
    integer :: imctrk
    integer :: j
    logical :: newtrack
    integer :: iwindow = 10

end subroutine PlotTrackMCSP

Description of Variables

i

integer :: i

nsteps

integer :: nsteps

istep

integer :: istep

ibasetrk

integer, PARAMETER :: ibasetrk = 10

icolor

integer, PARAMETER :: icolor = 46

v

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

p

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

z

real (kind=R8) :: z

z1

real (kind=R8) :: z1

z2

real (kind=R8) :: z2

q

integer :: q

itrack

integer :: itrack

itrk

integer :: itrk

imctrk

integer :: imctrk

j

integer :: j

newtrack

logical :: newtrack

iwindow

integer :: iwindow = 10