!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
say "KEPLER will apply a Keplerian Disk filter to the CLEAN image"
say " to show the Radial Profile and Detection significance"
say " "
say "  Center X                 "'ansi%blue'"KEPLER_X0"'ansi%none'"     [" 'bold''kepler_x0''norm' "] (arcsec)  "
say "  Center Y                 "'ansi%blue'"KEPLER_Y0"'ansi%none'"     [" 'bold''kepler_y0''norm' "] (arcsec)  "
say "  PA of Disk Rotation Axis "'ansi%blue'"KEPLER_ROTA"'ansi%none'"   [" 'bold''kepler_rota''norm' "] (deg)  "
say "  Inclination              "'ansi%blue'"KEPLER_INCLI"'ansi%none'"  [" 'bold''kepler_incli''norm' "] (deg)  "

say "  Disk distance            "'ansi%blue'"KEPLER_DIST"'ansi%none'"   [" 'bold''kepler_dist''norm' "] (pc) "
say "  Rotation Velocity        "'ansi%blue'"KEPLER_VMASS"'ansi%none'"  [" 'bold''kepler_vmass''norm' "] (km/s)  "

say "  Inner radius             "'ansi%blue'"KEPLER_RINT"'ansi%none'"   [" 'bold''kepler_rint''norm' "] (au) "
say "  Outer radius             "'ansi%blue'"KEPLER_ROUT"'ansi%none'"   [" 'bold''kepler_rout''norm' "] (au) "
if exist(KEPLER_RMAX) then
  say "  Maximum radius           "'ansi%blue'"KEPLER_RMAX"'ansi%none'"   [" 'bold''kepler_rmax''norm' "] (au) "
else
  say "  Maximum radius           "'ansi%blue'"KEPLER_RMAX"'ansi%none'"   will be derived from KEPLER_ROUT"
endif
say "  Radial sampling step     "'ansi%blue'"KEPLER_STEP"'ansi%none'"   [" 'bold''kepler_step''norm' "] (au) "
say "  Maximum angle            "'ansi%blue'"KEPLER_THETA"'ansi%none'"  [" 'bold''kepler_theta''norm' "] (deg)  "
!
if (KEPLER_USEVDISK) then
  say "  Disk Velocity            "'ansi%blue'"KEPLER_VDISK"'ansi%none'"  [" 'bold''kepler_vdisk''norm' "] (km/s) (fixed by user)"
else
  define char*8 str
  let str kepler_vdisk /forma f8.3
  say "  Disk Velocity            "'ansi%blue'"KEPLER_VDISK"'ansi%none'"  [" 'bold''str''norm' "] (km/s) (fitted by code) "
endif
say "  Azimut range             "'ansi%blue'"KEPLER_AZIMUT"'ansi%none'" [" 'bold''kepler_azimut[1]'","'kepler_azimut[2]''norm' "] (deg)  "
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
