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