! Started logfile: /scr/pima/bg219a_uvs/J1655+4233_S_dfm.log on Fri May 20 00:14:47 2016
float field_size
field_size =  1024
float field_cell
field_cell =   0.5000
float taper_size
taper_size =   20.0
float freq
freq       =    2.22000
obs     /scr/pima/bg219a_uvs/J1655+4233_S_uva.fits
! Reading UV FITS file: /scr/pima/bg219a_uvs/J1655+4233_S_uva.fits
! AN table 1: 36 integrations on 15 of 15 possible baselines.
! Apparent sampling: 0.596296 visibilities/baseline/integration-bin.
! Found source: J1655+4233
! 
! 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     2.22e+09      3.2e+07          1      3.2e+07
!  02        2    2.252e+09      3.2e+07          1      3.2e+07
!  03        3    2.284e+09      3.2e+07          1      3.2e+07
!  04        4    2.348e+09      3.2e+07          1      3.2e+07
! 
! Polarization(s): RR
! 
! Read 49 lines of history.
! 
! Reading 1288 visibilities.
select rr, 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16 
! Restricting channel ranges to the available 4 channels.
! 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
print "field_size =", field_size
! field_size = 1024 
print "field_cell =", field_cell
! field_cell = 0.5 
print "taper_size =", taper_size
! taper_size = 20 
![@/opt64/bin/pima_mupet_01.dfm J1655+4233_S]
float lim_self
lim_self = 120.0
float lim_val
lim_va   = 1.2
integer clean_niter
clean_niter = 100
float clean_gain
clean_gain = 0.03
float dynam
dynam = 6.0
float soltime1
soltime1 = 120
float soltime2
soltime2 = 20
float thresh
thresh = 0.5
float win_mult
win_mult = 1.8
float time_av
time_av = 16
float old_peak
float new_peak
float flux_cutoff
mapsize field_size, field_cell
! Map grid = 1024x1024 pixels with 0.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 66 telescope corrections were flagged in sub-array 1.
! 
! Correcting IF 2.
!  A total of 66 telescope corrections were flagged in sub-array 1.
! 
! Correcting IF 3.
!  A total of 66 telescope corrections were flagged in sub-array 1.
! 
! Correcting IF 4.
!  A total of 66 telescope corrections were flagged in sub-array 1.
! 
! Fit before self-cal, rms=1.007711Jy  sigma=27.534320
! Fit after  self-cal, rms=0.890500Jy  sigma=24.175271
! 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=2.754 mas, bmaj=12.18 mas, bpa=27.78 degrees
! Estimated noise=1.11229 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.0829582 Jy
! Component: 100  -  total flux cleaned = 0.106134 Jy
! Total flux subtracted in 100 components = 0.106134 Jy
! Clean residual min=-0.007528 max=0.009596 Jy/beam
! Clean residual mean=0.000016 rms=0.002208 Jy/beam
! Combined flux in latest and established models = 0.106134 Jy
! Performing phase self-cal
! Adding 8 model components to the UV plane model.
! The established model now contains 8 components and 0.106134 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.049258Jy  sigma=1.251183
! Fit after  self-cal, rms=0.049049Jy  sigma=1.245526
! 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=3.65 mas, bmaj=11.9 mas, bpa=28.22 degrees
! Estimated noise=0.806378 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.011442 Jy
! Component: 100  -  total flux cleaned = 0.0158495 Jy
! Component: 150  -  total flux cleaned = 0.017134 Jy
! Component: 200  -  total flux cleaned = 0.0179653 Jy
! Total flux subtracted in 200 components = 0.0179653 Jy
! Clean residual min=-0.002948 max=0.003084 Jy/beam
! Clean residual mean=0.000016 rms=0.000858 Jy/beam
! Combined flux in latest and established models = 0.1241 Jy
! Performing phase self-cal
! Adding 20 model components to the UV plane model.
! The established model now contains 24 components and 0.1241 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.046712Jy  sigma=1.174526
! Fit after  self-cal, rms=0.046730Jy  sigma=1.174071
! Inverting map 
print "************** FINISHED NATURAL WEIGHTING CLEAN **************"
! ************** FINISHED NATURAL WEIGHTING CLEAN ************** 
! 
restore
! restore: Substituting estimate of restoring beam from last 'invert'.
! Restoring with beam: 3.65 x 11.9 at 28.22 degrees (North through East)
! Clean map  min=-0.0027966  max=0.11029 Jy/beam
if ( peak(flux,max)/imstat(rms) < lim_self ) selflim lim_val
! Selfcal amplitude corrections will be limited to 0.833333 -> 1.2.
! Selfcal phase corrections will not be limited.
gscale true
! Performing overall amplitude self-cal
! 
! Correcting IF 1.
!  Telescope amplitude corrections in sub-array 1:
!   LA        0.97     MK        1.06     NL        1.01     OV        1.03     
!   PT        0.97     SC        1.05     
! 
! 
! Correcting IF 2.
!  Telescope amplitude corrections in sub-array 1:
!   LA        0.98     MK        1.03     NL        0.91     OV        1.08     
!   PT        0.96     SC        1.01     
! 
! 
! Correcting IF 3.
!  Telescope amplitude corrections in sub-array 1:
!   LA        1.01     MK        0.94     NL        0.92     OV        1.01     
!   PT        1.01     SC        0.98     
! 
! 
! Correcting IF 4.
!  Telescope amplitude corrections in sub-array 1:
!   LA        0.97     MK        0.97     NL        1.07     OV        1.00     
!   PT        1.00     SC        1.00     
! 
! 
! Fit before self-cal, rms=0.046730Jy  sigma=1.174071
! Fit after  self-cal, rms=0.046095Jy  sigma=1.162323
dynam = dynam - 0.5
flux_cutoff = imstat(rms) * dynam
! Inverting map and beam 
! Estimated beam: bmin=3.666 mas, bmaj=11.86 mas, bpa=28.16 degrees
! Estimated noise=0.799104 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.000791482 Jy
! Component: 100  -  total flux cleaned = 0.000731242 Jy
! Component: 150  -  total flux cleaned = 0.000758652 Jy
! Component: 200  -  total flux cleaned = 0.000784141 Jy
! Total flux subtracted in 200 components = 0.000784141 Jy
! Clean residual min=-0.003012 max=0.002406 Jy/beam
! Clean residual mean=0.000006 rms=0.000642 Jy/beam
! Combined flux in latest and established models = 0.124884 Jy
! Performing phase self-cal
! Adding 18 model components to the UV plane model.
! The established model now contains 42 components and 0.124884 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.046044Jy  sigma=1.161448
! Fit after  self-cal, rms=0.046051Jy  sigma=1.161231
! 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.
! 
! Fit before self-cal, rms=0.046051Jy  sigma=1.161231
! Fit after  self-cal, rms=0.045997Jy  sigma=1.154964
dynam = dynam - 0.75
clean clean_niter,clean_gain
! Inverting map and beam 
! Estimated beam: bmin=3.663 mas, bmaj=11.86 mas, bpa=28.16 degrees
! Estimated noise=0.798783 mJy/beam.
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.000207337 Jy
! Component: 100  -  total flux cleaned = 0.000232262 Jy
! Component: 150  -  total flux cleaned = 0.0002531 Jy
! Component: 200  -  total flux cleaned = 0.000271782 Jy
! Total flux subtracted in 200 components = 0.000271782 Jy
! Clean residual min=-0.002616 max=0.002347 Jy/beam
! Clean residual mean=0.000004 rms=0.000598 Jy/beam
! Combined flux in latest and established models = 0.125156 Jy
selfcal
! Performing phase self-cal
! Adding 16 model components to the UV plane model.
! The established model now contains 48 components and 0.125156 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.045973Jy  sigma=1.154525
! Fit after  self-cal, rms=0.045981Jy  sigma=1.154402
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 = 6.0994e-05 Jy
! Component: 100  -  total flux cleaned = 4.30396e-05 Jy
! Component: 150  -  total flux cleaned = 5.85295e-05 Jy
! Component: 200  -  total flux cleaned = 7.31797e-05 Jy
! Total flux subtracted in 200 components = 7.31797e-05 Jy
! Clean residual min=-0.002530 max=0.002280 Jy/beam
! Clean residual mean=0.000004 rms=0.000588 Jy/beam
! Combined flux in latest and established models = 0.125229 Jy
! Performing phase self-cal
! Adding 23 model components to the UV plane model.
! The established model now contains 56 components and 0.125229 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.045967Jy  sigma=1.154149
! Fit after  self-cal, rms=0.045965Jy  sigma=1.154129
! 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.
! 
! Fit before self-cal, rms=0.045965Jy  sigma=1.154129
! Fit after  self-cal, rms=0.045898Jy  sigma=1.154111
clean clean_niter,clean_gain
! Inverting map and beam 
! Estimated beam: bmin=3.659 mas, bmaj=11.86 mas, bpa=28.15 degrees
! Estimated noise=0.798211 mJy/beam.
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.000203556 Jy
! Component: 100  -  total flux cleaned = 0.000233299 Jy
! Component: 150  -  total flux cleaned = 0.000246715 Jy
! Component: 200  -  total flux cleaned = 0.000271646 Jy
! Total flux subtracted in 200 components = 0.000271646 Jy
! Clean residual min=-0.002459 max=0.002245 Jy/beam
! Clean residual mean=0.000004 rms=0.000583 Jy/beam
! Combined flux in latest and established models = 0.1255 Jy
selfcal
! Performing phase self-cal
! Adding 19 model components to the UV plane model.
! The established model now contains 61 components and 0.1255 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.045887Jy  sigma=1.153937
! Fit after  self-cal, rms=0.045886Jy  sigma=1.153927
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 = 1.71874e-05 Jy
! Component: 100  -  total flux cleaned = 2.93331e-05 Jy
! Component: 150  -  total flux cleaned = 4.03339e-05 Jy
! Component: 200  -  total flux cleaned = 6.11283e-05 Jy
! Total flux subtracted in 200 components = 6.11283e-05 Jy
! Clean residual min=-0.002417 max=0.002218 Jy/beam
! Clean residual mean=0.000004 rms=0.000580 Jy/beam
! Combined flux in latest and established models = 0.125562 Jy
! Performing phase self-cal
! Adding 17 model components to the UV plane model.
! The established model now contains 64 components and 0.125561 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.045880Jy  sigma=1.153816
! Fit after  self-cal, rms=0.045879Jy  sigma=1.153810
! Inverting map 
uvtaper 0.3,taper_size
! Gaussian taper: value 0.3 at UV radius = 20 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.
! 
! Fit before self-cal, rms=0.045879Jy  sigma=1.153810
! Fit after  self-cal, rms=0.045824Jy  sigma=1.153797
clean clean_niter,clean_gain
! Inverting map and beam 
! Estimated beam: bmin=9.124 mas, bmaj=12.18 mas, bpa=29.74 degrees
! Estimated noise=0.917166 mJy/beam.
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.000273442 Jy
! Component: 100  -  total flux cleaned = 0.000306636 Jy
! Component: 150  -  total flux cleaned = 0.000316778 Jy
! Component: 200  -  total flux cleaned = 0.000316864 Jy
! Total flux subtracted in 200 components = 0.000316864 Jy
! Clean residual min=-0.001912 max=0.002017 Jy/beam
! Clean residual mean=0.000006 rms=0.000615 Jy/beam
! Combined flux in latest and established models = 0.125878 Jy
selfcal
! Performing phase self-cal
! Adding 9 model components to the UV plane model.
! The established model now contains 70 components and 0.125878 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.045824Jy  sigma=1.153754
! Fit after  self-cal, rms=0.045823Jy  sigma=1.153751
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 = 3.06441e-07 Jy
! Component: 100  -  total flux cleaned = 5.02513e-06 Jy
! Component: 150  -  total flux cleaned = 5.04208e-06 Jy
! Component: 200  -  total flux cleaned = 9.42747e-06 Jy
! Total flux subtracted in 200 components = 9.42747e-06 Jy
! Clean residual min=-0.001916 max=0.001997 Jy/beam
! Clean residual mean=0.000006 rms=0.000613 Jy/beam
! Combined flux in latest and established models = 0.125888 Jy
! Performing phase self-cal
! Adding 12 model components to the UV plane model.
! The established model now contains 76 components and 0.125888 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.045823Jy  sigma=1.153740
! Fit after  self-cal, rms=0.045823Jy  sigma=1.153739
! 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=3.655 mas, bmaj=11.86 mas, bpa=28.14 degrees
! Estimated noise=0.797847 mJy/beam.
! restore: Substituting estimate of restoring beam from last 'invert'.
! Restoring with beam: 3.655 x 11.86 at 28.14 degrees (North through East)
! Clean map  min=-0.0022844  max=0.1088 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=2.759 mas, bmaj=12.2 mas, bpa=27.73 degrees
! Estimated noise=1.1033 mJy/beam.
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.0822428 Jy
! Component: 100  -  total flux cleaned = 0.105911 Jy
! Component: 150  -  total flux cleaned = 0.115944 Jy
! Component: 200  -  total flux cleaned = 0.120416 Jy
! Total flux subtracted in 200 components = 0.120416 Jy
! Clean residual min=-0.003889 max=0.004056 Jy/beam
! Clean residual mean=0.000004 rms=0.001036 Jy/beam
! Combined flux in latest and established models = 0.120416 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 15 model components to the UV plane model.
! The established model now contains 15 components and 0.120416 Jy
! Inverting map and beam 
! Estimated beam: bmin=3.655 mas, bmaj=11.86 mas, bpa=28.14 degrees
! Estimated noise=0.797847 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.00267224 Jy
! Component: 100  -  total flux cleaned = 0.00352327 Jy
! Component: 150  -  total flux cleaned = 0.00409377 Jy
! Component: 200  -  total flux cleaned = 0.00445403 Jy
! Total flux subtracted in 200 components = 0.00445403 Jy
! Clean residual min=-0.002764 max=0.002379 Jy/beam
! Clean residual mean=0.000005 rms=0.000616 Jy/beam
! Combined flux in latest and established models = 0.12487 Jy
! Adding 23 model components to the UV plane model.
! The established model now contains 36 components and 0.12487 Jy
! Inverting map 
uvtaper 0.3,taper_size
! Gaussian taper: value 0.3 at UV radius = 20 mega-wavelengths.
clean clean_niter,clean_gain
! Inverting map and beam 
! Estimated beam: bmin=9.124 mas, bmaj=12.18 mas, bpa=29.74 degrees
! Estimated noise=0.917166 mJy/beam.
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.000442158 Jy
! Component: 100  -  total flux cleaned = 0.000564504 Jy
! Component: 150  -  total flux cleaned = 0.000654635 Jy
! Component: 200  -  total flux cleaned = 0.000745664 Jy
! Total flux subtracted in 200 components = 0.000745664 Jy
! Clean residual min=-0.001863 max=0.002090 Jy/beam
! Clean residual mean=0.000007 rms=0.000626 Jy/beam
! Combined flux in latest and established models = 0.125616 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 = 1.74634e-05 Jy
! Component: 100  -  total flux cleaned = 4.15706e-05 Jy
! Component: 150  -  total flux cleaned = 4.91262e-05 Jy
! Component: 200  -  total flux cleaned = 4.92083e-05 Jy
! Total flux subtracted in 200 components = 4.92083e-05 Jy
! Clean residual min=-0.001837 max=0.002067 Jy/beam
! Clean residual mean=0.000006 rms=0.000622 Jy/beam
! Combined flux in latest and established models = 0.125665 Jy
! Adding 26 model components to the UV plane model.
! The established model now contains 59 components and 0.125665 Jy
! Inverting map 
uvtaper 0,0
! No UV-taper is currently set.
clean
! Inverting map and beam 
! Estimated beam: bmin=3.655 mas, bmaj=11.86 mas, bpa=28.14 degrees
! Estimated noise=0.797847 mJy/beam.
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = -6.41825e-05 Jy
! Component: 100  -  total flux cleaned = -4.05731e-05 Jy
! Component: 150  -  total flux cleaned = -1.9887e-05 Jy
! Component: 200  -  total flux cleaned = -2.01724e-05 Jy
! Total flux subtracted in 200 components = -2.01724e-05 Jy
! Clean residual min=-0.002557 max=0.002223 Jy/beam
! Clean residual mean=0.000004 rms=0.000585 Jy/beam
! Combined flux in latest and established models = 0.125645 Jy
selfcal
! Performing phase self-cal
! Adding 12 model components to the UV plane model.
! The established model now contains 66 components and 0.125645 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Correcting IF 4.
! 
! Fit before self-cal, rms=0.045842Jy  sigma=1.154006
! Fit after  self-cal, rms=0.045839Jy  sigma=1.153971
wmodel /J1655+4233_S_map.mod
! wmodel: Unable to open new model file: /J1655+4233_S_map.mod
! Error occured in command: wmodel
![Exited script file: /opt64/bin/pima_mupet_01.dfm]
! 
wmap /scr/pima/bg219a_uvs/J1655+4233_S_map.fits
! Inverting map 
! restore: Substituting estimate of restoring beam from last 'invert'.
! Restoring with beam: 3.655 x 11.86 at 28.14 degrees (North through East)
! Clean map  min=-0.0024046  max=0.10842 Jy/beam
! Writing clean map to FITS file: /scr/pima/bg219a_uvs/J1655+4233_S_map.fits
float peak_flux
peak_flux = peak(flux,max)
print "The peak flux is", peak_flux
! The peak flux is 0.10842 
invert
! Inverting map 
float image_rms
image_rms = imstat(rms)
print "The final image rms is",image_rms
! The final image rms is 0.000582109 
loglevs 100*3*image_rms/peak_flux
! The new contour levels are:
!  -1.61071 1.61071 3.22142 6.44284 12.8857 25.7713 51.5427
print "clev=      ", int(3*image_rms*10000)/10000
! clev=       0.0017 
print "peak=      ", int(1000*peak_flux)/1000
! peak=       0.108 
print "dyn_range= ", int(1000*peak_flux/image_rms)/1000
! dyn_range=  186.253 
quit
! Quitting program
! Log file /scr/pima/bg219a_uvs/J1655+4233_S_dfm.log closed on Fri May 20 00:14:49 2016