!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! Recovery mode
on error "return base"
!
! Get obs setup
@ p_setup.map inter
!
! Setup Image Size
let map_size setup%used%size
let map_cell setup%used%cell
!
clean\read uv 'name'".uvt"
clean\uv_map
clean\write * 'name'
!
! Fit beam
@ p_fit.map
!
! Set type to dirty image
let type lmv
message i uvmap "Set type variable to "'type'
!
! Set first and last to 0 when needed
if ((mcol[1].ne.0).or.(mcol[2].ne.0)) then
   let first 0
   let last 0
   message i uvmap "FIRST and LAST set to 0"
endif
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
