subroutine user_photo
! Uses
use Namelist_mod
use Pattern_mod
! Calls
call add_track_point
call set_track_color
call set_track_flags
! Variables
integer :: iDelta
end subroutine user_photo
-------------------------------------------------
SUBROUTINE USER_PHOTO - plot user-defined stuff
-------------------------------------------------
integer :: iDelta