! Started logfile: /d2/scr/pima/bp171a2_uvs/J0528+1114_C_uvs.log on Tue Feb 18 20:25:17 2014
obs /d2/scr/pima/bp171a2_uvs/J0528+1114_C_uva.fits
! Reading UV FITS file: /d2/scr/pima/bp171a2_uvs/J0528+1114_C_uva.fits
! AN table 1: 3 integrations on 21 of 21 possible baselines.
! AN table 2: 3 integrations on 3 of 3 possible baselines.
! Apparent sampling: 0.5 visibilities/baseline/integration-bin.
! Found source: J0528+1114
! 
! There are 8 IFs, and a total of 8 channels:
! 
!  IF  Channel    Frequency  Freq offset  Number of   Overall IF
!       origin    at origin  per channel   channels    bandwidth
!  ------------------------------------------------------------- (Hz)
!  01        1    3.928e+09      3.2e+07          1      3.2e+07
!  02        2     3.96e+09      3.2e+07          1      3.2e+07
!  03        3    3.992e+09      3.2e+07          1      3.2e+07
!  04        4    4.024e+09      3.2e+07          1      3.2e+07
!  05        5    4.216e+09      3.2e+07          1      3.2e+07
!  06        6    4.312e+09      3.2e+07          1      3.2e+07
!  07        7    4.344e+09      3.2e+07          1      3.2e+07
!  08        8    4.376e+09      3.2e+07          1      3.2e+07
! 
! Polarization(s): RR
! 
! Read 0 lines of history.
! 
! Reading 288 visibilities.
select RR
! Selecting polarization: RR,  channels: 1..8
! Reading IF 1 channels: 1..1
! Reading IF 2 channels: 2..2
! Reading IF 3 channels: 3..3
! Reading IF 4 channels: 4..4
! Reading IF 5 channels: 5..5
! Reading IF 6 channels: 6..6
! Reading IF 7 channels: 7..7
! Reading IF 8 channels: 8..8
print "field_size =", field_size
! field_size = 1024 
print "field_cell =", field_cell
! field_cell = 0.3 
print "taper_size =", taper_size
! taper_size = 40 
![@/home/lpetrov/bin/01_muppet /d2/scr/pima/bp171a2_uvs/J0528+1114_C]
float lim_self
lim_self = 120.0
float lim_val
lim_va   = 1.2
integer clean_niter
clean_niter = 100
float clean_gain
clean_gain = 0.03
float dynam
dynam = 6.0
float soltime1
soltime1 = 120
float soltime2
soltime2 = 20
float thresh
thresh = 0.5
float win_mult
win_mult = 1.8
float time_av
time_av = 16
float old_peak
float new_peak
float flux_cutoff
mapsize field_size, field_cell
! Map grid = 1024x1024 pixels with 0.300x0.300 milli-arcsec cellsize.
startmod
! Applying default point source starting model.
! Performing phase self-cal
! Adding 1 model components to the UV plane model.
! The established model now contains 1 components and 1 Jy
! 
! Correcting IF 1.
!  A total of 6 telescope corrections were flagged in sub-array 1.
! 
! Correcting IF 2.
!  A total of 6 telescope corrections were flagged in sub-array 1.
! 
! Correcting IF 3.
!  A total of 6 telescope corrections were flagged in sub-array 1.
! 
! Correcting IF 4.
!  A total of 6 telescope corrections were flagged in sub-array 1.
! 
! Correcting IF 5.
!  A total of 6 telescope corrections were flagged in sub-array 1.
! 
! Correcting IF 6.
!  A total of 6 telescope corrections were flagged in sub-array 1.
! 
! Correcting IF 7.
!  A total of 6 telescope corrections were flagged in sub-array 1.
! 
! Correcting IF 8.
!  A total of 6 telescope corrections were flagged in sub-array 1.
! 
! Fit before self-cal, rms=0.999020Jy  sigma=33.557178
! Fit after  self-cal, rms=0.970254Jy  sigma=32.244371
! clrmod: Cleared the established, tentative and continuum models.
! Redundant starting model cleared.
uvw 2,-1
! Uniform weighting binwidth: 2 (pixels).
! Gridding weights will be scaled by errors raised to the power -1.
! Radial weighting is not currently selected.
flux_cutoff = imstat(rms) * dynam
! Inverting map and beam 
! Estimated beam: bmin=3.643 mas, bmaj=19.61 mas, bpa=55.07 degrees
! Estimated noise=1.73123 mJy/beam.
repeat
  if (peak(flux) > flux_cutoff) peakwin win_mult
  clean clean_niter,clean_gain
  flux_cutoff = imstat(rms) * dynam
  selfcal
  new_peak = peak(flux)
  until(new_peak<=flux_cutoff)
! clean: niter=100  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.0207518 Jy
! Component: 100  -  total flux cleaned = 0.0222779 Jy
! Total flux subtracted in 100 components = 0.0222779 Jy
! Clean residual min=-0.002597 max=0.002593 Jy/beam
! Clean residual mean=0.000020 rms=0.000946 Jy/beam
! Combined flux in latest and established models = 0.0222779 Jy
! Performing phase self-cal
! Adding 19 model components to the UV plane model.
! The established model now contains 19 components and 0.0222779 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Correcting IF 5.
! 
! Correcting IF 6.
! 
! Correcting IF 7.
! 
! Correcting IF 8.
! 
! Fit before self-cal, rms=0.022844Jy  sigma=0.535187
! Fit after  self-cal, rms=0.022321Jy  sigma=0.515169
! Inverting map 
print "************** FINISHED UNIFORM WEIGHTING CLEAN **************"
! ************** FINISHED UNIFORM WEIGHTING CLEAN ************** 
! 
uvw 0,-1
! Uniform weighting is not currently selected.
! Gridding weights will be scaled by errors raised to the power -1.
! Radial weighting is not currently selected.
win_mult = win_mult * 1.6
clean_niter = clean_niter * 2
dynam = dynam - 0.5
flux_cutoff = imstat(rms) * dynam
! Inverting map and beam 
! Estimated beam: bmin=4.354 mas, bmaj=16.3 mas, bpa=55.47 degrees
! Estimated noise=1.49642 mJy/beam.
repeat
  if (peak(flux) > flux_cutoff) peakwin win_mult
  clean clean_niter,clean_gain
  flux_cutoff = imstat(rms) * dynam
  selfcal
  new_peak = peak(flux)
  until(new_peak<=flux_cutoff)
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.00284444 Jy
! Component: 100  -  total flux cleaned = 0.00323204 Jy
! Component: 150  -  total flux cleaned = 0.00404345 Jy
! Component: 200  -  total flux cleaned = 0.00460477 Jy
! Total flux subtracted in 200 components = 0.00460477 Jy
! Clean residual min=-0.001275 max=0.001270 Jy/beam
! Clean residual mean=0.000004 rms=0.000503 Jy/beam
! Combined flux in latest and established models = 0.0268827 Jy
! Performing phase self-cal
! Adding 74 model components to the UV plane model.
! The established model now contains 92 components and 0.0268827 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Correcting IF 5.
! 
! Correcting IF 6.
! 
! Correcting IF 7.
! 
! Correcting IF 8.
! 
! Fit before self-cal, rms=0.020630Jy  sigma=0.485111
! Fit after  self-cal, rms=0.020555Jy  sigma=0.484082
! Inverting map 
print "************** FINISHED NATURAL WEIGHTING CLEAN **************"
! ************** FINISHED NATURAL WEIGHTING CLEAN ************** 
! 
restore
! restore: Substituting estimate of restoring beam from last 'invert'.
! Restoring with beam: 4.354 x 16.3 at 55.47 degrees (North through East)
! Clean map  min=-0.0021535  max=0.024364 Jy/beam
if ( peak(flux,max)/imstat(rms) < lim_self ) selflim lim_val
! Selfcal amplitude corrections will be limited to 0.833333 -> 1.2.
! Selfcal phase corrections will not be limited.
gscale true
! Performing overall amplitude self-cal
! 
! Correcting IF 1.
!  Telescope amplitude corrections in sub-array 1:
!   BR        1.00*    FD        1.00*    KP        1.00*    LA        1.00*    
!   NL        1.00*    PT        1.00*    SC        1.00*    
! 
!  A total of 9 telescope corrections were flagged in sub-array 2.
!  Telescope amplitude corrections in sub-array 2:
!   BR        0.00*    FD        0.00*    KP        0.00*    
! 
! 
! Correcting IF 2.
!  Telescope amplitude corrections in sub-array 1:
!   BR        1.00*    FD        1.00*    KP        1.00*    LA        1.00*    
!   NL        1.00*    PT        1.00*    SC        1.00*    
! 
!  A total of 9 telescope corrections were flagged in sub-array 2.
!  Telescope amplitude corrections in sub-array 2:
!   BR        0.00*    FD        0.00*    KP        0.00*    
! 
! 
! Correcting IF 3.
!  Telescope amplitude corrections in sub-array 1:
!   BR        1.00*    FD        1.00*    KP        1.00*    LA        1.00*    
!   NL        1.00*    PT        1.00*    SC        1.00*    
! 
!  A total of 9 telescope corrections were flagged in sub-array 2.
!  Telescope amplitude corrections in sub-array 2:
!   BR        0.00*    FD        0.00*    KP        0.00*    
! 
! 
! Correcting IF 4.
!  Telescope amplitude corrections in sub-array 1:
!   BR        1.00*    FD        1.00*    KP        1.00*    LA        1.00*    
!   NL        1.00*    PT        1.00*    SC        1.00*    
! 
!  A total of 9 telescope corrections were flagged in sub-array 2.
!  Telescope amplitude corrections in sub-array 2:
!   BR        0.00*    FD        0.00*    KP        0.00*    
! 
! 
! Correcting IF 5.
!  Telescope amplitude corrections in sub-array 1:
!   BR        1.00*    FD        1.00*    KP        1.00*    LA        1.00*    
!   NL        1.00*    PT        1.00*    SC        1.00*    
! 
!  A total of 9 telescope corrections were flagged in sub-array 2.
!  Telescope amplitude corrections in sub-array 2:
!   BR        0.00*    FD        0.00*    KP        0.00*    
! 
! 
! Correcting IF 6.
!  Telescope amplitude corrections in sub-array 1:
!   BR        1.05     FD        1.05     KP        1.01     LA        0.91     
!   NL        1.00*    PT        1.00     SC        1.00*    
! 
!  A total of 9 telescope corrections were flagged in sub-array 2.
!  Telescope amplitude corrections in sub-array 2:
!   BR        0.00*    FD        0.00*    KP        0.00*    
! 
! 
! Correcting IF 7.
!  Telescope amplitude corrections in sub-array 1:
!   BR        1.00*    FD        1.00*    KP        1.00*    LA        1.00*    
!   NL        1.00*    PT        1.00*    SC        1.00*    
! 
!  A total of 9 telescope corrections were flagged in sub-array 2.
!  Telescope amplitude corrections in sub-array 2:
!   BR        0.00*    FD        0.00*    KP        0.00*    
! 
! 
! Correcting IF 8.
!  Telescope amplitude corrections in sub-array 1:
!   BR        0.90     FD        0.97     KP        0.98     LA        1.01     
!   NL        1.00*    PT        0.99     SC        1.00*    
! 
!  A total of 9 telescope corrections were flagged in sub-array 2.
!  Telescope amplitude corrections in sub-array 2:
!   BR        0.00*    FD        0.00*    KP        0.00*    
! 
! 
! Fit before self-cal, rms=0.020555Jy  sigma=0.484082
! Fit after  self-cal, rms=0.020357Jy  sigma=0.491506
dynam = dynam - 0.5
flux_cutoff = imstat(rms) * dynam
! Inverting map and beam 
! Estimated beam: bmin=5.46 mas, bmaj=18.09 mas, bpa=53.34 degrees
! Estimated noise=1.72118 mJy/beam.
repeat
  if (peak(flux) > flux_cutoff) peakwin win_mult
  clean clean_niter,clean_gain
  flux_cutoff = imstat(rms) * dynam
  selfcal
  new_peak = peak(flux)
  until(new_peak<=flux_cutoff)
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = -0.000164346 Jy
! Component: 100  -  total flux cleaned = -0.000312305 Jy
! Component: 150  -  total flux cleaned = -0.000864958 Jy
! Component: 200  -  total flux cleaned = -0.00126458 Jy
! Total flux subtracted in 200 components = -0.00126458 Jy
! Clean residual min=-0.001080 max=0.001090 Jy/beam
! Clean residual mean=0.000010 rms=0.000440 Jy/beam
! Combined flux in latest and established models = 0.0256181 Jy
! Performing phase self-cal
! Adding 47 model components to the UV plane model.
! The established model now contains 139 components and 0.0256181 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Correcting IF 5.
! 
! Correcting IF 6.
! 
! Correcting IF 7.
! 
! Correcting IF 8.
! 
! Fit before self-cal, rms=0.019632Jy  sigma=0.480889
! Fit after  self-cal, rms=0.019600Jy  sigma=0.480137
! Inverting map 
selfcal true, true, soltime1
! Performing amp+phase self-cal over 120 minute time intervals
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Correcting IF 5.
! 
! Correcting IF 6.
! 
! Correcting IF 7.
! 
! Correcting IF 8.
! 
! Fit before self-cal, rms=0.019600Jy  sigma=0.480137
! Fit after  self-cal, rms=0.019547Jy  sigma=0.479523
dynam = dynam - 0.75
clean clean_niter,clean_gain
! Inverting map and beam 
! Estimated beam: bmin=5.469 mas, bmaj=18.02 mas, bpa=53.32 degrees
! Estimated noise=1.70543 mJy/beam.
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = -0.000755939 Jy
! Component: 100  -  total flux cleaned = -0.00085644 Jy
! Component: 150  -  total flux cleaned = -0.000668855 Jy
! Component: 200  -  total flux cleaned = -0.000581167 Jy
! Total flux subtracted in 200 components = -0.000581167 Jy
! Clean residual min=-0.000718 max=0.000718 Jy/beam
! Clean residual mean=0.000006 rms=0.000307 Jy/beam
! Combined flux in latest and established models = 0.025037 Jy
selfcal
! Performing phase self-cal
! Adding 64 model components to the UV plane model.
! The established model now contains 199 components and 0.025037 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Correcting IF 5.
! 
! Correcting IF 6.
! 
! Correcting IF 7.
! 
! Correcting IF 8.
! 
! Fit before self-cal, rms=0.019184Jy  sigma=0.473658
! Fit after  self-cal, rms=0.019178Jy  sigma=0.473325
flux_cutoff = imstat(rms) * dynam
! Inverting map 
repeat
  if (peak(flux) > flux_cutoff) peakwin win_mult
  clean clean_niter,clean_gain
  flux_cutoff = imstat(rms) * dynam
  selfcal
  new_peak = peak(flux)
  until(new_peak<=flux_cutoff)
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = -0.000636637 Jy
! Component: 100  -  total flux cleaned = -0.000593391 Jy
! Component: 150  -  total flux cleaned = -0.000742976 Jy
! Component: 200  -  total flux cleaned = -0.000886059 Jy
! Total flux subtracted in 200 components = -0.000886059 Jy
! Clean residual min=-0.000589 max=0.000588 Jy/beam
! Clean residual mean=0.000005 rms=0.000253 Jy/beam
! Combined flux in latest and established models = 0.0241509 Jy
! Performing phase self-cal
! Adding 63 model components to the UV plane model.
! The established model now contains 248 components and 0.0241509 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Correcting IF 5.
! 
! Correcting IF 6.
! 
! Correcting IF 7.
! 
! Correcting IF 8.
! 
! Fit before self-cal, rms=0.018958Jy  sigma=0.469998
! Fit after  self-cal, rms=0.018951Jy  sigma=0.469592
! Inverting map 
selfcal true, true, soltime2
! Performing amp+phase self-cal over 20 minute time intervals
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Correcting IF 5.
! 
! Correcting IF 6.
! 
! Correcting IF 7.
! 
! Correcting IF 8.
! 
! Fit before self-cal, rms=0.018951Jy  sigma=0.469592
! Fit after  self-cal, rms=0.018883Jy  sigma=0.466400
clean clean_niter,clean_gain
! Inverting map and beam 
! Estimated beam: bmin=5.497 mas, bmaj=17.9 mas, bpa=53.36 degrees
! Estimated noise=1.70366 mJy/beam.
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = -0.000190259 Jy
! Component: 100  -  total flux cleaned = -2.6089e-05 Jy
! Component: 150  -  total flux cleaned = 0.000161409 Jy
! Component: 200  -  total flux cleaned = 2.441e-05 Jy
! Total flux subtracted in 200 components = 2.441e-05 Jy
! Clean residual min=-0.000453 max=0.000458 Jy/beam
! Clean residual mean=0.000002 rms=0.000203 Jy/beam
! Combined flux in latest and established models = 0.0241753 Jy
selfcal
! Performing phase self-cal
! Adding 76 model components to the UV plane model.
! The established model now contains 312 components and 0.0241753 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Correcting IF 5.
! 
! Correcting IF 6.
! 
! Correcting IF 7.
! 
! Correcting IF 8.
! 
! Fit before self-cal, rms=0.018709Jy  sigma=0.463436
! Fit after  self-cal, rms=0.018711Jy  sigma=0.463152
flux_cutoff = imstat(rms) * dynam
! Inverting map 
repeat
  if (peak(flux) > flux_cutoff) peakwin win_mult
  clean clean_niter,clean_gain
  flux_cutoff = imstat(rms) * dynam
  selfcal
  new_peak = peak(flux)
  until(new_peak<=flux_cutoff)
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = -0.000390422 Jy
! Component: 100  -  total flux cleaned = -0.000310958 Jy
! Component: 150  -  total flux cleaned = -0.000235862 Jy
! Component: 200  -  total flux cleaned = -0.00014074 Jy
! Total flux subtracted in 200 components = -0.00014074 Jy
! Clean residual min=-0.000387 max=0.000385 Jy/beam
! Clean residual mean=0.000004 rms=0.000177 Jy/beam
! Combined flux in latest and established models = 0.0240346 Jy
! Performing phase self-cal
! Adding 58 model components to the UV plane model.
! The established model now contains 358 components and 0.0240346 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Correcting IF 5.
! 
! Correcting IF 6.
! 
! Correcting IF 7.
! 
! Correcting IF 8.
! 
! Fit before self-cal, rms=0.018599Jy  sigma=0.461605
! Fit after  self-cal, rms=0.018597Jy  sigma=0.461507
! Inverting map 
uvtaper 0.3,taper_size
! Gaussian taper: value 0.3 at UV radius = 40 mega-wavelengths.
win_mult = win_mult * 1.2
selfcal true, true, soltime2
! Performing amp+phase self-cal over 20 minute time intervals
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Correcting IF 5.
! 
! Correcting IF 6.
! 
! Correcting IF 7.
! 
! Correcting IF 8.
! 
! Fit before self-cal, rms=0.018597Jy  sigma=0.461507
! Fit after  self-cal, rms=0.018494Jy  sigma=0.460617
clean clean_niter,clean_gain
! Inverting map and beam 
! Estimated beam: bmin=6.129 mas, bmaj=17.15 mas, bpa=53.51 degrees
! Estimated noise=1.71343 mJy/beam.
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.000366857 Jy
! Component: 100  -  total flux cleaned = 0.00039173 Jy
! Component: 150  -  total flux cleaned = 0.000552054 Jy
! Component: 200  -  total flux cleaned = 0.00044876 Jy
! Total flux subtracted in 200 components = 0.00044876 Jy
! Clean residual min=-0.000340 max=0.000340 Jy/beam
! Clean residual mean=0.000002 rms=0.000150 Jy/beam
! Combined flux in latest and established models = 0.0244833 Jy
selfcal
! Performing phase self-cal
! Adding 71 model components to the UV plane model.
! The established model now contains 406 components and 0.0244833 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Correcting IF 5.
! 
! Correcting IF 6.
! 
! Correcting IF 7.
! 
! Correcting IF 8.
! 
! Fit before self-cal, rms=0.018388Jy  sigma=0.458933
! Fit after  self-cal, rms=0.018388Jy  sigma=0.458804
flux_cutoff = imstat(rms) * dynam
! Inverting map 
repeat
  if (peak(flux) > flux_cutoff) peakwin win_mult
  clean clean_niter,clean_gain
  flux_cutoff = imstat(rms) * dynam
  selfcal
  new_peak = peak(flux)
  until(new_peak<=flux_cutoff)
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = -0.000106997 Jy
! Component: 100  -  total flux cleaned = 0.00011777 Jy
! Component: 150  -  total flux cleaned = 0.000384057 Jy
! Component: 200  -  total flux cleaned = 0.000657307 Jy
! Total flux subtracted in 200 components = 0.000657307 Jy
! Clean residual min=-0.000298 max=0.000298 Jy/beam
! Clean residual mean=0.000004 rms=0.000131 Jy/beam
! Combined flux in latest and established models = 0.0251406 Jy
! Performing phase self-cal
! Adding 73 model components to the UV plane model.
! The established model now contains 471 components and 0.0251406 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Correcting IF 5.
! 
! Correcting IF 6.
! 
! Correcting IF 7.
! 
! Correcting IF 8.
! 
! Fit before self-cal, rms=0.018320Jy  sigma=0.457915
! Fit after  self-cal, rms=0.018320Jy  sigma=0.457841
! Inverting map 
uvtaper 0,0
! No UV-taper is currently set.
win_mult = win_mult / 1.2
print "************** FINISHED AMPLITUDE SELF-CAL **************"
! ************** FINISHED AMPLITUDE SELF-CAL ************** 
restore
! Inverting map and beam 
! Estimated beam: bmin=5.532 mas, bmaj=17.76 mas, bpa=53.38 degrees
! Estimated noise=1.68029 mJy/beam.
! restore: Substituting estimate of restoring beam from last 'invert'.
! Restoring with beam: 5.532 x 17.76 at 53.38 degrees (North through East)
! Clean map  min=-0.0031013  max=0.023683 Jy/beam
if(peak(flux) > thresh)
  selfcal true, true
  clean clean_niter,clean_gain
  selfcal
  flux_cutoff = imstat(rms) * dynam
  repeat
    if (peak(flux) > flux_cutoff) peakwin win_mult
    clean clean_niter,clean_gain
    flux_cutoff = imstat(rms) * dynam
    selfcal
    new_peak = peak(flux)
    until(new_peak<=flux_cutoff)
  selfcal true, true
  end if
print "************** CLEARING MODEL AND STARTING OVER **********"
! ************** CLEARING MODEL AND STARTING OVER ********** 
clrmod true
! clrmod: Cleared the established and tentative models.
uvw 2,-1
! Uniform weighting binwidth: 2 (pixels).
! Gridding weights will be scaled by errors raised to the power -1.
! Radial weighting is not currently selected.
clean clean_niter,clean_gain
! Inverting map and beam 
! Estimated beam: bmin=4.717 mas, bmaj=21.63 mas, bpa=54.04 degrees
! Estimated noise=1.98927 mJy/beam.
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.0213838 Jy
! Component: 100  -  total flux cleaned = 0.0253791 Jy
! Component: 150  -  total flux cleaned = 0.0279598 Jy
! Component: 200  -  total flux cleaned = 0.0293005 Jy
! Total flux subtracted in 200 components = 0.0293005 Jy
! Clean residual min=-0.001605 max=0.001625 Jy/beam
! Clean residual mean=0.000011 rms=0.000575 Jy/beam
! Combined flux in latest and established models = 0.0293005 Jy
uvw 0,-1
! Uniform weighting is not currently selected.
! Gridding weights will be scaled by errors raised to the power -1.
! Radial weighting is not currently selected.
flux_cutoff = imstat(rms) * dynam
! Adding 47 model components to the UV plane model.
! The established model now contains 47 components and 0.0293005 Jy
! Inverting map and beam 
! Estimated beam: bmin=5.532 mas, bmaj=17.76 mas, bpa=53.38 degrees
! Estimated noise=1.68029 mJy/beam.
repeat
  if (peak(flux) > flux_cutoff) peakwin win_mult
  clean clean_niter,clean_gain
  flux_cutoff = imstat(rms) * dynam
  keep
  new_peak = peak(flux)
  until(new_peak<=flux_cutoff)
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.00206183 Jy
! Component: 100  -  total flux cleaned = 0.00265489 Jy
! Component: 150  -  total flux cleaned = 0.00266352 Jy
! Component: 200  -  total flux cleaned = 0.0023171 Jy
! Total flux subtracted in 200 components = 0.0023171 Jy
! Clean residual min=-0.001420 max=0.001405 Jy/beam
! Clean residual mean=0.000010 rms=0.000551 Jy/beam
! Combined flux in latest and established models = 0.0316176 Jy
! Adding 47 model components to the UV plane model.
! The established model now contains 94 components and 0.0316176 Jy
! Inverting map 
uvtaper 0.3,taper_size
! Gaussian taper: value 0.3 at UV radius = 40 mega-wavelengths.
clean clean_niter,clean_gain
! Inverting map and beam 
! Estimated beam: bmin=6.129 mas, bmaj=17.15 mas, bpa=53.51 degrees
! Estimated noise=1.71343 mJy/beam.
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = -0.000979757 Jy
! Component: 100  -  total flux cleaned = -0.00181451 Jy
! Component: 150  -  total flux cleaned = -0.00240105 Jy
! Component: 200  -  total flux cleaned = -0.00302522 Jy
! Total flux subtracted in 200 components = -0.00302522 Jy
! Clean residual min=-0.001032 max=0.001017 Jy/beam
! Clean residual mean=0.000009 rms=0.000410 Jy/beam
! Combined flux in latest and established models = 0.0285924 Jy
flux_cutoff = imstat(rms) * dynam
repeat
  if (peak(flux) > flux_cutoff) peakwin win_mult
  clean clean_niter,clean_gain
  flux_cutoff = imstat(rms) * dynam
  keep
  new_peak = peak(flux)
  until(new_peak<=flux_cutoff)
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = -0.000490477 Jy
! Component: 100  -  total flux cleaned = -0.00103819 Jy
! Component: 150  -  total flux cleaned = -0.00171695 Jy
! Component: 200  -  total flux cleaned = -0.00222399 Jy
! Total flux subtracted in 200 components = -0.00222399 Jy
! Clean residual min=-0.001081 max=0.001082 Jy/beam
! Clean residual mean=0.000010 rms=0.000406 Jy/beam
! Combined flux in latest and established models = 0.0263684 Jy
! Adding 95 model components to the UV plane model.
! The established model now contains 188 components and 0.0263684 Jy
! Inverting map 
uvtaper 0,0
! No UV-taper is currently set.
clean
! Inverting map and beam 
! Estimated beam: bmin=5.532 mas, bmaj=17.76 mas, bpa=53.38 degrees
! Estimated noise=1.68029 mJy/beam.
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.000311433 Jy
! Component: 100  -  total flux cleaned = 0.000713017 Jy
! Component: 150  -  total flux cleaned = 0.00075406 Jy
! Component: 200  -  total flux cleaned = 0.0007889 Jy
! Total flux subtracted in 200 components = 0.0007889 Jy
! Clean residual min=-0.000565 max=0.000570 Jy/beam
! Clean residual mean=0.000006 rms=0.000225 Jy/beam
! Combined flux in latest and established models = 0.0271573 Jy
selfcal
! Performing phase self-cal
! Adding 54 model components to the UV plane model.
! The established model now contains 240 components and 0.0271573 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Correcting IF 5.
! 
! Correcting IF 6.
! 
! Correcting IF 7.
! 
! Correcting IF 8.
! 
! Fit before self-cal, rms=0.018455Jy  sigma=0.460051
! Fit after  self-cal, rms=0.018441Jy  sigma=0.459667
wmodel /d2/scr/pima/bp171a2_uvs/J0528+1114_C_map.mod
! Writing 240 model components to file: /d2/scr/pima/bp171a2_uvs/J0528+1114_C_map.mod
wobs /d2/scr/pima/bp171a2_uvs/J0528+1114_C_uvs.fits
! Writing UV FITS file: /d2/scr/pima/bp171a2_uvs/J0528+1114_C_uvs.fits
wwins /d2/scr/pima/bp171a2_uvs/J0528+1114_C_map.win
! wwins: No CLEAN windows to write.
! Error occured in command: wwins
![Exited script file: /home/lpetrov/bin/01_muppet]
! 
wmap "/d2/scr/pima/bp171a2_uvs/J0528+1114_C\_map.fits"
! Inverting map 
! restore: Substituting estimate of restoring beam from last 'invert'.
! Restoring with beam: 5.532 x 17.76 at 53.38 degrees (North through East)
! Clean map  min=-0.0030874  max=0.02289 Jy/beam
! Writing clean map to FITS file: /d2/scr/pima/bp171a2_uvs/J0528+1114_C_map.fits
float peak_flux
peak_flux = peak(flux,max)
print "The peak flux is",peak_flux
! The peak flux is 0.0228896 
invert
! Inverting map 
float image_rms
image_rms = imstat(rms)
print "The final image rms is",image_rms
! The final image rms is 0.00021544 
loglevs 100*3*image_rms/peak_flux
! The new contour levels are:
!  -2.82364 2.82364 5.64728 11.2946 22.5891 45.1782 90.3565
print "clev=      ", int(3*image_rms*10000)/10000
! clev=       0.0006 
print "peak=      ", int(1000*peak_flux)/1000
! peak=       0.022 
print "dyn_range= ", int(1000*peak_flux/image_rms)/1000
! dyn_range=  106.245 
quit
! Quitting program
! Log file /d2/scr/pima/bp171a2_uvs/J0528+1114_C_uvs.log closed on Tue Feb 18 20:25:21 2014