!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
define char*24 string
say "SHOW UV_FIT will plot the fitted parameters from UV_FIT "
say "* The number of parameters to be plotted as X and Y axes are controlled"
say "  by UVF%NX, UVF%NY."
SAY "* The kinds and ranges of those parameters are coded in the "
say "  UVF%XTYPE and UVF%YTYPE strings (e.g. kind min max)."
say "  Possible kind are: CHANNEL VELO FREQ RMS RA DEC FLUX  WIDTH MAJOR MINOR"
say "  and ANGLE. A * instead of min and/or max implies the use of the default"
say "  minimum and maximum values of the plotted parameter."
say " "
say "  UVF%NF    ["'bold''uvf%nf''norm'"]        Number of fitted functions"
say "  UVF%NP    ["'bold''uvf%np''norm'"]        Number of displayed functions"
for i 1 to uvf%np
  let string uvf%par'i'%name /format A24 
  let string 'string' /UPPER
  say "  UVF%ORDER["'i'"]   ["'bold''uvf%order[i]''norm'"]   Fitted function #"'i' 'string'
next
let uvf%nx min(uvf%nx,size(uvf%xtype))
say " "
say "  UVF%NX    ["'bold''uvf%nx''norm'"]        Number of boxes along X"
for ix 1 to uvf%nx
   say "  X parameter #"'ix'":      "'bold''uvf%xtype[ix]''norm'
next ix
let uvf%ny min(uvf%ny,size(uvf%ytype))
say " "
say "  UVF%NY    ["'bold''uvf%ny''norm'"]        Number of boxes along Y"
for iy 1 to uvf%ny
   say "  Y parameter #"'iy'":      "'bold''uvf%ytype[iy]''norm'
next iy
say " "
!! say "  FIRST [" 'bold''first''norm' "]      LAST [" 'bold''last''norm' "]  First and Last channels"
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

