!
IF (.NOT.EXIST(NANT)) THEN
   VARIABLE CONFIG ON
ENDIF
if .not.exist(date_observed) then
   var general
endif
set def
file raw HOLO 'hdate'
!
set scan hscan[1] hscan[2]
set receiver hrec
set phase internal
set project HOLO
find /proc corr holo 
!
!Now check which antenna moved in that scan range:
!
get first
set antenna all
set x scan
set y beta
!
get f
def integer nmob j
def real bmin[nant] bmax[nant] imob[nant] smin[nant] smax[nant]
!
set lev 6
let chain*80 'date_observed'"-holo-r"'hrec'".hpb" /new char /lower
file out 'chain' new
copy headers base
if .not.exist(out_file) then
   var read
endif
say "Data copied to "'out_file'
let hfile_name 'out_file'
set level 1
!
!------------------------------------------------------------------------------