ID_346


default fitld
clint 0.25 
datain 'PWD:VLBA_BA163B.idifits
outname 'BA163B
outclass 'uvdata'
outseq 1
outdisk 1
inp 
go

default prtab
getn 1
inext 'GC'
docrt -1
outprint 'GC_old.txt
go

default antab
getn 1
calin 'PWD:VLBA_7GHZ.ANTAB
GCVER 0
go antab

default prtab
getn 1
inext 'GC'
INVERS 2
docrt -1
outprint 'GC_new.txt
go

default 'listr'
getn 1
optype 'SCAN'
docrt -1
outprint 'PWD:BA163A_listr.txt
go listr

default 'prtan'
getn 1
docrt -1
outprint 'PWD:BA163A_prtan.txt
go prtan

run vlbautil

default vlbaccor
getn 1
inp
vlbaccor

default vlbacrpl
getn 1
stokes 'half'
refant 2
gainuse 0
solint -1
dotv 1
source 'J0834+5534'
inp
vlbacrpl

default spflg
getn 1
source 'J0834+5534'
docal 1
gainu 0
flagv 0
go


default vlbapcor
getn 1
calsour 'J0834+5534' '
timer 0 11 17 27 0 11 20 23 
refant 2 
inp
vlbapcor

tget possm 
gainu 3
inp
go

default vlbabpss
getn 1
calsour 'J0834+5534'  
refant 2
inp
vlbabpss

tget possm
baseline=0
aparm=0
aparm(8)=2
aparm(9)=1
bpver=1; doband=1
go

default vlbaamp
getn 1
inp
vlbaamp

default snplt
getn 1
dotv 1
inext 'cl'
invers 0
opty 'amp' 
nplots 10
opco 'alsi' 
do3col 1 
inp
tvin 
go

default vlbapang
getn 1
inp
vlbapang

default editr
getn 1
docal 1
gainuse 0 
crowded 1 
do3col 1
doband 1
bpver 1
antuse 1 2 3 4 5 6 7 8 9 10 
source 'J0834+5534''
inp
go

source 'J0932+5306''
inp
go

source 'J0958+4725''
inp
go

default fring
getn 1
calsour 'J0834+5534', 'J0932+5306', 'J0958+4725' 
refant 2
search 2 9 5 4 1 3 7 8 
solint 0.25
doband 1
bpver 1
aparm(6) 2 
aparm(9) 1 
docal 1
gainu 6
inp
go

default clcal
getn 1
gainv 6 
gainu 7 
snver 5 
interpol 'SELF' 
refant 2
sour 'J0834+5534', 'J0932+5306', 'J0958+4725'
calsour sour
inp
go

source 'PG0921+525'
interpol 'ambg'
go clcal

default spflg
getn 1
source 'J0932+5306
docal 1
gainu 7
doband 1
bpver 1
flagv 0
go

default 'split'
getn 1
source 'J0932+5306'
docal 1
gainu 7
doband 1
bpver 1
flagv 0
aparm 2 1 0
go split

default 'fittp'
getn 2
dataout 'PWD:J0932+5306_v1.uvfits
go fittp


default 'fitld'
datain 'PWD:J0932+5306_v1-cln.fits
digicor -1
doconcat 1
ncount 1
outname 'cln
go fitld


default calib
getn 1
get2n 3
CALSOUR 'J0932+5306
nmaps 1
refant 2
weightit 1
soltype 'l1r'
cmethod 'dft'
solint 2
aparm 3 0
solmode 'p'
docal 1
gainu 7
doband 1
bpver 1
flagv 0
go calib

default extdest
getn 1
inext ''
go extdest

default 'snplt'
getn 1
inext 'sn'
invers 0
opty 'pha'
dotv 1
nplots 8
go snplt

default clcal
getn 1
calsour 'J0932+5306'
sour ''
docal 1
gainv 7
gainu 8
snver 6
refant 2
interpol 'AMBG'
opcode 'CALP'
doband 1
bpver 1
go clcal

default 'split'
getn 1
source 'J0932+5306'
docal 1
gainu 8
doband 1
bpver 1
flagv 0
aparm 2 1 0
go split

default 'fittp'
getn 4
dataout 'PWD:J0932+5306_v2.uvfits
go fittp

default 'fitld'
datain 'PWD:J0932+5306_v2-cln.fits
digicor -1
doconcat 1
ncount 1
outname 'cln
go fitld

default calib
getn 1
get2n 5
CALSOUR 'J0932+5306
nmaps 1
refant 2
weightit 1
soltype 'l1r'
cmethod 'dft'
solint 1
aparm 3 0
solmode 'p'
docal 1
gainu 8
doband 1
bpver 1
flagv 0
go calib


default clcal
getn 1
calsour 'J0932+5306'
sour ''
docal 1
gainv 8
gainu 9
snver 7
refant 2
interpol 'AMBG'
opcode 'CALP'
doband 1
bpver 1
go clcal

default 'split'
getn 1
source 'J0932+5306'
docal 1
gainu 9
doband 1
bpver 1
flagv 0
aparm 2 1 0
go split

default 'fittp'
getn 6
dataout 'PWD:J0932+5306_v3.uvfits
go fittp

default extdest
getn 1
inext 'CL'
go extdest

default 'fitld'
datain 'PWD:J0932+5306_v3-cln.fits
digicor -1
doconcat 1
ncount 1
outname 'cln
go fitld

default calib
getn 1
get2n 10
CALSOUR 'J0932+5306
nmaps 1
refant 2
weightit 1
soltype 'l1r'
cmethod 'dft'
solint 1
aparm 3 0
solmode 'a&p'
docal 1
gainu 9
doband 1
bpver 1
flagv 0
go calib

default clcal
getn 1
calsour 'J0932+5306'
sour ''
docal 1
gainv 9
gainu 10
snver 8
refant 2
interpol 'AMBG'
opcode 'CALP'
doband 1
bpver 1
go clcal

default 'split'
getn 1
source 'J0932+5306'
docal 1
gainu 10
doband 1
bpver 1
flagv 0
aparm 2 1 0
go split

default 'fittp'
getn 11
dataout 'PWD:J0932+5306_v4.uvfits
go fittp


default 'split'
getn 1
source 'PG0921+525'
docal 1
gainu 10
doband 1
bpver 1
flagv 0
aparm 2 1 0
go split

default 'fittp'
getn 9
dataout 'PWD:PG0921+525_cl10.uvfits
go fittp

default 'split'
getn 1
source 'PG0921+525'
docal 1
gainu 10
doband 1
bpver 1
flagv 0
aparm 2 1 0
BIF 1
EIF 2
go split

default 'fittp'
getn 10
dataout 'PWD:PG0921+525_cl10_5GHz.uvfits
go fittp

default 'split'
getn 1
source 'PG0921+525'
docal 1
gainu 10
doband 1
bpver 1
flagv 0
aparm 2 1 0
BIF 3
EIF 4
go split

default 'fittp'
getn 11
dataout 'PWD:PG0921+525_cl10_7GHz.uvfits
go fittp


default 'split'
getn 1
source 'PG0921+525'
docal 1
gainu 9
doband 1
bpver 1
flagv 0
aparm 2 1 0
BIF 3
EIF 4
go split

default 'fittp'
getn 15
dataout 'PWD:PG0921+525_cl9_7GHz.uvfits
go fittp

default 'split'
getn 1
source 'PG0921+525'
docal 1
gainu 9
doband 1
bpver 1
flagv 0
aparm 2 1 0
BIF 1
EIF 2
go split

default 'fittp'
getn 16
dataout 'PWD:sPG0921+525_cl9_5GHz.uvfit
go fittp