Subroutine see_tec

subroutine see_tec

        ! Uses
    use unp_mod
    use tracking_mod
    use tec_mod

        ! Calls
    call plottec

        ! Variables
    integer, EXTERNAL :: iutime
    integer :: eventstarttime
    integer :: eventendtime
    integer :: unpackstarttime
    integer :: unpackendtime
    integer :: windowingstarttime
    integer :: windowingendtime
    integer :: xtalkstarttime
    integer :: xtalkendtime
    integer :: trackingstarttime
    integer :: trackingendtime
    logical, PARAMETER :: enableTiming = .false.
    integer :: i
    integer :: j
    integer :: k
    integer :: iwire
    integer :: npts1
    integer :: npts2
    integer :: imax
    integer :: imin
    integer :: npl1
    integer :: npl2
    integer :: nwpl1
    integer :: nwpl2
    integer, dimension (24) :: ntecpl1
    integer, dimension (24) :: ntecpl2
    logical :: first = .true.
    logical :: draw_graph = .true.
    real :: temp
    real :: dt
    real :: r1
    real :: r2
    real, dimension (24,8) :: tecpl1
    real, dimension (24,8) :: tecpl2
    real, dimension (24,8) :: tewpl1
    real, dimension (24,8) :: tewpl2
    real, dimension (24) :: xp1
    real, dimension (24) :: xp2
    real :: x1min
    real :: x1max
    real :: y1min
    real :: y1max
    real :: ymax
    real :: ymin
    real :: x2min
    real :: x2max
    real :: y2min
    real :: y2max
    real, dimension (500) :: plax
    real, dimension (500) :: play
    real, dimension (500) :: plaw
    real, dimension (500) :: plbx
    real, dimension (500) :: plby
    real, dimension (500) :: plbw
    character (len=22) :: runinfo
    character (len=80) :: xdummy
    integer, parameter :: kMaxPoints = 500
    integer :: numxpoints
    integer :: numypoints
    real, dimension (kMaxPoints) :: xpointsz
    real, dimension (kMaxPoints) :: xpointst
    integer, dimension (kMaxPoints) :: xpointsflags
    real, dimension (kMaxPoints) :: ypointsz
    real, dimension (kMaxPoints) :: ypointst
    integer, dimension (kMaxPoints) :: ypointsflags

end subroutine see_tec

Description of Variables

iutime

integer, EXTERNAL :: iutime

eventstarttime

integer :: eventstarttime

eventendtime

integer :: eventendtime

unpackstarttime

integer :: unpackstarttime

unpackendtime

integer :: unpackendtime

windowingstarttime

integer :: windowingstarttime

windowingendtime

integer :: windowingendtime

xtalkstarttime

integer :: xtalkstarttime

xtalkendtime

integer :: xtalkendtime

trackingstarttime

integer :: trackingstarttime

trackingendtime

integer :: trackingendtime

enableTiming

logical, PARAMETER :: enableTiming = .false.

i

integer :: i

j

integer :: j

k

integer :: k

iwire

integer :: iwire

npts1

integer :: npts1

npts2

integer :: npts2

imax

integer :: imax

imin

integer :: imin

npl1

integer :: npl1

npl2

integer :: npl2

nwpl1

integer :: nwpl1

nwpl2

integer :: nwpl2

ntecpl1

integer, dimension (24) :: ntecpl1

ntecpl2

integer, dimension (24) :: ntecpl2

first

logical :: first = .true.

draw_graph

logical :: draw_graph = .true.

temp

real :: temp

dt

real :: dt

r1

real :: r1

r2

real :: r2

tecpl1

real, dimension (24,8) :: tecpl1

tecpl2

real, dimension (24,8) :: tecpl2

tewpl1

real, dimension (24,8) :: tewpl1

tewpl2

real, dimension (24,8) :: tewpl2

xp1

real, dimension (24) :: xp1

xp2

real, dimension (24) :: xp2

x1min

real :: x1min

x1max

real :: x1max

y1min

real :: y1min

y1max

real :: y1max

ymax

real :: ymax

ymin

real :: ymin

x2min

real :: x2min

x2max

real :: x2max

y2min

real :: y2min

y2max

real :: y2max

plax

real, dimension (500) :: plax

play

real, dimension (500) :: play

plaw

real, dimension (500) :: plaw

plbx

real, dimension (500) :: plbx

plby

real, dimension (500) :: plby

plbw

real, dimension (500) :: plbw

runinfo

character (len=22) :: runinfo

xdummy

character (len=80) :: xdummy

kMaxPoints

integer, parameter :: kMaxPoints = 500

numxpoints

integer :: numxpoints

numypoints

integer :: numypoints

xpointsz

real, dimension (kMaxPoints) :: xpointsz

xpointst

real, dimension (kMaxPoints) :: xpointst

xpointsflags

integer, dimension (kMaxPoints) :: xpointsflags

ypointsz

real, dimension (kMaxPoints) :: ypointsz

ypointst

real, dimension (kMaxPoints) :: ypointst

ypointsflags

integer, dimension (kMaxPoints) :: ypointsflags