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