! Started logfile: /scr/pima/s3111a_uvs/J2323+4210_X_uvs.log on Mon Jul 23 07:19:18 2012
obs /scr/pima/s3111a_uvs/J2323+4210_X_uva.fits
! Reading UV FITS file: /scr/pima/s3111a_uvs/J2323+4210_X_uva.fits
! AN table 1: 71 integrations on 55 of 55 possible baselines.
! Apparent sampling: 0.855314 visibilities/baseline/integration-bin.
! Found source: J2323+4210
! 
! 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  8.41193e+09      1.6e+07          1      1.6e+07
!  02        2  8.42793e+09      1.6e+07          1      1.6e+07
!  03        3  8.52393e+09      1.6e+07          1      1.6e+07
!  04        4  8.57193e+09      1.6e+07          1      1.6e+07
!  05        5  8.65193e+09      1.6e+07          1      1.6e+07
!  06        6  8.82793e+09      1.6e+07          1      1.6e+07
!  07        7  8.85993e+09      1.6e+07          1      1.6e+07
!  08        8  8.89193e+09      1.6e+07          1      1.6e+07
! 
! Polarization(s): RR
! 
! Read 0 lines of history.
! 
! Reading 26720 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 = 512 
print "field_cell =",field_cell
! field_cell = 0.1 
print "taper_size =",taper_size
! taper_size = 120 
![@/home/lpetrov/bin/01_muppet /scr/pima/s3111a_uvs/J2323+4210_X]
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 = 512x512 pixels with 0.100x0.100 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 58 telescope corrections were flagged in sub-array 1.
! 
! Correcting IF 2.
!  A total of 58 telescope corrections were flagged in sub-array 1.
! 
! Correcting IF 3.
!  A total of 58 telescope corrections were flagged in sub-array 1.
! 
! Correcting IF 4.
!  A total of 58 telescope corrections were flagged in sub-array 1.
! 
! Correcting IF 5.
!  A total of 58 telescope corrections were flagged in sub-array 1.
! 
! Correcting IF 6.
!  A total of 58 telescope corrections were flagged in sub-array 1.
! 
! Correcting IF 7.
!  A total of 196 telescope corrections were flagged in sub-array 1.
! 
! Correcting IF 8.
!  A total of 58 telescope corrections were flagged in sub-array 1.
! 
! Fit before self-cal, rms=1.000014Jy  sigma=0.703476
! Fit after  self-cal, rms=0.991463Jy  sigma=0.697421
! 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=0.7 mas, bmaj=1.5 mas, bpa=3.86 degrees
! Estimated noise=15.5956 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)
! Added new window around map position (0, 0).
! clean: niter=100  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.00744359 Jy
! Component: 100  -  total flux cleaned = 0.00839936 Jy
! Total flux subtracted in 100 components = 0.00839936 Jy
! Clean residual min=-0.001215 max=0.001361 Jy/beam
! Clean residual mean=0.000003 rms=0.000362 Jy/beam
! Combined flux in latest and established models = 0.00839936 Jy
! Performing phase self-cal
! Adding 3 model components to the UV plane model.
! The established model now contains 3 components and 0.00839936 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.024917Jy  sigma=0.017597
! Fit after  self-cal, rms=0.023536Jy  sigma=0.016626
! Inverting map 
! clean: niter=100  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.0033493 Jy
! Component: 100  -  total flux cleaned = 0.00314294 Jy
! Total flux subtracted in 100 components = 0.00314294 Jy
! Clean residual min=-0.001023 max=0.001312 Jy/beam
! Clean residual mean=0.000002 rms=0.000350 Jy/beam
! Combined flux in latest and established models = 0.0115423 Jy
! Performing phase self-cal
! Adding 6 model components to the UV plane model.
! The established model now contains 6 components and 0.0115423 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.023206Jy  sigma=0.016387
! Fit after  self-cal, rms=0.023193Jy  sigma=0.016379
! 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=0.9141 mas, bmaj=1.807 mas, bpa=2.755 degrees
! Estimated noise=6.29142 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.000421118 Jy
! Component: 100  -  total flux cleaned = 0.000591762 Jy
! Component: 150  -  total flux cleaned = 0.000616902 Jy
! Component: 200  -  total flux cleaned = 0.000627354 Jy
! Total flux subtracted in 200 components = 0.000627354 Jy
! Clean residual min=-0.000828 max=0.000898 Jy/beam
! Clean residual mean=-0.000002 rms=0.000236 Jy/beam
! Combined flux in latest and established models = 0.0121696 Jy
! Performing phase self-cal
! Adding 10 model components to the UV plane model.
! The established model now contains 13 components and 0.0121696 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.023186Jy  sigma=0.016373
! Fit after  self-cal, rms=0.023183Jy  sigma=0.016371
! Inverting map 
print "************** FINISHED NATURAL WEIGHTING CLEAN **************"
! ************** FINISHED NATURAL WEIGHTING CLEAN ************** 
! 
gscale true
! Performing overall amplitude self-cal
! 
! Correcting IF 1.
!  A total of 3 telescope corrections were flagged in sub-array 1.
!  Telescope amplitude corrections in sub-array 1:
!   BR        1.15     FD        0.89     GB        1.85     HN        0.87     
!   KP        0.98     LA        1.04     MK        0.94     NL        1.10     
!   OV        0.94     PT        1.00     SC        1.07     
! 
! 
! Correcting IF 2.
!  A total of 3 telescope corrections were flagged in sub-array 1.
!  Telescope amplitude corrections in sub-array 1:
!   BR        1.12     FD        0.93     GB        1.75     HN        0.91     
!   KP        0.94     LA        1.06     MK        1.00     NL        1.08     
!   OV        0.99     PT        0.99     SC        1.17     
! 
! 
! Correcting IF 3.
!  A total of 3 telescope corrections were flagged in sub-array 1.
!  Telescope amplitude corrections in sub-array 1:
!   BR        1.09     FD        0.84     GB        1.83     HN        0.87     
!   KP        0.93     LA        1.10     MK        1.00     NL        1.14     
!   OV        0.90     PT        0.99     SC        0.98     
! 
! 
! Correcting IF 4.
!  A total of 3 telescope corrections were flagged in sub-array 1.
!  Telescope amplitude corrections in sub-array 1:
!   BR        1.03     FD        0.87     GB        2.00     HN        0.98     
!   KP        0.87     LA        1.14     MK        0.95     NL        1.08     
!   OV        0.98     PT        1.05     SC        1.04     
! 
! 
! Correcting IF 5.
!  A total of 3 telescope corrections were flagged in sub-array 1.
!  Telescope amplitude corrections in sub-array 1:
!   BR        1.04     FD        0.79     GB        2.04     HN        0.86     
!   KP        0.95     LA        1.04     MK        0.91     NL        0.98     
!   OV        0.89     PT        1.04     SC        0.99     
! 
! 
! Correcting IF 6.
!  A total of 3 telescope corrections were flagged in sub-array 1.
!  Telescope amplitude corrections in sub-array 1:
!   BR        0.92     FD        0.71     GB        2.31     HN        0.87     
!   KP        0.92     LA        1.16     MK        0.89     NL        1.08     
!   OV        0.84     PT        0.97     SC        0.97     
! 
! 
! Correcting IF 7.
!  A total of 6 telescope corrections were flagged in sub-array 1.
!  Telescope amplitude corrections in sub-array 1:
!   BR        1.00*    FD        0.69     GB        2.06     HN        0.89     
!   KP        0.88     LA        0.97     MK        1.00*    NL        0.99     
!   OV        0.80     PT        1.14     SC        0.95     
! 
! 
! Correcting IF 8.
!  A total of 3 telescope corrections were flagged in sub-array 1.
!  Telescope amplitude corrections in sub-array 1:
!   BR        0.84     FD        0.63     GB        2.53     HN        0.94     
!   KP        0.86     LA        1.11     MK        0.80     NL        1.09     
!   OV        0.79     PT        1.05     SC        0.96     
! 
! 
! Fit before self-cal, rms=0.023183Jy  sigma=0.016371
! Fit after  self-cal, rms=0.022285Jy  sigma=0.016158
dynam = dynam - 0.5
flux_cutoff = imstat(rms) * dynam
! Inverting map and beam 
! Estimated beam: bmin=0.9147 mas, bmaj=1.792 mas, bpa=2.859 degrees
! Estimated noise=6.27882 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.000218155 Jy
! Component: 100  -  total flux cleaned = 0.000297926 Jy
! Component: 150  -  total flux cleaned = 0.000319135 Jy
! Component: 200  -  total flux cleaned = 0.000339023 Jy
! Total flux subtracted in 200 components = 0.000339023 Jy
! Clean residual min=-0.000408 max=0.000370 Jy/beam
! Clean residual mean=-0.000001 rms=0.000110 Jy/beam
! Combined flux in latest and established models = 0.0125087 Jy
! Performing phase self-cal
! Adding 11 model components to the UV plane model.
! The established model now contains 22 components and 0.0125087 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.022282Jy  sigma=0.016156
! Fit after  self-cal, rms=0.022393Jy  sigma=0.016110
! 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.022393Jy  sigma=0.016110
! Fit after  self-cal, rms=0.023238Jy  sigma=0.016087
dynam = dynam - 0.75
clean clean_niter,clean_gain
! Inverting map and beam 
! Estimated beam: bmin=0.9106 mas, bmaj=1.787 mas, bpa=2.773 degrees
! Estimated noise=6.314 mJy/beam.
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.00015921 Jy
! Component: 100  -  total flux cleaned = 0.000210835 Jy
! Component: 150  -  total flux cleaned = 0.000235025 Jy
! Component: 200  -  total flux cleaned = 0.000252511 Jy
! Total flux subtracted in 200 components = 0.000252511 Jy
! Clean residual min=-0.000353 max=0.000340 Jy/beam
! Clean residual mean=0.000001 rms=0.000105 Jy/beam
! Combined flux in latest and established models = 0.0127612 Jy
selfcal
! Performing phase self-cal
! Adding 11 model components to the UV plane model.
! The established model now contains 28 components and 0.0127612 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.023236Jy  sigma=0.016087
! Fit after  self-cal, rms=0.023296Jy  sigma=0.016077
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 = 1.20709e-05 Jy
! Component: 100  -  total flux cleaned = 3.55853e-05 Jy
! Component: 150  -  total flux cleaned = 5.23108e-05 Jy
! Component: 200  -  total flux cleaned = 6.62722e-05 Jy
! Total flux subtracted in 200 components = 6.62722e-05 Jy
! Clean residual min=-0.000352 max=0.000341 Jy/beam
! Clean residual mean=-0.000001 rms=0.000106 Jy/beam
! Combined flux in latest and established models = 0.0128275 Jy
! Performing phase self-cal
! Adding 12 model components to the UV plane model.
! The established model now contains 32 components and 0.0128275 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.023295Jy  sigma=0.016077
! Fit after  self-cal, rms=0.023296Jy  sigma=0.016077
! 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.023296Jy  sigma=0.016077
! Fit after  self-cal, rms=0.023953Jy  sigma=0.016072
clean clean_niter,clean_gain
! Inverting map and beam 
! Estimated beam: bmin=0.9063 mas, bmaj=1.78 mas, bpa=2.842 degrees
! Estimated noise=6.39386 mJy/beam.
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.000185388 Jy
! Component: 100  -  total flux cleaned = 0.000283239 Jy
! Component: 150  -  total flux cleaned = 0.000343836 Jy
! Component: 200  -  total flux cleaned = 0.000374562 Jy
! Total flux subtracted in 200 components = 0.000374562 Jy
! Clean residual min=-0.000359 max=0.000342 Jy/beam
! Clean residual mean=0.000000 rms=0.000104 Jy/beam
! Combined flux in latest and established models = 0.013202 Jy
selfcal
! Performing phase self-cal
! Adding 18 model components to the UV plane model.
! The established model now contains 45 components and 0.013202 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.023950Jy  sigma=0.016071
! Fit after  self-cal, rms=0.023978Jy  sigma=0.016069
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 = 2.11476e-05 Jy
! Component: 100  -  total flux cleaned = 3.26059e-05 Jy
! Component: 150  -  total flux cleaned = 4.37938e-05 Jy
! Component: 200  -  total flux cleaned = 5.47011e-05 Jy
! Total flux subtracted in 200 components = 5.47011e-05 Jy
! Clean residual min=-0.000343 max=0.000346 Jy/beam
! Clean residual mean=0.000000 rms=0.000105 Jy/beam
! Combined flux in latest and established models = 0.0132567 Jy
! Performing phase self-cal
! Adding 9 model components to the UV plane model.
! The established model now contains 47 components and 0.0132567 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.023977Jy  sigma=0.016069
! Fit after  self-cal, rms=0.023975Jy  sigma=0.016068
! Inverting map 
uvtaper 0.3,taper_size
! Gaussian taper: value 0.3 at UV radius = 120 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.023975Jy  sigma=0.016068
! Fit after  self-cal, rms=0.024350Jy  sigma=0.016065
clean clean_niter,clean_gain
! Inverting map and beam 
! Estimated beam: bmin=1.321 mas, bmaj=2.115 mas, bpa=1.378 degrees
! Estimated noise=7.13428 mJy/beam.
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.000195815 Jy
! Component: 100  -  total flux cleaned = 0.000285538 Jy
! Component: 150  -  total flux cleaned = 0.000332618 Jy
! Component: 200  -  total flux cleaned = 0.000345964 Jy
! Total flux subtracted in 200 components = 0.000345964 Jy
! Clean residual min=-0.000406 max=0.000366 Jy/beam
! Clean residual mean=0.000000 rms=0.000118 Jy/beam
! Combined flux in latest and established models = 0.0136027 Jy
selfcal
! Performing phase self-cal
! Adding 30 model components to the UV plane model.
! The established model now contains 66 components and 0.0136027 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.024348Jy  sigma=0.016065
! Fit after  self-cal, rms=0.024361Jy  sigma=0.016064
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 = 3.24651e-05 Jy
! Component: 100  -  total flux cleaned = 3.09015e-05 Jy
! Component: 150  -  total flux cleaned = 3.09207e-05 Jy
! Component: 200  -  total flux cleaned = 3.09858e-05 Jy
! Total flux subtracted in 200 components = 3.09858e-05 Jy
! Clean residual min=-0.000400 max=0.000369 Jy/beam
! Clean residual mean=0.000000 rms=0.000119 Jy/beam
! Combined flux in latest and established models = 0.0136337 Jy
! Performing phase self-cal
! Adding 14 model components to the UV plane model.
! The established model now contains 71 components and 0.0136337 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.024361Jy  sigma=0.016064
! Fit after  self-cal, rms=0.024361Jy  sigma=0.016064
! 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=0.9019 mas, bmaj=1.771 mas, bpa=3.029 degrees
! Estimated noise=6.45515 mJy/beam.
! restore: Substituting estimate of restoring beam from last 'invert'.
! Restoring with beam: 0.9019 x 1.771 at 3.029 degrees (North through East)
! Clean map  min=-0.00042341  max=0.012863 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=0.6826 mas, bmaj=1.48 mas, bpa=4.734 degrees
! Estimated noise=15.3699 mJy/beam.
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.00997911 Jy
! Component: 100  -  total flux cleaned = 0.0121257 Jy
! Component: 150  -  total flux cleaned = 0.0125028 Jy
! Component: 200  -  total flux cleaned = 0.0128916 Jy
! Total flux subtracted in 200 components = 0.0128916 Jy
! Clean residual min=-0.000927 max=0.000855 Jy/beam
! Clean residual mean=0.000002 rms=0.000247 Jy/beam
! Combined flux in latest and established models = 0.0128916 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 16 model components to the UV plane model.
! The established model now contains 16 components and 0.0128916 Jy
! Inverting map and beam 
! Estimated beam: bmin=0.9019 mas, bmaj=1.771 mas, bpa=3.029 degrees
! Estimated noise=6.45515 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.000458353 Jy
! Component: 100  -  total flux cleaned = 0.000621789 Jy
! Component: 150  -  total flux cleaned = 0.000673782 Jy
! Component: 200  -  total flux cleaned = 0.000712123 Jy
! Total flux subtracted in 200 components = 0.000712123 Jy
! Clean residual min=-0.000389 max=0.000456 Jy/beam
! Clean residual mean=0.000001 rms=0.000112 Jy/beam
! Combined flux in latest and established models = 0.0136037 Jy
! Adding 13 model components to the UV plane model.
! The established model now contains 28 components and 0.0136037 Jy
! Inverting map 
uvtaper 0.3,taper_size
! Gaussian taper: value 0.3 at UV radius = 120 mega-wavelengths.
clean clean_niter,clean_gain
! Inverting map and beam 
! Estimated beam: bmin=1.321 mas, bmaj=2.115 mas, bpa=1.378 degrees
! Estimated noise=7.13428 mJy/beam.
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 5.11899e-05 Jy
! Component: 100  -  total flux cleaned = 5.10973e-05 Jy
! Component: 150  -  total flux cleaned = 4.82575e-05 Jy
! Component: 200  -  total flux cleaned = 5.09697e-05 Jy
! Total flux subtracted in 200 components = 5.09697e-05 Jy
! Clean residual min=-0.000388 max=0.000406 Jy/beam
! Clean residual mean=0.000000 rms=0.000122 Jy/beam
! Combined flux in latest and established models = 0.0136547 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 = 2.43207e-06 Jy
! Component: 100  -  total flux cleaned = 2.472e-06 Jy
! Component: 150  -  total flux cleaned = 4.88014e-06 Jy
! Component: 200  -  total flux cleaned = 4.83174e-06 Jy
! Total flux subtracted in 200 components = 4.83174e-06 Jy
! Clean residual min=-0.000388 max=0.000401 Jy/beam
! Clean residual mean=0.000000 rms=0.000122 Jy/beam
! Combined flux in latest and established models = 0.0136595 Jy
! Adding 16 model components to the UV plane model.
! The established model now contains 38 components and 0.0136595 Jy
! Inverting map 
uvtaper 0,0
! No UV-taper is currently set.
clean
! Inverting map and beam 
! Estimated beam: bmin=0.9019 mas, bmaj=1.771 mas, bpa=3.029 degrees
! Estimated noise=6.45515 mJy/beam.
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = -3.54006e-06 Jy
! Component: 100  -  total flux cleaned = -3.38621e-06 Jy
! Component: 150  -  total flux cleaned = -1.06868e-05 Jy
! Component: 200  -  total flux cleaned = -1.74797e-05 Jy
! Total flux subtracted in 200 components = -1.74797e-05 Jy
! Clean residual min=-0.000367 max=0.000413 Jy/beam
! Clean residual mean=0.000000 rms=0.000109 Jy/beam
! Combined flux in latest and established models = 0.013642 Jy
selfcal
! Performing phase self-cal
! Adding 10 model components to the UV plane model.
! The established model now contains 44 components and 0.013642 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.024364Jy  sigma=0.016066
! Fit after  self-cal, rms=0.024362Jy  sigma=0.016065
wmodel /scr/pima/s3111a_uvs/J2323+4210_X_map.mod
! Writing 44 model components to file: /scr/pima/s3111a_uvs/J2323+4210_X_map.mod
wobs /scr/pima/s3111a_uvs/J2323+4210_X_uvs.fits
! Writing UV FITS file: /scr/pima/s3111a_uvs/J2323+4210_X_uvs.fits
wwins /scr/pima/s3111a_uvs/J2323+4210_X_map.win
! wwins: Wrote 1 windows to /scr/pima/s3111a_uvs/J2323+4210_X_map.win
x = (field_size-8) * field_cell / 4
addwin -x,x,-x,x
clean (field_size*4),0.01
! Inverting map 
! clean: niter=2048  gain=0.01  cutoff=0
! Component: 050  -  total flux cleaned = 3.88914e-06 Jy
! Component: 100  -  total flux cleaned = -3.29282e-05 Jy
! Component: 150  -  total flux cleaned = -6.79166e-05 Jy
! Component: 200  -  total flux cleaned = -0.000118096 Jy
! Component: 250  -  total flux cleaned = -0.000150298 Jy
! Component: 300  -  total flux cleaned = -0.0002075 Jy
! Component: 350  -  total flux cleaned = -0.000237772 Jy
! Component: 400  -  total flux cleaned = -0.000286829 Jy
! Component: 450  -  total flux cleaned = -0.000320215 Jy
! Component: 500  -  total flux cleaned = -0.000366787 Jy
! Component: 550  -  total flux cleaned = -0.000398635 Jy
! Component: 600  -  total flux cleaned = -0.000420951 Jy
! Component: 650  -  total flux cleaned = -0.00045151 Jy
! Component: 700  -  total flux cleaned = -0.000468598 Jy
! Component: 750  -  total flux cleaned = -0.000485379 Jy
! Component: 800  -  total flux cleaned = -0.000509997 Jy
! Component: 850  -  total flux cleaned = -0.000510012 Jy
! Component: 900  -  total flux cleaned = -0.000529835 Jy
! Component: 950  -  total flux cleaned = -0.000525981 Jy
! Component: 1000  -  total flux cleaned = -0.000529839 Jy
! Component: 1050  -  total flux cleaned = -0.000514833 Jy
! Component: 1100  -  total flux cleaned = -0.000525956 Jy
! Component: 1150  -  total flux cleaned = -0.000518588 Jy
! Component: 1200  -  total flux cleaned = -0.00052212 Jy
! Component: 1250  -  total flux cleaned = -0.000522063 Jy
! Component: 1300  -  total flux cleaned = -0.000518536 Jy
! Component: 1350  -  total flux cleaned = -0.00051854 Jy
! Component: 1400  -  total flux cleaned = -0.000521938 Jy
! Component: 1450  -  total flux cleaned = -0.000508305 Jy
! Component: 1500  -  total flux cleaned = -0.000508262 Jy
! Component: 1550  -  total flux cleaned = -0.000501553 Jy
! Component: 1600  -  total flux cleaned = -0.000494987 Jy
! Component: 1650  -  total flux cleaned = -0.000498256 Jy
! Component: 1700  -  total flux cleaned = -0.000491758 Jy
! Component: 1750  -  total flux cleaned = -0.000478911 Jy
! Component: 1800  -  total flux cleaned = -0.000482115 Jy
! Component: 1850  -  total flux cleaned = -0.000475757 Jy
! Component: 1900  -  total flux cleaned = -0.000472606 Jy
! Component: 1950  -  total flux cleaned = -0.000460174 Jy
! Component: 2000  -  total flux cleaned = -0.000460165 Jy
! Total flux subtracted in 2048 components = -0.00044491 Jy
! Clean residual min=-0.000156 max=0.000164 Jy/beam
! Clean residual mean=0.000002 rms=0.000068 Jy/beam
! Combined flux in latest and established models = 0.0131971 Jy
keep
! Adding 139 model components to the UV plane model.
! The established model now contains 183 components and 0.0131971 Jy
![Exited script file: /home/lpetrov/bin/01_muppet]
wmap "/scr/pima/s3111a_uvs/J2323+4210_X\_map.fits"
! Inverting map 
! restore: Substituting estimate of restoring beam from last 'invert'.
! Restoring with beam: 0.9019 x 1.771 at 3.029 degrees (North through East)
! Clean map  min=-0.00031985  max=0.012848 Jy/beam
! Writing clean map to FITS file: /scr/pima/s3111a_uvs/J2323+4210_X_map.fits
float peak_flux
peak_flux = peak(flux,max)
print "The peak flux is",peak_flux
! The peak flux is 0.0128482 
invert
! Inverting map 
float image_rms
image_rms = imstat(rms)
print "The final image rms is",image_rms
! The final image rms is 6.77102e-05 
loglevs 100*3*image_rms/peak_flux
! The new contour levels are:
!  -1.581 1.581 3.162 6.324 12.648 25.296 50.592
print "clev=",int(3*image_rms*10000)/10000
! clev= 0.0002 
print "peak=",int(1000*peak_flux)/1000
! peak= 0.012 
quit
! Quitting program
! Log file /scr/pima/s3111a_uvs/J2323+4210_X_uvs.log closed on Mon Jul 23 07:19:20 2012