! Started logfile: 1741-038_S.log on Wed Jul 10 18:21:43 1996
observe 1741-038_S.edt
! Reading UV FITS file: 1741-038_S.edt
! AN table 1: 18 integrations on 25 of 28 possible baselines.
! Apparent sampling: 0.573333 visibilities/baseline/integration-bin.
! Found source: 1741-038
! 
! Number of spectral-line channels: 1
! 
! IF    Freq (Hz)  Chan BW (Hz)  Full BW (Hz)  Sideband
! 01  2.22099e+09         8e+06         8e+06       USB
! 
! Polarization(s): RR
! 
! Read 446 lines of history.
! 
! Reading 258 visibilities.
! Selecting polarization: RR,  channels: 1..1
print "***********************************"
! *********************************** 
print "*** Using gonzo instruction set ***"
! *** Using gonzo instruction set *** 
print "***********************************"
! *********************************** 
float field_size
field_size = 1024
float field_cell
field_cell = 0.5
integer clean_niter
clean_niter = 75
float clean_gain
clean_gain = 0.03
float dynam
dynam = 7.0
float win_mult
win_mult = 1.8
float solint
solint = 4.0/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.500x0.500 milli-arcsec cellsize.
startmod
! Applying default point source starting model.
! Performing phase self-cal
! Adding 1 model components to the UV plane model.
! The established model now contains 1 components and 1 Jy
! 
! Correcting IF 1.
!  A total of 58 telescope corrections were flagged in sub-array 1.
! 
! Fit before self-cal, rms=0.563734Jy  sigma=6.526765
! Fit after  self-cal, rms=0.563712Jy  sigma=6.543791
! 
! Reinstating the default IF.
! 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.
peakwin win_mult
! Inverting map and beam 
! Estimated beam: bmin=4.13 mas, bmaj=8.549 mas, bpa=34.44 degrees
! Estimated noise=4.36161 mJy/beam.
! Added new window around map position (0, 0).
doamp = false
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=75  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 1.2032 Jy
! Total flux subtracted in 75 components = 1.38205 Jy
! Clean residual min=-0.052699 max=0.156692 Jy/beam
! Clean residual mean=-0.000918 rms=0.026809 Jy/beam
! Combined flux in latest and established models = 1.38205 Jy
! Performing phase self-cal over 0.666667 minute time intervals
! Adding 1 model components to the UV plane model.
! The established model now contains 1 components and 1.38205 Jy
! 
! Correcting IF 1.
! 
! Fit before self-cal, rms=0.238294Jy  sigma=2.726809
! Fit after  self-cal, rms=0.238294Jy  sigma=2.726809
! 
! Reinstating the default IF.
! 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=4.007 mas, bmaj=9.527 mas, bpa=34.56 degrees
! Estimated noise=4.11485 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=150  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.131801 Jy
! Component: 100  -  total flux cleaned = 0.186078 Jy
! Component: 150  -  total flux cleaned = 0.199563 Jy
! Total flux subtracted in 150 components = 0.199563 Jy
! Clean residual min=-0.023597 max=0.030909 Jy/beam
! Clean residual mean=-0.000426 rms=0.008941 Jy/beam
! Combined flux in latest and established models = 1.58162 Jy
! Performing phase self-cal over 0.666667 minute time intervals
! Adding 18 model components to the UV plane model.
! The established model now contains 18 components and 1.58162 Jy
! 
! Correcting IF 1.
! 
! Fit before self-cal, rms=0.161207Jy  sigma=1.863680
! Fit after  self-cal, rms=0.161148Jy  sigma=1.862283
! 
! Reinstating the default IF.
! 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.03     GC        0.99     KP        0.98     
!   LA        1.00*    MK        0.97     OV        1.00     PT        0.99     
! 
! 
! Fit before self-cal, rms=0.161148Jy  sigma=1.862283
! Fit after  self-cal, rms=0.154910Jy  sigma=1.799650
! 
! Reinstating the default IF.
dynam = dynam - 0.5
doamp = false
flux_cutoff = imstat(rms) * dynam
! Inverting map and beam 
! Estimated beam: bmin=4.014 mas, bmaj=9.408 mas, bpa=34.56 degrees
! Estimated noise=4.07957 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=150  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.0107985 Jy
! Component: 100  -  total flux cleaned = 0.0104863 Jy
! Component: 150  -  total flux cleaned = 0.0112376 Jy
! Total flux subtracted in 150 components = 0.0112376 Jy
! Clean residual min=-0.015668 max=0.021180 Jy/beam
! Clean residual mean=-0.000214 rms=0.005190 Jy/beam
! Combined flux in latest and established models = 1.59285 Jy
! Performing phase self-cal over 0.666667 minute time intervals
! Adding 8 model components to the UV plane model.
! The established model now contains 25 components and 1.59285 Jy
! 
! Correcting IF 1.
! 
! Fit before self-cal, rms=0.153363Jy  sigma=1.783389
! Fit after  self-cal, rms=0.153322Jy  sigma=1.782573
! 
! Reinstating the default IF.
! Inverting map 
dynam = dynam - 1.0
doamp = true
solint = solint * 1.5
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=150  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.00147725 Jy
! Component: 100  -  total flux cleaned = 0.00110687 Jy
! Component: 150  -  total flux cleaned = 0.00110002 Jy
! Total flux subtracted in 150 components = 0.00110002 Jy
! Clean residual min=-0.015137 max=0.018910 Jy/beam
! Clean residual mean=-0.000210 rms=0.004973 Jy/beam
! Combined flux in latest and established models = 1.59396 Jy
! Performing amp+phase self-cal over 1 minute time intervals
! Adding 10 model components to the UV plane model.
! The established model now contains 30 components and 1.59395 Jy
! 
! Correcting IF 1.
! 
! Fit before self-cal, rms=0.152975Jy  sigma=1.779127
! Fit after  self-cal, rms=0.144313Jy  sigma=1.684640
! 
! Reinstating the default IF.
! Inverting map and beam 
! Estimated beam: bmin=4.015 mas, bmaj=9.409 mas, bpa=34.62 degrees
! Estimated noise=4.07387 mJy/beam.
doamp = false
solint = solint / 1.5
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=150  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = -0.00126443 Jy
! Component: 100  -  total flux cleaned = -0.00127508 Jy
! Component: 150  -  total flux cleaned = -0.00138347 Jy
! Total flux subtracted in 150 components = -0.00138347 Jy
! Clean residual min=-0.013967 max=0.017144 Jy/beam
! Clean residual mean=-0.000197 rms=0.004759 Jy/beam
! Combined flux in latest and established models = 1.59257 Jy
! Performing phase self-cal over 0.666667 minute time intervals
! Adding 16 model components to the UV plane model.
! The established model now contains 46 components and 1.59257 Jy
! 
! Correcting IF 1.
! 
! Fit before self-cal, rms=0.144098Jy  sigma=1.682515
! Fit after  self-cal, rms=0.144107Jy  sigma=1.682472
! 
! Reinstating the default IF.
! Inverting map 
print "***********************************"
! *********************************** 
print "*** Finished Amplitude Self-Cal ***"
! *** Finished Amplitude Self-Cal *** 
print "***********************************"
! *********************************** 
save 1741-038_S
! Writing UV FITS file: 1741-038_S.uvf
! Writing 46 model components to file: 1741-038_S.mod
! wwins: Wrote 1 windows to 1741-038_S.win
! restore: Substituting estimate of restoring beam from last 'invert'.
! Restoring with beam: 4.015 x 9.409 at 34.62 degrees (North through East)
! Clean map  min=-0.013675  max=1.514 Jy/beam
! Writing clean map to FITS file: 1741-038_S.fits
! Writing difmap environment to: 1741-038_S.par
print "****************************"
! **************************** 
print "*** Now, make some plots ***"
! *** Now, make some plots *** 
print "****************************"
! **************************** 
device 1741-038_Suv.ps/vps,1,2
! Attempting to open device: '1741-038_Suv.ps/vps'
radplot
! Using default options string "m1"
uvplot
device 1741-038_Sim.ps/vps
! Attempting to open device: '1741-038_Sim.ps/vps'
cmul = 1.0
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 (imstat(rms)*3),20000,2
! Inverting map and beam 
! Estimated beam: bmin=4.015 mas, bmaj=9.409 mas, bpa=34.62 degrees
! Estimated noise=4.07387 mJy/beam.
! The new contour levels are:
!  -0.0142702 0.0142702 0.0285404 0.0570807 0.114161 0.228323 0.456646 0.913291 1.82658 3.65317 7.30633 14.6127 29.2253 58.4506 116.901 233.803 467.605 935.21 1870.42 3740.84 7481.68 14963.4
mappl cln
! restore: Substituting estimate of restoring beam from last 'invert'.
! Restoring with beam: 4.015 x 9.409 at 34.62 degrees (North through East)
! Clean map  min=-0.013675  max=1.514 Jy/beam
quit
! Quitting program
! Log file 1741-038_S.log closed on Wed Jul 10 18:23:05 1996