! Started logfile: /vlbi/uf001/uva//J1332+2949_S_dfm.log on Mon Jan 14 02:27:03 2019
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     /vlbi/uf001/uva//J1332+2949_S_uva.fits
! Reading UV FITS file: /vlbi/uf001/uva//J1332+2949_S_uva.fits
! AN table 1: 72 integrations on 45 of 45 possible baselines.
! Apparent sampling: 0.874074 visibilities/baseline/integration-bin.
! Found source: J1332+2949
! 
! There are 3 IFs, and a total of 3 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
! 
! Polarization(s): RR
! 
! Read 44 lines of history.
! 
! Reading 8496 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 3 channels.
! Selecting polarization: RR,  channels: 1..3
! Reading IF 1 channels: 1..1
! Reading IF 2 channels: 2..2
! Reading IF 3 channels: 3..3
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 J1332+2949_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
print "==============================================================="
! =============================================================== 
! 
print "=== Difmap script: pima_mupet_01.dvm version of 2016.05.19 === "
! === Difmap script: pima_mupet_01.dvm version of 2016.05.19 ===  
! 
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 48 telescope corrections were flagged in sub-array 1.
! 
! Correcting IF 2.
!  A total of 48 telescope corrections were flagged in sub-array 1.
! 
! Correcting IF 3.
!  A total of 48 telescope corrections were flagged in sub-array 1.
! 
! Fit before self-cal, rms=0.999733Jy  sigma=22.080337
! Fit after  self-cal, rms=0.941895Jy  sigma=20.808088
! 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=3.085 mas, bmaj=6.373 mas, bpa=6.58 degrees
! Estimated noise=0.552834 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.0439161 Jy
! Component: 100  -  total flux cleaned = 0.0571553 Jy
! Total flux subtracted in 100 components = 0.0571553 Jy
! Clean residual min=-0.003494 max=0.005895 Jy/beam
! Clean residual mean=-0.000002 rms=0.000883 Jy/beam
! Combined flux in latest and established models = 0.0571553 Jy
! Performing phase self-cal
! Adding 8 model components to the UV plane model.
! The established model now contains 8 components and 0.0571553 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Fit before self-cal, rms=0.060837Jy  sigma=1.251497
! Fit after  self-cal, rms=0.059606Jy  sigma=1.227518
! Inverting map 
! clean: niter=100  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.00752351 Jy
! Component: 100  -  total flux cleaned = 0.011471 Jy
! Total flux subtracted in 100 components = 0.011471 Jy
! Clean residual min=-0.002423 max=0.003003 Jy/beam
! Clean residual mean=-0.000001 rms=0.000661 Jy/beam
! Combined flux in latest and established models = 0.0686263 Jy
! Performing phase self-cal
! Adding 18 model components to the UV plane model.
! The established model now contains 23 components and 0.0686263 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Fit before self-cal, rms=0.058513Jy  sigma=1.202371
! Fit after  self-cal, rms=0.058498Jy  sigma=1.201920
! 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.715 mas, bmaj=7.263 mas, bpa=6.22 degrees
! Estimated noise=0.354637 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 (-4.5, 3.5).
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.00408313 Jy
! Component: 100  -  total flux cleaned = 0.00667906 Jy
! Component: 150  -  total flux cleaned = 0.00864542 Jy
! Component: 200  -  total flux cleaned = 0.0101788 Jy
! Total flux subtracted in 200 components = 0.0101788 Jy
! Clean residual min=-0.002079 max=0.002023 Jy/beam
! Clean residual mean=0.000000 rms=0.000533 Jy/beam
! Combined flux in latest and established models = 0.0788051 Jy
! Performing phase self-cal
! Adding 41 model components to the UV plane model.
! The established model now contains 63 components and 0.0788051 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Fit before self-cal, rms=0.058158Jy  sigma=1.193551
! Fit after  self-cal, rms=0.058143Jy  sigma=1.192802
! 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.715 x 7.263 at 6.22 degrees (North through East)
! Clean map  min=-0.0020386  max=0.058885 Jy/beam
gscale true
! Performing overall amplitude self-cal
! 
! Correcting IF 1.
!  Telescope amplitude corrections in sub-array 1:
!   BR        1.00     FD        1.06     HN        1.04     KP        0.97     
!   LA        0.92     MK        1.00     NL        1.04     OV        0.96     
!   PT        0.95     SC        0.99     
! 
! 
! Correcting IF 2.
!  Telescope amplitude corrections in sub-array 1:
!   BR        1.00     FD        1.00     HN        1.03     KP        0.98     
!   LA        0.90     MK        0.99     NL        1.13     OV        1.04     
!   PT        0.92     SC        0.94     
! 
! 
! Correcting IF 3.
!  Telescope amplitude corrections in sub-array 1:
!   BR        0.98     FD        1.03     HN        0.98     KP        1.00     
!   LA        0.96     MK        0.98     NL        1.07     OV        1.02     
!   PT        0.90     SC        1.03     
! 
! 
! Fit before self-cal, rms=0.058143Jy  sigma=1.192802
! Fit after  self-cal, rms=0.057418Jy  sigma=1.188372
dynam = dynam - 0.5
flux_cutoff = imstat(rms) * dynam
! Inverting map and beam 
! Estimated beam: bmin=3.715 mas, bmaj=7.295 mas, bpa=6.46 degrees
! Estimated noise=0.350371 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.000940007 Jy
! Component: 100  -  total flux cleaned = 0.0012457 Jy
! Component: 150  -  total flux cleaned = 0.00136311 Jy
! Component: 200  -  total flux cleaned = 0.0014283 Jy
! Total flux subtracted in 200 components = 0.0014283 Jy
! Clean residual min=-0.001711 max=0.002057 Jy/beam
! Clean residual mean=-0.000001 rms=0.000442 Jy/beam
! Combined flux in latest and established models = 0.0802334 Jy
! Performing phase self-cal
! Adding 21 model components to the UV plane model.
! The established model now contains 77 components and 0.0802334 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Fit before self-cal, rms=0.057397Jy  sigma=1.187812
! Fit after  self-cal, rms=0.057418Jy  sigma=1.187506
! 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.
! 
! Fit before self-cal, rms=0.057418Jy  sigma=1.187506
! Fit after  self-cal, rms=0.056848Jy  sigma=1.184663
dynam = dynam - 0.75
clean clean_niter,clean_gain
! Inverting map and beam 
! Estimated beam: bmin=3.726 mas, bmaj=7.286 mas, bpa=6.508 degrees
! Estimated noise=0.35033 mJy/beam.
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.000467461 Jy
! Component: 100  -  total flux cleaned = 0.00046617 Jy
! Component: 150  -  total flux cleaned = 0.000493959 Jy
! Component: 200  -  total flux cleaned = 0.000519 Jy
! Total flux subtracted in 200 components = 0.000519 Jy
! Clean residual min=-0.001507 max=0.001781 Jy/beam
! Clean residual mean=0.000003 rms=0.000410 Jy/beam
! Combined flux in latest and established models = 0.0807524 Jy
selfcal
! Performing phase self-cal
! Adding 24 model components to the UV plane model.
! The established model now contains 96 components and 0.0807524 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Fit before self-cal, rms=0.056836Jy  sigma=1.184403
! Fit after  self-cal, rms=0.056835Jy  sigma=1.184238
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)
! Added new window around map position (12.5, -15.5).
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.00161069 Jy
! Component: 100  -  total flux cleaned = 0.00232666 Jy
! Component: 150  -  total flux cleaned = 0.00261406 Jy
! Component: 200  -  total flux cleaned = 0.00273502 Jy
! Total flux subtracted in 200 components = 0.00273502 Jy
! Clean residual min=-0.001494 max=0.001675 Jy/beam
! Clean residual mean=0.000002 rms=0.000386 Jy/beam
! Combined flux in latest and established models = 0.0834875 Jy
! Performing phase self-cal
! Adding 26 model components to the UV plane model.
! The established model now contains 119 components and 0.0834875 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Fit before self-cal, rms=0.056786Jy  sigma=1.183114
! Fit after  self-cal, rms=0.056785Jy  sigma=1.182990
! Inverting map 
! Added new window around map position (125, 73.5).
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.00118294 Jy
! Component: 100  -  total flux cleaned = 0.00127018 Jy
! Component: 150  -  total flux cleaned = 0.00127095 Jy
! Component: 200  -  total flux cleaned = 0.00129178 Jy
! Total flux subtracted in 200 components = 0.00129178 Jy
! Clean residual min=-0.001459 max=0.001358 Jy/beam
! Clean residual mean=0.000002 rms=0.000368 Jy/beam
! Combined flux in latest and established models = 0.0847792 Jy
! Performing phase self-cal
! Adding 29 model components to the UV plane model.
! The established model now contains 139 components and 0.0847792 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Fit before self-cal, rms=0.056747Jy  sigma=1.182120
! Fit after  self-cal, rms=0.056742Jy  sigma=1.182017
! 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.
! 
! Fit before self-cal, rms=0.056742Jy  sigma=1.182017
! Fit after  self-cal, rms=0.056348Jy  sigma=1.181842
clean clean_niter,clean_gain
! Inverting map and beam 
! Estimated beam: bmin=3.723 mas, bmaj=7.275 mas, bpa=6.537 degrees
! Estimated noise=0.348716 mJy/beam.
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.000642937 Jy
! Component: 100  -  total flux cleaned = 0.000840315 Jy
! Component: 150  -  total flux cleaned = 0.000939258 Jy
! Component: 200  -  total flux cleaned = 0.00101154 Jy
! Total flux subtracted in 200 components = 0.00101154 Jy
! Clean residual min=-0.001431 max=0.001339 Jy/beam
! Clean residual mean=0.000002 rms=0.000359 Jy/beam
! Combined flux in latest and established models = 0.0857908 Jy
selfcal
! Performing phase self-cal
! Adding 36 model components to the UV plane model.
! The established model now contains 156 components and 0.0857908 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Fit before self-cal, rms=0.056331Jy  sigma=1.181468
! Fit after  self-cal, rms=0.056328Jy  sigma=1.181438
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 = 0.000180954 Jy
! Component: 100  -  total flux cleaned = 0.000215206 Jy
! Component: 150  -  total flux cleaned = 0.000231924 Jy
! Component: 200  -  total flux cleaned = 0.000262426 Jy
! Total flux subtracted in 200 components = 0.000262426 Jy
! Clean residual min=-0.001411 max=0.001332 Jy/beam
! Clean residual mean=0.000002 rms=0.000357 Jy/beam
! Combined flux in latest and established models = 0.0860532 Jy
! Performing phase self-cal
! Adding 41 model components to the UV plane model.
! The established model now contains 168 components and 0.0860532 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Fit before self-cal, rms=0.056319Jy  sigma=1.181253
! Fit after  self-cal, rms=0.056319Jy  sigma=1.181246
! 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.
! 
! Fit before self-cal, rms=0.056319Jy  sigma=1.181246
! Fit after  self-cal, rms=0.056224Jy  sigma=1.181201
clean clean_niter,clean_gain
! Inverting map and beam 
! Estimated beam: bmin=7.483 mas, bmaj=9.921 mas, bpa=2.591 degrees
! Estimated noise=0.419289 mJy/beam.
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.000690259 Jy
! Component: 100  -  total flux cleaned = 0.00106112 Jy
! Component: 150  -  total flux cleaned = 0.00128253 Jy
! Component: 200  -  total flux cleaned = 0.0014183 Jy
! Total flux subtracted in 200 components = 0.0014183 Jy
! Clean residual min=-0.001585 max=0.001590 Jy/beam
! Clean residual mean=0.000003 rms=0.000407 Jy/beam
! Combined flux in latest and established models = 0.0874715 Jy
selfcal
! Performing phase self-cal
! Adding 20 model components to the UV plane model.
! The established model now contains 186 components and 0.0874715 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Fit before self-cal, rms=0.056223Jy  sigma=1.181153
! Fit after  self-cal, rms=0.056220Jy  sigma=1.181125
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 = 0.000245951 Jy
! Component: 100  -  total flux cleaned = 0.000314085 Jy
! Component: 150  -  total flux cleaned = 0.000383375 Jy
! Component: 200  -  total flux cleaned = 0.000429058 Jy
! Total flux subtracted in 200 components = 0.000429058 Jy
! Clean residual min=-0.001571 max=0.001586 Jy/beam
! Clean residual mean=0.000003 rms=0.000406 Jy/beam
! Combined flux in latest and established models = 0.0879006 Jy
! Performing phase self-cal
! Adding 31 model components to the UV plane model.
! The established model now contains 205 components and 0.0879006 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Fit before self-cal, rms=0.056220Jy  sigma=1.181116
! Fit after  self-cal, rms=0.056219Jy  sigma=1.181110
! 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.72 mas, bmaj=7.268 mas, bpa=6.542 degrees
! Estimated noise=0.348515 mJy/beam.
! restore: Substituting estimate of restoring beam from last 'invert'.
! Restoring with beam: 3.72 x 7.268 at 6.542 degrees (North through East)
! Clean map  min=-0.0013556  max=0.057889 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=3.091 mas, bmaj=6.385 mas, bpa=6.968 degrees
! Estimated noise=0.54139 mJy/beam.
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.0435661 Jy
! Component: 100  -  total flux cleaned = 0.0576839 Jy
! Component: 150  -  total flux cleaned = 0.0647002 Jy
! Component: 200  -  total flux cleaned = 0.0688254 Jy
! Total flux subtracted in 200 components = 0.0688254 Jy
! Clean residual min=-0.002277 max=0.002492 Jy/beam
! Clean residual mean=0.000000 rms=0.000642 Jy/beam
! Combined flux in latest and established models = 0.0688254 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 26 model components to the UV plane model.
! The established model now contains 26 components and 0.0688254 Jy
! Inverting map and beam 
! Estimated beam: bmin=3.72 mas, bmaj=7.268 mas, bpa=6.542 degrees
! Estimated noise=0.348515 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.00379976 Jy
! Component: 100  -  total flux cleaned = 0.00651481 Jy
! Component: 150  -  total flux cleaned = 0.0086847 Jy
! Component: 200  -  total flux cleaned = 0.010451 Jy
! Total flux subtracted in 200 components = 0.010451 Jy
! Clean residual min=-0.001875 max=0.001475 Jy/beam
! Clean residual mean=0.000001 rms=0.000424 Jy/beam
! Combined flux in latest and established models = 0.0792764 Jy
! Adding 40 model components to the UV plane model.
! The established model now contains 61 components and 0.0792764 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=7.483 mas, bmaj=9.921 mas, bpa=2.591 degrees
! Estimated noise=0.419289 mJy/beam.
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = 0.00224517 Jy
! Component: 100  -  total flux cleaned = 0.00377777 Jy
! Component: 150  -  total flux cleaned = 0.00498645 Jy
! Component: 200  -  total flux cleaned = 0.00597464 Jy
! Total flux subtracted in 200 components = 0.00597464 Jy
! Clean residual min=-0.001896 max=0.001584 Jy/beam
! Clean residual mean=0.000003 rms=0.000444 Jy/beam
! Combined flux in latest and established models = 0.085251 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 = 0.000814176 Jy
! Component: 100  -  total flux cleaned = 0.00146188 Jy
! Component: 150  -  total flux cleaned = 0.00176204 Jy
! Component: 200  -  total flux cleaned = 0.0019281 Jy
! Total flux subtracted in 200 components = 0.0019281 Jy
! Clean residual min=-0.001795 max=0.001602 Jy/beam
! Clean residual mean=0.000003 rms=0.000419 Jy/beam
! Combined flux in latest and established models = 0.0871791 Jy
! Adding 82 model components to the UV plane model.
! The established model now contains 129 components and 0.0871791 Jy
! Inverting map 
uvtaper 0,0
! No UV-taper is currently set.
clean
! Inverting map and beam 
! Estimated beam: bmin=3.72 mas, bmaj=7.268 mas, bpa=6.542 degrees
! Estimated noise=0.348515 mJy/beam.
! clean: niter=200  gain=0.03  cutoff=0
! Component: 050  -  total flux cleaned = -0.000187208 Jy
! Component: 100  -  total flux cleaned = -0.000219949 Jy
! Component: 150  -  total flux cleaned = -0.000267494 Jy
! Component: 200  -  total flux cleaned = -0.000267632 Jy
! Total flux subtracted in 200 components = -0.000267632 Jy
! Clean residual min=-0.001503 max=0.001276 Jy/beam
! Clean residual mean=0.000002 rms=0.000358 Jy/beam
! Combined flux in latest and established models = 0.0869115 Jy
selfcal
! Performing phase self-cal
! Adding 26 model components to the UV plane model.
! The established model now contains 154 components and 0.0869115 Jy
! 
! Correcting IF 1.
! 
! Correcting IF 2.
! 
! Correcting IF 3.
! 
! Fit before self-cal, rms=0.056243Jy  sigma=1.181532
! Fit after  self-cal, rms=0.056241Jy  sigma=1.181448
wmodel J1332+2949_S_map.mod
! Writing 154 model components to file: J1332+2949_S_map.mod
wobs   J1332+2949_S_uvs.fits
! Writing UV FITS file: J1332+2949_S_uvs.fits
wwins  J1332+2949_S_map.win
! wwins: Wrote 4 windows to J1332+2949_S_map.win
x = (field_size-8) * field_cell / 4
addwin -x,x,-x,x
clean (field_size*4),0.01
! Inverting map 
! clean: niter=4096  gain=0.01  cutoff=0
! Component: 050  -  total flux cleaned = -0.00042995 Jy
! Component: 100  -  total flux cleaned = -0.000479571 Jy
! Component: 150  -  total flux cleaned = -0.000434515 Jy
! Component: 200  -  total flux cleaned = -0.000391034 Jy
! Component: 250  -  total flux cleaned = -0.000327347 Jy
! Component: 300  -  total flux cleaned = -0.000286308 Jy
! Component: 350  -  total flux cleaned = -0.00024606 Jy
! Component: 400  -  total flux cleaned = -0.000226506 Jy
! Component: 450  -  total flux cleaned = -0.000225987 Jy
! Component: 500  -  total flux cleaned = -0.000188378 Jy
! Component: 550  -  total flux cleaned = -0.00026205 Jy
! Component: 600  -  total flux cleaned = -0.00029788 Jy
! Component: 650  -  total flux cleaned = -0.000350922 Jy
! Component: 700  -  total flux cleaned = -0.000403198 Jy
! Component: 750  -  total flux cleaned = -0.000454769 Jy
! Component: 800  -  total flux cleaned = -0.00052242 Jy
! Component: 850  -  total flux cleaned = -0.000522347 Jy
! Component: 900  -  total flux cleaned = -0.000522344 Jy
! Component: 950  -  total flux cleaned = -0.000538768 Jy
! Component: 1000  -  total flux cleaned = -0.000570486 Jy
! Component: 1050  -  total flux cleaned = -0.000508044 Jy
! Component: 1100  -  total flux cleaned = -0.00053904 Jy
! Component: 1150  -  total flux cleaned = -0.00049342 Jy
! Component: 1200  -  total flux cleaned = -0.000523564 Jy
! Component: 1250  -  total flux cleaned = -0.000538224 Jy
! Component: 1300  -  total flux cleaned = -0.000552628 Jy
! Component: 1350  -  total flux cleaned = -0.000523498 Jy
! Component: 1400  -  total flux cleaned = -0.00052375 Jy
! Component: 1450  -  total flux cleaned = -0.000552112 Jy
! Component: 1500  -  total flux cleaned = -0.000566027 Jy
! Component: 1550  -  total flux cleaned = -0.000565859 Jy
! Component: 1600  -  total flux cleaned = -0.00055228 Jy
! Component: 1650  -  total flux cleaned = -0.000552215 Jy
! Component: 1700  -  total flux cleaned = -0.000525471 Jy
! Component: 1750  -  total flux cleaned = -0.000578307 Jy
! Component: 1800  -  total flux cleaned = -0.000578362 Jy
! Component: 1850  -  total flux cleaned = -0.000643179 Jy
! Component: 1900  -  total flux cleaned = -0.000655844 Jy
! Component: 1950  -  total flux cleaned = -0.000643215 Jy
! Component: 2000  -  total flux cleaned = -0.000668479 Jy
! Component: 2050  -  total flux cleaned = -0.000705935 Jy
! Component: 2100  -  total flux cleaned = -0.000730788 Jy
! Component: 2150  -  total flux cleaned = -0.000767622 Jy
! Component: 2200  -  total flux cleaned = -0.000803852 Jy
! Component: 2250  -  total flux cleaned = -0.000827675 Jy
! Component: 2300  -  total flux cleaned = -0.000839572 Jy
! Component: 2350  -  total flux cleaned = -0.000839731 Jy
! Component: 2400  -  total flux cleaned = -0.000909832 Jy
! Component: 2450  -  total flux cleaned = -0.000909784 Jy
! Component: 2500  -  total flux cleaned = -0.000909741 Jy
! Component: 2550  -  total flux cleaned = -0.000920914 Jy
! Component: 2600  -  total flux cleaned = -0.000898347 Jy
! Component: 2650  -  total flux cleaned = -0.000954509 Jy
! Component: 2700  -  total flux cleaned = -0.000909838 Jy
! Component: 2750  -  total flux cleaned = -0.000920936 Jy
! Component: 2800  -  total flux cleaned = -0.000921019 Jy
! Component: 2850  -  total flux cleaned = -0.0009427 Jy
! Component: 2900  -  total flux cleaned = -0.000942722 Jy
! Component: 2950  -  total flux cleaned = -0.000942774 Jy
! Component: 3000  -  total flux cleaned = -0.000921514 Jy
! Component: 3050  -  total flux cleaned = -0.000932163 Jy
! Component: 3100  -  total flux cleaned = -0.000911137 Jy
! Component: 3150  -  total flux cleaned = -0.000900626 Jy
! Component: 3200  -  total flux cleaned = -0.00091093 Jy
! Component: 3250  -  total flux cleaned = -0.00092114 Jy
! Component: 3300  -  total flux cleaned = -0.000931395 Jy
! Component: 3350  -  total flux cleaned = -0.000951746 Jy
! Component: 3400  -  total flux cleaned = -0.000951815 Jy
! Component: 3450  -  total flux cleaned = -0.000961824 Jy
! Component: 3500  -  total flux cleaned = -0.000942006 Jy
! Component: 3550  -  total flux cleaned = -0.000941974 Jy
! Component: 3600  -  total flux cleaned = -0.000961658 Jy
! Component: 3650  -  total flux cleaned = -0.000951923 Jy
! Component: 3700  -  total flux cleaned = -0.000971352 Jy
! Component: 3750  -  total flux cleaned = -0.00100037 Jy
! Component: 3800  -  total flux cleaned = -0.000971627 Jy
! Component: 3850  -  total flux cleaned = -0.00102882 Jy
! Component: 3900  -  total flux cleaned = -0.00103822 Jy
! Component: 3950  -  total flux cleaned = -0.00101004 Jy
! Component: 4000  -  total flux cleaned = -0.0010381 Jy
! Component: 4050  -  total flux cleaned = -0.00105673 Jy
! Total flux subtracted in 4096 components = -0.00110287 Jy
! Clean residual min=-0.000585 max=0.000796 Jy/beam
! Clean residual mean=0.000001 rms=0.000176 Jy/beam
! Combined flux in latest and established models = 0.0858086 Jy
keep
! Adding 303 model components to the UV plane model.
! The established model now contains 457 components and 0.0858086 Jy
![Exited script file: /opt64/bin/pima_mupet_01.dfm]
wmap   /vlbi/uf001/uva//J1332+2949_S_map.fits
! Inverting map 
! restore: Substituting estimate of restoring beam from last 'invert'.
! Restoring with beam: 3.72 x 7.268 at 6.542 degrees (North through East)
! Clean map  min=-0.00095975  max=0.057947 Jy/beam
! Writing clean map to FITS file: /vlbi/uf001/uva//J1332+2949_S_map.fits
wmodel /vlbi/uf001/uva//J1332+2949_S_map.mod
! Writing 457 model components to file: /vlbi/uf001/uva//J1332+2949_S_map.mod
wobs   /vlbi/uf001/uva//J1332+2949_S_uvs.fits
! Writing UV FITS file: /vlbi/uf001/uva//J1332+2949_S_uvs.fits
wwins  /vlbi/uf001/uva//J1332+2949_S_map.win
! wwins: Wrote 5 windows to /vlbi/uf001/uva//J1332+2949_S_map.win
float peak_flux
peak_flux = peak(flux,max)
print "The peak flux is", peak_flux
! The peak flux is 0.0579475 
invert
! Inverting map 
float image_rms
image_rms = imstat(rms)
print "The final image rms is",image_rms
! The final image rms is 0.000175326 
loglevs 100*3*image_rms/peak_flux
! The new contour levels are:
!  -0.907679 0.907679 1.81536 3.63072 7.26144 14.5229 29.0457 58.0915
print "clev=      ", int(3*image_rms*10000)/10000
! clev=       0.0005 
print "peak=      ", int(1000*peak_flux)/1000
! peak=       0.057 
print "dyn_range= ", int(1000*peak_flux/image_rms)/1000
! dyn_range=  330.513 
quit
! Quitting program
! Log file /vlbi/uf001/uva//J1332+2949_S_dfm.log closed on Mon Jan 14 02:27:07 2019