! Started logfile: /scr/pima/s3111b_uvs/J1136+6737_X_uvs.log on Mon Jul 23 22:52:06 2012
obs /scr/pima/s3111b_uvs/J1136+6737_X_uva.fits
! Reading UV FITS file: /scr/pima/s3111b_uvs/J1136+6737_X_uva.fits
! AN table 1: 85 integrations on 55 of 55 possible baselines.
! Apparent sampling: 0.840642 visibilities/baseline/integration-bin.
! Found source: J1136+6737
! 
! 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 31440 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/s3111b_uvs/J1136+6737_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 86 telescope corrections were flagged in sub-array 1.
! 
! Correcting IF 2.
!  A total of 86 telescope corrections were flagged in sub-array 1.
! 
! Correcting IF 3.
!  A total of 86 telescope corrections were flagged in sub-array 1.
! 
! Correcting IF 4.
!  A total of 86 telescope corrections were flagged in sub-array 1.
! 
! Correcting IF 5.
!  A total of 86 telescope corrections were flagged in sub-array 1.
! 
! Correcting IF 6.
!  A total of 86 telescope corrections were flagged in sub-array 1.
! 
! Correcting IF 7.
!  A total of 256 telescope corrections were flagged in sub-array 1.
! 
! Correcting IF 8.
!  A total of 86 telescope corrections were flagged in sub-array 1.
! 
! Fit before self-cal, rms=1.000449Jy  sigma=0.707336
! Fit after  self-cal, rms=0.981456Jy  sigma=0.693906
! 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.6334 mas, bmaj=1.221 mas, bpa=16.22 degrees
! Estimated noise=18.9663 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.0141014 Jy
! Component: 100  -  total flux cleaned = 0.0173167 Jy
! Total flux subtracted in 100 components = 0.0173167 Jy
! Clean residual min=-0.002031 max=0.002364 Jy/beam
! Clean residual mean=0.000014 rms=0.000602 Jy/beam
! Combined flux in latest and established models = 0.0173167 Jy
! Performing phase self-cal
! Adding 6 model components to the UV plane model.
! The established model now contains 6 components and 0.0173167 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.032812Jy  sigma=0.023198
! Fit after  self-cal, rms=0.031141Jy  sigma=0.022016
! Inverting map 
! clean: niter=100  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.00304795 Jy
! Component: 100  -  total flux cleaned = 0.00353835 Jy
! Total flux subtracted in 100 components = 0.00353835 Jy
! Clean residual min=-0.002292 max=0.002600 Jy/beam
! Clean residual mean=0.000014 rms=0.000653 Jy/beam
! Combined flux in latest and established models = 0.0208551 Jy
! Performing phase self-cal
! Adding 13 model components to the UV plane model.
! The established model now contains 15 components and 0.0208551 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.030755Jy  sigma=0.021743
! Fit after  self-cal, rms=0.030749Jy  sigma=0.021739
! 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.8784 mas, bmaj=1.579 mas, bpa=15.79 degrees
! Estimated noise=5.77502 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 (-1.8, 0.2).
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.00266312 Jy
! Component: 100  -  total flux cleaned = 0.0041371 Jy
! Component: 150  -  total flux cleaned = 0.00518813 Jy
! Component: 200  -  total flux cleaned = 0.00596391 Jy
! Total flux subtracted in 200 components = 0.00596391 Jy
! Clean residual min=-0.001228 max=0.002139 Jy/beam
! Clean residual mean=0.000012 rms=0.000372 Jy/beam
! Combined flux in latest and established models = 0.026819 Jy
! Performing phase self-cal
! Adding 34 model components to the UV plane model.
! The established model now contains 48 components and 0.026819 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.030503Jy  sigma=0.021565
! Fit after  self-cal, rms=0.030436Jy  sigma=0.021518
! 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        0.98     FD        0.97     GB        0.95     HN        1.27     
!   KP        0.90     LA        0.95     MK        1.13     NL        1.62     
!   OV        1.02     PT        1.00     SC        0.99     
! 
! 
! Correcting IF 2.
!  A total of 3 telescope corrections were flagged in sub-array 1.
!  Telescope amplitude corrections in sub-array 1:
!   BR        0.98     FD        0.97     GB        0.95     HN        1.28     
!   KP        0.91     LA        0.99     MK        1.12     NL        1.78     
!   OV        1.04     PT        1.02     SC        1.03     
! 
! 
! Correcting IF 3.
!  A total of 3 telescope corrections were flagged in sub-array 1.
!  Telescope amplitude corrections in sub-array 1:
!   BR        1.04     FD        1.01     GB        1.01     HN        1.00     
!   KP        0.91     LA        0.94     MK        0.92     NL        1.76     
!   OV        0.97     PT        0.98     SC        1.06     
! 
! 
! Correcting IF 4.
!  A total of 3 telescope corrections were flagged in sub-array 1.
!  Telescope amplitude corrections in sub-array 1:
!   BR        1.00     FD        1.01     GB        1.06     HN        1.18     
!   KP        0.86     LA        0.97     MK        1.04     NL        1.81     
!   OV        1.04     PT        1.00     SC        1.08     
! 
! 
! Correcting IF 5.
!  A total of 3 telescope corrections were flagged in sub-array 1.
!  Telescope amplitude corrections in sub-array 1:
!   BR        0.98     FD        0.84     GB        1.20     HN        1.03     
!   KP        0.94     LA        0.89     MK        1.01     NL        1.45     
!   OV        0.97     PT        0.94     SC        1.06     
! 
! 
! Correcting IF 6.
!  A total of 3 telescope corrections were flagged in sub-array 1.
!  Telescope amplitude corrections in sub-array 1:
!   BR        0.91     FD        0.79     GB        1.94     HN        1.08     
!   KP        0.80     LA        0.92     MK        0.97     NL        1.57     
!   OV        0.93     PT        0.99     SC        0.98     
! 
! 
! Correcting IF 7.
!  Telescope amplitude corrections in sub-array 1:
!   BR        0.88     FD        0.74     GB        1.56     HN        1.00*    
!   KP        0.80     LA        0.90     MK        1.00*    NL        1.34     
!   OV        0.94     PT        0.96     SC        1.05     
! 
! 
! Correcting IF 8.
!  A total of 3 telescope corrections were flagged in sub-array 1.
!  Telescope amplitude corrections in sub-array 1:
!   BR        0.79     FD        0.67     GB        1.84     HN        1.04     
!   KP        0.90     LA        0.99     MK        0.74     NL        1.15     
!   OV        0.89     PT        0.97     SC        0.81     
! 
! 
! Fit before self-cal, rms=0.030436Jy  sigma=0.021518
! Fit after  self-cal, rms=0.030796Jy  sigma=0.021156
dynam = dynam - 0.5
flux_cutoff = imstat(rms) * dynam
! Inverting map and beam 
! Estimated beam: bmin=0.8798 mas, bmaj=1.574 mas, bpa=17.07 degrees
! Estimated noise=5.77834 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.000172535 Jy
! Component: 100  -  total flux cleaned = -0.000129833 Jy
! Component: 150  -  total flux cleaned = -8.49302e-05 Jy
! Component: 200  -  total flux cleaned = -5.58918e-05 Jy
! Total flux subtracted in 200 components = -5.58918e-05 Jy
! Clean residual min=-0.000577 max=0.000675 Jy/beam
! Clean residual mean=-0.000003 rms=0.000183 Jy/beam
! Combined flux in latest and established models = 0.0267631 Jy
! Performing phase self-cal
! Adding 22 model components to the UV plane model.
! The established model now contains 68 components and 0.0267631 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.030781Jy  sigma=0.021147
! Fit after  self-cal, rms=0.030907Jy  sigma=0.021108
! 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.030907Jy  sigma=0.021108
! Fit after  self-cal, rms=0.031793Jy  sigma=0.021085
dynam = dynam - 0.75
clean clean_niter,clean_gain
! Inverting map and beam 
! Estimated beam: bmin=0.8822 mas, bmaj=1.57 mas, bpa=17.65 degrees
! Estimated noise=5.77874 mJy/beam.
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = -0.000198474 Jy
! Component: 100  -  total flux cleaned = -0.000168742 Jy
! Component: 150  -  total flux cleaned = -0.000151458 Jy
! Component: 200  -  total flux cleaned = -0.000143109 Jy
! Total flux subtracted in 200 components = -0.000143109 Jy
! Clean residual min=-0.000571 max=0.000659 Jy/beam
! Clean residual mean=-0.000002 rms=0.000174 Jy/beam
! Combined flux in latest and established models = 0.02662 Jy
selfcal
! Performing phase self-cal
! Adding 26 model components to the UV plane model.
! The established model now contains 84 components and 0.02662 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.031786Jy  sigma=0.021081
! Fit after  self-cal, rms=0.031817Jy  sigma=0.021076
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.26268e-06 Jy
! Component: 100  -  total flux cleaned = -1.90869e-06 Jy
! Component: 150  -  total flux cleaned = 1.22748e-05 Jy
! Component: 200  -  total flux cleaned = 1.90265e-05 Jy
! Total flux subtracted in 200 components = 1.90265e-05 Jy
! Clean residual min=-0.000553 max=0.000660 Jy/beam
! Clean residual mean=-0.000002 rms=0.000173 Jy/beam
! Combined flux in latest and established models = 0.026639 Jy
! Performing phase self-cal
! Adding 27 model components to the UV plane model.
! The established model now contains 95 components and 0.026639 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.031813Jy  sigma=0.021074
! Fit after  self-cal, rms=0.031812Jy  sigma=0.021074
! 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.031812Jy  sigma=0.021074
! Fit after  self-cal, rms=0.032182Jy  sigma=0.021071
clean clean_niter,clean_gain
! Inverting map and beam 
! Estimated beam: bmin=0.8832 mas, bmaj=1.569 mas, bpa=17.87 degrees
! Estimated noise=5.79816 mJy/beam.
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = -8.10227e-05 Jy
! Component: 100  -  total flux cleaned = -7.33739e-05 Jy
! Component: 150  -  total flux cleaned = -6.64159e-05 Jy
! Component: 200  -  total flux cleaned = -5.99061e-05 Jy
! Total flux subtracted in 200 components = -5.99061e-05 Jy
! Clean residual min=-0.000581 max=0.000657 Jy/beam
! Clean residual mean=-0.000002 rms=0.000172 Jy/beam
! Combined flux in latest and established models = 0.0265791 Jy
selfcal
! Performing phase self-cal
! Adding 29 model components to the UV plane model.
! The established model now contains 102 components and 0.0265791 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.032179Jy  sigma=0.021069
! Fit after  self-cal, rms=0.032185Jy  sigma=0.021068
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 = -9.47752e-06 Jy
! Component: 100  -  total flux cleaned = -3.28091e-06 Jy
! Component: 150  -  total flux cleaned = -3.3513e-06 Jy
! Component: 200  -  total flux cleaned = -3.32181e-06 Jy
! Total flux subtracted in 200 components = -3.32181e-06 Jy
! Clean residual min=-0.000573 max=0.000659 Jy/beam
! Clean residual mean=-0.000002 rms=0.000171 Jy/beam
! Combined flux in latest and established models = 0.0265758 Jy
! Performing phase self-cal
! Adding 30 model components to the UV plane model.
! The established model now contains 108 components and 0.0265758 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.032183Jy  sigma=0.021067
! Fit after  self-cal, rms=0.032183Jy  sigma=0.021066
! 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.032183Jy  sigma=0.021066
! Fit after  self-cal, rms=0.032396Jy  sigma=0.021064
clean clean_niter,clean_gain
! Inverting map and beam 
! Estimated beam: bmin=1.378 mas, bmaj=2.051 mas, bpa=17.92 degrees
! Estimated noise=6.42636 mJy/beam.
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = -0.00012952 Jy
! Component: 100  -  total flux cleaned = -0.000129727 Jy
! Component: 150  -  total flux cleaned = -0.000129891 Jy
! Component: 200  -  total flux cleaned = -0.00013892 Jy
! Total flux subtracted in 200 components = -0.00013892 Jy
! Clean residual min=-0.000638 max=0.000689 Jy/beam
! Clean residual mean=-0.000002 rms=0.000198 Jy/beam
! Combined flux in latest and established models = 0.0264368 Jy
selfcal
! Performing phase self-cal
! Adding 25 model components to the UV plane model.
! The established model now contains 128 components and 0.0264368 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.032394Jy  sigma=0.021064
! Fit after  self-cal, rms=0.032397Jy  sigma=0.021063
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 = -4.73231e-05 Jy
! Component: 100  -  total flux cleaned = -4.28807e-05 Jy
! Component: 150  -  total flux cleaned = -4.67946e-05 Jy
! Component: 200  -  total flux cleaned = -4.68746e-05 Jy
! Total flux subtracted in 200 components = -4.68746e-05 Jy
! Clean residual min=-0.000636 max=0.000694 Jy/beam
! Clean residual mean=-0.000002 rms=0.000197 Jy/beam
! Combined flux in latest and established models = 0.02639 Jy
! Performing phase self-cal
! Adding 27 model components to the UV plane model.
! The established model now contains 142 components and 0.02639 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.032397Jy  sigma=0.021063
! Fit after  self-cal, rms=0.032396Jy  sigma=0.021063
! 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.8837 mas, bmaj=1.569 mas, bpa=18.05 degrees
! Estimated noise=5.80978 mJy/beam.
! restore: Substituting estimate of restoring beam from last 'invert'.
! Restoring with beam: 0.8837 x 1.569 at 18.05 degrees (North through East)
! Clean map  min=-0.00058906  max=0.021403 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.6217 mas, bmaj=1.197 mas, bpa=18.08 degrees
! Estimated noise=18.8289 mJy/beam.
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.0159971 Jy
! Component: 100  -  total flux cleaned = 0.0200569 Jy
! Component: 150  -  total flux cleaned = 0.0220594 Jy
! Component: 200  -  total flux cleaned = 0.0229003 Jy
! Total flux subtracted in 200 components = 0.0229003 Jy
! Clean residual min=-0.001960 max=0.001757 Jy/beam
! Clean residual mean=0.000005 rms=0.000520 Jy/beam
! Combined flux in latest and established models = 0.0229003 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 25 model components to the UV plane model.
! The established model now contains 25 components and 0.0229003 Jy
! Inverting map and beam 
! Estimated beam: bmin=0.8837 mas, bmaj=1.569 mas, bpa=18.05 degrees
! Estimated noise=5.80978 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.00173587 Jy
! Component: 100  -  total flux cleaned = 0.00231301 Jy
! Component: 150  -  total flux cleaned = 0.00262494 Jy
! Component: 200  -  total flux cleaned = 0.00282199 Jy
! Total flux subtracted in 200 components = 0.00282199 Jy
! Clean residual min=-0.000630 max=0.000735 Jy/beam
! Clean residual mean=0.000003 rms=0.000184 Jy/beam
! Combined flux in latest and established models = 0.0257223 Jy
! Adding 19 model components to the UV plane model.
! The established model now contains 43 components and 0.0257223 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.378 mas, bmaj=2.051 mas, bpa=17.92 degrees
! Estimated noise=6.42636 mJy/beam.
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.000290717 Jy
! Component: 100  -  total flux cleaned = 0.00032731 Jy
! Component: 150  -  total flux cleaned = 0.000379264 Jy
! Component: 200  -  total flux cleaned = 0.000433604 Jy
! Total flux subtracted in 200 components = 0.000433604 Jy
! Clean residual min=-0.000614 max=0.000729 Jy/beam
! Clean residual mean=0.000001 rms=0.000203 Jy/beam
! Combined flux in latest and established models = 0.0261559 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 = 3.94977e-05 Jy
! Component: 100  -  total flux cleaned = 8.0983e-05 Jy
! Component: 150  -  total flux cleaned = 0.000105453 Jy
! Component: 200  -  total flux cleaned = 0.000116716 Jy
! Total flux subtracted in 200 components = 0.000116716 Jy
! Clean residual min=-0.000618 max=0.000711 Jy/beam
! Clean residual mean=-0.000001 rms=0.000201 Jy/beam
! Combined flux in latest and established models = 0.0262726 Jy
! Adding 42 model components to the UV plane model.
! The established model now contains 79 components and 0.0262726 Jy
! Inverting map 
uvtaper 0,0
! No UV-taper is currently set.
clean
! Inverting map and beam 
! Estimated beam: bmin=0.8837 mas, bmaj=1.569 mas, bpa=18.05 degrees
! Estimated noise=5.80978 mJy/beam.
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.00013716 Jy
! Component: 100  -  total flux cleaned = 0.000183271 Jy
! Component: 150  -  total flux cleaned = 0.000191979 Jy
! Component: 200  -  total flux cleaned = 0.000192164 Jy
! Total flux subtracted in 200 components = 0.000192164 Jy
! Clean residual min=-0.000581 max=0.000698 Jy/beam
! Clean residual mean=-0.000002 rms=0.000174 Jy/beam
! Combined flux in latest and established models = 0.0264648 Jy
selfcal
! Performing phase self-cal
! Adding 21 model components to the UV plane model.
! The established model now contains 98 components and 0.0264648 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.032404Jy  sigma=0.021071
! Fit after  self-cal, rms=0.032402Jy  sigma=0.021070
wmodel /scr/pima/s3111b_uvs/J1136+6737_X_map.mod
! Writing 98 model components to file: /scr/pima/s3111b_uvs/J1136+6737_X_map.mod
wobs /scr/pima/s3111b_uvs/J1136+6737_X_uvs.fits
! Writing UV FITS file: /scr/pima/s3111b_uvs/J1136+6737_X_uvs.fits
wwins /scr/pima/s3111b_uvs/J1136+6737_X_map.win
! wwins: Wrote 2 windows to /scr/pima/s3111b_uvs/J1136+6737_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 = 0.000222101 Jy
! Component: 100  -  total flux cleaned = 0.000264192 Jy
! Component: 150  -  total flux cleaned = 0.000313914 Jy
! Component: 200  -  total flux cleaned = 0.000352185 Jy
! Component: 250  -  total flux cleaned = 0.000407453 Jy
! Component: 300  -  total flux cleaned = 0.000425349 Jy
! Component: 350  -  total flux cleaned = 0.00046835 Jy
! Component: 400  -  total flux cleaned = 0.000501847 Jy
! Component: 450  -  total flux cleaned = 0.000542801 Jy
! Component: 500  -  total flux cleaned = 0.000574758 Jy
! Component: 550  -  total flux cleaned = 0.000598127 Jy
! Component: 600  -  total flux cleaned = 0.000613349 Jy
! Component: 650  -  total flux cleaned = 0.0006209 Jy
! Component: 700  -  total flux cleaned = 0.000643104 Jy
! Component: 750  -  total flux cleaned = 0.000650419 Jy
! Component: 800  -  total flux cleaned = 0.000664672 Jy
! Component: 850  -  total flux cleaned = 0.000685673 Jy
! Component: 900  -  total flux cleaned = 0.000685678 Jy
! Component: 950  -  total flux cleaned = 0.000699194 Jy
! Component: 1000  -  total flux cleaned = 0.000705903 Jy
! Component: 1050  -  total flux cleaned = 0.000738907 Jy
! Component: 1100  -  total flux cleaned = 0.000758378 Jy
! Component: 1150  -  total flux cleaned = 0.000777603 Jy
! Component: 1200  -  total flux cleaned = 0.000783987 Jy
! Component: 1250  -  total flux cleaned = 0.000802904 Jy
! Component: 1300  -  total flux cleaned = 0.000833877 Jy
! Component: 1350  -  total flux cleaned = 0.00086436 Jy
! Component: 1400  -  total flux cleaned = 0.000882523 Jy
! Component: 1450  -  total flux cleaned = 0.000906477 Jy
! Component: 1500  -  total flux cleaned = 0.000930172 Jy
! Component: 1550  -  total flux cleaned = 0.00095352 Jy
! Component: 1600  -  total flux cleaned = 0.000965012 Jy
! Component: 1650  -  total flux cleaned = 0.000970774 Jy
! Component: 1700  -  total flux cleaned = 0.000982152 Jy
! Component: 1750  -  total flux cleaned = 0.000993369 Jy
! Component: 1800  -  total flux cleaned = 0.000998843 Jy
! Component: 1850  -  total flux cleaned = 0.000982339 Jy
! Component: 1900  -  total flux cleaned = 0.000993321 Jy
! Component: 1950  -  total flux cleaned = 0.000987946 Jy
! Component: 2000  -  total flux cleaned = 0.000987983 Jy
! Total flux subtracted in 2048 components = 0.000993277 Jy
! Clean residual min=-0.000296 max=0.000301 Jy/beam
! Clean residual mean=-0.000005 rms=0.000117 Jy/beam
! Combined flux in latest and established models = 0.0274581 Jy
keep
! Adding 154 model components to the UV plane model.
! The established model now contains 252 components and 0.0274581 Jy
![Exited script file: /home/lpetrov/bin/01_muppet]
wmap "/scr/pima/s3111b_uvs/J1136+6737_X\_map.fits"
! Inverting map 
! restore: Substituting estimate of restoring beam from last 'invert'.
! Restoring with beam: 0.8837 x 1.569 at 18.05 degrees (North through East)
! Clean map  min=-0.0005358  max=0.02138 Jy/beam
! Writing clean map to FITS file: /scr/pima/s3111b_uvs/J1136+6737_X_map.fits
float peak_flux
peak_flux = peak(flux,max)
print "The peak flux is",peak_flux
! The peak flux is 0.02138 
invert
! Inverting map 
float image_rms
image_rms = imstat(rms)
print "The final image rms is",image_rms
! The final image rms is 0.000117335 
loglevs 100*3*image_rms/peak_flux
! The new contour levels are:
!  -1.64642 1.64642 3.29283 6.58567 13.1713 26.3427 52.6853
print "clev=",int(3*image_rms*10000)/10000
! clev= 0.0003 
print "peak=",int(1000*peak_flux)/1000
! peak= 0.021 
quit
! Quitting program
! Log file /scr/pima/s3111b_uvs/J1136+6737_X_uvs.log closed on Mon Jul 23 22:52:09 2012