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