!------------------------------------------------------------------------
!
! Procedure to plot the result of a KEPLER command:
!   - integrated spectral profile
!   - radial profile of peak brightness
!   - 2-D  Radius-Velocity diagram of brightness
!
! Called by IMAGER command KEPLER
!----------------------------------------------------------------------
!
!
if .not.exist(kepler_show) @ d_kepler
!
if (pro%narg.ne.0) then
  define character*2 Action
  let Action &1 /upper
  if (Action.eq."? ") then
    @ i_show_kepler
    return
  else if (Action.eq."SP") then
    let Kepler_show%Spec YES
    let Kepler_show%Prof NO
    let Kepler_show%PV NO
  else if (Action.eq."RA").or.(Action.eq."PR") then
    let Kepler_show%Spec NO
    let Kepler_show%Prof YES
    let Kepler_show%PV NO
  else if (Action.eq."PV") then
    let Kepler_show%Spec NO
    let Kepler_show%Prof NO
    let Kepler_show%PV YES
  else if (Action.eq."BO") then
    let Kepler_show%Spec YES
    let Kepler_show%Prof YES
    let Kepler_show%PV NO
  else if (Action.eq."AL") then
    let Kepler_show%Spec YES
    let Kepler_show%Prof YES
    let Kepler_show%PV YES
  else if (Action.eq."* ") then
    continue
  else
    MESSAGE E SHOW "KEPLER Unsupported action &1"
    return
  endif
endif
!
let Mapping_Error YES
if .not.exist(kepler_spectrum) then
  Message E KEPLER "Use KEPLER command first"
  return 
endif
!
let Mapping_Error NO
!
destroy all
if .not.exist(KepVariable) then
  define chara KepVariable*32 /global
  let KepVariable CLEAN
endif
!
let header_name_type "("'KepVariable'")" /Upper
!
if (do_header) then
  @ p_header 'KepVariable'
endif
on error
!
!
@ p_kepler_showsub 'KepVariable'
