Subroutine PHOTO

subroutine PHOTO

        ! Uses
    use namelist_mod
    use unpmc_mod
    use magnet_mod
    use pattern_mod
    use skim_mod, only: fillskim
    use unpderiv_mod

        ! Calls
    call FILLSKIM
    call NEW_event
    call PlotClusters
    call PlotDCHitPos
    call PlotFgResults
    call PlotHeTracks
    call PlotKalmanStraightTracks
    call PlotMcHitPos
    call PlotMcTracks
    call PlotRawHits
    call PlotTrackMCSP
    call PlotWinHits
    call PrintClusters
    call PrintMCSP
    call PrintMcTracks
    call PrintWindows
    call RITE
    call displayevent
    call getexitstatus
    call getfailcode
    call initdisplay
    call kparse
    call phinterpret
    call user_photo

        ! Variables
    character (len=132) :: GUI_COMMAND
    logical, SAVE :: FIRST = .TRUE.
    integer :: GUI_FAIL_RETURN
    integer :: GUI_EXIT_STATUS
    integer :: narg
    integer :: nqual
    integer :: clen
    character (len=20) :: Argument
    character (len=20) :: command
    logical :: last_command
    integer :: i

end subroutine PHOTO

Description of Variables

GUI_COMMAND

character (len=132) :: GUI_COMMAND

FIRST

logical, SAVE :: FIRST = .TRUE.

GUI_FAIL_RETURN

integer :: GUI_FAIL_RETURN

GUI_EXIT_STATUS

integer :: GUI_EXIT_STATUS

narg

integer :: narg

nqual

integer :: nqual

clen

integer :: clen

Argument

character (len=20) :: Argument

command

character (len=20) :: command

last_command

logical :: last_command

i

integer :: i