* line is ignored
* Run file USER 324
* Written to speed up execution of steps 1 through 8
* This file does Gain Calibration for Circ Pol Run File 1
* Run file 1 does first 8 steps and Run file two will perform the last.
* Global Flags


dowait 100
indi 2
in2d 2
outd 2
out2d 2

* First Calib and aparm is set to 3

task 'calib'
inna '0235+164'
calsour = inna,''
sources = inna,''
aparm(3) 1
refant 5
solint 1
incl 'UVAVG'
outna inna
inseq 1
in2na '0235+164'
in2cl 'ICL001'
outcl 'CALIB1'
outseq 1
snver 0
go
inna 'BLLAC'
calsour = inna,''
sources = inna,''
in2na 'BLLAC'
in2cl 'ICL001'
outna inna
go
inna '3C279'
calsour = inna,''
sources = inna,''
in2na '3C279'
in2cl 'ICL001'
outna inna
go
inna '2134+004'
calsour = inna,''
sources = inna,''
in2na '2134+004'
in2cl 'ICL001'
outna inna
go

* split applies dterms dopol is set too 3 here

task 'split'
inna '2134+004'
calsour = inna,''
sources = inna,''
outna inna
stokes 'FULL'
incl 'CALIB1'
aparm 0 0 0
dopol 3
outcl 'DSPLIT'
outseq 1
go
inna '0235+164'
calsour = inna,''
sources = inna,''
outna inna
go
inna '3C279'
calsour = inna,''
sources = inna,''
outna inna
go
inna 'BLLAC'
calsour = inna,''
sources = inna,''
outna inna
go

* this second calib makes gain corrections to the split data
task 'calib'
inna '0235+164'
incl 'DSPLIT'
outcl 'CALIB2'
outseq 1
aparm(3) 1
in2na '0235+164'
in2cl 'ICL001'
refant 5
outna inna
go
inna '2134+004'
calsour = inna,''
sources = inna,''
in2na '2134+004'
in2cl 'ICL001'
outna inna
go
inna 'BLLAC'
calsour = inna,''
sources = inna,''
in2na 'BLLAC'
in2cl 'ICL001'
outna inna
go
inna '3C279'
calsour = inna,''
sources = inna,''
in2na '3C279'
in2cl 'ICL001'
outna inna
go
* it is convienent to make a multi source file here

task 'multi'
inna '2134+004'
calsour = inna,''
sources = inna,''
outna inna
incl 'CALIB2'
outcl 'VMULTI'
outseq 1
go
inna '0235+164'
calsour = inna,''
sources = inna,''
outna inna
go
inna 'BLLAC'
calsour = inna,''
sources = inna,''
outna inna
go
inna '3C279'
calsour = inna,''
sources = inna,''
outna inna
go

task 'indxr'
inna '3C279'
incl 'VMULTI'
go
inna '0235+164'
go
inna 'BLLAC'
go
inna '2134+004'
go
* This next calib does not average left and right so that Circ Pol can be found.

task 'calib'
inna '0235+164'
calsour = inna,''
sources = inna,''
incl 'VMULTI'
aparm 0 0 0 0
in2na '0235+164'
in2cl 'ICL001'
go
inna '2134+004'
calsour = inna,''
sources = inna,''
in2na '2134+004'
in2cl 'ICL001'
outna inna
go
inna 'BLLAC'
calsour = inna,''
sources = inna,''
in2na 'BLLAC'
in2cl 'ICL001'
outna inna
go
inna '3C279'
calsour = inna,''
sources = inna,''
in2na '3C279'
in2cl 'ICL001'
outna inna
go
* Convention to Collect SN tables
* Comment this step out after running on BLLAC source
task 'tasav'
inna 'BLLAC'
calsour = inna,''
sources = inna,''
incl 'VMULTI'
outna 'RLGAIN'
outcl 'TABLES'
outseq 1
go

task 'tacop'
inext 'sn'
invers 1
outvers 2
inna '3C279'
incl 'VMULTI'
outna 'RLGAIN'
outcl 'TABLES'
go
inna '2134+004'
outvers 3
go
outvers 4
inna '0235+164'
go

calsour = 'BLLAC', ''
sources = 'BLLAC', ''

task 'clcal'
inna 'RLGAIN'
incl 'TABLES'
inseq 1
snver 0
refant 5
opcode 'MERG'
invers 4
go

task 'snsmo'
inna 'RLGAIN'
incl 'TABLES'
inseq 1
outvers 6
refant 0
invers 5
bparm 4 4
SAMPTYPE 'BOX'
SMOTYPE 'AMPL'
DOBLANK -1
go
invers 6
outvers 7
DOBLANK -1
go

task 'tacop'
invers 7
outcl 'VMULTI'
outvers 2
outna '2134+004'
go
outna 'BLLAC'
outvers 2
go
outvers 2
outna '3C279'
go
outna '0235+164'
go

task 'clcal'
incl 'VMULTI'
inna '2134+004'
calsour = inna,''
sources = inna,''
opcode 'CALI'
invers 0
snver 2
refant 5
bparm 0
SAMPTYPE ''
SMOTYPE ''
DOBLANK 1
go
inna 'BLLAC'
calsour = inna,''
sources = inna,''
snver 2
go
inna '3C279'
snver 2
calsour = inna,''
sources = inna,''
go
inna '0235+164' 
calsour = inna,''
sources = inna,''
go

task 'imagr'
gainuse 2
inna 'BLLAC'
calsour = inna,''
sources = inna,''
incl 'VMULTI'
stokes 'V'
imsize 256,256
cellsize 0.0001,0.0001
outna inna
uvbox 4
outcl ''
bparm 0
niter 1000
gain 0.1
robust 4
refant 5
solint 1
dotv -1
go
inna '2134+004'
calsour = inna,''
sources = inna,''
outna inna
go
inna '3C279'
calsour = inna,''
sources = inna,''
outna inna
go
inna '0235+164'
calsour = inna,''
sources = inna,''
outna inna
go