! Started logfile: /scr/pima/bp171ac_uvs/J1147-3932_C_uvs.log on Mon Dec  9 01:53:55 2013
obs /scr/pima/bp171ac_uvs/J1147-3932_C_uva.fits
! Reading UV FITS file: /scr/pima/bp171ac_uvs/J1147-3932_C_uva.fits
! AN table 1: 4 integrations on 15 of 15 possible baselines.
! Apparent sampling: 0.616667 visibilities/baseline/integration-bin.
! Found source: J1147-3932
! 
! 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    4.128e+09      3.2e+07          1      3.2e+07
!  02        2     4.16e+09      3.2e+07          1      3.2e+07
!  03        3    4.192e+09      3.2e+07          1      3.2e+07
!  04        4    4.224e+09      3.2e+07          1      3.2e+07
!  05        5    4.416e+09      3.2e+07          1      3.2e+07
!  06        6    4.512e+09      3.2e+07          1      3.2e+07
!  07        7    4.544e+09      3.2e+07          1      3.2e+07
!  08        8    4.576e+09      3.2e+07          1      3.2e+07
! 
! Polarization(s): RR
! 
! Read 0 lines of history.
! 
! Reading 296 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 /scr/pima/bp171ac_uvs/J1147-3932_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=1.000312Jy  sigma=1.365931
! Fit after  self-cal, rms=0.958020Jy  sigma=1.305130
! 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=6.268 mas, bmaj=46.94 mas, bpa=-2.638 degrees
! Estimated noise=37.1937 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.0378549 Jy
! Component: 100  -  total flux cleaned = 0.0454948 Jy
! Total flux subtracted in 100 components = 0.0454948 Jy
! Clean residual min=-0.004044 max=0.004018 Jy/beam
! Clean residual mean=-0.000056 rms=0.001686 Jy/beam
! Combined flux in latest and established models = 0.0454948 Jy
! Performing phase self-cal
! Adding 30 model components to the UV plane model.
! The established model now contains 30 components and 0.0454948 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.025093Jy  sigma=0.029750
! Fit after  self-cal, rms=0.024231Jy  sigma=0.029269
! 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=6.907 mas, bmaj=46.01 mas, bpa=-2.376 degrees
! Estimated noise=33.6043 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.000253996 Jy
! Component: 100  -  total flux cleaned = -0.00173439 Jy
! Component: 150  -  total flux cleaned = -0.00291132 Jy
! Component: 200  -  total flux cleaned = -0.00349703 Jy
! Total flux subtracted in 200 components = -0.00349703 Jy
! Clean residual min=-0.001512 max=0.001492 Jy/beam
! Clean residual mean=-0.000024 rms=0.000698 Jy/beam
! Combined flux in latest and established models = 0.0419978 Jy
! Performing phase self-cal
! Adding 114 model components to the UV plane model.
! The established model now contains 143 components and 0.0419978 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.023336Jy  sigma=0.026206
! Fit after  self-cal, rms=0.023209Jy  sigma=0.026112
! Inverting map 
print "************** FINISHED NATURAL WEIGHTING CLEAN **************"
! ************** FINISHED NATURAL WEIGHTING CLEAN ************** 
! 
restore
! restore: Substituting estimate of restoring beam from last 'invert'.
! Restoring with beam: 6.907 x 46.01 at -2.376 degrees (North through East)
! Clean map  min=-0.0042233  max=0.042495 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:
!   FD        1.00*    KP        1.00*    LA        1.00*    NL        1.00*    
!   OV        1.00*    PT        1.00*    
! 
! 
! Correcting IF 2.
!  Telescope amplitude corrections in sub-array 1:
!   FD        1.09     KP        0.88     LA        1.01     NL        1.03     
!   OV        0.86     PT        1.03     
! 
! 
! Correcting IF 3.
!  Telescope amplitude corrections in sub-array 1:
!   FD        1.00*    KP        1.00*    LA        1.00*    NL        1.00*    
!   OV        1.00*    PT        1.00*    
! 
! 
! Correcting IF 4.
!  Telescope amplitude corrections in sub-array 1:
!   FD        0.96     KP        0.99     LA        1.08     NL        0.96     
!   OV        0.94     PT        0.94     
! 
! 
! Correcting IF 5.
!  Telescope amplitude corrections in sub-array 1:
!   FD        1.00*    KP        1.00*    LA        1.00*    NL        1.00*    
!   OV        1.00*    PT        1.00*    
! 
! 
! Correcting IF 6.
!  Telescope amplitude corrections in sub-array 1:
!   FD        1.02     KP        1.03     LA        1.02     NL        1.10     
!   OV        1.05     PT        1.12     
! 
! 
! Correcting IF 7.
!  Telescope amplitude corrections in sub-array 1:
!   FD        1.02     KP        1.10     LA        0.90     NL        1.00     
!   OV        1.00     PT        0.88     
! 
! 
! Correcting IF 8.
!  Telescope amplitude corrections in sub-array 1:
!   FD        1.00*    KP        1.00*    LA        1.00*    NL        1.00*    
!   OV        1.00*    PT        1.00*    
! 
! 
! Fit before self-cal, rms=0.023209Jy  sigma=0.026112
! Fit after  self-cal, rms=0.022981Jy  sigma=0.025385
dynam = dynam - 0.5
flux_cutoff = imstat(rms) * dynam
! Inverting map and beam 
! Estimated beam: bmin=6.917 mas, bmaj=46.27 mas, bpa=-2.33 degrees
! Estimated noise=33.2185 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.00171864 Jy
! Component: 100  -  total flux cleaned = -0.00244428 Jy
! Component: 150  -  total flux cleaned = -0.00278913 Jy
! Component: 200  -  total flux cleaned = -0.00294128 Jy
! Total flux subtracted in 200 components = -0.00294128 Jy
! Clean residual min=-0.000802 max=0.000796 Jy/beam
! Clean residual mean=-0.000016 rms=0.000371 Jy/beam
! Combined flux in latest and established models = 0.0390565 Jy
! Performing phase self-cal
! Adding 98 model components to the UV plane model.
! The established model now contains 241 components and 0.0390565 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.022645Jy  sigma=0.024873
! Fit after  self-cal, rms=0.022648Jy  sigma=0.024831
! 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.022648Jy  sigma=0.024831
! Fit after  self-cal, rms=0.022614Jy  sigma=0.024792
dynam = dynam - 0.75
clean clean_niter,clean_gain
! Inverting map and beam 
! Estimated beam: bmin=6.92 mas, bmaj=46.24 mas, bpa=-2.34 degrees
! Estimated noise=33.2622 mJy/beam.
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = -0.000683145 Jy
! Component: 100  -  total flux cleaned = -0.00121009 Jy
! Component: 150  -  total flux cleaned = -0.00133939 Jy
! Component: 200  -  total flux cleaned = -0.00133907 Jy
! Total flux subtracted in 200 components = -0.00133907 Jy
! Clean residual min=-0.000652 max=0.000647 Jy/beam
! Clean residual mean=-0.000014 rms=0.000302 Jy/beam
! Combined flux in latest and established models = 0.0377174 Jy
selfcal
! Performing phase self-cal
! Adding 102 model components to the UV plane model.
! The established model now contains 322 components and 0.0377174 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.022458Jy  sigma=0.024493
! Fit after  self-cal, rms=0.022450Jy  sigma=0.024484
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.000404799 Jy
! Component: 100  -  total flux cleaned = -0.000479459 Jy
! Component: 150  -  total flux cleaned = -0.000583778 Jy
! Component: 200  -  total flux cleaned = -0.000682354 Jy
! Total flux subtracted in 200 components = -0.000682354 Jy
! Clean residual min=-0.000534 max=0.000537 Jy/beam
! Clean residual mean=-0.000013 rms=0.000243 Jy/beam
! Combined flux in latest and established models = 0.0370351 Jy
! Performing phase self-cal
! Adding 86 model components to the UV plane model.
! The established model now contains 387 components and 0.0370351 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.022373Jy  sigma=0.024308
! Fit after  self-cal, rms=0.022368Jy  sigma=0.024302
! 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.022368Jy  sigma=0.024302
! Fit after  self-cal, rms=0.022331Jy  sigma=0.024264
clean clean_niter,clean_gain
! Inverting map and beam 
! Estimated beam: bmin=6.922 mas, bmaj=46.2 mas, bpa=-2.349 degrees
! Estimated noise=33.34 mJy/beam.
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = -0.000470452 Jy
! Component: 100  -  total flux cleaned = -0.000437298 Jy
! Component: 150  -  total flux cleaned = -0.000593499 Jy
! Component: 200  -  total flux cleaned = -0.000711873 Jy
! Total flux subtracted in 200 components = -0.000711873 Jy
! Clean residual min=-0.000475 max=0.000481 Jy/beam
! Clean residual mean=-0.000012 rms=0.000222 Jy/beam
! Combined flux in latest and established models = 0.0363232 Jy
selfcal
! Performing phase self-cal
! Adding 89 model components to the UV plane model.
! The established model now contains 452 components and 0.0363232 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.022275Jy  sigma=0.024101
! Fit after  self-cal, rms=0.022272Jy  sigma=0.024098
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.000326659 Jy
! Component: 100  -  total flux cleaned = -0.000327169 Jy
! Component: 150  -  total flux cleaned = -0.000326397 Jy
! Component: 200  -  total flux cleaned = -0.000302524 Jy
! Total flux subtracted in 200 components = -0.000302524 Jy
! Clean residual min=-0.000403 max=0.000402 Jy/beam
! Clean residual mean=-0.000011 rms=0.000182 Jy/beam
! Combined flux in latest and established models = 0.0360207 Jy
! Performing phase self-cal
! Adding 79 model components to the UV plane model.
! The established model now contains 506 components and 0.0360207 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.022235Jy  sigma=0.023992
! Fit after  self-cal, rms=0.022231Jy  sigma=0.023990
! 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.022231Jy  sigma=0.023990
! Fit after  self-cal, rms=0.021943Jy  sigma=0.023555
clean clean_niter,clean_gain
! Inverting map and beam 
! Estimated beam: bmin=7.141 mas, bmaj=46.03 mas, bpa=-2.318 degrees
! Estimated noise=32.2764 mJy/beam.
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = -0.000409571 Jy
! Component: 100  -  total flux cleaned = -0.00027838 Jy
! Component: 150  -  total flux cleaned = -0.000140775 Jy
! Component: 200  -  total flux cleaned = 0.000164794 Jy
! Total flux subtracted in 200 components = 0.000164794 Jy
! Clean residual min=-0.000407 max=0.000410 Jy/beam
! Clean residual mean=-0.000006 rms=0.000188 Jy/beam
! Combined flux in latest and established models = 0.0361855 Jy
selfcal
! Performing phase self-cal
! Adding 112 model components to the UV plane model.
! The established model now contains 615 components and 0.0361855 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.021790Jy  sigma=0.023471
! Fit after  self-cal, rms=0.021799Jy  sigma=0.023464
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.000209406 Jy
! Component: 100  -  total flux cleaned = -0.000209858 Jy
! Component: 150  -  total flux cleaned = -4.12857e-05 Jy
! Component: 200  -  total flux cleaned = 7.97847e-05 Jy
! Total flux subtracted in 200 components = 7.97847e-05 Jy
! Clean residual min=-0.000329 max=0.000328 Jy/beam
! Clean residual mean=-0.000009 rms=0.000158 Jy/beam
! Combined flux in latest and established models = 0.0362653 Jy
! Performing phase self-cal
! Adding 82 model components to the UV plane model.
! The established model now contains 685 components and 0.0362653 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.021693Jy  sigma=0.023456
! Fit after  self-cal, rms=0.021698Jy  sigma=0.023453
! 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=6.854 mas, bmaj=46.1 mas, bpa=-2.33 degrees
! Estimated noise=32.619 mJy/beam.
! restore: Substituting estimate of restoring beam from last 'invert'.
! Restoring with beam: 6.854 x 46.1 at -2.33 degrees (North through East)
! Clean map  min=-0.0038632  max=0.041115 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=6.222 mas, bmaj=47.14 mas, bpa=-2.57 degrees
! Estimated noise=36.0395 mJy/beam.
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.0368388 Jy
! Component: 100  -  total flux cleaned = 0.042405 Jy
! Component: 150  -  total flux cleaned = 0.0415402 Jy
! Component: 200  -  total flux cleaned = 0.0408578 Jy
! Total flux subtracted in 200 components = 0.0408578 Jy
! Clean residual min=-0.002577 max=0.002560 Jy/beam
! Clean residual mean=-0.000043 rms=0.001149 Jy/beam
! Combined flux in latest and established models = 0.0408578 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 110 model components to the UV plane model.
! The established model now contains 110 components and 0.0408578 Jy
! Inverting map and beam 
! Estimated beam: bmin=6.854 mas, bmaj=46.1 mas, bpa=-2.33 degrees
! Estimated noise=32.619 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.000970565 Jy
! Component: 100  -  total flux cleaned = -0.00197966 Jy
! Component: 150  -  total flux cleaned = -0.00283208 Jy
! Component: 200  -  total flux cleaned = -0.00350456 Jy
! Total flux subtracted in 200 components = -0.00350456 Jy
! Clean residual min=-0.001173 max=0.001159 Jy/beam
! Clean residual mean=-0.000024 rms=0.000562 Jy/beam
! Combined flux in latest and established models = 0.0373533 Jy
! Adding 87 model components to the UV plane model.
! The established model now contains 197 components and 0.0373532 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=7.141 mas, bmaj=46.03 mas, bpa=-2.318 degrees
! Estimated noise=32.2764 mJy/beam.
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = -7.84987e-05 Jy
! Component: 100  -  total flux cleaned = -0.00031193 Jy
! Component: 150  -  total flux cleaned = -0.00046877 Jy
! Component: 200  -  total flux cleaned = -0.000467876 Jy
! Total flux subtracted in 200 components = -0.000467876 Jy
! Clean residual min=-0.000753 max=0.000760 Jy/beam
! Clean residual mean=-0.000020 rms=0.000361 Jy/beam
! Combined flux in latest and established models = 0.0368854 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 = 4.61106e-05 Jy
! Component: 100  -  total flux cleaned = 0.000127124 Jy
! Component: 150  -  total flux cleaned = 0.000165998 Jy
! Component: 200  -  total flux cleaned = 0.000166392 Jy
! Total flux subtracted in 200 components = 0.000166392 Jy
! Clean residual min=-0.000606 max=0.000611 Jy/beam
! Clean residual mean=-0.000021 rms=0.000274 Jy/beam
! Combined flux in latest and established models = 0.0370518 Jy
! Adding 191 model components to the UV plane model.
! The established model now contains 379 components and 0.0370517 Jy
! Inverting map 
uvtaper 0,0
! No UV-taper is currently set.
clean
! Inverting map and beam 
! Estimated beam: bmin=6.854 mas, bmaj=46.1 mas, bpa=-2.33 degrees
! Estimated noise=32.619 mJy/beam.
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = -9.19767e-05 Jy
! Component: 100  -  total flux cleaned = -0.000250454 Jy
! Component: 150  -  total flux cleaned = -0.000308467 Jy
! Component: 200  -  total flux cleaned = -0.000144584 Jy
! Total flux subtracted in 200 components = -0.000144584 Jy
! Clean residual min=-0.000443 max=0.000445 Jy/beam
! Clean residual mean=-0.000012 rms=0.000207 Jy/beam
! Combined flux in latest and established models = 0.0369072 Jy
selfcal
! Performing phase self-cal
! Adding 108 model components to the UV plane model.
! The established model now contains 481 components and 0.0369072 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.021671Jy  sigma=0.023761
! Fit after  self-cal, rms=0.021704Jy  sigma=0.023751
wmodel /scr/pima/bp171ac_uvs/J1147-3932_C_map.mod
! Writing 481 model components to file: /scr/pima/bp171ac_uvs/J1147-3932_C_map.mod
wobs /scr/pima/bp171ac_uvs/J1147-3932_C_uvs.fits
! Writing UV FITS file: /scr/pima/bp171ac_uvs/J1147-3932_C_uvs.fits
wwins /scr/pima/bp171ac_uvs/J1147-3932_C_map.win
! wwins: No CLEAN windows to write.
! Error occured in command: wwins
![Exited script file: /home/lpetrov/bin/01_muppet]
! 
wmap "/scr/pima/bp171ac_uvs/J1147-3932_C\_map.fits"
! Inverting map 
! restore: Substituting estimate of restoring beam from last 'invert'.
! Restoring with beam: 6.854 x 46.1 at -2.33 degrees (North through East)
! Clean map  min=-0.0039817  max=0.039873 Jy/beam
! Writing clean map to FITS file: /scr/pima/bp171ac_uvs/J1147-3932_C_map.fits
float peak_flux
peak_flux = peak(flux,max)
print "The peak flux is",peak_flux
! The peak flux is 0.0398725 
invert
! Inverting map 
float image_rms
image_rms = imstat(rms)
print "The final image rms is",image_rms
! The final image rms is 0.000208067 
loglevs 100*3*image_rms/peak_flux
! The new contour levels are:
!  -1.56549 1.56549 3.13098 6.26196 12.5239 25.0478 50.0956
print "clev=      ", int(3*image_rms*10000)/10000
! clev=       0.0006 
print "peak=      ", int(1000*peak_flux)/1000
! peak=       0.039 
print "dyn_range= ", int(1000*peak_flux/image_rms)/1000
! dyn_range=  191.633 
quit
! Quitting program
! Log file /scr/pima/bp171ac_uvs/J1147-3932_C_uvs.log closed on Mon Dec  9 01:54:02 2013