!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
begin data gag_scratch:uv-flag.init
  TASK\CHARACTER "UV table"                             UVDATA$    'name'".uvt"
  TASK\CHARACTER "Start date (DD-MMM-YYY)"          DATE_START$    'uvflag%fdate'
  TASK\CHARACTER "Start time (hh:mm:ss.ss)"           UT_START$    'uvflag%fut'
  TASK\CHARACTER "End date (DD-MMM-YYY)"              DATE_END$    'uvflag%ldate'
  TASK\CHARACTER "End time (hh:mm:ss.ss)"               UT_END$    'uvflag%lut'
  TASK\CHARACTER "Baseline (ALL, 12, 13, 23, ...)"    BASELINE$    'uvflag%base'
  TASK\LOGICAL   "Flag data ?"                            FLAG$    '.not.uvflag%reset'
  TASK\INTEGER   "First and last channel to consider" CHANNELS$[2] first last
  TASK\GO
end data gag_scratch:uv-flag.init
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
run uv_flag gag_scratch:uv-flag.init /nowin
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
