!
if .not.exist(uvf) then
  define structure UVF /global
  define integer uvf%nf /global       ! Number of functions
  define logical uvf%widget /global   ! Widget mode
  !
  define character*120 uvf%xtype[6] uvf%ytype[7] uvf%mod /global ! Type of plot
  define integer uvf%nx uvf%ny uvf%np uvf%order[8] /global  ! Up to 8 fitted functions
  define logical uvf%bars /global
endif
!
! Reset defaults
let uvf%np 1  ! Number of Plotted functions
let uvf%order[i] i
let uvf%nx 1
let uvf%xtype "velo * *" "freq * *" "channel * *" "ra * *" "dec * *" "flux * *"
let uvf%ny 3
let uvf%ytype "ra * *" "dec * *" "flux * *" "major * *" "minor * *" "angle * *" "ratio * *"
let uvf%mod ""
let uvf%bars yes ! Plot error bars
