!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
begin data gag_scratch:uv-circle.init
  task\character "input table"    UVTABLE$ 'uvcirc%in'".uvt"
  task\character "output table"   OUTABLE$ 'uvcirc%out'".uvt"
  task\real "Minimum radius (m)"  QMIN$    'uvcirc%min'
  task\real "Maximum radius (m)"  QMAX$    'uvcirc%max'
  task\real "Radius interval (m)" QSTEP$   'uvcirc%step'
  task\go
end data gag_scratch:uv-circle.init
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! Recovery mode
on error "return base"
!
! Get obs setup
@ p_setup.map inter
!
! Do it
if (setup%int%mosaic) then
   for ifield 1 to setup%int%nf
      let uvcirc%in  'name'"-"'ifield'
      let uvcirc%out 'name'"-circ-"'ifield'
      vector\run uv_circle gag_scratch:uv-circle.init /nowindow
   next ifield
else
   let uvcirc%in  'name'
   let uvcirc%out 'name'"-circ"
   vector\run uv_circle gag_scratch:uv-circle.init /nowindow
endif
!
! Update name variable
let name 'setup%int%name'"-circ"
message i uvcirc "Variable name set to "'name'
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
