!----------------------------------------------------------------------
! I_show%KEPLER.IMA
!
! List input parameters for SHOW KEPLER 
!----------------------------------------------------------------------
if .not.exist(kepler_show) then
  define structure kepler_show /global
  define double kepler_show%v[2] kepler_show%r[2] kepler_show%t[2] kepler_show%f[2] /global
  define log kepler_show%spec kepler_show%prof kepler_show%pv /global
endif
sic\say " SHOW KEPLER  will plot the KEPLER command results"
sic\say "   - the integrated, velocity aligned, spectrum"
sic\say "   - the radial profile" 
sic\say "   - the 2-D (radius, aligned velocity) diagram"
sic\say " "
sic\say "  "
say "  Show Mean Spectrum   "'ansi%blue'"KEPLER_SHOW%SPEC"'ansi%none'"        [" 'bold''kepler_show%spec''norm' "]"
say "  Show Radial Profile  "'ansi%blue'"KEPLER_SHOW%PROF"'ansi%none'"        [" 'bold''kepler_show%prof''norm' "]"
say "  Show PV diagram      "'ansi%blue'"KEPLER_SHOW%PV"'ansi%none'"          [" 'bold''kepler_show%pv''norm' "]"
!
say " "
say "  Velocity    Range    "'ansi%blue'"KEPLER_SHOW%V"'ansi%none'"          [" 'bold''kepler_show%v[1]'" "'kepler_show%v[2]''norm' "]"
say "  Radius      Range    "'ansi%blue'"KEPLER_SHOW%R"'ansi%none'"          [" 'bold''kepler_show%r[1]'" "'kepler_show%r[2]''norm' "]"
say "  Temperature Range    "'ansi%blue'"KEPLER_SHOW%T"'ansi%none'"          [" 'bold''kepler_show%t[1]'" "'kepler_show%t[2]''norm' "]"
say "  Flux        Range    "'ansi%blue'"KEPLER_SHOW%F"'ansi%none'"          [" 'bold''kepler_show%f[1]'" "'kepler_show%f[2]''norm' "]"
