subroutine PlotMcTracks ! Uses use precision_mod use unpmc_mod ! Calls call PlotTrackVPQTEZ call set_track_color call set_track_flags ! Variables integer :: i integer :: j integer :: itrk integer :: iwindow integer :: icolor real (kind=R8) :: zstop end subroutine PlotMcTracks
integer :: i
integer :: j
integer :: itrk
integer :: iwindow
integer :: icolor
real (kind=R8) :: zstop