$Run this after CLCOR
$Will create SN table containing residual antenna-based phases associated with the calibrators

default 'calib'
inna 'PHASECAL'; incl 'SPLAT'; inseq 1
calsour '0205-010','0154-000'
refant 9
solint 1
soltype 'l1r'
solmode 'p'
snver=maxtab('sn')+1
go calib; wait


$Run ATMCA

default 'atmca'
inna 'PHASECAL'; incl 'SPLAT'; inseq 1
snver=maxtab('sn')
gainver=maxtab('cl')
aparm 5 1 1 0
sources '0205-010','0154-000','0203-005'
calsour '0205-010','0154-000'
solint 10
optype 'phas'
go atmca; wait


default 'splat'
inna 'PHASECAL'; incl 'SPLAT'; inseq 1
sources '*'
docalib 1
gainuse=maxtab('cl')
go splat; wait