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