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