! Started logfile: 0014+813_X.log on Wed Mar 27 11:02:19 2002
observe 0014+813_X.edt
! Reading UV FITS file: 0014+813_X.edt
! AN table 1: 86 integrations on 171 of 171 possible baselines.
! AN table 2: 100 integrations on 171 of 171 possible baselines.
! AN table 3: 166 integrations on 171 of 171 possible baselines.
! Apparent sampling: 0.277313 visibilities/baseline/integration-bin.
! *** This seems a bit low - see "help observe" on the binwid argument.
! Found source: 0014+813
! Warning: Unknown AN-table MNTSTA value (3).
!          Will assume that it is ground-based.
! Warning: Unknown AN-table MNTSTA value (3).
!          Will assume that it is ground-based.
! Warning: Unknown AN-table MNTSTA value (3).
!          Will assume that it is ground-based.
! 
! There are 4 IFs, and a total of 4 channels:
! 
!  IF  Channel    Frequency  Freq offset  Number of   Overall IF
!       origin    at origin  per channel   channels    bandwidth
!  ------------------------------------------------------------- (Hz)
!  01        1  8.40997e+09        8e+06          1        8e+06
!  02        2  8.47997e+09        8e+06          1        8e+06
!  03        3  8.79497e+09        8e+06          1        8e+06
!  04        4  8.89997e+09        8e+06          1        8e+06
! 
! Polarization(s): RR
! 
! Read 1610 lines of history.
! 
! Reading 66768 visibilities.
print "***********************************"
! *********************************** 
print "*** Using gonzo instruction set ***"
! *** Using gonzo instruction set *** 
print "***********************************"
! *********************************** 
float field_size
field_size = 1024
float field_cell
field_cell = 0.1
integer clean_niter
clean_niter = 50
float clean_gain
clean_gain = 0.03
float dynam
dynam = 8.0
float win_mult
win_mult = 1.8
float solint
solint = 3.6/6.0
logical doflt
doflt = true
logical doamp
float new_peak
float flux_cutoff
mapsize field_size,field_cell
! Map grid = 1024x1024 pixels with 0.100x0.100 milli-arcsec cellsize.
select
! Selecting polarization: RR,  channels: 1..4
! Reading IF 1 channels: 1..1
! Reading IF 2 channels: 2..2
! Reading IF 3 channels: 3..3
! Reading IF 4 channels: 4..4
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 1046 telescope corrections were flagged in sub-array 1.
!  A total of 1522 telescope corrections were flagged in sub-array 2.
!  A total of 2048 telescope corrections were flagged in sub-array 3.
! 
! Correcting IF 2.
!  A total of 1046 telescope corrections were flagged in sub-array 1.
!  A total of 1522 telescope corrections were flagged in sub-array 2.
!  A total of 1953 telescope corrections were flagged in sub-array 3.
! 
! Correcting IF 3.
!  A total of 1046 telescope corrections were flagged in sub-array 1.
!  A total of 1522 telescope corrections were flagged in sub-array 2.
!  A total of 2010 telescope corrections were flagged in sub-array 3.
! 
! Correcting IF 4.
!  A total of 1046 telescope corrections were flagged in sub-array 1.
!  A total of 1522 telescope corrections were flagged in sub-array 2.
!  A total of 1977 telescope corrections were flagged in sub-array 3.
! 
! Fit before self-cal, rms=0.575558Jy  sigma=4.145914
! Fit after  self-cal, rms=0.575396Jy  sigma=4.144768
! clrmod: Cleared the established, tentative and continuum models.
! Redundant starting model cleared.
uvweight 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.
doamp = false
flux_cutoff = imstat(rms) * dynam
! Inverting map and beam 
! Estimated beam: bmin=0.5103 mas, bmaj=0.5596 mas, bpa=69.19 degrees
! Estimated noise=0.832652 mJy/beam.
repeat
  if (peak(flux) > flux_cutoff) peakwin win_mult
  clean clean_niter,clean_gain
  flux_cutoff = imstat(rms) * dynam
  selfcal doamp, doflt, solint
  new_peak = peak(flux)
  until(new_peak<=flux_cutoff)
! Added new window around map position (0, 0).
! clean: niter=50  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.308684 Jy
! Total flux subtracted in 50 components = 0.308684 Jy
! Clean residual min=-0.014298 max=0.097741 Jy/beam
! Clean residual mean=0.000034 rms=0.003595 Jy/beam
! Combined flux in latest and established models = 0.308684 Jy
! Performing phase self-cal over 0.6 minute time intervals
! Adding 5 model components to the UV plane model.
! The established model now contains 5 components and 0.308684 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.246564Jy  sigma=1.776622
! Fit after  self-cal, rms=0.246500Jy  sigma=1.776165
! Inverting map 
! clean: niter=50  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.109888 Jy
! Total flux subtracted in 50 components = 0.109888 Jy
! Clean residual min=-0.009810 max=0.052761 Jy/beam
! Clean residual mean=0.000025 rms=0.002391 Jy/beam
! Combined flux in latest and established models = 0.418572 Jy
! Performing phase self-cal over 0.6 minute time intervals
! Adding 5 model components to the UV plane model.
! The established model now contains 8 components and 0.418572 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.185080Jy  sigma=1.333107
! Fit after  self-cal, rms=0.184950Jy  sigma=1.332183
! Inverting map 
! clean: niter=50  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.0605421 Jy
! Total flux subtracted in 50 components = 0.0605421 Jy
! Clean residual min=-0.008327 max=0.039956 Jy/beam
! Clean residual mean=0.000020 rms=0.001891 Jy/beam
! Combined flux in latest and established models = 0.479114 Jy
! Performing phase self-cal over 0.6 minute time intervals
! Adding 8 model components to the UV plane model.
! The established model now contains 11 components and 0.479114 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.158685Jy  sigma=1.142552
! Fit after  self-cal, rms=0.158579Jy  sigma=1.141797
! Inverting map 
! Added new window around map position (0, -0.8).
! clean: niter=50  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.0419006 Jy
! Total flux subtracted in 50 components = 0.0419005 Jy
! Clean residual min=-0.007209 max=0.021400 Jy/beam
! Clean residual mean=0.000017 rms=0.001594 Jy/beam
! Combined flux in latest and established models = 0.521015 Jy
! Performing phase self-cal over 0.6 minute time intervals
! Adding 7 model components to the UV plane model.
! The established model now contains 15 components and 0.521015 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.144231Jy  sigma=1.038172
! Fit after  self-cal, rms=0.143997Jy  sigma=1.036484
! Inverting map 
! clean: niter=50  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.0289288 Jy
! Total flux subtracted in 50 components = 0.0289288 Jy
! Clean residual min=-0.006706 max=0.016179 Jy/beam
! Clean residual mean=0.000015 rms=0.001425 Jy/beam
! Combined flux in latest and established models = 0.549944 Jy
! Performing phase self-cal over 0.6 minute time intervals
! Adding 8 model components to the UV plane model.
! The established model now contains 19 components and 0.549944 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.136122Jy  sigma=0.979565
! Fit after  self-cal, rms=0.136046Jy  sigma=0.979018
! Inverting map 
! clean: niter=50  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.0219971 Jy
! Total flux subtracted in 50 components = 0.0219971 Jy
! Clean residual min=-0.006307 max=0.012478 Jy/beam
! Clean residual mean=0.000013 rms=0.001323 Jy/beam
! Combined flux in latest and established models = 0.571941 Jy
! Performing phase self-cal over 0.6 minute time intervals
! Adding 7 model components to the UV plane model.
! The established model now contains 21 components and 0.571941 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.131165Jy  sigma=0.943720
! Fit after  self-cal, rms=0.131127Jy  sigma=0.943445
! Inverting map 
! clean: niter=50  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.0170939 Jy
! Total flux subtracted in 50 components = 0.0170939 Jy
! Clean residual min=-0.005858 max=0.009967 Jy/beam
! Clean residual mean=0.000012 rms=0.001258 Jy/beam
! Combined flux in latest and established models = 0.589035 Jy
! Performing phase self-cal over 0.6 minute time intervals
! Adding 9 model components to the UV plane model.
! The established model now contains 23 components and 0.589035 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.128006Jy  sigma=0.920861
! Fit after  self-cal, rms=0.127984Jy  sigma=0.920712
! Inverting map 
! clean: niter=50  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.0137765 Jy
! Total flux subtracted in 50 components = 0.0137765 Jy
! Clean residual min=-0.005498 max=0.008146 Jy/beam
! Clean residual mean=0.000011 rms=0.001213 Jy/beam
! Combined flux in latest and established models = 0.602811 Jy
! Performing phase self-cal over 0.6 minute time intervals
! Adding 10 model components to the UV plane model.
! The established model now contains 26 components and 0.602811 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.125910Jy  sigma=0.905698
! Fit after  self-cal, rms=0.125895Jy  sigma=0.905590
! Inverting map 
print "****************************************"
! **************************************** 
print "*** Finished Uniform Weighting CLEAN ***"
! *** Finished Uniform Weighting CLEAN *** 
print "****************************************"
! **************************************** 
uvweight 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
doamp = false
flux_cutoff = imstat(rms) * dynam
! Inverting map and beam 
! Estimated beam: bmin=0.6328 mas, bmaj=0.6835 mas, bpa=70.86 degrees
! Estimated noise=0.45207 mJy/beam.
repeat
  if (peak(flux) > flux_cutoff) peakwin win_mult
  clean clean_niter,clean_gain
  flux_cutoff = imstat(rms) * dynam
  selfcal doamp, doflt, solint
  new_peak = peak(flux)
  until(new_peak<=flux_cutoff)
! clean: niter=100  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.0217276 Jy
! Component: 100  -  total flux cleaned = 0.0361447 Jy
! Total flux subtracted in 100 components = 0.0361447 Jy
! Clean residual min=-0.005077 max=0.009958 Jy/beam
! Clean residual mean=0.000132 rms=0.001338 Jy/beam
! Combined flux in latest and established models = 0.638956 Jy
! Performing phase self-cal over 0.6 minute time intervals
! Adding 28 model components to the UV plane model.
! The established model now contains 46 components and 0.638956 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.122243Jy  sigma=0.879135
! Fit after  self-cal, rms=0.122173Jy  sigma=0.878628
! Inverting map 
print "****************************************"
! **************************************** 
print "*** Finished Natural Weighting CLEAN ***"
! *** Finished Natural Weighting CLEAN *** 
print "****************************************"
! **************************************** 
gscale true
! Performing overall amplitude self-cal
! 
! Correcting IF 1.
!  A total of 45 telescope corrections were flagged in sub-array 1.
!  Telescope amplitude corrections in sub-array 1:
!   BR        0.97     FD        1.00     GC        1.04     GG        1.00*    
!   HN        0.86     KP        0.99     LA        0.99     MC        1.05     
!   MK        1.01     NL        1.00     NY        1.00*    ON        1.05     
!   OV        0.98     PT        1.00     SC        1.02     TS        0.85     
!   WF        0.95     KK        0.97     WZ        1.04     
! 
!  A total of 12 telescope corrections were flagged in sub-array 2.
!  Telescope amplitude corrections in sub-array 2:
!   BR        0.96     FD        0.99     GC        1.05     GG        1.00*    
!   HN        0.85     KP        0.99     LA        0.93     MC        1.00*    
!   MK        0.98     NL        0.96     NY        1.03     ON        0.89     
!   OV        0.93     PT        1.00     SC        1.00*    TS        0.98     
!   WF        1.22     KK        1.00*    WZ        1.00*    
! 
!  A total of 69 telescope corrections were flagged in sub-array 3.
!  Telescope amplitude corrections in sub-array 3:
!   BR        0.95     FD        0.93     GC        0.91     GG        1.00*    
!   HN        1.27     KP        0.97     LA        0.95     MC        1.01     
!   MK        1.00     NL        0.93     NY        0.96     ON        1.15     
!   OV        0.94     PT        0.96     SC        0.96     TS        1.09     
!   WF        0.99     KK        1.08     WZ        0.93     
! 
! 
! Correcting IF 2.
!  A total of 45 telescope corrections were flagged in sub-array 1.
!  Telescope amplitude corrections in sub-array 1:
!   BR        0.97     FD        0.99     GC        1.05     GG        1.00*    
!   HN        0.83     KP        1.01     LA        1.00     MC        1.07     
!   MK        1.00     NL        1.00     NY        1.00*    ON        1.04     
!   OV        0.99     PT        1.01     SC        1.03     TS        0.83     
!   WF        0.97     KK        0.98     WZ        1.03     
! 
!  A total of 12 telescope corrections were flagged in sub-array 2.
!  Telescope amplitude corrections in sub-array 2:
!   BR        0.94     FD        0.99     GC        1.06     GG        1.00*    
!   HN        0.88     KP        1.01     LA        0.92     MC        1.00*    
!   MK        0.98     NL        0.94     NY        1.03     ON        0.89     
!   OV        0.92     PT        1.00     SC        1.00*    TS        0.99     
!   WF        1.25     KK        1.00*    WZ        1.00*    
! 
!  A total of 51 telescope corrections were flagged in sub-array 3.
!  Telescope amplitude corrections in sub-array 3:
!   BR        0.95     FD        0.94     GC        0.90     GG        1.00*    
!   HN        1.26     KP        0.97     LA        0.97     MC        1.00     
!   MK        0.97     NL        0.95     NY        0.97     ON        1.08     
!   OV        0.94     PT        0.95     SC        0.96     TS        1.08     
!   WF        1.10     KK        1.08     WZ        0.96     
! 
! 
! Correcting IF 3.
!  A total of 45 telescope corrections were flagged in sub-array 1.
!  Telescope amplitude corrections in sub-array 1:
!   BR        0.99     FD        1.00     GC        1.06     GG        1.00*    
!   HN        0.84     KP        1.03     LA        1.01     MC        1.07     
!   MK        1.03     NL        1.03     NY        1.00*    ON        1.03     
!   OV        1.00     PT        1.01     SC        1.06     TS        0.85     
!   WF        0.94     KK        0.99     WZ        1.04     
! 
!  A total of 12 telescope corrections were flagged in sub-array 2.
!  Telescope amplitude corrections in sub-array 2:
!   BR        0.97     FD        1.01     GC        1.05     GG        1.00*    
!   HN        0.86     KP        1.03     LA        0.94     MC        1.00*    
!   MK        0.97     NL        0.98     NY        1.06     ON        0.89     
!   OV        0.94     PT        1.01     SC        1.00*    TS        0.99     
!   WF        1.21     KK        1.00*    WZ        1.00*    
! 
!  A total of 51 telescope corrections were flagged in sub-array 3.
!  Telescope amplitude corrections in sub-array 3:
!   BR        0.92     FD        0.93     GC        0.92     GG        1.00*    
!   HN        1.26     KP        0.98     LA        0.99     MC        1.02     
!   MK        1.01     NL        0.94     NY        1.01     ON        1.20     
!   OV        0.93     PT        0.95     SC        0.98     TS        1.08     
!   WF        0.98     KK        1.09     WZ        0.95     
! 
! 
! Correcting IF 4.
!  A total of 45 telescope corrections were flagged in sub-array 1.
!  Telescope amplitude corrections in sub-array 1:
!   BR        1.00     FD        1.01     GC        1.07     GG        1.00*    
!   HN        0.84     KP        1.03     LA        1.03     MC        1.09     
!   MK        1.05     NL        1.01     NY        1.00*    ON        1.02     
!   OV        1.01     PT        1.03     SC        1.05     TS        0.86     
!   WF        0.98     KK        0.95     WZ        1.05     
! 
!  A total of 12 telescope corrections were flagged in sub-array 2.
!  Telescope amplitude corrections in sub-array 2:
!   BR        0.98     FD        1.02     GC        1.10     GG        1.00*    
!   HN        0.85     KP        1.02     LA        0.94     MC        1.00*    
!   MK        1.04     NL        0.97     NY        1.06     ON        0.95     
!   OV        0.95     PT        1.03     SC        1.00*    TS        0.95     
!   WF        1.18     KK        1.00*    WZ        1.00*    
! 
!  A total of 51 telescope corrections were flagged in sub-array 3.
!  Telescope amplitude corrections in sub-array 3:
!   BR        0.95     FD        0.94     GC        0.91     GG        1.00*    
!   HN        1.36     KP        0.97     LA        0.97     MC        1.00     
!   MK        1.04     NL        0.95     NY        0.97     ON        1.15     
!   OV        0.96     PT        0.96     SC        0.98     TS        1.12     
!   WF        1.08     KK        1.10     WZ        0.95     
! 
! 
! Fit before self-cal, rms=0.122173Jy  sigma=0.878628
! Fit after  self-cal, rms=0.116103Jy  sigma=0.793152
dynam = dynam - 0.5
doamp = false
flux_cutoff = imstat(rms) * dynam
! Inverting map and beam 
! Estimated beam: bmin=0.6392 mas, bmaj=0.6884 mas, bpa=74.39 degrees
! Estimated noise=0.448886 mJy/beam.
repeat
  if (peak(flux) > flux_cutoff) peakwin win_mult
  clean clean_niter,clean_gain
  flux_cutoff = imstat(rms) * dynam
  selfcal doamp, doflt, solint
  new_peak = peak(flux)
  until(new_peak<=flux_cutoff)
! Added new window around map position (0.5, -0.9).
! clean: niter=100  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.00492064 Jy
! Component: 100  -  total flux cleaned = 0.00774203 Jy
! Total flux subtracted in 100 components = 0.00774203 Jy
! Clean residual min=-0.002371 max=0.003359 Jy/beam
! Clean residual mean=0.000153 rms=0.000565 Jy/beam
! Combined flux in latest and established models = 0.646698 Jy
! Performing phase self-cal over 0.6 minute time intervals
! Adding 20 model components to the UV plane model.
! The established model now contains 63 components and 0.646698 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.115904Jy  sigma=0.791675
! Fit after  self-cal, rms=0.115920Jy  sigma=0.791498
! Inverting map 
dynam = dynam - 1.0
doamp = true
solint = solint * (6.0/3.6)
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 doamp, doflt, solint
  new_peak = peak(flux)
  until(new_peak<=flux_cutoff)
! clean: niter=100  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.00150111 Jy
! Component: 100  -  total flux cleaned = 0.0018928 Jy
! Total flux subtracted in 100 components = 0.0018928 Jy
! Clean residual min=-0.002393 max=0.003244 Jy/beam
! Clean residual mean=0.000148 rms=0.000556 Jy/beam
! Combined flux in latest and established models = 0.648591 Jy
! Performing amp+phase self-cal over 1 minute time intervals
! Adding 26 model components to the UV plane model.
! The established model now contains 72 components and 0.648591 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.115862Jy  sigma=0.791079
! Fit after  self-cal, rms=0.114377Jy  sigma=0.773211
! Inverting map and beam 
! Estimated beam: bmin=0.6388 mas, bmaj=0.687 mas, bpa=72.2 degrees
! Estimated noise=0.450051 mJy/beam.
! clean: niter=100  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.00350116 Jy
! Component: 100  -  total flux cleaned = 0.00448389 Jy
! Total flux subtracted in 100 components = 0.00448389 Jy
! Clean residual min=-0.001702 max=0.002888 Jy/beam
! Clean residual mean=0.000072 rms=0.000434 Jy/beam
! Combined flux in latest and established models = 0.653075 Jy
! Performing amp+phase self-cal over 1 minute time intervals
! Adding 11 model components to the UV plane model.
! The established model now contains 79 components and 0.653075 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.114278Jy  sigma=0.772467
! Fit after  self-cal, rms=0.114310Jy  sigma=0.771470
! Inverting map and beam 
! Estimated beam: bmin=0.6384 mas, bmaj=0.6858 mas, bpa=71.52 degrees
! Estimated noise=0.450742 mJy/beam.
! Added new window around map position (-1.2, -4.7).
! clean: niter=100  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.00310161 Jy
! Component: 100  -  total flux cleaned = 0.00524898 Jy
! Total flux subtracted in 100 components = 0.00524898 Jy
! Clean residual min=-0.001648 max=0.002145 Jy/beam
! Clean residual mean=0.000059 rms=0.000410 Jy/beam
! Combined flux in latest and established models = 0.658324 Jy
! Performing amp+phase self-cal over 1 minute time intervals
! Adding 15 model components to the UV plane model.
! The established model now contains 88 components and 0.658324 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.114223Jy  sigma=0.770832
! Fit after  self-cal, rms=0.114403Jy  sigma=0.770578
! Inverting map and beam 
! Estimated beam: bmin=0.6382 mas, bmaj=0.6853 mas, bpa=71.12 degrees
! Estimated noise=0.451399 mJy/beam.
doamp = false
solint = solint / (6.0/3.6)
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 doamp, doflt, solint
  new_peak = peak(flux)
  until(new_peak<=flux_cutoff)
! clean: niter=100  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.00225316 Jy
! Component: 100  -  total flux cleaned = 0.00379295 Jy
! Total flux subtracted in 100 components = 0.00379295 Jy
! Clean residual min=-0.001645 max=0.001977 Jy/beam
! Clean residual mean=0.000051 rms=0.000401 Jy/beam
! Combined flux in latest and established models = 0.662116 Jy
! Performing phase self-cal over 0.6 minute time intervals
! Adding 22 model components to the UV plane model.
! The established model now contains 97 components and 0.662116 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.114354Jy  sigma=0.770231
! Fit after  self-cal, rms=0.114353Jy  sigma=0.770157
! Inverting map 
print "***********************************"
! *********************************** 
print "*** Finished Amplitude Self-Cal ***"
! *** Finished Amplitude Self-Cal *** 
print "***********************************"
! *********************************** 
save 0014+813_X
! Writing UV FITS file: 0014+813_X.uvf
! Writing 97 model components to file: 0014+813_X.mod
! wwins: Wrote 4 windows to 0014+813_X.win
! restore: Substituting estimate of restoring beam from last 'invert'.
! Restoring with beam: 0.6382 x 0.6853 at 71.12 degrees (North through East)
! Clean map  min=-0.0015784  max=0.43881 Jy/beam
! Writing clean map to FITS file: 0014+813_X.fits
! Writing difmap environment to: 0014+813_X.par
print "****************************"
! **************************** 
print "*** Now, make some plots ***"
! *** Now, make some plots *** 
print "****************************"
! **************************** 
device 0014+813_Xuv.ps/vps,1,2
! Attempting to open device: '0014+813_Xuv.ps/vps'
radplot
! Using default options string "m1"
uvplot
! Using default options string ""
device 0014+813_Xim.ps/vps
! Attempting to open device: '0014+813_Xim.ps/vps'
uvweight 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.
loglevs -1,2048,2
! The new contour levels are:
!  -1 1 2 4 8 16 32 64 128 256 512 1024 2048
cmul = imstat(rms)*3
! Inverting map and beam 
! Estimated beam: bmin=0.6382 mas, bmaj=0.6853 mas, bpa=71.12 degrees
! Estimated noise=0.451399 mJy/beam.
mappl cln
! restore: Substituting estimate of restoring beam from last 'invert'.
! Restoring with beam: 0.6382 x 0.6853 at 71.12 degrees (North through East)
! Clean map  min=-0.0015784  max=0.43881 Jy/beam
quit
! Quitting program
! Log file 0014+813_X.log closed on Wed Mar 27 11:04:14 2002