! Started logfile: 1803+784_X.log on Thu Aug  3 22:30:43 2006
observe 1803+784_X.edt
! Reading UV FITS file: 1803+784_X.edt
! AN table 1: 175 integrations on 190 of 190 possible baselines.
! AN table 2: 61 integrations on 190 of 190 possible baselines.
! AN table 3: 48 integrations on 190 of 190 possible baselines.
! Apparent sampling: 0.264251 visibilities/baseline/integration-bin.
! *** This seems a bit low - see "help observe" on the binwid argument.
! Found source: 1803+784
! 
! 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 1409 lines of history.
! 
! Reading 57036 visibilities.
![@gonzo8-0.1 1803+784_X]
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 1799 telescope corrections were flagged in sub-array 1.
!  A total of 851 telescope corrections were flagged in sub-array 2.
!  A total of 714 telescope corrections were flagged in sub-array 3.
! 
! Correcting IF 2.
!  A total of 1804 telescope corrections were flagged in sub-array 1.
!  A total of 842 telescope corrections were flagged in sub-array 2.
!  A total of 718 telescope corrections were flagged in sub-array 3.
! 
! Correcting IF 3.
!  A total of 1797 telescope corrections were flagged in sub-array 1.
!  A total of 843 telescope corrections were flagged in sub-array 2.
!  A total of 714 telescope corrections were flagged in sub-array 3.
! 
! Correcting IF 4.
!  A total of 1811 telescope corrections were flagged in sub-array 1.
!  A total of 846 telescope corrections were flagged in sub-array 2.
!  A total of 714 telescope corrections were flagged in sub-array 3.
! 
! Fit before self-cal, rms=0.836541Jy  sigma=0.013588
! Fit after  self-cal, rms=0.836804Jy  sigma=0.013598
! 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.5616 mas, bmaj=0.5806 mas, bpa=-57.45 degrees
! Estimated noise=542.735 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 = 1.13018 Jy
! Total flux subtracted in 50 components = 1.13018 Jy
! Clean residual min=-0.050392 max=0.320114 Jy/beam
! Clean residual mean=0.000024 rms=0.011941 Jy/beam
! Combined flux in latest and established models = 1.13018 Jy
! Performing phase self-cal over 0.6 minute time intervals
! Adding 2 model components to the UV plane model.
! The established model now contains 2 components and 1.13018 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.730808Jy  sigma=0.011922
! Fit after  self-cal, rms=0.730663Jy  sigma=0.011919
! Inverting map 
! clean: niter=50  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.324012 Jy
! Total flux subtracted in 50 components = 0.324012 Jy
! Clean residual min=-0.028269 max=0.137706 Jy/beam
! Clean residual mean=0.000018 rms=0.007843 Jy/beam
! Combined flux in latest and established models = 1.45419 Jy
! Performing phase self-cal over 0.6 minute time intervals
! Adding 6 model components to the UV plane model.
! The established model now contains 7 components and 1.45419 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.502559Jy  sigma=0.008181
! Fit after  self-cal, rms=0.501375Jy  sigma=0.008174
! Inverting map 
! clean: niter=50  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.160167 Jy
! Total flux subtracted in 50 components = 0.160167 Jy
! Clean residual min=-0.027489 max=0.112366 Jy/beam
! Clean residual mean=0.000014 rms=0.006413 Jy/beam
! Combined flux in latest and established models = 1.61436 Jy
! Performing phase self-cal over 0.6 minute time intervals
! Adding 12 model components to the UV plane model.
! The established model now contains 17 components and 1.61436 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.409542Jy  sigma=0.006591
! Fit after  self-cal, rms=0.408830Jy  sigma=0.006587
! Inverting map 
! Added new window around map position (-1.2, 0.1).
! clean: niter=50  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.121758 Jy
! Total flux subtracted in 50 components = 0.121758 Jy
! Clean residual min=-0.026609 max=0.067684 Jy/beam
! Clean residual mean=0.000010 rms=0.005452 Jy/beam
! Combined flux in latest and established models = 1.73612 Jy
! Performing phase self-cal over 0.6 minute time intervals
! Adding 16 model components to the UV plane model.
! The established model now contains 32 components and 1.73612 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.348717Jy  sigma=0.005540
! Fit after  self-cal, rms=0.345557Jy  sigma=0.005511
! Inverting map 
! clean: niter=50  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.091578 Jy
! Total flux subtracted in 50 components = 0.091578 Jy
! Clean residual min=-0.022858 max=0.052337 Jy/beam
! Clean residual mean=0.000006 rms=0.004725 Jy/beam
! Combined flux in latest and established models = 1.8277 Jy
! Performing phase self-cal over 0.6 minute time intervals
! Adding 15 model components to the UV plane model.
! The established model now contains 40 components and 1.8277 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.304210Jy  sigma=0.004765
! Fit after  self-cal, rms=0.302595Jy  sigma=0.004751
! Inverting map 
! clean: niter=50  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.072428 Jy
! Total flux subtracted in 50 components = 0.072428 Jy
! Clean residual min=-0.020078 max=0.043602 Jy/beam
! Clean residual mean=0.000004 rms=0.004212 Jy/beam
! Combined flux in latest and established models = 1.90013 Jy
! Performing phase self-cal over 0.6 minute time intervals
! Adding 18 model components to the UV plane model.
! The established model now contains 46 components and 1.90013 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.272832Jy  sigma=0.004198
! Fit after  self-cal, rms=0.271761Jy  sigma=0.004189
! Inverting map 
! clean: niter=50  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.0580915 Jy
! Total flux subtracted in 50 components = 0.0580915 Jy
! Clean residual min=-0.019041 max=0.037463 Jy/beam
! Clean residual mean=0.000002 rms=0.003842 Jy/beam
! Combined flux in latest and established models = 1.95822 Jy
! Performing phase self-cal over 0.6 minute time intervals
! Adding 17 model components to the UV plane model.
! The established model now contains 50 components and 1.95822 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.250236Jy  sigma=0.003775
! Fit after  self-cal, rms=0.249461Jy  sigma=0.003769
! Inverting map 
! clean: niter=50  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.0471847 Jy
! Total flux subtracted in 50 components = 0.0471847 Jy
! Clean residual min=-0.018226 max=0.032488 Jy/beam
! Clean residual mean=-0.000000 rms=0.003573 Jy/beam
! Combined flux in latest and established models = 2.0054 Jy
! Performing phase self-cal over 0.6 minute time intervals
! Adding 16 model components to the UV plane model.
! The established model now contains 55 components and 2.0054 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.233947Jy  sigma=0.003461
! Fit after  self-cal, rms=0.233367Jy  sigma=0.003457
! Inverting map 
! clean: niter=50  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.0385112 Jy
! Total flux subtracted in 50 components = 0.0385112 Jy
! Clean residual min=-0.017401 max=0.028648 Jy/beam
! Clean residual mean=-0.000002 rms=0.003379 Jy/beam
! Combined flux in latest and established models = 2.04391 Jy
! Performing phase self-cal over 0.6 minute time intervals
! Adding 17 model components to the UV plane model.
! The established model now contains 56 components and 2.04391 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.222083Jy  sigma=0.003225
! Fit after  self-cal, rms=0.221620Jy  sigma=0.003222
! 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.7847 mas, bmaj=0.9354 mas, bpa=-86.14 degrees
! Estimated noise=225.6 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.083208 Jy
! Component: 100  -  total flux cleaned = 0.131997 Jy
! Total flux subtracted in 100 components = 0.131997 Jy
! Clean residual min=-0.014218 max=0.040066 Jy/beam
! Clean residual mean=0.001583 rms=0.005378 Jy/beam
! Combined flux in latest and established models = 2.17591 Jy
! Performing phase self-cal over 0.6 minute time intervals
! Adding 50 model components to the UV plane model.
! The established model now contains 88 components and 2.17591 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.196707Jy  sigma=0.002657
! Fit after  self-cal, rms=0.195461Jy  sigma=0.002640
! Inverting map 
! Added new window around map position (-1.6, -1).
! clean: niter=100  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.0412229 Jy
! Component: 100  -  total flux cleaned = 0.0679014 Jy
! Total flux subtracted in 100 components = 0.0679014 Jy
! Clean residual min=-0.012987 max=0.026838 Jy/beam
! Clean residual mean=0.001302 rms=0.004436 Jy/beam
! Combined flux in latest and established models = 2.24381 Jy
! Performing phase self-cal over 0.6 minute time intervals
! Adding 34 model components to the UV plane model.
! The established model now contains 113 components and 2.24381 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.187945Jy  sigma=0.002479
! Fit after  self-cal, rms=0.187242Jy  sigma=0.002467
! Inverting map 
print "****************************************"
! **************************************** 
print "*** Finished Natural Weighting CLEAN ***"
! *** Finished Natural Weighting CLEAN *** 
print "****************************************"
! **************************************** 
gscale true
! Performing overall amplitude self-cal
! 
! Correcting IF 1.
!  Telescope amplitude corrections in sub-array 1:
!   BR        1.00     FD        1.00     GC        1.00*    HN        0.98     
!   LA        0.94     NL        1.00     OV        0.98     SC        1.07     
!   WF        0.97     GG        1.00*    HH        1.00*    KK        1.00*    
!   KP        1.01     MA        0.95     MC        1.02     MK        0.97     
!   NY        1.00     TS        1.00*    WZ        1.00*    PT        0.99     
! 
!  A total of 36 telescope corrections were flagged in sub-array 2.
!  Telescope amplitude corrections in sub-array 2:
!   BR        1.00     FD        0.96     GC        1.00*    HN        1.00     
!   LA        0.98     NL        1.00     OV        0.98     SC        1.00     
!   WF        0.83     GG        1.00*    HH        1.00*    KK        1.07     
!   KP        1.04     MA        1.11     MC        0.88     MK        0.99     
!   NY        1.00*    TS        1.00*    WZ        1.08     PT        0.99     
! 
!  Telescope amplitude corrections in sub-array 3:
!   BR        1.01     FD        1.05     GC        1.05     HN        1.00     
!   LA        1.00*    NL        1.01     OV        1.01     SC        1.01     
!   WF        1.01     GG        1.00*    HH        1.00*    KK        1.00*    
!   KP        1.14     MA        1.00*    MC        1.00*    MK        1.04     
!   NY        1.00     TS        1.09     WZ        1.00*    PT        1.00*    
! 
! 
! Correcting IF 2.
!  Telescope amplitude corrections in sub-array 1:
!   BR        1.01     FD        1.00     GC        1.00*    HN        0.96     
!   LA        0.92     NL        1.00     OV        1.02     SC        1.58     
!   WF        0.96     GG        1.00*    HH        1.00*    KK        1.00*    
!   KP        1.00     MA        0.94     MC        1.02     MK        0.96     
!   NY        1.00     TS        1.00*    WZ        1.00*    PT        1.01     
! 
!  A total of 36 telescope corrections were flagged in sub-array 2.
!  Telescope amplitude corrections in sub-array 2:
!   BR        1.01     FD        0.94     GC        1.00*    HN        1.00     
!   LA        0.99     NL        0.99     OV        0.98     SC        1.34     
!   WF        0.83     GG        1.00*    HH        1.00*    KK        1.09     
!   KP        1.01     MA        0.99     MC        0.90     MK        0.98     
!   NY        1.00*    TS        1.00*    WZ        0.94     PT        1.02     
! 
!  Telescope amplitude corrections in sub-array 3:
!   BR        0.99     FD        1.04     GC        1.09     HN        1.03     
!   LA        1.00*    NL        0.99     OV        1.04     SC        1.13     
!   WF        1.00*    GG        1.00*    HH        1.00*    KK        1.00*    
!   KP        1.15     MA        1.00*    MC        1.00*    MK        1.02     
!   NY        0.99     TS        1.08     WZ        1.00*    PT        1.00*    
! 
! 
! Correcting IF 3.
!  A total of 3 telescope corrections were flagged in sub-array 1.
!  Telescope amplitude corrections in sub-array 1:
!   BR        0.98     FD        1.00     GC        1.00*    HN        0.98     
!   LA        0.92     NL        1.00     OV        1.03     SC        1.06     
!   WF        0.98     GG        1.00*    HH        1.00*    KK        1.00*    
!   KP        1.03     MA        0.99     MC        1.05     MK        0.97     
!   NY        1.02     TS        1.00*    WZ        1.00*    PT        0.95     
! 
!  A total of 36 telescope corrections were flagged in sub-array 2.
!  Telescope amplitude corrections in sub-array 2:
!   BR        1.00     FD        0.95     GC        1.00*    HN        0.99     
!   LA        0.99     NL        1.01     OV        1.00     SC        1.00     
!   WF        0.87     GG        1.00*    HH        1.00*    KK        1.10     
!   KP        1.01     MA        1.09     MC        0.89     MK        1.03     
!   NY        1.00*    TS        1.00*    WZ        0.97     PT        1.05     
! 
!  Telescope amplitude corrections in sub-array 3:
!   BR        0.99     FD        1.03     GC        1.08     HN        1.01     
!   LA        1.00*    NL        0.85     OV        1.04     SC        1.03     
!   WF        0.97     GG        1.00*    HH        1.00*    KK        1.00*    
!   KP        1.13     MA        1.00*    MC        1.00*    MK        1.00     
!   NY        0.95     TS        1.02     WZ        1.00*    PT        1.00*    
! 
! 
! Correcting IF 4.
!  Telescope amplitude corrections in sub-array 1:
!   BR        0.95     FD        0.97     GC        1.00*    HN        0.98     
!   LA        0.94     NL        1.00     OV        1.02     SC        1.06     
!   WF        1.00     GG        1.00*    HH        1.00*    KK        1.00*    
!   KP        1.00     MA        1.03     MC        1.09     MK        0.96     
!   NY        1.04     TS        1.00*    WZ        1.00*    PT        1.01     
! 
!  A total of 33 telescope corrections were flagged in sub-array 2.
!  Telescope amplitude corrections in sub-array 2:
!   BR        0.99     FD        0.94     GC        1.00*    HN        1.00     
!   LA        1.00     NL        1.04     OV        1.00     SC        1.04     
!   WF        0.85     GG        1.00*    HH        1.00*    KK        1.07     
!   KP        1.05     MA        0.97     MC        0.94     MK        0.99     
!   NY        1.00*    TS        1.00*    WZ        0.92     PT        1.04     
! 
!  Telescope amplitude corrections in sub-array 3:
!   BR        1.02     FD        1.02     GC        1.07     HN        1.00     
!   LA        1.00*    NL        0.86     OV        1.00     SC        1.01     
!   WF        0.99     GG        1.00*    HH        1.00*    KK        1.00*    
!   KP        1.16     MA        1.00*    MC        1.00*    MK        1.03     
!   NY        1.03     TS        1.03     WZ        1.00*    PT        1.00*    
! 
! 
! Fit before self-cal, rms=0.187242Jy  sigma=0.002467
! Fit after  self-cal, rms=0.128590Jy  sigma=0.001607
dynam = dynam - 0.5
doamp = false
flux_cutoff = imstat(rms) * dynam
! Inverting map and beam 
! Estimated beam: bmin=0.7919 mas, bmaj=0.9394 mas, bpa=-86.14 degrees
! Estimated noise=225.014 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.0170638 Jy
! Component: 100  -  total flux cleaned = 0.0199442 Jy
! Total flux subtracted in 100 components = 0.0199442 Jy
! Clean residual min=-0.007095 max=0.014356 Jy/beam
! Clean residual mean=0.000579 rms=0.002041 Jy/beam
! Combined flux in latest and established models = 2.26375 Jy
! Performing phase self-cal over 0.6 minute time intervals
! Adding 21 model components to the UV plane model.
! The established model now contains 129 components and 2.26375 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.126038Jy  sigma=0.001554
! Fit after  self-cal, rms=0.125607Jy  sigma=0.001548
! Inverting map 
! Added new window around map position (-3.8, -0.1).
! clean: niter=100  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.0133753 Jy
! Component: 100  -  total flux cleaned = 0.0176456 Jy
! Total flux subtracted in 100 components = 0.0176456 Jy
! Clean residual min=-0.007045 max=0.009957 Jy/beam
! Clean residual mean=0.000504 rms=0.001749 Jy/beam
! Combined flux in latest and established models = 2.2814 Jy
! Performing phase self-cal over 0.6 minute time intervals
! Adding 29 model components to the UV plane model.
! The established model now contains 155 components and 2.2814 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.123950Jy  sigma=0.001512
! Fit after  self-cal, rms=0.123830Jy  sigma=0.001511
! 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.00315612 Jy
! Component: 100  -  total flux cleaned = 0.00414403 Jy
! Total flux subtracted in 100 components = 0.00414403 Jy
! Clean residual min=-0.006851 max=0.009818 Jy/beam
! Clean residual mean=0.000487 rms=0.001645 Jy/beam
! Combined flux in latest and established models = 2.28554 Jy
! Performing amp+phase self-cal over 1 minute time intervals
! Adding 29 model components to the UV plane model.
! The established model now contains 168 components and 2.28554 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.123008Jy  sigma=0.001495
! Fit after  self-cal, rms=0.115738Jy  sigma=0.001394
! Inverting map and beam 
! Estimated beam: bmin=0.7921 mas, bmaj=0.9388 mas, bpa=-86.28 degrees
! Estimated noise=225.351 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)
! Added new window around map position (-8.4, -1.2).
! clean: niter=100  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.00906941 Jy
! Component: 100  -  total flux cleaned = 0.0138448 Jy
! Total flux subtracted in 100 components = 0.0138448 Jy
! Clean residual min=-0.004555 max=0.006393 Jy/beam
! Clean residual mean=0.000341 rms=0.001019 Jy/beam
! Combined flux in latest and established models = 2.29939 Jy
! Performing phase self-cal over 0.6 minute time intervals
! Adding 31 model components to the UV plane model.
! The established model now contains 195 components and 2.29939 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.114915Jy  sigma=0.001376
! Fit after  self-cal, rms=0.114855Jy  sigma=0.001375
! Inverting map 
! Added new window around map position (-5.7, -0.4).
! clean: niter=100  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.00568419 Jy
! Component: 100  -  total flux cleaned = 0.00879505 Jy
! Total flux subtracted in 100 components = 0.00879505 Jy
! Clean residual min=-0.003977 max=0.005130 Jy/beam
! Clean residual mean=0.000301 rms=0.000904 Jy/beam
! Combined flux in latest and established models = 2.30818 Jy
! Performing phase self-cal over 0.6 minute time intervals
! Adding 32 model components to the UV plane model.
! The established model now contains 215 components and 2.30818 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.114338Jy  sigma=0.001365
! Fit after  self-cal, rms=0.114296Jy  sigma=0.001365
! Inverting map 
print "***********************************"
! *********************************** 
print "*** Finished Amplitude Self-Cal ***"
! *** Finished Amplitude Self-Cal *** 
print "***********************************"
! *********************************** 
save 1803+784_X
! Writing UV FITS file: 1803+784_X.uvf
! Writing 215 model components to file: 1803+784_X.mod
! wwins: Wrote 6 windows to 1803+784_X.win
! restore: Substituting estimate of restoring beam from last 'invert'.
! Restoring with beam: 0.7921 x 0.9388 at -86.28 degrees (North through East)
! Clean map  min=-0.0031286  max=1.6181 Jy/beam
! Writing clean map to FITS file: 1803+784_X.fits
! Writing difmap environment to: 1803+784_X.par
print "****************************"
! **************************** 
print "*** Now, make some plots ***"
! *** Now, make some plots *** 
print "****************************"
! **************************** 
![@gonzo_plot 1803+784_X]
device 1803+784_Xuv.ps/vps,1,2
! Attempting to open device: '1803+784_Xuv.ps/vps'
radplot
! Using default options string "m1"
uvplot
! Using default options string ""
device 1803+784_Xim.ps/vps
! Attempting to open device: '1803+784_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.7921 mas, bmaj=0.9388 mas, bpa=-86.28 degrees
! Estimated noise=225.351 mJy/beam.
mappl cln
! restore: Substituting estimate of restoring beam from last 'invert'.
! Restoring with beam: 0.7921 x 0.9388 at -86.28 degrees (North through East)
! Clean map  min=-0.0031286  max=1.6181 Jy/beam
![Exited script file: gonzo_plot]
![Exited script file: gonzo8-0.1]
quit
! Quitting program
! Log file 1803+784_X.log closed on Thu Aug  3 22:31:49 2006