Subroutine PlotTrackFGR

subroutine PlotTrackFGR

        ! Uses
    use Precision_mod
    use Chambers_mod
    use Track_mod
    use unp_mod

        ! Calls
    call add_track_point

        ! Variables
    integer, INTENT(in) :: itrk
    type (FGresult_type), INTENT(in) :: fg
    character (len=2), INTENT(in) :: name
    real :: zstart
    real :: zend
    real :: zmax
    integer :: nsteps
    integer :: istep
    integer :: i
    real :: z
    real :: u
    real :: v
    real :: phi
    real :: zstep
    real, dimension (5) :: apar

end subroutine PlotTrackFGR
$SUBROUTINE PlotKaTracks
$  USE Precision_mod
$  USE Track_mod
$
$  IMPLICIT NONE
$  include "photo_flags.inc"
$  INTEGER(I4):: iTr
$
$  PRINT *,"Found Kalman Filter tracks: ",nTrack
$  DO iTr = 1, nTrack
$     CALL PlotTrackPar(iTr,"KA",Track(iTr))
$     CALL set_track_flags(iTr, 2**(iwindow-1) + 2**(iTr + 9) + MDISPLAY_FLAG_FIT_TRACK )
$     CALL set_track_color(iTr, iTr+1)
$  END DO
$END SUBROUTINE PlotKaTracks

Description of Variables

integer, INTENT(in) :: itrk

type (FGresult_type), INTENT(in) :: fg

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

real :: zstart

real :: zend

real :: zmax

integer :: nsteps

integer :: istep

integer :: i

real :: z

real :: u

real :: v

real :: phi

real :: zstep

real, dimension (5) :: apar