!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
begin data gag_scratch:primary.init
  !
  task\file "Image to be corrected" Y_NAME$ 'name'"."'type'
  task\file "Corrected image" X_NAME$ 'name'"-prim."'type'
  task\real "FWHM of primary beam (radians)" BEAM$ 'setup%int%hppb'
  task\real "Radius to truncate data (radians)" RADIUS$ '1.5*setup%int%hppb/2'
  task\go
  !
end data gag_scratch:primary.init
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! Get obs setup
@ p_setup.map inter
!
clean\read clean 'name'
clean\primary
clean\write sky 'name'
!
! Update name variable
let type lmv-sky
message i primary "Variable type set to "'type'
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
