AIPS version = /home/auto/aips/31DEC06/LINUX/SYSTEM/VLA_PIPE/aips
Prep version = Oct 3 14:33 /home/auto/bin/AVLAPREP.001   
Pipe version = Oct 2 09:13 /home/auto/bin/AVLAPIPE.001   
Post version = Oct 5 14:12 /home/auto/bin/AVLAPOST.001   
  -------------
START_AIPS: Your initial AIPS printer is the GNU Ghostview X-windows previewer 
START_AIPS:  - system name gv, AIPS type PREVIEW
 
START_AIPS: User data area assignments:
  (Using global default file /home/auto/aips/DA00/DADEVS.LIST for DADEVS.PL)
   Disk 1 (1) is /home/auto/aips/DATA/AUTO_1

Tape assignments: 
   Tape 1 is REMOTE
   Tape 2 is REMOTE
 
START_AIPS: Starting TPMON daemons on AUTO asynchronously...
Starting up 31DEC06 AIPS with normal priority
AIPS 2: You are NOT assigned a TV device or server
AIPS 2: You are NOT assigned a graphics device or server
AIPS 2: Enter user ID number
?AIPS 2:                          31DEC06 AIPS:
AIPS 2:      Copyright (C) 1995-2006 Associated Universities, Inc.
AIPS 2:            AIPS comes with ABSOLUTELY NO WARRANTY;
AIPS 2:                 for details, type HELP GNUGPL
AIPS 2: This is free software, and you are welcome to redistribute it
AIPS 2: under certain conditions; type EXPLAIN GNUGPL for details.
AIPS 2: Previous session command-line history recovered.
AIPS 2: TAB-key completions enabled, type HELP READLINE for details.
AIPS 2: Recovered POPS environment from last exit
>>>AIPS 2: Found in Version=ABIN
AIPS 2: $ Lorant Sjouwerman, versions 1.. 2005, for NRAO
AIPS 2:
AIPS 2: $$ General naming utilities - default to data disk 1 (safest of
        all)
AIPS 2: procedure pipedef1
AIPS 2:   string*12 pnam
AIPS 2:   string*6 pcls
AIPS 2:   scalar pseq,pdsk
AIPS 2:   pdsk=1
AIPS 2: finish
AIPS 2: pipedef1
AIPS 2: procedure namepipe
AIPS 2:   pnam=inname;pcls=inclass;pseq=inseq;indisk=pdsk
AIPS 2: finish
AIPS 2: procedure pipename
AIPS 2:   inname=pnam;inclass=pcls;inseq=pseq;indisk=pdsk
AIPS 2: finish
AIPS 2:
AIPS 2: procedure checkcat
AIPS 2: $LOS - count and make sure catalog starts at one (and not more t
        han 10 files)
AIPS 2:   scalar numcat
AIPS 2:   clrname;indisk=pdsk;chkname;numcat=1-error
AIPS 2: $ for later: find out how to deal with CH0/LINE data in MOVE
AIPS 2:   if(numcat>0)then;recat;end;clrtemp
AIPS 2:   return numcat
AIPS 2: finish
AIPS 2:
AIPS 2: procedure gx
AIPS 2: $  inputs
AIPS 2:   go;wait
AIPS 2: finish
AIPS 2:
AIPS 2: procedure pre_fillm
AIPS 2: $LOS - sets VLA archive defaults for fillm
AIPS 2:   default fillm;outdisk=pdsk;doall=1;douvcomp=-1;cparm(8)=0.05;b
        parm(10)=0.75
AIPS 2: finish
AIPS 2:
AIPS 2: procedure fname
AIPS 2:   return inname!!'.'!!inclass!!'.'!!char(inseq)
AIPS 2: finish
AIPS 2:
AIPS 2: procedure del
AIPS 2:   error=1;zap
AIPS 2: finish
AIPS 2:
AIPS 2: procedure skipdata
AIPS 2: $LOS - delete unwanted data sets - currently all but continuum X
         and C bands
AIPS 2: $  if(inclass='LINE')then;del;inclass'CH 0';del;type'ZAP LINE :'
        fname;end
AIPS 2:   if((inclass='CH 0')!(inclass='LINE'))then;del;type'ZAP LINE :'
        fname;end
AIPS 2:   if(inclass='4 BAND')then;del;type'ZAP 4-BAND :'fname;end
AIPS 2:   if(inclass='P BAND')then;del;type'ZAP P-BAND :'fname;end
AIPS 2:   if(inclass='L BAND')then;del;type'ZAP L-BAND :'fname;end
AIPS 2:   if(inclass='U BAND')then;del;type'ZAP U-BAND :'fname;end
AIPS 2:   if(inclass='K BAND')then;del;type'ZAP K-BAND :'fname;end
AIPS 2:   if(inclass='Q BAND')then;del;type'ZAP Q-BAND :'fname;end;clrte
        mp
AIPS 2:   if(error<1)then $ file not zapped, check for single dish vlbi;
         #vis=0
AIPS 2:     task'TABGET';userid 0;inext'NX';invers=0;keyvalue=0;keystrng
        ''
AIPS 2:     keyword'NUM ROW';getthead;pixxy=keyvalue(1),6,0;tabget;clrte
        mp
AIPS 2:     if(keyvalue(1)=0)then;del;type'ZAP S-DISH :'fname;end
AIPS 2:   end
AIPS 2: $also zap if solar/planetary/pulsar mode - su table proper motio
        n??
AIPS 2: $ and what about PT-link?  antenna VPT is not OUT, later also EV
        LA names
AIPS 2: finish
AIPS 2:
AIPS 2: procedure checkids
AIPS 2: $LOS - account for fast switching source names - check on pos, q
        ual, calco
AIPS 2:   scalar ra1a,ra1b,ra2a,ra2b,dc1a,dc1b,dc2a,dc2b,n,m,l,idx
AIPS 2:   scalar q1,q2
AIPS 2:   string*1 co1,co2
AIPS 2:   string*16 n1,n2
AIPS 2:   array alist(100),blist(100)
AIPS 2:   inext'SU';invers 0;keyword'NUM ROW';keyvalue 0;keystrng'';gett
        head
AIPS 2:   n=keyvalue(1);idx=1;aparm 0;bparm 0;alist 0;blist 0
AIPS 2:   if (n > 1) then
AIPS 2:     for m=1:(n-1);clrtemp
AIPS 2:       pixxy m,11;tabget;ra1a keyvalue(1);ra1b keyvalue(2)
AIPS 2:       for l=(m+1):n;clrtemp
AIPS 2:         pixxy l,11;tabget;ra2a keyvalue(1);ra2b keyvalue(2)
AIPS 2:         if (abs(ra1a-ra2a)=0) then
AIPS 2:           if ( abs((ra1b-ra2b)*3600*1000) < 3 ) then $ RA within
         3 mas!
AIPS 2:             pixxy m,12;tabget;dc1a keyvalue(1);dc1b keyvalue(2)
AIPS 2:             pixxy l,12;tabget;dc2a keyvalue(1);dc2b keyvalue(2)
AIPS 2:             if (abs(dc1a-dc2a)=0) then
AIPS 2:               if ( abs((dc1b-dc2b)*3600*1000) < 3 ) then $ DC wi
        thin 3 mas!
AIPS 2:                 pixxy m,3;tabget;q1 keyvalue(1);pixxy l,3;tabget
        ;q2 keyvalue(1)
AIPS 2:                 if (q1=q2) then $ same qualifier; same calcode?
AIPS 2:                   pixxy m,4;tabget;co1 keystrng;pixxy l,4;tabget
        ;co2 keystrng
AIPS 2:                   if (co1=co2) then
AIPS 2:                     pixxy m,1;tabget;q1 keyvalue(1)
AIPS 2:                     pixxy l,1;tabget;q2 keyvalue(1)
AIPS 2:                     pixxy m,2;tabget;n1 keystrng;pixxy l,2;tabge
        t;n2 keystrng
AIPS 2:                     if (idx>100) then;
AIPS 2:                       type 'TOO MANY SOURCES TO DO DSORC - DO BY
         HAND!'
AIPS 2:                      type 'NEXT =.'!!char(idx)!!' DO:'!!char(l)!
        !'.&.'!!char(m)
AIPS 2:                     else
AIPS 2:                       if (length(n1)<length(n2)) then $ keep sho
        rtest name
AIPS 2:                         alist(idx) q2;blist(idx) q1
AIPS 2:                       else;alist(idx) q1;blist(idx) q2
AIPS 2:     end;end;idx=idx+1;end;end;end;end;end;end;end;end;clrtemp
AIPS 2:     if (idx>1) then;task'DSORC';n=0
AIPS 2:       outname inname;outclass inclass;outseq inseq;outdisk indis
        k
AIPS 2:       while (n<idx)
AIPS 2:        for l=1:10;aparm(l)=alist(l+n);bparm(l)=blist(l+n);end;gx
        ;n=n+10;clrtemp
AIPS 2:     end;end
AIPS 2:     if(idx>100)then;type'TOO MANY SOURCES FOR DSORC';error 1;end
        ;clrtemp
AIPS 2:   end
AIPS 2: finish
AIPS 2:
AIPS 2: procedure checkcal
AIPS 2: $LOS   Currently (Sep 22, 2005) can/will do 3C286 and 3C48 at X
        and C
AIPS 2: $LOS   (and for now skip 3C286/3C48/3C138/3C147 Q,K,U and 3C48 L
        )
AIPS 2:   scalar idx,jdx
AIPS 2:   string*16 sname
AIPS 2:   task'TABGET';userid 0;inext'SU';invers=0;keyvalue=0;keystrng''
        ;error=1
AIPS 2:   keyword'NUM ROW';getthead;idx=keyvalue(1);clrtemp
AIPS 2:   for jdx=1:idx
AIPS 2:     pixxy=jdx,2,0;tabget;sname=substr(keystrng,1,length(keystrng
        ))
AIPS 2:     if(sname='3C286')then;error=-1;jdx=idx+1;end
AIPS 2:     if(sname='3C48')then;error=-1;jdx=idx+1;end
AIPS 2:     if(sname='3C138')then;error=-1;jdx=idx+1;end
AIPS 2:     if(sname='3C147')then;error=-1;jdx=idx+1;end
AIPS 2:     if(sname='3C295')then;error=-1;jdx=idx+1;end
AIPS 2:     if(error>0)then $ try B1950 name
AIPS 2:       if(sname='1328+307')then;error=-1;jdx=idx+1;end
AIPS 2:       if(sname='0134+329')then;error=-1;jdx=idx+1;end
AIPS 2:       if(sname='0518+165')then;error=-1;jdx=idx+1;end
AIPS 2:       if(sname='0538+498')then;error=-1;jdx=idx+1;end
AIPS 2:       if(sname='1409+524')then;error=-1;jdx=idx+1;end
AIPS 2:       if(error>0)then $ try J2000
AIPS 2:         if(sname='1331+305')then;error=-1;jdx=idx+1;end
AIPS 2:         if(sname='0137+331')then;error=-1;jdx=idx+1;end
AIPS 2:         if(sname='0521+166')then;error=-1;jdx=idx+1;end
AIPS 2:         if(sname='0542+498')then;error=-1;jdx=idx+1;end
AIPS 2:         if(sname='1411+522')then;error=-1;jdx=idx+1;end
AIPS 2:         if(error>0)then $ try J2000 name
AIPS 2:           if(sname='J1331+3030')then;error=-1;jdx=idx+1;end
AIPS 2:           if(sname='J0137+3309')then;error=-1;jdx=idx+1;end
AIPS 2:           if(sname='J0521+1638')then;error=-1;jdx=idx+1;end
AIPS 2:           if(sname='J0542+4951')then;error=-1;jdx=idx+1;end
AIPS 2:           if(sname='J1411+5212')then;error=-1;jdx=idx+1;end
AIPS 2:     end;end;end;clrtemp
AIPS 2:   end
AIPS 2: $ if error>0 check on coords (for different name than standard)
AIPS 2: $ but keyval not reliable to do this.. ??
AIPS 2: $ end
AIPS 2:   if(error>0)then;del;type'ZAP - NO STD CAL SRC FOR :'fname;erro
        r=1
AIPS 2:   else;checkids;error=-1;end;clrtemp
AIPS 2: finish
AIPS 2:
AIPS 2: procedure j2000fix
AIPS 2: $LOS - convert data to J2000 by default use of uvfix
AIPS 2:   task'UVFIX';outname=inname;outclass=inclass;outseq=inseq;outdi
        sk=indisk
AIPS 2:   shift=0;uvfixprm=0;tput uvfix;outclass'PREFIX';rename
AIPS 2:   tget uvfix;inclass'PREFIX';gx;zap;inclass=outclass;clrtemp
AIPS 2: finish
AIPS 2:
AIPS 2: procedure datachks
AIPS 2: $LOS - delete unwanted data sets, check for standard calibrators
         and make J2000
AIPS 2:   if(error<1)then  $ file exists
AIPS 2:     skipdata;if(error<1)then  $ file was not zapped
AIPS 2:       checkcal;if(error<1)then  $ file has standard calibrator i
        n it
AIPS 2:         j2000fix
AIPS 2: $      addcalco
AIPS 2:   end;end;end;clrtemp
AIPS 2: finish
AIPS 2:
AIPS 2: procedure freqchks
AIPS 2: $LOS - split up in frequency IDs, run INDXR, and remove
AIPS 2:   scalar rows, nfrq
AIPS 2:   if(error<1)then  $ file exists
AIPS 2:     inext'FQ';invers=1;keyword='NUM ROW';getthead;nfrq=keyvalue(
        1)
AIPS 2:     if (nfrq > 1) then
AIPS 2:       if (nfrq > 9) then;type' WARNING! MORE THAN 9 FREQUENCY ID
        -S!';end
AIPS 2:       tput getthead;default'UVCOP';tget getthead;keyword='';task
        'UVCOP';tput
AIPS 2:       for rows=1:nfrq
AIPS 2:         pixxy=rows,1,1;inver=1;inext='FQ';tabget;tget;freqid=key
        value(1)
AIPS 2:         outclass=substr(inclass,1,1)!!substr(inclass,3,6)!!char(
        freqid)
AIPS 2:         type'COPYING FREQUENCY ID #'!!char(freqid);gx
AIPS 2:         default'INDXR';tget uvcop;task'INDXR';inclass outclass;g
        x;task'DQUAL'
AIPS 2: $out not in! ** outname=inname;outclass=inclass;outseq=inseq;out
        disk=indisk;gx
AIPS 2:         tget uvcop;freqid=1;clrtemp
AIPS 2:   end;end;end;if(nfrq>1)then;type fname!!' SPLIT IN :'!!char(nfr
        q);zap;end
AIPS 2: finish
AIPS 2:
AIPS 2: procedure pre_move
AIPS 2: $LOS - moves file to another AIPS user number
AIPS 2:   default move;indisk=pdsk;outseq=-1;opcode'MOVE';clrtemp
AIPS 2: finish
AIPS 2:
AIPS 2: procedure expid
AIPS 2:   string*20 expnm
AIPS 2:   string*75 expmsg
AIPS 2:   return expnm
AIPS 2: finish
AIPS 2: type expid
AIPS 2: ' '
>AIPS 2: Found in Version=ABIN
AIPS 2: $
AIPS 2: $ Ver 1.0 : Copy of private Ver 3.0 of VLARUN (public version is
         2.5):
AIPS 2: $ was 3.0 : Add PLVER (in goplt) for plot files and to include T
        ASAV (12MAY04)
AIPS 2: $           Repositioned inseq=0 to safeguard to SU-tab confusio
        n (12NOV04)
AIPS 2: $           Rearanged inputs and options, added integration time
         calculation,
AIPS 2: $           QUACK, selective plotting, INNAME vs DOCAT, alternat
        ive flux cal,
AIPS 2: $           selective imaging, SCIMG for targets, use model in C
        ALIB, find VLA
AIPS 2: $           array, use model,..
AIPS 2: $
AIPS 2: $Next vers add        polarization calibration, SCIMG->SCIMG?
AIPS 2: $                     find imsize, find cutoffflux, include infi
        le
AIPS 2: $---------------------------------------------------------------
AIPS 2: $000000001111111111222222222233333333334444444444555555555566666
        6666677777777778
AIPS 2: $234567890123456789012345678901234567890123456789012345678901234
        5678901234567890
AIPS 2: $===============================================
AIPS 2: $! Calibrating amplitude and phase, and imaging VLA data
AIPS 2: $# RUN POPS VLA UTILITY CALIBRATION IMAGING
AIPS 2: $---------------------------------------------------------------
AIPS 2: $;  Copyright (C) 2002-2006
AIPS 2: $;  Associated Universities, Inc. Washington DC, USA.
AIPS 2: $;
AIPS 2: $;  This program is free software; you can redistribute it and/o
        r
AIPS 2: $;  modify it under the terms of the GNU General Public License
        as
AIPS 2: $;  published by the Free Software Foundation; either version 2
        of
AIPS 2: $;  the License, or (at your option) any later version.
AIPS 2: $;
AIPS 2: $;  This program is distributed in the hope that it will be usef
        ul,
AIPS 2: $;  but WITHOUT ANY WARRANTY; without even the implied warranty
        of
AIPS 2: $;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See th
        e
AIPS 2: $;  GNU General Public License for more details.
AIPS 2: $;
AIPS 2: $;  You should have received a copy of the GNU General Public
AIPS 2: $;  License along with this program; if not, write to the Free
AIPS 2: $;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,
AIPS 2: $;  MA 02139, USA.
AIPS 2: $;
AIPS 2: $;  Correspondence concerning AIPS should be addressed as follow
        s:
AIPS 2: $;         Internet email: aipsmail@nrao.edu.
AIPS 2: $;         Postal address: AIPS Project Office
AIPS 2: $;                         National Radio Astronomy Observatory
AIPS 2: $;                         520 Edgemont Road
AIPS 2: $;                         Charlottesville, VA 22903-2475 USA
AIPS 2: $---------------------------------------------------------------
AIPS 2: $===============================================================
AIPS 2:
AIPS 2: procedure pipeinit
AIPS 2:   scalar lsdisk,lsname,lsrant,lscont,lserr,lsplot,lsflag,k,lsflu
        x,lstarg,lsmodl
AIPS 2:   scalar lsids,star,tint,fsw,kj
AIPS 2:   string*2 lstyp
AIPS 2:   string*3 lsvla
AIPS 2:   string*6 lsidc,lsstrng
AIPS 2:   string*16 lsidn,lscal
AIPS 2:   string*16 lsampcal(20),lsbndcal(5),lsphacal(20),lspntcal(25),l
        sallcal(30),
AIPS 2:   array lsbadd(10),lsparm(16),lssid(1000) $ D=1,C=3.3,B=10.8,A=3
        5.4,PT=73
AIPS 2: finish
AIPS 2: pipeinit
AIPS 2:
AIPS 2: procedure pipeinpt
AIPS 2:   lsampcal     '3C48', '0134+329','0137+331','J0137+3309'
AIPS 2:   lsampcal(5)~ '3C138','0518+165','0521+166','J0521+1638'
AIPS 2:   lsampcal(9)~ '3C147','0538+498','0542+498','J0542+4951'
AIPS 2:   lsampcal(13)~'3C286','1328+307','1331+305','J1331+3030'
AIPS 2:   lsampcal(17)~'3C295','1409+524','1411+522','J1411+5212'
AIPS 2:   lserr=0;lsbadd=baddisk;lsdisk=indisk;lsname=docat
AIPS 2:   lsidn=inname;lsidc=inclass;lsids=inseq;lstyp'UV';fsw=doalign;l
        sflag=flagver
AIPS 2:   lsparm(2)=solint;lsparm(13)=factor;lsrant=refant;lsmodl=domode
        l
AIPS 2:   lscal=keystrng;lsflux=flux;lsparm(3)=uvrange(1);lsparm(4)=uvra
        nge(2)
AIPS 2:   for k=1:20;lsphacal(k)=sources(k);end;for k=1:5;lsbndcal(k)=ca
        lsour(k);end
AIPS 2:   lsparm(11)=dopol;lsparm(12)=bpa;lscont=docont;lsplot=plver;lsp
        arm(1)=doall
AIPS 2:   lsparm(5)=doarray;lsparm(6)=imsize(1);lsparm(7)=niter;lsparm(8
        )=cutoff
AIPS 2:   lsparm(9)=docal;lsparm(10)=doresid
AIPS 2: $ check input values
AIPS 2: $->lsbadd
AIPS 2:   if (lsdisk<=0) then;lserr=1;type'SPECIFY THE INDISK';end
AIPS 2:   if(lsname<=0)then;inname=lsidn;inclass=lsidc;inseq=lsids;intyp
        e=lstyp;chkname
AIPS 2:     if (error<>0) then
AIPS 2:       lserr=2; type 'SPECIFY INNAME, ETC, OR THE CATALOG NUMBER
        = DOCAT'
AIPS 2:     else
AIPS 2:       userid=0;k=1;lsname=0
AIPS 2:       while (lsname=0);egetname k
AIPS 2:         if (( (lsidn=inname)&(lsidc=inclass) )&(lsids=inseq)) th
        en
AIPS 2:           lsname=k;lsidn=inname;lsidc=inclass;lsids=inseq;lstyp=
        intype
AIPS 2:   else;k=k+1;end;end;end;else
AIPS 2:     if ( ((inname <> '')!(inclass <> '')) ! (inseq <> 0) ) then
AIPS 2:       lserr=2; type 'DO NOT SPECIFY BOTH INNAME, ETC, AND VARIAB
        LE DOCAT'
AIPS 2:     else
AIPS 2:       getname(lsname);lsidn=inname;lsidc=inclass;lsids=inseq;lst
        yp=intype
AIPS 2:     end
AIPS 2:   end
AIPS 2:
AIPS 2: $->inname
AIPS 2: $->inclass
AIPS 2: $->inseq
AIPS 2: $->fsw
AIPS 2: $->lsflag
AIPS 2:   if (lsparm(2)<=0) then; lserr=3; type 'SPECIFY THE SOLUTION IN
        TERVAL';end
AIPS 2:   if (lsparm(13)<1)then;lsparm(13)=1;type'FACTOR<1 QUESTIONABLE,
         SET TO 1';end
AIPS 2:   if (lsrant<=0)then;lsrant=0;type'AIPS WILL CHOOSE THE REFERENC
        E ANTENNA';end
AIPS 2:   if ( (lsmodl>0) & (length(lscal)>0) ) then
AIPS 2:     lserr=4;type 'CANNOT USE STANDARD SOURCE MODEL FOR ALTERNATI
        VE CALIBRATOR'
AIPS 2:   end
AIPS 2: $->lscal
AIPS 2:     if (length(lscal)<>0) then
AIPS 2:       type 'USING NON-STANDARD AMPLITUDE CALIBRATOR, FLUX, UVRAN
        GE :'
AIPS 2:       type lscal, lsflux, lsparm(3), lsparm(4);lsampcal='';lsamp
        cal(1)=lscal
AIPS 2:     end
AIPS 2:
AIPS 2: $->lsflux
AIPS 2: $-> #3+#4 uvrange
AIPS 2:   for i=1:20;for j=1:16;if(substr(lsphacal(i),j,j)='*')then;if (
        lserr<>7) then
AIPS 2:     if((i=1)&(j=1))then;star=1;else;
AIPS 2:       star=-1;lserr=7;type'ONLY USE * IN THE 1ST CHARACTER OF TH
        E 1ST SOURCE'
AIPS 2:   end;end;end;end;clrtemp;end
AIPS 2:   if (lsname>0) then; indisk=lsdisk; getname(lsname); clrtemp
AIPS 2:     if ( (inclass='CH 0') & (substr(lsbndcal(1),1,1) = ' ') ) th
        en
AIPS 2:       lserr=8;type 'SPECIFY THE BANDPASS CALIBRATOR = CALSOUR'
AIPS 2:   end;end;clrtemp
AIPS 2: $-> #11 dopol
AIPS 2: $-> #12 bpa
AIPS 2: $->lscont
AIPS 2: $->lsplot
AIPS 2:   if (lsparm(1) > 0) then
AIPS 2:     if (lsparm(5)<0) then;type 'SETFC WILL DETERMINE THE CELL SI
        ZE'
AIPS 2:     else;
AIPS 2:       if (lsparm(5)=0) then;
AIPS 2:         keyword='TELESCOP';gethead;
AIPS 2:         if (substr(keystrng,1,3)<>'VLA') then;
AIPS 2:           lserr=5; type 'CANNOT DETERMINE ARRAY - THIS IS NOT TH
        E VLA'
AIPS 2:         else;keyword'NUM ROW';inext'AN';invers=0;getthead;k=keyv
        alue(1)
AIPS 2:           for j=1:k
AIPS 2:             pixxy=j,1,0;tabget;i=1;clrtemp
AIPS 2:             while((substr(keystrng,i,i)<>':')&(i<9));i=i+1;end
AIPS 2:             if (substr(keystrng,i+1,i+1)<>' ')then;
AIPS 2:               lsvla=substr(keystrng,i+1,i+3);else
AIPS 2:               lsvla=substr(keystrng,i+2,i+4);end
AIPS 2:             if ((lsvla<>'OUT')&(lsvla<>'MPD'))then;
AIPS 2:               if (lsvla='VPT')then;lsparm(5)=75;else
AIPS 2:                 if (substr(keystrng,i+1,i+1)<>' ')then;
AIPS 2:                   keyword=substr(keystrng,i+2,i+8);else
AIPS 2:                   keyword=substr(keystrng,i+3,i+9);end
AIPS 2:                   lsparm(5)=max(lsparm(5),value(keyword));clrtem
        p;end;end;end
AIPS 2:           if (lsparm(5)<75) then;if (lsparm(5)>36) then;lsparm(5
        )=36;else
AIPS 2:           if (lsparm(5)>18) then;lsparm(5)=11;else
AIPS 2:           if(lsparm(5)>9)then;lsparm(5)=3.5;else;lsparm(5)=1;end
        ;end;end;end
AIPS 2:         end;if(lsparm(5)=0)then;lserr=5;type'WHAT ARRAY?! USE DO
        ARRAY';else
AIPS 2:         if(lsparm(5)>0)then
AIPS 2:           type char(lsparm(5))!!' KILOMETERS WILL BE USED AS MAX
        IMUM BASELINE'
AIPS 2:     end;end;end;end
AIPS 2:     if (lsparm(6)>=0)then;if((lsparm(6)<128)!(imsize(2)<128))the
        n
AIPS 2:       lserr=6; type 'SPECIFY THE IMSIZE CORRECTLY (>127 OR <0)';
        end;end
AIPS 2:
AIPS 2: $-> #7 niter
AIPS 2:     if (lsparm(7) < 0) then; lsparm(7) = 7e4; end
AIPS 2: $-> #8 cutoff
AIPS 2: $-> #9 docal
AIPS 2: $-> #10 doresid
AIPS 2:
AIPS 2:   end
AIPS 2: finish
AIPS 2:
AIPS 2: procedure getidn
AIPS 2:   indisk=lsdisk;inname=lsidn;inclass=lsidc;inseq=lsids;intype=ls
        typ
AIPS 2: finish
AIPS 2:
AIPS 2: procedure getset
AIPS 2:   default;getidn;clrtemp
AIPS 2: finish
AIPS 2:
AIPS 2: procedure lsclrcal
AIPS 2: $ consolidate lists, deal with calcode='*' later
AIPS 2:   scalar lsidx,l,m,n
AIPS 2:   task'TABGET';getset;inext'NX';invers 0;keyvalue=0;keystrng''
AIPS 2:   keyword'NUM ROW';getthead;lsidx=keyvalue(1);clrtemp;n=0;lssid=
        0
AIPS 2:   if (keyvalue(1)>1000)then;type'WARNING: MORE THAN 1000 SCANS !
        ';end
AIPS 2:   for i=1:lsidx $ remember source number
AIPS 2:     pixxy=i,3,0;tabget;error=0
AIPS 2:     for l=1:n;if(lssid(l)=keyvalue(1))then;error=1;end;end;clrte
        mp
AIPS 2:     if(error=0)then;n=n+1;lssid(n)=keyvalue(1);end
AIPS 2:   end;inext'SU';invers 0;keyvalue=0;keystrng'';keyword'NUM ROW'
AIPS 2:   getthead;lsidx=keyvalue(1);clrtemp;sources'';l=1;m=1;n=1
AIPS 2:   for i=1:lsidx
AIPS 2:     pixxy=i,2,0;tabget;k=length(keystrng);j=0;clrtemp
AIPS 2:     while (j<20);j=j+1;if (substr(lsampcal(j),1,k)=substr(keystr
        ng,1,k)) then
AIPS 2:         lsampcal(l)=lsampcal(j);j=30;lsparm(14)=l;l=l+1;end;end;
        j=0;clrtemp
AIPS 2:     while (j<20);j=j+1;if (substr(lsphacal(j),1,k)=substr(keystr
        ng,1,k)) then
AIPS 2:         lsphacal(m)=lsphacal(j);j=30;lsparm(15)=m;m=m+1;end;end;
        j=0;clrtemp
AIPS 2:     while (j<5);j=j+1;if (substr(lsbndcal(j),1,k)=substr(keystrn
        g,1,k)) then
AIPS 2:         lsbndcal(n)=lsbndcal(j);j=30;lsparm(16)=n;n=n+1;end;end;
        clrtemp
AIPS 2:   end;lspntcal'';lsallcal'';for j=l:20;lsampcal(j)='';end
AIPS 2:   for j=m:20;lsphacal(j)='';end;for j=n:5;lsbndcal(j)='';end
AIPS 2:   for j=1:lsparm(15);lspntcal(j)=lsphacal(j);end;k=lsparm(15)
AIPS 2:   for j=1:lsparm(16);lspntcal(j+k)=lsbndcal(j);end;j=0;l=1;clrte
        mp
AIPS 2:   while (j<(lsparm(15)+lsparm(16)));j=j+1;if (length(lspntcal(j)
        )>0) then
AIPS 2:     lspntcal(l)=lspntcal(j);if(l<>j)then;lspntcal(j)='';end;l=l+
        1;end;end
AIPS 2: $here - clean up pnt cal for doubles - subtract from total count
         below
AIPS 2:   k=lsparm(15)+lsparm(16);for j=1:k;lsallcal(j)=lspntcal(j);end;
        l=1
AIPS 2:   for j=1:lsparm(14);i=length(lsampcal(j));lsidx=0;m=j
AIPS 2:     while ((lsidx<k)&j<30);lsidx=lsidx+1
AIPS 2:       if (substr(lspntcal(lsidx),1,i)=substr(lsampcal(j),1,i)) t
        hen;j=30;end
AIPS 2:   end;if (j<30) then;lsallcal(l+k)=lsampcal(m);l=l+1;end;end;j=0
        ;l=1;clrtemp
AIPS 2:   while (j<(lsparm(14)+lsparm(15)+lsparm(16)));j=j+1
AIPS 2:     if (length(lsallcal(j))>0) then;lsallcal(l)=lsallcal(j)
AIPS 2:       if(l<>j)then;lsallcal(j)='';end;l=l+1;end;end
AIPS 2: $typ 'LSAMPCAL, LSPHACAL, LSBNDCAL, LSPNTCAL, AND LSALLCAL :'
AIPS 2: $typ lsampcal; typ lsphacal; typ lsbndcal; typ lspntcal; typ lsa
        llcal;
AIPS 2:   return;clrtemp
AIPS 2: finish
AIPS 2:
AIPS 2: procedure numtab(lsstrng)
AIPS 2:   keystrng'';j=0;clrtemp
AIPS 2:   while ((j<15)&(keystrng<>lsstrng))
AIPS 2:     j=j+1;keyword'EXTYPE'!!char(j);gethead;end;clrtemp
AIPS 2:   if (keystrng=lsstrng) then
AIPS 2:     keyword'EXTVER'!!char(j);gethead;else;keyvalue=0;end
AIPS 2:   keyword'';keystrng'';clrtemp
AIPS 2: return keyvalue(1);finish
AIPS 2:
AIPS 2: procedure numbasel
AIPS 2:   scalar numarow,numbout,numbant,numbase,idx;string*16 nameant
AIPS 2:   numbout=0;keyword'NUM ROW';inext'AN';invers=0;getthead;numarow
        =keyvalue(1)
AIPS 2:   for numbant=1:numarow
AIPS 2:     pixxy=numbant,1,0;tabget;nameant=keystrng;idx=1;clrtemp
AIPS 2:     while(substr(nameant,idx,idx)<>':');idx=idx+1;end
AIPS 2:     if(substr(nameant,idx+1,idx+3)='OUT')then;numbout=numbout+1;
        end
AIPS 2:     if(substr(nameant,idx+2,idx+4)='OUT')then;numbout=numbout+1;
        end
AIPS 2:   end;numbase=(numarow-numbout)*(numarow-numbout-1)/2;clrtemp
AIPS 2: $  type char(numarow-numbout)!!' ANTENNAS',char(numbase)!!' BASE
        LINES'
AIPS 2:   return numbase
AIPS 2: finish
AIPS 2:
AIPS 2: procedure calcintt
AIPS 2:   scalar numxrow,numscan,numbbeg,numbend,numcnst,sum,avr,rms,rma
        x;rmax=300
AIPS 2:   array interval(1000),numbvis(1000);avr=0;if(rmax>1000)then;rma
        x=1000;end
AIPS 2:   if (numtab('NX')<1) then;type'NOT MULTISOURCE - NO INTTIME CAL
        CULATED'
AIPS 2:   else
AIPS 2:     keyword'NUM ROW';inext'NX';invers 0;getthead;numxrow=keyvalu
        e(1)
AIPS 2:     if(numxrow>rmax)then;numxrow rmax;end
AIPS 2:     for numscan=1:numxrow;clrtemp
AIPS 2:       pixxy=numscan,2,0;tabget;interval(numscan)=86400*keyvalue(
        1)
AIPS 2:       pixxy=numscan,5,0;tabget;numbbeg=keyvalue(1)
AIPS 2:       pixxy=numscan,6,0;tabget;numbend=keyvalue(1)
AIPS 2:       numbvis(numscan)=numbend-numbbeg+1;avr=max(avr,numbvis(num
        scan))
AIPS 2:     end;numcnst=numbasel;sum=0
AIPS 2:     if (avr > 0) then
AIPS 2:       for numscan=1:numxrow;if (numbvis(numscan)>0) then
AIPS 2:           sum=sum+( (numcnst*interval(numscan)) / numbvis(numsca
        n) )
AIPS 2:       end;end;clrtemp;avr=sum/numxrow;sum=0
AIPS 2:       for numscan=1:numxrow;if (numbvis(numscan)>0) then
AIPS 2:           sum=sum+((numcnst*interval(numscan))/numbvis(numscan)-
        avr)**2
AIPS 2:     end;end;clrtemp;rms=sum/numxrow;clrtemp;end
AIPS 2: $  type char(numxrow)!!' SCANS/SAMPLES WITH RMS(SEC) +/-'!!char(
        rms)
AIPS 2: $  type char(avr)!!' SECOND INTEGRATIONS (APPROXIMATELY)'
AIPS 2:   end
AIPS 2:   return avr
AIPS 2: finish
AIPS 2:
AIPS 2: procedure guesintt
AIPS 2:   scalar intcst,intavr,intmod,intime
AIPS 2:   intavr=calcintt;intcst=intavr;keyword'TELESCOP';gethead
AIPS 2:   if (keystrng='VLA') then;intcst=1+(2/3);end
AIPS 2:   if (keystrng='VLBA') then;intcst=0.131072;end
AIPS 2:   if (intcst=intavr) then;type'UNKNOWN TELESCOPE :'!!keystrng;en
        d
AIPS 2:   if (intavr>10) then
AIPS 2: $    intime=10*floor(0.5+(intavr/10))
AIPS 2:     intime=10*floor(intavr/10)
AIPS 2:   else;if (intavr>0) then
AIPS 2:       intmod=mod(intavr,intcst)
AIPS 2: $      intime=intcst*((intavr-intmod)/intcst+floor(0.5+(intmod/i
        ntcst)))
AIPS 2:       intime=intcst*((intavr-intmod)/intcst+floor(intmod/intcst)
        )
AIPS 2:   else;intime=intavr;end;end;clrtemp
AIPS 2:   if(numtab('NX')>0)then;type char(intime)!!' SECOND INTEGRATION
        S (GUESS)';end
AIPS 2:   return intime
AIPS 2: finish
AIPS 2:
AIPS 2: procedure checkids
AIPS 2: $LOS - account for fast switching source names - check on pos, q
        ual, calco
AIPS 2:   scalar ra1a,ra1b,ra2a,ra2b,dc1a,dc1b,dc2a,dc2b,n,m,l,idx
AIPS 2:   scalar q1,q2
AIPS 2:   string*1 co1,co2
AIPS 2:   string*16 n1,n2
AIPS 2:   array alist(100),blist(100)
AIPS 2:   inext'SU';invers 0;keyword'NUM ROW';keyvalue 0;keystrng'';gett
        head
AIPS 2:   n=keyvalue(1);idx=1;aparm 0;bparm 0;alist 0;blist 0
AIPS 2:   if (n > 1) then
AIPS 2:     for m=1:(n-1);clrtemp
AIPS 2:       pixxy m,11;tabget;ra1a keyvalue(1);ra1b keyvalue(2)
AIPS 2:       for l=(m+1):n;clrtemp
AIPS 2:         pixxy l,11;tabget;ra2a keyvalue(1);ra2b keyvalue(2)
AIPS 2:         if (abs(ra1a-ra2a)=0) then
AIPS 2:           if ( abs((ra1b-ra2b)*3600*1000) < 3 ) then $ RA within
         3 mas!
AIPS 2:             pixxy m,12;tabget;dc1a keyvalue(1);dc1b keyvalue(2)
AIPS 2:             pixxy l,12;tabget;dc2a keyvalue(1);dc2b keyvalue(2)
AIPS 2:             if (abs(dc1a-dc2a)=0) then
AIPS 2:               if ( abs((dc1b-dc2b)*3600*1000) < 3 ) then $ DC wi
        thin 3 mas!
AIPS 2:                 pixxy m,3;tabget;q1 keyvalue(1);pixxy l,3;tabget
        ;q2 keyvalue(1)
AIPS 2:                 if (q1=q2) then $ same qualifier; same calcode?
AIPS 2:                   pixxy m,4;tabget;co1 keystrng;pixxy l,4;tabget
        ;co2 keystrng
AIPS 2:                   if (co1=co2) then
AIPS 2:                     pixxy m,1;tabget;q1 keyvalue(1)
AIPS 2:                     pixxy l,1;tabget;q2 keyvalue(1)
AIPS 2:                     pixxy m,2;tabget;n1 keystrng;pixxy l,2;tabge
        t;n2 keystrng
AIPS 2:                     if (idx>100) then;
AIPS 2:                       type 'TOO MANY SOURCES TO DO DSORC - DO BY
         HAND!'
AIPS 2:                      type 'NEXT =.'!!char(idx)!!' DO:'!!char(l)!
        !'.&.'!!char(m)
AIPS 2:                     else
AIPS 2:                       if (length(n1)<length(n2)) then $ keep sho
        rtest name
AIPS 2:                         alist(idx) q2;blist(idx) q1
AIPS 2:                       else;alist(idx) q1;blist(idx) q2
AIPS 2:     end;end;idx=idx+1;end;end;end;end;end;end;end;end;clrtemp
AIPS 2:     if (idx>1) then;task'DSORC';n=0
AIPS 2:       outname inname;outclass inclass;outseq inseq;outdisk indis
        k
AIPS 2:       while (n<idx)
AIPS 2:        for l=1:10;aparm(l)=alist(l+n);bparm(l)=blist(l+n);end;gx
        ;n=n+10;clrtemp
AIPS 2:     end;end
AIPS 2:     if(idx>100)then;type'TOO MANY SOURCES FOR DSORC';error 1;end
        ;clrtemp
AIPS 2:   end
AIPS 2: finish
AIPS 2:
AIPS 2: procedure chkobjct
AIPS 2:   if (( (object='1331+305') ! (object='1328+307') ) ! (object='J
        1331+3030') )
AIPS 2:     then; object='3C286';end
AIPS 2:   if (( (object='0137+331') ! (object='0134+329') ) ! (object='J
        0137+3309') )
AIPS 2:     then; object='3C48';end
AIPS 2:   if (( (object='0521+166') ! (object='0518+165') ) ! (object='J
        0521+1638') )
AIPS 2:     then; object='3C138';end
AIPS 2:   if (( (object='0542+498') ! (object='0538+498') ) ! (object='J
        0542+4951') )
AIPS 2:     then; object='3C147';end
AIPS 2:   if (( (object='1411+522') ! (object='1409+524') ) ! (object='J
        1411+5212') )
AIPS 2:     then; object='3C295';end;clrtemp;return
AIPS 2: finish
AIPS 2:
AIPS 2: procedure checkbnd
AIPS 2:   band='';j=1
AIPS 2:   while (j<9)
AIPS 2:     keyword='CTYPE'!!char(j);gethead;keyword='CRVAL'!!char(j);cl
        rtemp
AIPS 2:     if (keystrng='FREQ') then;gethead;j=9;else;j=j+1;end;end
AIPS 2:   keyvalue(1)=keyvalue(1)/1e9;
AIPS 2:   if ( (keyvalue(1)>38)    & (keyvalue(1)<51) )    then; band='Q
        ';end
AIPS 2:   if ( (keyvalue(1)>20.4)  & (keyvalue(1)<25.5) )  then; band='K
        ';end
AIPS 2:   if ( (keyvalue(1)>13.5)  & (keyvalue(1)<16.3) )  then; band='U
        ';end
AIPS 2:   if ( (keyvalue(1)> 6.8)  & (keyvalue(1)< 9.6) )  then; band='X
        ';end
AIPS 2:   if ( (keyvalue(1)> 4.2)  & (keyvalue(1)< 5.1) )  then; band='C
        ';end
AIPS 2:   if ( (keyvalue(1)> 1.15) & (keyvalue(1)< 1.75) ) then; band='L
        ';end
AIPS 2:   if ( (keyvalue(1)>0.298) & (keyvalue(1)<0.345) ) then; band='P
        ';end
AIPS 2:   if ( (keyvalue(1)>0.072) & (keyvalue(1)<0.076) ) then; band='4
        ';end;clrtemp
AIPS 2:   return
AIPS 2: finish
AIPS 2:
AIPS 2: procedure chkmodel
AIPS 2:   error=0;sysout='';sys2com''
AIPS 2:   syscom'ls -1 $AIPSTARS/
AIPS 2:   sys2com(1) inname!!'.MODEL'
AIPS 2:   sys2com(2) ' >& /dev/null
AIPS 2:   system
AIPS 2: finish
AIPS 2:
AIPS 2: procedure loadmodl
AIPS 2:   scalar lsidx,l
AIPS 2:   array lsload(5)
AIPS 2:   task'TABGET';getset;inext'SU';invers 0;keyvalue=0;keystrng''
AIPS 2:   keyword'NUM ROW';getthead;lsidx=keyvalue(1);l=1;clrtemp
AIPS 2:   for i=1:lsidx
AIPS 2:     pixxy=i,2,0;tabget;k=length(keystrng);j=1;clrtemp
AIPS 2:     while (j<21)
AIPS 2:       if (substr(lsampcal(j),1,k)=substr(keystrng,1,k)) then
AIPS 2:         lsload(l)=i;j=30;l=l+1;else;j=j+1;clrtemp
AIPS 2:   end;end;end;lsidx=0;checkbnd;keyword'EPOCH';keyvalue=0;keystrn
        g='';gethead
AIPS 2:   if (keyvalue(1)<1999) then;lsidx=1;end
AIPS 2:   for j=1:(l-1)
AIPS 2:     object=lsampcal(j);chkobjct;clrtemp;intype'MA';outdisk=lsdis
        k
AIPS 2:     inname=object!!'_'!!band;inclass'MODEL';inseq=1;indisk=lsdis
        k;chkname
AIPS 2: $$  if (error>0) then;type lsampcal(lsload(j))!!' MODEL ='inname
        ;chkmodel
AIPS 2:     if (error>0) then;type lsampcal(j)!!' MODEL ='inname;chkmode
        l
AIPS 2:       if(error<1)then;go calrd;if (lsidx>0) then;eposwtch;end;en
        d;end $ J2000
AIPS 2:   end;return
AIPS 2: finish
AIPS 2:
AIPS 2: procedure vlanew
AIPS 2:   clrstat;j=numtab('BP');if (j>0) then;inext'BP';invers=-1;extde
        st;end
AIPS 2:   j=numtab('CL');if (j>1) then;inext'CL';for k=2:j;invers=k;extd
        est;end;end
AIPS 2:   j=numtab('SN');if (j>0) then;inext'SN';invers=-1;extdest;end
AIPS 2:   j=numtab('XX');if (j>0) then;inext'XX';invers=-1;extdest;end
AIPS 2:   if (inclass='LINE') then
AIPS 2:     j=numtab('FG');if (j>1) then;inext'FG';for k=2:j;invers=k;ex
        tdest;end;end
AIPS 2:     j=numtab('CL');if (j>1) then;inext'CL';for k=2:j;invers=k;ex
        tdest;end;end
AIPS 2:     j=numtab('BP');if (j>0) then;inext'BP';invers=-1;extdest;end
AIPS 2:     j=numtab('PL');if (j>0) then;inext'PL';invers=-1;extdest;end
AIPS 2:   end;j=numtab('PL');if (j>0) then;inext'PL';invers=-1;extdest;e
        nd;clrtemp
AIPS 2:   type'DONE CLEANUP OF OLD TABLE EXTENTION FILES (CL,SN,FG,BP,PL
        ,XX)'
AIPS 2: finish
AIPS 2:
AIPS 2: procedure allzap
AIPS 2:   chkname;if(error<1)then;for j=1:(1-error);zap;end;end;clrtemp
AIPS 2: finish
AIPS 2:
AIPS 2: procedure allplot
AIPS 2:   tvinit;j=numtab('PL');type 'NUMBER OF PLOT FILES TO SHOW ON TV
        :'!!char(j)
AIPS 2:   if (j>0) then
AIPS 2:     for k=1:j;plver=k;type 'PLOT'char(k)!!'/'!!char(j);go tvpl;r
        ead;end
AIPS 2:     else;type 'NOTHING TO PLOT - DONE';end
AIPS 2: finish
AIPS 2:
AIPS 2: procedure goplt0
AIPS 2:   if (lsplot>0) then;go;end
AIPS 2: finish $SN only
AIPS 2: procedure goplt1
AIPS 2:   if (lsplot>1) then;go;end
AIPS 2: finish $SN+CL
AIPS 2: procedure goplt2
AIPS 2:   if (lsplot>2) then;go;end
AIPS 2: finish $SN+CL+BP
AIPS 2: procedure goplt3
AIPS 2:   if (lsplot>3) then;go;end
AIPS 2: finish $CL,BP applied
AIPS 2:
AIPS 2: procedure calpipe(lsdisk,lsname,lsrant)
AIPS 2:   vnum=33;dowait=true;getidn;vlanew;j=0;clrtemp
AIPS 2:   if (inclass='CH 0') then;inclass'LINE';vlanew;end;clrtemp
AIPS 2:   if(fsw>0)then;checkids;if(inclass='CH 0')then;inclass'LINE';ch
        eckids;end;end
AIPS 2:   if ((numtab('FG')<1)&(lsflag>=0)) then
AIPS 2:     if (lsflag>=1) then
AIPS 2:       task'QUACK';getset;flagver=1;opcode'BEG';i=min(3*tint,20)
AIPS 2:       reason char(i)!!' SEC AUTO-QUACK';aparm=0,i/60,-1;j=1
AIPS 2:       while (j<9);keyword='CTYPE'!!char(j);gethead;clrtemp
AIPS 2:         if(keystrng='FREQ')then
AIPS 2:           keyword='CRVAL'!!char(j);gethead;keyval(1)=keyval(1)/1
        e10;j=9
AIPS 2:           if (keyval(1) < 1.8) then;clrtemp;go;else
AIPS 2:             type 'QUACK SKIPPED FOR THIS HIGH FREQUENCY OBSERVAT
        ION'
AIPS 2:             type 'MAY BE A FAST-SWITHCING OBS - IE LOSS OF ALL D
        ATA'
AIPS 2:             type 'RUN BY HAND IF YOU REALLY WANT THIS QUACK';tge
        t quack
AIPS 2:       end;else;j=j+1;end;end
AIPS 2:     end;task'FLAGR';getset
AIPS 2:     docal 2;solint=max(3*tint-2,2.7*tint);vector=-1;docrt 0;go
AIPS 2:   end
AIPS 2:   task'SNPLT';getset;inext'CL';nplots 8;optype'AMP';vput;pixrang
        e=0.7,1.8
AIPS 2:   goplt1;task'SETJY';getset;optype'REJY';aparm=0;freqid=1;go;opt
        ype'CALC'
AIPS 2:     if (length(lscal)<>0) then
AIPS 2:       optype'';zerosp=lsflux,0;lsallcal=lscal,lspntcal
AIPS 2:     end;sources=lsampcal;go;clrtemp
AIPS 2:   task'CALIB';getset;docalib=2;refant=lsrant;aparm=3,0,0,0,0,0,4
        ,0,0;calcode''
AIPS 2:     solint=lsparm(2);calsour=lspntcal;snver=numtab('SN')+1;solmo
        de'P'
AIPS 2:     soltype'L1R';baddisk=lsbadd;vput;kj=0;userid=0;clrtemp
AIPS 2:     while (kj<9)
AIPS 2:       kj=kj+1;keyvalue=0;keystrng'';keyword='CTYPE'!!char(kj);ge
        thead;clrtemp
AIPS 2:       if(substr(keystrng,1,4)='FREQ')then;keyword='CRVAL'!!char(
        kj);gethead
AIPS 2:     kj=10;end;end;vget;if((keyvalue(1))>17e9&(solint>0.5))then;s
        olint=1/3
AIPS 2:       aparm(7)=3.5;vput;type' AUTOMATIC RESET: SOLINT=20SEC (HIG
        H FREQ)';end
AIPS 2:   if(star>0)then;calsour'';calcode'*';end;go
AIPS 2:   if (lsmodl>0) then $ use models for ones that exist
AIPS 2:     loadmodl;vget calib;calsour='';in2seq=0;in2disk=lsdisk;in2cl
        ass'MODEL'
AIPS 2:     for j=1:(l-1)
AIPS 2:       inext'SU';pixxy=lsload(j),2,0;tabget;calsour(1)=keystrng;c
        lrtemp
AIPS 2:       pixxy=lsload(j),4,0;tabget;calcode=substr(keystrng,1,4);cl
        rtemp
AIPS 2:       object=lsampcal(j);chkobjct;in2name=object!!'_'!!band
AIPS 2:       vput calib;inname=in2name;inclass=in2class;inseq=in2seq;in
        disk=in2disk
AIPS 2: $ if no model, use point with full uvrange
AIPS 2:       chkname;vget calib;if (error>0)then;clr2name;end;go
AIPS 2:     end;clrtemp
AIPS 2:   else;uvrange=lsparm(3),lsparm(4);calsour=lsampcal;go;end
AIPS 2:   vget snplt;inext'SN';optype'PHAS';goplt0;clrtemp
AIPS 2:   task'CLCAL';getset;freqid=1;refant=lsrant;gainuse=numtab('CL')
        +1
AIPS 2:     snver=numtab('SN');gainver=numtab('CL');sources'';soucode'';
AIPS 2:     calsour=lsphacal;calcode'';vput;if(star>0)then;calsour'';cal
        code'*';end;go
AIPS 2:     calsour=lsallcal;sources=calsour;interpol'SELF'
AIPS 2:     if(star>0)then;calsour'';calcode'*';soucode'*';end;go
AIPS 2:   vget snplt;inext'CL';optype'PHAS';goplt1;clrtemp
AIPS 2:   vget calib;solmode'A&P';calsour=lspntcal;calcode'';snver=numta
        b('SN')+1
AIPS 2:   solint=lsparm(13)*lsparm(2);clr2name;vput
AIPS 2:   if(star>0)then;calsour'';calcode'*';end;go
AIPS 2:   if (lsmodl>0) then
AIPS 2:     loadmodl;vget calib;calsour='';in2seq=0;in2disk=lsdisk;in2cl
        ass'MODEL'
AIPS 2:     for j=1:(l-1)
AIPS 2:       inext'SU';pixxy=lsload(j),2,0;tabget;calsour(1)=keystrng;c
        lrtemp
AIPS 2:       pixxy=lsload(j),4,0;tabget;calcode=substr(keystrng,1,4);cl
        rtemp
AIPS 2:       object=lsampcal(j);chkobjct;in2name=object!!'_'!!band;calc
        ode''
AIPS 2:       vput calib;inname=in2name;inclass=in2class;inseq=in2seq;in
        disk=in2disk
AIPS 2: $ if no model, use point with full uvrange
AIPS 2:       chkname;vget calib;if (error>0)then;clr2name;end;go
AIPS 2:     end;inseq=0;indisk=lsdisk;inclass'MODEL';intype'MA'
AIPS 2:     for j=1:(l-1)
AIPS 2:       object=lsampcal(j);chkobjct;inname=object!!'_'!!band;chkna
        me
AIPS 2:       if (error<1) then;zap;end;end
AIPS 2:   else;uvrange=lsparm(3),lsparm(4);calsour=lsampcal;go;end
AIPS 2:   vget snplt;inext'SN';optype'AMP';goplt0;optype'PHAS';pixrange=
        -20,20;goplt0
AIPS 2:   task'GETJY';getset;calsour=lsampcal;snver=numtab('SN');
AIPS 2:   if (star>0) then;
AIPS 2: $    for j=1:lsparm(14);sources(j)='-'!!lsampcal(j);end;k=lsparm
        (14)+1
AIPS 2: $    if (length(lscal)>0) then;sources(k)='-'!!lscal;k=k+1;end
AIPS 2: $    for j=k:(25-k+2);sources(j)=lspntcal(j-k+2);end;
AIPS 2: soucode='*'
AIPS 2:   else
AIPS 2:     sources=lspntcal;if (length(lscal)>0) then;sources(11)='-'!!
        lscal;end
AIPS 2:   end;go
AIPS 2:   if (lscont<1) then
AIPS 2:     type '******************************************************
        **'
AIPS 2:     type '** WRITE DOWN THE FLUX DENSITIES FOR YOUR CALIBRATORS
        **'
AIPS 2:     type '**       (AND DO NOT FORGET THE ERRORS EITHER!)
        **'
AIPS 2:     type '******************************************************
        **';read
AIPS 2:   end
AIPS 2:   vget clcal;gainver=numtab('CL');gainuse=numtab('CL')+1;snver=n
        umtab('SN')
AIPS 2:   if(star>0)then;calsour'';calcode'*';end;go;calsour=lsallcal;so
        urces=calsour
AIPS 2:   interpol'SELF';if(star>0)then;calsour'';calcode'*';soucode'*';
        end;go
AIPS 2:   vget snplt;inext'CL';optype'AMP';goplt1;optype'PHAS';goplt1;cl
        rtemp
AIPS 2:   if (inclass='CH 0') then
AIPS 2:     task'TACOP';getset
AIPS 2:       outdisk=indisk;outname=inname;outclass'LINE';outseq=inseq;
        ncount=1
AIPS 2:       keystrng'';inext'FG';invers=numtab('FG');if (invers>0) the
        n;go;end
AIPS 2:       inext'CL';invers=numtab('CL');keyvalue 0;outseq=inseq;vput
        ;go;clrtemp
AIPS 2:     task'BPASS';getset;inclass'LINE';calsour=lsbndcal,lsampcal;d
        ocal=2
AIPS 2:       solint=-1;bpassprm(5)=-1;bpassprm(9)=1;baddisk=lsbadd;go;c
        lrtemp
AIPS 2:     task'POSSM';getset;inclass'LINE';bpver 0;aparm=0,1,.4,1.2,-3
        0,30,0,2,3,0
AIPS 2:       nplots=6;goplt2;sources=lsbndcal;docalib 2;doband 1;aparm=
        1 0;aparm(9)=3
AIPS 2:       antennas=lsrant,0;goplt2;nplots=0;vput;goplt2;stokes'I';an
        tennas=0;goplt2
AIPS 2:       sources=lsampcal;goplt3
AIPS 2:     vget tacop;inclass'LINE';outclass'CH 0';invers=numtab('BP');
        inext'BP';go
AIPS 2:   end;task'TASAV';getset;outdisk=indisk;go;dowait=false;vnum=0;c
        lrtemp
AIPS 2: finish
AIPS 2:
AIPS 2: procedure calcrms
AIPS 2:   scalar nbas,nvis,tbw,rms,minhrs
AIPS 2:   keyword'GCOUNT';gethead;nvis=keyvalue(1);nbas=numbasel;j=1
AIPS 2:   minhrs=nvis*tint/(nbas*3600) $ underesimate of obs hours (over
        estimate rms)
AIPS 2:   while (j<9) $ bandwidth in a channel, continuum or spectral li
        ne
AIPS 2:     keyword='CTYPE'!!char(j);gethead;keyword='CDELT'!!char(j);cl
        rtemp
AIPS 2:     if (keystrng='FREQ') then;gethead;j=9;else;j=j+1;end;end;tbw
        =keyvalue(1)
AIPS 2:   if (lsidc <> 'CH 0') then;j=1 $ continuum, multiple IFs averag
        ed
AIPS 2:     while (j<9)
AIPS 2:       keyword='CTYPE'!!char(j);gethead;keyword='NAXIS'!!char(j);
        clrtemp
AIPS 2:       if(keystrng='IF')then;gethead;j=9;else;j=j+1;end;end;tbw=t
        bw*keyvalue(1)
AIPS 2:   end;checkbnd;if((band='P')!(band='4'))then;tbw=tbw/3.2;else;tb
        w=tbw/50;end
AIPS 2:   tbw=sqrt(tbw*minhrs/24e6);rms=-1
AIPS 2:   if (band='Q')then;rms=3.0e-5/tbw;end;if (band='K')then;rms=2.5
        e-5/tbw;end
AIPS 2:   if (band='U')then;rms=2.0e-5/tbw;end;if (band='X')then;rms=5.3
        e-6/tbw;end
AIPS 2:   if (band='C')then;rms=6.4e-6/tbw;end;if (band='L')then;rms=6.6
        e-6/tbw;end
AIPS 2:   if (band='P')then;rms=1.7e-4/tbw;end;if (band='4')then;rms=1.5
        e-2/tbw;end
AIPS 2:   if (rms<0) then;type 'CANNOT CALCULATE RMS FROM OBSERVING BAND
         ..';end
AIPS 2:   typ 'ESTIMATED RMS:' char(rms*1000)!!' MILLI JANSKY'
AIPS 2:   return rms
AIPS 2: finish
AIPS 2:
AIPS 2: procedure setboxfle
AIPS 2:   scalar ci,bi
AIPS 2:   string*48 fbox
AIPS 2:   fbox'/tmp/SETFC@
AIPS 2:   fbox=fbox!!inname!!'_'!!inclass!!'.'!!char(inseq)!!'-'!!char(i
        ndisk)
AIPS 2:   ci=0;bi=length(fbox)
AIPS 2:   while(ci<bi);ci=ci+1
AIPS 2:     if(substr(fbox,ci,ci)=' ')then;substr(fbox,ci,ci)=',';end;cl
        rtemp;end
AIPS 2:   return fbox
AIPS 2: finish
AIPS 2:
AIPS 2: procedure delboxfle
AIPS 2:   sys2com'';sysout'';syscom 'rm -f
AIPS 2:   sys2com(1) 'X'!!boxfile;substr(sys2com(1),1,1)=''
AIPS 2:   sys2com(2) ' >& /dev/null
AIPS 2:   if(substr(boxfile,1,1)<>' ')then;system;end;clrtemp
AIPS 2: finish
AIPS 2:
AIPS 2: procedure catboxfile
AIPS 2:   string*20 expnm
AIPS 2:   string*75 expmsg
AIPS 2:   sys2com'';syscom 'cat
AIPS 2:   sys2com(1) 'X'!!boxfile;substr(sys2com(1),1,1)=''
AIPS 2:   if(substr(expmsg,1,1)<>'')then;sysout=expmsg;else;sysout'';end
        ;clrtemp
AIPS 2:   system
AIPS 2: finish
AIPS 2:
AIPS 2: procedure setimsize
AIPS 2:   scalar szf, kk
AIPS 2:   string*48 bxf
AIPS 2:   array szc(2), szi(2), orgc(2), orgi(2)
AIPS 2:   vput imagr;task'SETFC';sources'';bcount=1;bxf=setboxfle;boxfil
        e=bxf
AIPS 2:   bparm=0;infile='';shift=0;flux=0;pbparm=0.25,0;delboxfle
AIPS 2:   orgc=cellsize;cellsize=0;orgi=lsparm(6);imsize=0;kk=1
AIPS 2:   while (kk<9)
AIPS 2:     keyword='CTYPE'!!char(kk);gethead;keyword='CRVAL'!!char(kk);
        clrtemp
AIPS 2:     if (keystrng='FREQ') then;gethead;kk=9;else;kk=kk+1;end;end
AIPS 2:   keyvalue(1)=keyvalue(1)/1e9;bparm(1)=0.375/keyvalue(1);bparm(2
        )=30
AIPS 2:   bparm(3)=1;bparm(4)=0;bparm(5)=0.031;bparm(6)=256;bparm(7)=256
        ;bparm(8)=100
AIPS 2:   gx;bparm(4)=3*bparm(1);bparm(1)=-0.7*bparm(1);bcount=nfield+1
AIPS 2:   type'SEARCHING FOR NVSS SOURCES';gx;szf=nfield;szc=cellsize;sz
        i=imsize
AIPS 2:   vget imagr;if(lsparm(5)<0)then;cellsize=szc;else;cellsize=orgc
        ;end
AIPS 2:   if(lsparm(6)<0)then;imsize=256;nfield=szf;boxfile=bxf;else;ims
        ize=orgi;end
AIPS 2:   vput imagr
AIPS 2: finish
AIPS 2:
AIPS 2: procedure imapipe(k,lsdisk,lsname)
AIPS 2:   vnum=33;dowait=true
AIPS 2:   if (k=1) then
AIPS 2:     task'SPLIT';getset;outdisk=indisk;outclass=inclass;docalib=2
AIPS 2:       baddisk=lsbadd;douvcomp=-1;go
AIPS 2:     if (inclass='CH 0') then;inclass'LINE';outclass=inclass;doba
        nd=1;bpver=0
AIPS 2:       go;end;end;clrtemp
AIPS 2:   task'TABGET';getset;inext'SU';invers=0;keyvalue=0;keystrng'';v
        put;clrtemp
AIPS 2:   task'IMAGR';getset;outdisk=indisk;flux=lsparm(8);baddisk=lsbad
        d;j=1
AIPS 2:   while (j<9)
AIPS 2:     keyword='CTYPE'!!char(j);gethead;keyword='CRVAL'!!char(j);cl
        rtemp
AIPS 2:     if (keystrng='FREQ') then;gethead;j=9;else;j=j+1;end;end
AIPS 2:   cellsize=1.75e10/(keyvalue(1)*abs(lsparm(5)));do3dimag=1;overl
        ap=2;vput
AIPS 2:   keyword'NUM ROW';inext'SU';invers=0;keystrng'';getthead;clrtem
        p
AIPS 2:   for i=1:keyvalue(1) $ check if source is in index and uvfile e
        xists
AIPS 2:     vget tabget;pixxy=i,2,0;tabget;vget imagr;inname=keystrng;j=
        1;intype'UV'
AIPS 2:     inseq=0;chkname;type ' ';niter=lsparm(7);lstarg=1;clrtemp;vp
        ut
AIPS 2:     if (error < 1) then $ source file exists, but same source nu
        mber ?
AIPS 2:       vget tabget;pixxy=i,1,0;tabget;error=1;k=1
AIPS 2:       while ((lssid(k)>0) & (k<1001))
AIPS 2:         if (lssid(k)=keyvalue(1))then error=0;end
AIPS 2:         k=k+1;end;end;vget imagr
AIPS 2:     keyword'GCOUNT';gethead;if(keyvalue(1)<10)then;type'NO DATA'
        ;error=1;end
AIPS 2:     if (error < 1) then
AIPS 2:       if ((lsparm(7)=7e4)&(lsparm(8)<0))then;flux=6*calcrms;end
AIPS 2:       if ((lsparm(6)<0)!(lsparm(5)<0))then;setimsize;else;imsize
        =lsparm(6);end
AIPS 2:       while (j<30)
AIPS 2:         k=length(inname)
AIPS 2:         if (substr(lsallcal(j),1,k)=substr(inname,1,k)) then $ c
        alibrator
AIPS 2:           lstarg=0;j=30
AIPS 2:           if(lsparm(6)>=-0.99)then;niter=min(500,lsparm(7))
AIPS 2:             nfield=1;boxfile'';imsize=min(256,lsparm(6))
AIPS 2:             if(imsize(1)<0)then;imsize=256;end;end
AIPS 2:         else;j=j+1;end $ check next source, if not found -> targ
        et
AIPS 2:       end;if(substr(boxfile,1,1)<>' ')then;catboxfile;end
AIPS 2:
AIPS 2: j=1
AIPS 2: $calibrator lstarg=0
AIPS 2: $target if lstarg=1
AIPS 2:
AIPS 2:
AIPS 2:       while (j<9)
AIPS 2:         keyword='CTYPE'!!char(j);gethead;keyword='NAXIS'!!char(j
        );clrtemp
AIPS 2:         if (keystrng='IF') then;gethead;j=9;else;j=j+1;end;end
AIPS 2:         type '    NOW STARTING WITH SOURCE  :'!!char(i)!!'  ='!!
        inname;type ' '
AIPS 2:       if (inclass='CH 0') then
AIPS 2:         for k=1:keyvalue(1);bif=k;eif=k
AIPS 2:           if ((lstarg>0)!(lsparm(9)>0)) then;go;end
AIPS 2:         end;clrtemp;k=keyvalue(1)
AIPS 2:         inclass'LINE';keyvalue=0;keystrng'';j=1;chkname
AIPS 2:         if (error < 1) then
AIPS 2:           while (j<9)
AIPS 2:             keyword='CTYPE'!!char(j);gethead;clrtemp
AIPS 2:             if (keystrng='FREQ') then
AIPS 2:               keyword='NAXIS'!!char(j);gethead;echan=keyvalue(1)
        ;j=9
AIPS 2:             else;j=j+1;end
AIPS 2:           end;bchan=floor(echan/10);echan=ceil(echan*9/10)
AIPS 2:           if (bchan=1) then;bchan=2;end;j=k
AIPS 2:             for k=1:j;bif=k;eif=k;if ((lstarg>0)!(lsparm(9)>1))
        then;go;end
AIPS 2:         end;end;clrtemp
AIPS 2:       else
AIPS 2:         bif=1;eif=keyvalue(1);vput;out2disk=indisk
AIPS 2:         if ( (lsparm(10)=0) ! ((lsparm(9)<1)&(lstarg<1)) )then;g
        o;clrtemp
AIPS 2:         else
AIPS 2:           solint=lsparm(2);dotv=1;nmaps=lsparm(10);refant=lsrant
        ;aparm=4,0
AIPS 2:           if (lsparm(10)<0) then;dotv=-1;nmaps=-1*nmaps;end;go s
        cimg;clrtemp
AIPS 2:       end;end;boxfile=setboxfle;delboxfle
AIPS 2:       inclass'IMAGR';inseq=0;intype'UV';indisk=lsdisk;allzap
AIPS 2: $      inclass'SCIMG';allzap
AIPS 2:       inclass'IBM*';intype'MA';allzap
AIPS 2:       inclass'RBM*';allzap;inclass'LBM*';allzap;recat;clrtemp
AIPS 2:     else;type '   NO UV-FILE, SKIPPING SOURCE :'!!inname!!'  =#'
        !!char(i)
AIPS 2:   end;end;dowait=false;vnum=0
AIPS 2: finish
AIPS 2:
AIPS 2: procedure avlapipe
AIPS 2:   tput avlapipe;vnum=33;vput avlapipe;pipeinpt;clrtemp
AIPS 2:   if (lserr <> 0) then; type '*** ERROR - ARE ALL INPUTS SET PRO
        PERLY ? ***'
AIPS 2:   else;lsclrcal;tint=guesintt;clrtemp
AIPS 2:     if (tint > 0) then;calpipe(lsdisk,lsname,lsrant);clrtemp
AIPS 2:       if (lsparm(1)>0) then;imapipe(1,lsdisk,lsname)
AIPS 2:       else;type'CALIBRATION DONE - SKIPPING SPLIT AND IMAGING'
AIPS 2:         type'---------------------------------------------------
        --------'
AIPS 2:       end;type ' '
AIPS 2:       if (lsplot>0) then;type 'VIEW CAL-PLOTS WITH GETSET;ALLPLO
        T';end;type ' '
AIPS 2:     else;type '* * *';type 'SINGLE DISH VLBI EXPERIMENT?';type '
        * * *';end
AIPS 2:   end;tget avlapipe;vnum=0;type'* APPEARS TO HAVE ENDED SUCCESSF
        ULLY *';clrtemp
AIPS 2: finish
>AIPS 2: Found in Version=ABIN
AIPS 2: default'AVLAPIPE'
AIPS 2: Found in Version=ABIN
AIPS 2: indisk   1;  doalign -1;  flagver  2;  domodel  1
AIPS 2: docal    1;  sources '*'''
AIPS 2: $ to be set by itself later
AIPS 2: solint   1;  factor   5;  doarray -1;  imsize  -1
AIPS 2: $imsize 512;$niter -1;cutoff -1;plver 0
AIPS 2: niter   -1;  cutoff  -1
AIPS 2: $ for now debugging
AIPS 2: docont   1;  plver    -1;  doall    1;  doresid  0
AIPS 2:
AIPS 2: $ defaults
AIPS 2: $ BADDISK 0$ INDISK 0$ DOCAT 1$ INNAME ' '$ INCLASS ' '$ INSEQ 0
AIPS 2: $ DOALIGN 1$ FLAgver 0$ SOLINT 0$ FACTOR 0$ REFANT 0$ DOMODEL -1
AIPS 2: $ KEYSTRNG ' '$ FLUX 0$ UVRANGE 0, 0$ SOURCES ' '$ CALSOUR ' '
AIPS 2: $ dopol 0$ bpa 0$ DOCONT 1$ PLVER 0$ DOALL -1$ DOARRAY -1
AIPS 2: $ IMSIZE 0, 0$ NITER 0$ CUTOFF 0$ DOCAL 0$ DORESID -1
>>::::>AIPS 2: 'AK485_1999DEC29_1'
>>AIPS 2: 'AK485_1999DEC29_1'
>AIPS 2: Found in Version=ABIN
AIPS 2: $ Lorant Sjouwerman, versions 1.. 2005, for NRAO
AIPS 2:
AIPS 2: $$ General catalog looks like
AIPS 2: $$ Multi-source UV data file
AIPS 2: $$ Multi-source TASAV file
AIPS 2: $$ Single-source calibrated data  - auvf
AIPS 2: $$ Single-source calibrated images- aimg
AIPS 2:
AIPS 2: $May need to redefine after a restore 0:
AIPS 2: $allzap
AIPS 2: $calcintt
AIPS 2: $guesintt
AIPS 2: $lsparm(5);tint;lsdisk
AIPS 2:
AIPS 2: procedure flatfov
AIPS 2: $LOS - compile flatn-ed radius blank-ed images out to where pbco
        rr=2.5 (=xpb)
AIPS 2:   scalar uvi,mai,fov,frq,kk,tbw,tint,xpb,xcst,,fbw,fta;xpb=2.5
AIPS 2:   clrname;indisk=lsdisk;intype'UV';chkname;uvi=1-error
AIPS 2:   if(uvi<3)then;type'ERROR: NO FILES PROCESSED !';else
AIPS 2:     if(uvi<4)then;type'WARNING: ONLY ONE UV-FILE - MAYBE CHECK?'
        ;end
AIPS 2:     egetname 1;tint=guesintt;xcst=sqrt((3/ln(2))*(xpb-1)/xpb);kk
        =1
AIPS 2:     while (kk<7)
AIPS 2:       keyvalue=0;keystrng'';keyword='CTYPE'!!char(kk);gethead
AIPS 2:       if(substr(keystrng,1,4)='FREQ')then;keyword='CRVAL'!!char(
        kk)
AIPS 2:         keystrng'';gethead;frq=keyvalue(1);kk=10;else;kk=kk+1;en
        d;end
AIPS 2:     for i=3:uvi;egetname i
AIPS 2:       task'TABGET';inext'FQ';invers 1;keyword'NUM ROW';keystrng'
        ';getthead
AIPS 2:       for j=1:keyvalue(1)
AIPS 2:         pixxy=j,4,1;tabget;tbw=keyvalue(1)
AIPS 2:         pixxy=j,4,2;tabget;tbw=max(tbw,keyvalue(1))
AIPS 2:       end;intype'MA';inseq=0;inclass'*001';chkname;mai=1-error
AIPS 2:       if(mai>1)then;type'WARNING: MULTIPLE IMAGES - CHECK?';end;
        inclass'NVAS06'
AIPS 2:       chkname;if(error<1)then;type inname!!' : FLATFOV ALREADY D
        ONE';mai=0;end
AIPS 2:       if (mai=1) then;inclass'*001'
AIPS 2:         for j=1:mai $ assume inseq starts at 1..
AIPS 2:           inseq=j;kk=1;cellsize=0;userid=0
AIPS 2:           while (kk<5)
AIPS 2:             keyvalue=0;keystrng'';keyword='CTYPE'!!char(kk);geth
        ead
AIPS 2:             keyword='CDELT'!!char(kk);clrtemp
AIPS 2:         if(substr(keystrng,1,3)='RA-')then;gethead;cellsize(1)=k
        eyvalue(1);end
AIPS 2:         if(substr(keystrng,1,4)='DEC-')then;gethead;cellsize(2)=
        keyvalue(1);end
AIPS 2:         if(substr(keystrng,1,4)='FREQ')then;keyword='CRVAL'!!cha
        r(kk)
AIPS 2:               keystrng'';gethead;fov=keyvalue(1)/1e9;fov=1350/fo
        v;end;kk=kk+1
AIPS 2:           end;cellsize(1)=-1*cellsize(1)*3600;cellsize(2)=cellsi
        ze(2)*3600
AIPS 2:           fta=min(1.75e10/(frq*abs(lsparm(5))),(min(cellsize(1),
        cellsize(2))))
AIPS 2:         fbw=xcst*3*fta*frq/tbw               $ radius field/view
         due bandwidth
AIPS 2:         fta=xcst*3*fta/(tint*7.2722e-5)      $ radius field/view
         due averaging
AIPS 2:           fov=min(fov,fbw);fov=min(fov,fta)    $ min field/view
        radius, arcsec
AIPS 2:           imsize(1)=ceil(2*fov/cellsize(1));imsize(2)=ceil(2*fov
        /cellsize(2))
AIPS 2:           task'FLATN';inclass'?CL*';chkname;nfield=1-error;nmaps
        =1;clroname
AIPS 2:           outname=inname;coordina=0;reweight=0;doweight=0;edgskp
        =15;aparm=0
AIPS 2:           pbparm=1/xpb,0;type'MINIMUM FOV :'!!char(fov)!!' ARCSE
        C RADIUS'
AIPS 2:           inclass'?CL001';gx
AIPS 2: $inclass'?CL*';allzap;recat
AIPS 2: ;inclass'FLATN'
AIPS 2:           tput;default blank;tget flatn;task'BLANK';opcode'RADI'
        ;dparm fov,0
AIPS 2:           gx;allzap;recat
AIPS 2:   end;end;end;end
AIPS 2: finish
AIPS 2:
AIPS 2: procedure nvasimage
AIPS 2: $LOS - Determine noise, do primary beam correction, include copy
        right
AIPS 2:   scalar numfle,ll,mm
AIPS 2:   clrname;indisk=lsdisk;recat;chkname;numfle=1-error;mai=0
AIPS 2:   while((mai<numfle)&(inclass<>'BLANK'))
AIPS 2:     mai=mai+1;egetname mai;end;if(inclass<>'BLANK')then;mai=numf
        le+1;end
AIPS 2:   for j=mai:numfle;default imean;docat=1;intype'SC';egetname j;c
        hkname
AIPS 2:     if(error=0)then;keyvalue=0;keystrng'';keyword='CRPIX1';gethe
        ad
AIPS 2:     ll=keyvalue(1);keyword='CRPIX2';gethead;mm=keyvalue(1);doinv
        ers=1
AIPS 2:     blc(1)=ll-29;blc(2)=mm-30;trc(1)=ll+30;trc(2)=mm+29;imstat;d
        oinv=-1
AIPS 2:     blc=0;trc=0;rms=pixstd;go;wa;if(pixstd=rms)then;keyword'ACTN
        OISE'
AIPS 2:     keytype'R';keyvalue=rms,0;puthead;end;end;end
AIPS 2:   default'PBCOR';indisk=lsdisk;inclass'BLANK';chkname;pbparm=1/x
        pb,0
AIPS 2:   for j=mai:numfle
AIPS 2:     intype'SC';egetname mai;chkname;if(error=0)then;getoname mai
AIPS 2:     outclass'RADCOR';outseq=0;inclass'BLANK';outdisk=indisk;gx;z
        ap;recat;end
AIPS 2:   end;default'CPYRT';indisk=lsdisk;recat;infile='AVLA:Arch_Cprt
AIPS 2:   for j=mai:numfle $ can only do on MA files
AIPS 2:     intype'SC';egetname mai;chkname;getoname mai;outclass'NVAS06
        ';
AIPS 2:     if(inclass='RADCOR')then;gx;inclass'RADCOR';zap;recat;end;en
        d
AIPS 2: finish
AIPS 2:
AIPS 2: procedure mkarr
AIPS 2:   string*1 sx,lx,az
AIPS 2:   string*4 nnsl
AIPS 2:   scalar aw, ae, an, ai
AIPS 2:   numbant=0;aw=0;ae=0;an=0
AIPS 2:   keyword'NUM ROW';inext'AN';invers=0;getthead;k=keyvalue(1)
AIPS 2:   for j=1:k
AIPS 2:     pixxy=j,1,0;tabget;i=1;clrtemp
AIPS 2:     while((substr(keystrng,i,i)<>':')&(i<9));i=i+1;end;clrtemp
AIPS 2:     if (substr(keystrng,i+1,i+1)<>' ')then;lsvla=substr(keystrng
        ,i+1,i+3)
AIPS 2:     else;lsvla=substr(keystrng,i+2,i+4);end;az=substr(lsvla,1,1)
AIPS 2:     if ((lsvla<>'OUT')&(lsvla<>'MPD'))then;numbant=numbant+1
AIPS 2:       if (lsvla='VPT')then;ai=75;lx='P';else;ai=value(substr(lsv
        la,2,3))
AIPS 2:         if(az='W')then;aw=max(aw,ai);else;if(az='E')then;ae=max(
        ae,ai);else
AIPS 2:             if(az='N')then;an=max(an,ai);else;if(lx<>'P')then;
AIPS 2:                 type lsvla!!' - ERROR: ANTENNA NOT KNOWN';end;en
        d;end;end
AIPS 2:   clrtemp;end;end;end
AIPS 2:   if (lx<>'P')then;ai=max(aw,ae);ai=max(ai,an);lx='D';if(ai>36)t
        hen;lx='A'
AIPS 2:       else;if(ai>18)then;lx='B';else;if(ai>9)then;lx='C';end;end
        ;end;end
AIPS 2:   ai=min(aw,ae);ai=min(ai,an);sx='A';if(ai<10)then;sx='D';else;i
        f(ai<19)then
AIPS 2:         sx='C';else;if(ai<37)then;sx='B';end;end;end;clrtemp
AIPS 2:   if(numbant<10)then
AIPS 2:     nnsl='0'!!char(numbant)!!sx!!lx;else;nnsl=char(numbant)!!sx!
        !lx;end
AIPS 2:   return nnsl
AIPS 2: finish
AIPS 2:
AIPS 2: procedure nvasname
AIPS 2: $LOS - makes the RA/Dec directory and returns the archive file n
        ame
AIPS 2:   scalar ki,ra1,ra2,dc1,dc2,rh,rm,rs,dd,dm,ds,rmsv,sbmv
AIPS 2:   scalar ifx,nif,nu,nu1,nu2,bw,nst,stv,msuv1,msuv2,msuv
AIPS 2:   string*1 pm,rmsc,stc,ik
AIPS 2:   string*2 zz
AIPS 2:   string*3 mmm
AIPS 2:   string*4 rmss,sbms,fras,frqs,nnsl
AIPS 2:   string*5 radi
AIPS 2:   string*30 dir
AIPS 2:   string*20 expnm
AIPS 2:   expnm = ''
AIPS 2:   if(expnm='')then
AIPS 2:     keyword'OBSERVER';gethead;expnm=keystrng;keyword'DATE-OBS';g
        ethead
AIPS 2:     mmm=substr(keystrng,5,6)
AIPS 2:     if(mmm='01')then;mmm='JAN';end;if(mmm='02')then;mmm='FEB';en
        d
AIPS 2:     if(mmm='03')then;mmm='MAR';end;if(mmm='04')then;mmm='APR';en
        d
AIPS 2:     if(mmm='05')then;mmm='MAY';end;if(mmm='06')then;mmm='JUN';en
        d
AIPS 2:     if(mmm='07')then;mmm='JUL';end;if(mmm='08')then;mmm='AUG';en
        d
AIPS 2:     if(mmm='09')then;mmm='SEP';end;if(mmm='10')then;mmm='OCT';en
        d
AIPS 2:     if(mmm='11')then;mmm='NOV';end;if(mmm='12')then;mmm='DEC';en
        d
AIPS 2:     expnm=expnm!!'_'!!substr(keystrng,1,4)!!mmm!!substr(keystrng
        ,7,8)!!'_1'
AIPS 2:   end;ki=1;userid=0
AIPS 2:   while (ki<9)
AIPS 2:     ik=char(ki);keyvalue=0;keystrng'';keyword='CTYPE'!!ik;gethea
        d;clrtemp
AIPS 2:     if(substr(keystrng,1,2)='RA')then
AIPS 2:       keyword='CRVAL'!!ik;gethead;ra1=keyvalue(1);ra2=keyvalue(2
        );msuv1=ra1+ra2
AIPS 2:       keyword='CDELT'!!ik;gethead;cellsize(1)=-1*keyvalue(1)*360
        0;ra1=ra1/15
AIPS 2:       ra2=ra2/15;rh=floor(ra1);ra1=(ra1-rh)*60;rm=floor(ra1);ra1
        =(ra1-rm)*60
AIPS 2:       rs=((floor((ra1+(3600*ra2))*1000)+0.005)/1000);clrtemp
AIPS 2:       if(abs(rs-floor(rs))<0.1)then;zz='.0';else;zz='';end;clrte
        mp
AIPS 2:       keyword='NAXIS'!!ik;gethead;ra1=0.5*keyvalue(1)*cellsize(1
        );end
AIPS 2:     if(substr(keystrng,1,3)='DEC')then
AIPS 2:      keyword='CRVAL'!!ik;gethead;dc1=keyvalue(1);dc2=keyvalue(2)
        ;msuv1=dc1+dc2
AIPS 2:       keyword='CDELT'!!ik;gethead;cellsize(2)=keyvalue(1)*3600
AIPS 2:       if(dc1<0)then;pm='-';dc1=-1*dc1;dc2=-1*dc2;else;pm='+';end
AIPS 2:       dd=floor(dc1);dc1=(dc1-dd)*60;dm=floor(dc1);dc1=(dc1-dm)*6
        0
AIPS 2:       ds=floor(dc1+(3600*dc2)+0.0005);clrtemp;keyword='NAXIS'!!i
        k
AIPS 2:       gethead;dc1=0.5*(keyvalue(1)-10)*cellsize(2);end $ie corre
        ct for (c)-top
AIPS 2:     if(substr(keystrng,1,2)='IF')then
AIPS 2:       keyword='NAXIS'!!ik;gethead;nif=keyvalue(1);clrtemp;end
AIPS 2:     if(substr(keystrng,1,4)='FREQ')then
AIPS 2:       keyword='CRVAL'!!ik;gethead;nu1=keyvalue(1)/1e6;nu2=keyval
        ue(2)/1e6
AIPS 2:       keyword='CDELT'!!ik;gethead;bw=keyvalue(1)/1e6;end;nu=(nu1
        +nu2);clrtemp
AIPS 2:     if(substr(keystrng,1,6)='STOKES')then
AIPS 2:       keyword='CRVAL'!!ik;gethead;stv=keyvalue(1)
AIPS 2:       keyword='NAXIS'!!ik;gethead;nst=keyvalue(1);clrtemp
AIPS 2:       if(nst=4)then;stc='F';else;if(nst=2)then;stc='H';else;if(s
        tv=-1)then
AIPS 2:             stc='R';else;if(stv=-2)then;stc='L';else;if(stv=-5)t
        hen;stc='X'
AIPS 2:               else;if(stv=-6)then;stc='Y';else;if(stv >0)then;st
        c='I';else
AIPS 2:                     stc='U';end;end;end;end;end;end;end;end
AIPS 2:     if(substr(keystrng,1,1)='')then;ki=10;else;ki=ki+1;end
AIPS 2:   end;clrtemp $ build the output file name here
AIPS 2:   if(intype='UV')then;nu1=0;nu2=0;clrtemp;inext'FQ';for ifx=1:ni
        f
AIPS 2:       pixxy=1,2,ifx;tabget;nu1=nu1+((keyvalue(1)+keyvalue(2))/1e
        6)
AIPS 2:       pixxy=1,3,ifx;tabget;nu2=nu2+((keyvalue(1)+keyvalue(2))/1e
        6);end
AIPS 2:     nu=nu+0.5*(nu1+(0.5*nu2));clrtemp;else;if(intype='MA')then;
AIPS 2:       fras=substr(char(0.5*(ra1+dc1)),1,4);nu=nu+(bw/(2*nif));el
        se
AIPS 2:       type 'ERROR: FILE TYPE UNKNOWN (HOW DID THIS HAPPEN?)';end
        ;end
AIPS 2:   frqs=substr(char((nu+5)/1000),1,4);clrtemp
AIPS 2:  if (intype='MA')then; $read conv size, rms from header, use ims
        i*cell/2 for R
AIPS 2:    radi='S';ra2=0.5*(ra1+dc1-9);if(ra2>60)then;radi='M';ra2=ra2/
        60;end $ R-fov
AIPS 2:     if(ra2>60)then;radi='D';ra2=ra2/60;end;radi=substr(char(ra2)
        ,1,4)!!radi
AIPS 2:     keyword='BMAJ';gethead;sbmv=keyvalue(1);keyword='BMIN';gethe
        ad
AIPS 2:     sbmv=1800*(sbmv+keyvalue(1));sbms=substr(char(sbmv),1,4)
AIPS 2:
AIPS 2:    keyvalue=0;keystrng'';keyword='ACTNOISE';gethead;rmsv=keyvalu
        e(1) $ RMS<1e4
AIPS 2:     if(rmsv>1)then;rmsc='J';rmss=substr(char(rmsv),1,4);else;rms
        v=rmsv*1000
AIPS 2:       if(rmsv>1)then;rmsc='M';rmss=substr(char(rmsv),1,4);else;r
        msv=rmsv*1000
AIPS 2:         if(rmsv>1)then;rmsc='U';rmss=substr(char(rmsv),1,4);else
AIPS 2:           rmsv=rmsv*1000;rmsc='N';rmss=substr(char(rmsv),1,4)
AIPS 2:     end;end;end;clrtemp;fras='';sys2com(1)=' $aimg/
AIPS 2:     outfile=frqs!!stc!!sbms!!'_'!!expnm!!'_'!!rmss!!rmsc!!fras!!
        radi
AIPS 2:   else;outfile=frqs!!stc!!nnsl!!'_'!!expnm!!'.UVF';sys2com(1)='
        $aimg/
AIPS 2:   end
AIPS 2:   msuv=(sqrt((msuv1*msuv1)+(msuv2*msuv2)))*3600
AIPS 2:   if(msuv>5)then $ not multisource UV, make a source dir
AIPS 2:     dir='';sysout'';syscom'mkdir
AIPS 2:     if(rh<10)then;sys2com(2)='J0'!!char(rh);else;sys2com(2)='J'!
        ! char(rh);end
AIPS 2:     if(rm<10)then;sys2com(3)='0'!!char(rm);else;sys2com(3)=char(
        rm);end
AIPS 2:    if(rs<10)then;sys2com(4)='0'!!char(rs)!!zz;else;sys2com(4)=ch
        ar(rs)!!zz;end
AIPS 2:     sys2com(4)=substr(sys2com(4),1,4);clrtemp
AIPS 2:    if(dd<10)then;sys2com(5)=pm!!'0'!!char(dd);else;sys2com(5)=pm
        !!char(dd);end
AIPS 2:     if(dm<10)then;sys2com(6)='0'!!char(dm);else;sys2com(6)=char(
        dm);end
AIPS 2:     if(ds<10)then;sys2com(7)='0'!!char(ds);else;sys2com(7)=char(
        ds);end
AIPS 2:     sysSETJY2: Task SETJY  (release of 31DEC06) begins
SETJY2: / Resetting flux information to zero
SETJY2: BIF =  1 EIF =  2 /Range of IFs
SETJY2: SOURCES = ''     /All sources selected
SETJY2: Appears to have ended successfully
SETJY2: auto         31DEC06 TST: Cpu=       0.0  Real=       0
2com(7)=substr(sys2com(7),1,2);clrtemp
AIPS 2:     sys2com(8) ' >& /dev/null
AIPS 2:    system;clrtemp;for i=1:7;dir=dir!!sys2com(i);end;ki=length(di
        r) $must be 23
AIPS 2:     dir=substr(dir,8,ki);if(ki<>23)then;type'OOPS: WRONG DIRECTO
        RY NAME ?';end
AIPS 2:   end;syscom'';sys2com'';clrtemp
AIPS 2:   return
AIPS 2: finish
AIPS 2:
AIPS 2: procedure nvasarch
AIPS 2: $LOS - archives the files to disk - define $EXP (and $AVLA/$ADAT
        /$AIMG/$AUVF)
AIPS 2:   string*4 nnsl
AIPS 2:   string*20 expnm
AIPS 2:   string*64 expfile
AIPS 2:   scalar nn,mai,uvi,xe,nif
AIPS 2:   clrname;indisk=lsdisk;chkname;numfle=1-error;intype'UV';chknam
        e;uvi=1-error
AIPS 2:   default fitab;indisk=lsdisk;recat;douvcomp=-1;nif=2;type expid
AIPS 2: $2IF IM, or reset in uv#1
AIPS 2:   if(numfle>3)then $ at least 1UVF, 1TSV, 1SS, 1MA
AIPS 2:     egetname 1;nnsl=mkarr;nvasname;i=1;clrtemp
AIPS 2:     while((substr(expnm,i,i)<>'_')&(i<21));i=i+1;end;dir=substr(
        expnm,1,i-1)
AIPS 2:    outfile='ADAT:'!!expnm!!'_'!!frqs!!stc!!nnsl!!'.UVF';syscom'm
        kdir
AIPS 2:     sysout'';sys2com'';sys2com(2) ' >& /dev/null
AIPS 2:    sys2com(1)' $ADAT/'!!dir;system;gx;clrtemp;egetname 2;clrtemp
        ;syscom'\mv -f
AIPS 2:     outfile='ADAT:'!!expnm!!'_'!!frqs!!stc!!nnsl!!'.TSV';gx
AIPS 2:     sys2com(1)' $ADAT/'!!expnm!!'_* $ADAT/'!!dir;system
AIPS 2:     sys2com(1)' $ADAT/'!!expnm!!'.* $ADAT/'!!dir;system
AIPS 2:     sys2com(1)' $ARUN/'!!expnm!!'.* $ADAT/'!!dir;system;j=2;mai=
        0
AIPS 2:   while(j<numfle)
AIPS 2:       j=j+1;egetname j;if(intype='MA')then;mai=j;j=numfle+1;end;
        end
AIPS 2:       uvi=mai-1;for nn=3:uvi;egetname nn;chkname; $ archive cali
        brated UV file
AIPS 2:       xe=1-error;nvasname;sysout'';sys2com'';sys2com(3) ' >& /de
        v/null
AIPS 2:       outfile='AIMG:'!!outfile;if(xe=1)then;gx;end;syscom'\mv -f
         $aimg/
AIPS 2:       sys2com(1)=substr(outfile,6,length(outfile))!!' $aimg/
AIPS 2:       sys2com(2)=dir;system;clrtemp;end;for nn=(uvi+1):numfle $
        archive MAps
AIPS 2:       egetname nn;chkname;xe=1-error;if((intype='MA')&(inclass='
        NVAS06'))then
AIPS 2:       nvasname;sysout'';sys2com'';sys2com(8) ' >& /dev/null
AIPS 2:       expfile=outfile;outfile='AIMG:'!!outfile
AIPS 2:       if(xe=1)then;gx;syscom'fits2jpeg -fits $aimg/
AIPS 2:         sys2com(1)=expfile!!' -jpeg $aimg/
AIPS 2:         sys2com(2)=expfile!!'.jpg ; convert $aimg/
AIPS 2:         sys2com(3)=expfile!!'.jpg
AIPS 2:         sys2com(4)=' -resize 150x150 -gamma 1.5 -depth 32 $aimg/
AIPS 2:         sys2com(5)=expfile!!'.JPG'!!' ; \mv -f $aimg/
AIPS 2:         sys2com(6)=expfile!!'* $aimg/
AIPS 2:   sys2com(7)=dir;system;clrtemp;end;end;end;end
AIPS 2: finish
AIPS 2:
AIPS 2: procedure nvas
AIPS 2:   typ expid;flatfov;if(uvi>3)then;nvasimage;nvasarch
AIPS 2: end
AIPS 2:
AIPS 2: finish
>AIPS 2: Found in Version=ABIN
AIPS 2: Found in Version=ABIN
AIPS 2: Got(1)   disk= 1  user=****   type=UV   19991229.C BAND.1
AIPS 2: 'AIPS WILL CHOOSE THE REFERENCE ANTENNA'
AIPS 2: Got(1)   disk= 1  user=****   type=UV   19991229.C BAND.1
AIPS 2: 'SETFC WILL DETERMINE THE CELL SIZE'
AIPS 2: '3.3333 SECOND INTEGRATIONS (GUESS)'
AIPS 2: Extension file type CL version   2 deleted
AIPS 2: Extension file type CL version   3 deleted
AIPS 2: Extension file type SN version   1 deleted
AIPS 2: Extension file type SN version   2 deleted
AIPS 2: Extension file type XX version   1 deleted
AIPS 2: 'DONE CLEANUP OF OLD TABLE EXTENTION FILES (CL,SN,FG,BP,PL,XX)'
SETJY2: Task SETJY  (release of 31DEC06) begins
SETJY2: A source model for this calibrator may be available
SETJY2: Use the verb CALDIR to see if there is one
SETJY2: A source model for this calibrator may be available
SETJY2: Use the verb CALDIR to see if there is one
SETJY2: / Flux calculated using known spectrum
SETJY2: BIF =  1 EIF =  2 /Range of IFs
SETJY2: '0542+498        ' IF =  1 FLUX = 7.9134 (Jy calcd)
SETJY2: '0542+498        ' IF =  2 FLUX = 7.9874 (Jy calcd)
SETJY2: / Using (1999.2) VLA or Reynolds (1934-638) coefficients
SETJY2: Appears to have ended successfully
SETJY2: auto         31DEC06 TST: Cpu=       0.0  Real=       0
2com(7)=substr(sys2com(7),1,2);clrtemp
AIPS 2:     sys2com(8) ' >& /dev/null
AIPS 2:    system;clrtemp;for i=1:7;dir=dir!!sys2com(i);end;ki=length(di
        r) $must be 23
AIPS 2:     dir=substr(dir,8,ki);if(ki<>23)then;type'OOPS: WRONG DIRECTO
        RY NAME ?';end
AIPS 2:   end;syscom'';sys2com'';clrtemp
AIPS 2:   return
AIPS 2: finish
AIPS 2:
AIPS 2: procedure nvasarch
AIPS 2: $LOS - archives the files to disk - define $EXP (and $AVLA/$ADAT
        /$AIMG/$AUVF)
AIPS 2:   string*4 nnsl
AIPS 2:   string*20 expnm
AIPS 2:   string*64 expfile
AIPS 2:   scalar nn,mai,uvi,xe,nif
AIPS 2:   clrname;indisk=lsdisk;chkname;numfle=1-error;intype'UV';chknam
        e;uvi=1-error
AIPS 2:   default fitab;indisk=lsdisk;recat;douvcomp=-1;nif=2;type expid
AIPS 2: $2IF IM, or reset in uv#1
AIPS 2:   if(numfle>3)then $ at least 1UVF, 1TSV, 1SS, 1MA
AIPS 2:     egetname 1;nnsl=mkarr;nvasname;i=1;clrtemp
AIPS 2:     while((substr(expnm,i,i)<>'_')&(i<21));i=i+1;end;dir=substr(
        expnm,1,i-1)
AIPS 2:    outfile='ADAT:'!!expnm!!'_'!!frqs!!stc!!nnsl!!'.UVF';syscom'm
        kdir
AIPS 2:     sysout'';sys2com'';sys2com(2) ' >& /dev/null
AIPS 2:    sys2com(1)' $ADAT/'!!dir;system;gx;clrtemp;egetname 2;clrtemp
        ;syscom'\mv -f
AIPS 2:     outfile='ADAT:'!!expnm!!'_'!!frqs!!stc!!nnsl!!'.TSV';gx
AIPS 2:     sys2com(1)' $ADAT/'!!expnm!!'_* $ADAT/'!!dir;system
AIPS 2:     sys2com(1)' $ADAT/'!!expnm!!'.* $ADAT/'!!dir;system
AIPS 2:     sys2com(1)' $ARUN/'!!expnm!!'.* $ADAT/'!!dir;system;j=2;mai=
        0
AIPS 2:   while(j<numfle)
AIPS 2:       j=j+1;egetname j;if(intype='MA')then;mai=j;j=numfle+1;end;
        end
AIPS 2:       uvi=mai-1;for nn=3:uvi;egetname nn;chkname; $ archive cali
        brated UV file
AIPS 2:       xe=1-error;nvasname;sysout'';sys2com'';sys2com(3) ' >& /de
        v/null
AIPS 2:       outfile='AIMG:'!!outfile;if(xe=1)then;gx;end;syscom'\mv -f
         $aimg/
AIPS 2:       sys2com(1)=substr(outfile,6,length(outfile))!!' $aimg/
AIPS 2:       sys2com(2)=dir;system;clrtemp;end;for nn=(uvi+1):numfle $
        archive MAps
AIPS 2:       egetname nn;chkname;xe=1-error;if((intype='MA')&(inclass='
        NVAS06'))then
AIPS 2:       nvasname;sysout'';sys2com'';sys2com(8) ' >& /dev/null
AIPS 2:       expfile=outfile;outfile='AIMG:'!!outfile
AIPS 2:       if(xe=1)then;gx;syscom'fits2jpeg -fits $aimg/
AIPS 2:         sys2com(1)=expfile!!' -jpeg $aimg/
AIPS 2:         sys2com(2)=expfile!!'.jpg ; convert $aimg/
AIPS 2:         sys2com(3)=expfile!!'.jpg
AIPS 2:         sys2com(4)=' -resize 150x150 -gamma 1.5 -depth 32 $aimg/
AIPS 2:         sys2com(5)=expfile!!'.JPG'!!' ; \mv -f $aimg/
AIPS 2:         sys2com(6)=expfile!!'* $aimg/
AIPS 2:   sys2com(7)=dir;system;clrtemp;end;end;end;end
AIPS 2: finish
AIPS 2:
AIPS 2: procedure nvas
AIPS 2:   typ expid;flatfov;if(uvi>3)then;nvasimage;nvasarch
AIPS 2: end
AIPS 2:
AIPS 2: finish
>AIPS 2: Found in Version=ABIN
AIPS 2: Found in Version=ABIN
AIPS 2: Got(1)   disk= 1  user=****   type=UV   19991229.C BAND.1
AIPS 2: 'AIPS WILL CHOOSE THE REFERENCE ANTENNA'
AIPS 2: Got(1)   disk= 1  user=****   type=UV   19991229.C BAND.1
AIPS 2: 'SETFC WILL DETERMINE THE CELL SIZE'
AIPS 2: '3.3333 SECOND INTEGRATIONS (GUESS)'
AIPS 2: Extension file type CL version   2 deleted
AIPS 2: Extension file type CL version   3 deleted
AIPS 2: Extension file type SN version   1 deleted
AIPS 2: Extension file type SN version   2 deleted
AIPS 2: Extension file type XX version   1 deleted
AIPS 2: 'DONE CLEANUP OF OLD TABLE EXTENTION FILES (CL,SN,FG,BP,PL,XX)'
AIPS 2: Resumes
2com(7)=substr(sys2com(7),1,2);clrtemp
AIPS 2:     sys2com(8) ' >& /dev/null
AIPS 2:    system;clrtemp;for i=1:7;dir=dir!!sys2com(i);end;ki=length(di
        r) $must be 23
AIPS 2:     dir=substr(dir,8,ki);if(ki<>23)then;type'OOPS: WRONG DIRECTO
        RY NAME ?';end
AIPS 2:   end;syscom'';sys2com'';clrtemp
AIPS 2:   return
AIPS 2: finish
AIPS 2:
AIPS 2: procedure nvasarch
AIPS 2: $LOS - archives the files to disk - define $EXP (and $AVLA/$ADAT
        /$AIMG/$AUVF)
AIPS 2:   string*4 nnsl
AIPS 2:   string*20 expnm
AIPS 2:   string*64 expfile
AIPS 2:   scalar nn,mai,uvi,xe,nif
AIPS 2:   clrname;indisk=lsdisk;chkname;numfle=1-error;intype'UV';chknam
        e;uvi=1-error
AIPS 2:   default fitab;indisk=lsdisk;recat;douvcomp=-1;nif=2;type expid
AIPS 2: $2IF IM, or reset in uv#1
AIPS 2:   if(numfle>3)then $ at least 1UVF, 1TSV, 1SS, 1MA
AIPS 2:     egetname 1;nnsl=mkarr;nvasname;i=1;clrtemp
AIPS 2:     while((substr(expnm,i,i)<>'_')&(i<21));i=i+1;end;dir=substr(
        expnm,1,i-1)
AIPS 2:    outfile='ADAT:'!!expnm!!'_'!!frqs!!stc!!nnsl!!'.UVF';syscom'm
        kdir
AIPS 2:     sysout'';sys2com'';sys2com(2) ' >& /dev/null
AIPS 2:    sys2com(1)' $ADAT/'!!dir;system;gx;clrtemp;egetname 2;clrtemp
        ;syscom'\mv -f
AIPS 2:     outfile='ADAT:'!!expnm!!'_'!!frqs!!stc!!nnsl!!'.TSV';gx
AIPS 2:     sys2com(1)' $ADAT/'!!expnm!!'_* $ADAT/'!!dir;system
AIPS 2:     sys2com(1)' $ADAT/'!!expnm!!'.* $ADAT/'!!dir;system
AIPS 2:     sys2com(1)' $ARUN/'!!expnm!!'.* $ADAT/'!!dir;system;j=2;mai=
        0
AIPS 2:   while(j<numfle)
AIPS 2:       j=j+1;egetname j;if(intype='MA')then;mai=j;j=numfle+1;end;
        end
AIPS 2:       uvi=mai-1;for nn=3:uvi;egetname nn;chkname; $ archive cali
        brated UV file
AIPS 2:       xe=1-error;nvasname;sysout'';sys2com'';sys2com(3) ' >& /de
        v/null
AIPS 2:       outfile='AIMG:'!!outfile;if(xe=1)then;gx;end;syscom'\mv -f
         $aimg/
AIPS 2:       sys2com(1)=substr(outfile,6,length(outfile))!!' $aimg/
AIPS 2:       sys2com(2)=dir;system;clrtemp;end;for nn=(uvi+1):numfle $
        archive MAps
AIPS 2:       egetname nn;chkname;xe=1-error;if((intype='MA')&(inclass='
        NVAS06'))then
AIPS 2:       nvasname;sysout'';sys2com'';sys2com(8) ' >& /dev/null
AIPS 2:       expfile=outfile;outfile='AIMG:'!!outfile
AIPS 2:       if(xe=1)then;gx;syscom'fits2jpeg -fits $aimg/
AIPS 2:         sys2com(1)=expfile!!' -jpeg $aimg/
AIPS 2:         sys2com(2)=expfile!!'.jpg ; convert $aimg/
AIPS 2:         sys2com(3)=expfile!!'.jpg
AIPS 2:         sys2com(4)=' -resize 150x150 -gamma 1.5 -depth 32 $aimg/
AIPS 2:         sys2com(5)=expfile!!'.JPG'!!' ; \mv -f $aimg/
AIPS 2:         sys2com(6)=expfile!!'* $aimg/
AIPS 2:   sys2com(7)=dir;system;clrtemp;end;end;end;end
AIPS 2: finish
AIPS 2:
AIPS 2: procedure nvas
AIPS 2:   typ expid;flatfov;if(uvi>3)then;nvasimage;nvasarch
AIPS 2: end
AIPS 2:
AIPS 2: finish
>AIPS 2: Found in Version=ABIN
AIPS 2: Found in Version=ABIN
AIPS 2: Got(1)   disk= 1  user=****   type=UV   19991229.C BAND.1
AIPS 2: 'AIPS WILL CHOOSE THE REFERENCE ANTENNA'
AIPS 2: Got(1)   disk= 1  user=****   type=UV   19991229.C BAND.1
AIPS 2: 'SETFC WILL DETERMINE THE CELL SIZE'
AIPS 2: '3.3333 SECOND INTEGRATIONS (GUESS)'
AIPS 2: Extension file type CL version   2 deleted
AIPS 2: Extension file type CL version   3 deleted
AIPS 2: Extension file type SN version   1 deleted
AIPS 2: Extension file type SN version   2 deleted
AIPS 2: Extension file type XX version   1 deleted
AIPS 2: 'DONE CLEANUP OF OLD TABLE EXTENTION FILES (CL,SN,FG,BP,PL,XX)'
AIPS 2: Resumes
AIPS 2: Resumes
CALIB2: Task CALIB  (release of 31DEC06) begins
CALIB2: CALIB USING 19991229     . C BAND .   1 DISK=  1 USID=****
CALIB2: L1 Solution type
CALIB2: Selecting, editing and calibrating the data
CALIB2: Doing cal transfer mode with point model for each source
CALIB2: This is not self-calibration
CALIB2: Dividing data by source flux densities
CALIB2: Determining solutions
CALIB2: Writing SN table    1
CALIB2: Found          856 good solutions
CALIB2: Average closure rms =  0.0090 +-  0.0029
CALIB2: Fraction of times having data >  2.5 rms from solution
CALIB2: 0.28125 of the times had  0 -  2 percent outside  2.5 times rms
CALIB2: 0.21875 of the times had  2 -  4 percent outside  2.5 times rms
CALIB2: 0.06250 of the times had  4 -  6 percent outside  2.5 times rms
CALIB2: 0.06250 of the times had  6 -  8 percent outside  2.5 times rms
CALIB2: 0.03125 of the times had  8 - 10 percent outside  2.5 times rms
CALIB2: 0.12500 of the times had 10 - 12 percent outside  2.5 times rms
CALIB2: 0.12500 of the times had 12 - 14 percent outside  2.5 times rms
CALIB2: 0.09375 of the times had 14 - 16 percent outside  2.5 times rms
CALIB2: Adjusting solutions to a common reference antenna
CALIB2: Appears to have ended successfully
CALIB2: auto         31DEC06 TST: Cpu=       0.3  Real=       0
2com(7)=substr(sys2com(7),1,2);clrtemp
AIPS 2:     sys2com(8) ' >& /dev/null
AIPS 2:    system;clrtemp;for i=1:7;dir=dir!!sys2com(i);end;ki=length(di
        r) $must be 23
AIPS 2:     dir=substr(dir,8,ki);if(ki<>23)then;type'OOPS: WRONG DIRECTO
        RY NAME ?';end
AIPS 2:   end;syscom'';sys2com'';clrtemp
AIPS 2:   return
AIPS 2: finish
AIPS 2:
AIPS 2: procedure nvasarch
AIPS 2: $LOS - archives the files to disk - define $EXP (and $AVLA/$ADAT
        /$AIMG/$AUVF)
AIPS 2:   string*4 nnsl
AIPS 2:   string*20 expnm
AIPS 2:   string*64 expfile
AIPS 2:   scalar nn,mai,uvi,xe,nif
AIPS 2:   clrname;indisk=lsdisk;chkname;numfle=1-error;intype'UV';chknam
        e;uvi=1-error
AIPS 2:   default fitab;indisk=lsdisk;recat;douvcomp=-1;nif=2;type expid
AIPS 2: $2IF IM, or reset in uv#1
AIPS 2:   if(numfle>3)then $ at least 1UVF, 1TSV, 1SS, 1MA
AIPS 2:     egetname 1;nnsl=mkarr;nvasname;i=1;clrtemp
AIPS 2:     while((substr(expnm,i,i)<>'_')&(i<21));i=i+1;end;dir=substr(
        expnm,1,i-1)
AIPS 2:    outfile='ADAT:'!!expnm!!'_'!!frqs!!stc!!nnsl!!'.UVF';syscom'm
        kdir
AIPS 2:     sysout'';sys2com'';sys2com(2) ' >& /dev/null
AIPS 2:    sys2com(1)' $ADAT/'!!dir;system;gx;clrtemp;egetname 2;clrtemp
        ;syscom'\mv -f
AIPS 2:     outfile='ADAT:'!!expnm!!'_'!!frqs!!stc!!nnsl!!'.TSV';gx
AIPS 2:     sys2com(1)' $ADAT/'!!expnm!!'_* $ADAT/'!!dir;system
AIPS 2:     sys2com(1)' $ADAT/'!!expnm!!'.* $ADAT/'!!dir;system
AIPS 2:     sys2com(1)' $ARUN/'!!expnm!!'.* $ADAT/'!!dir;system;j=2;mai=
        0
AIPS 2:   while(j<numfle)
AIPS 2:       j=j+1;egetname j;if(intype='MA')then;mai=j;j=numfle+1;end;
        end
AIPS 2:       uvi=mai-1;for nn=3:uvi;egetname nn;chkname; $ archive cali
        brated UV file
AIPS 2:       xe=1-error;nvasname;sysout'';sys2com'';sys2com(3) ' >& /de
        v/null
AIPS 2:       outfile='AIMG:'!!outfile;if(xe=1)then;gx;end;syscom'\mv -f
         $aimg/
AIPS 2:       sys2com(1)=substr(outfile,6,length(outfile))!!' $aimg/
AIPS 2:       sys2com(2)=dir;system;clrtemp;end;for nn=(uvi+1):numfle $
        archive MAps
AIPS 2:       egetname nn;chkname;xe=1-error;if((intype='MA')&(inclass='
        NVAS06'))then
AIPS 2:       nvasname;sysout'';sys2com'';sys2com(8) ' >& /dev/null
AIPS 2:       expfile=outfile;outfile='AIMG:'!!outfile
AIPS 2:       if(xe=1)then;gx;syscom'fits2jpeg -fits $aimg/
AIPS 2:         sys2com(1)=expfile!!' -jpeg $aimg/
AIPS 2:         sys2com(2)=expfile!!'.jpg ; convert $aimg/
AIPS 2:         sys2com(3)=expfile!!'.jpg
AIPS 2:         sys2com(4)=' -resize 150x150 -gamma 1.5 -depth 32 $aimg/
AIPS 2:         sys2com(5)=expfile!!'.JPG'!!' ; \mv -f $aimg/
AIPS 2:         sys2com(6)=expfile!!'* $aimg/
AIPS 2:   sys2com(7)=dir;system;clrtemp;end;end;end;end
AIPS 2: finish
AIPS 2:
AIPS 2: procedure nvas
AIPS 2:   typ expid;flatfov;if(uvi>3)then;nvasimage;nvasarch
AIPS 2: end
AIPS 2:
AIPS 2: finish
>AIPS 2: Found in Version=ABIN
AIPS 2: Found in Version=ABIN
AIPS 2: Got(1)   disk= 1  user=****   type=UV   19991229.C BAND.1
AIPS 2: 'AIPS WILL CHOOSE THE REFERENCE ANTENNA'
AIPS 2: Got(1)   disk= 1  user=****   type=UV   19991229.C BAND.1
AIPS 2: 'SETFC WILL DETERMINE THE CELL SIZE'
AIPS 2: '3.3333 SECOND INTEGRATIONS (GUESS)'
AIPS 2: Extension file type CL version   2 deleted
AIPS 2: Extension file type CL version   3 deleted
AIPS 2: Extension file type SN version   1 deleted
AIPS 2: Extension file type SN version   2 deleted
AIPS 2: Extension file type XX version   1 deleted
AIPS 2: 'DONE CLEANUP OF OLD TABLE EXTENTION FILES (CL,SN,FG,BP,PL,XX)'
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: '0542+498 MODEL ='     '3C147_C'
AIPS 2: SYSTEM command to be executed is:
AIPS 2: ls -1 $AIPSTARS/3C147_C.MODEL >& /dev/null
CALIB2: Task CALIB  (release of 31DEC06) begins
CALIB2: CALIB USING 19991229     . C BAND .   1 DISK=  1 USID=****
CALIB2: L1 Solution type
CALIB2: Selecting, editing and calibrating the data
CALIB2: Doing cal transfer mode with point model for each source
CALIB2: This is not self-calibration
CALIB2: Dividing data by source flux densities
CALIB2: Determining solutions
CALIB2: Deleted     54 records from SN table no.    1
CALIB2: Writing SN table    1
CALIB2: Found          216 good solutions
CALIB2: Average closure rms =  0.0042 +-  0.0003
CALIB2: Fraction of times having data >  2.5 rms from solution
CALIB2: 0.25000 of the times had 10 - 12 percent outside  2.5 times rms
CALIB2: 0.37500 of the times had 12 - 14 percent outside  2.5 times rms
CALIB2: 0.37500 of the times had 14 - 16 percent outside  2.5 times rms
CALIB2: Adjusting solutions to a common reference antenna
CALIB2: Appears to have ended successfully
CALIB2: auto         31DEC06 TST: Cpu=       0.1  Real=       1
2com(7)=substr(sys2com(7),1,2);clrtemp
AIPS 2:     sys2com(8) ' >& /dev/null
AIPS 2:    system;clrtemp;for i=1:7;dir=dir!!sys2com(i);end;ki=length(di
        r) $must be 23
AIPS 2:     dir=substr(dir,8,ki);if(ki<>23)then;type'OOPS: WRONG DIRECTO
        RY NAME ?';end
AIPS 2:   end;syscom'';sys2com'';clrtemp
AIPS 2:   return
AIPS 2: finish
AIPS 2:
AIPS 2: procedure nvasarch
AIPS 2: $LOS - archives the files to disk - define $EXP (and $AVLA/$ADAT
        /$AIMG/$AUVF)
AIPS 2:   string*4 nnsl
AIPS 2:   string*20 expnm
AIPS 2:   string*64 expfile
AIPS 2:   scalar nn,mai,uvi,xe,nif
AIPS 2:   clrname;indisk=lsdisk;chkname;numfle=1-error;intype'UV';chknam
        e;uvi=1-error
AIPS 2:   default fitab;indisk=lsdisk;recat;douvcomp=-1;nif=2;type expid
AIPS 2: $2IF IM, or reset in uv#1
AIPS 2:   if(numfle>3)then $ at least 1UVF, 1TSV, 1SS, 1MA
AIPS 2:     egetname 1;nnsl=mkarr;nvasname;i=1;clrtemp
AIPS 2:     while((substr(expnm,i,i)<>'_')&(i<21));i=i+1;end;dir=substr(
        expnm,1,i-1)
AIPS 2:    outfile='ADAT:'!!expnm!!'_'!!frqs!!stc!!nnsl!!'.UVF';syscom'm
        kdir
AIPS 2:     sysout'';sys2com'';sys2com(2) ' >& /dev/null
AIPS 2:    sys2com(1)' $ADAT/'!!dir;system;gx;clrtemp;egetname 2;clrtemp
        ;syscom'\mv -f
AIPS 2:     outfile='ADAT:'!!expnm!!'_'!!frqs!!stc!!nnsl!!'.TSV';gx
AIPS 2:     sys2com(1)' $ADAT/'!!expnm!!'_* $ADAT/'!!dir;system
AIPS 2:     sys2com(1)' $ADAT/'!!expnm!!'.* $ADAT/'!!dir;system
AIPS 2:     sys2com(1)' $ARUN/'!!expnm!!'.* $ADAT/'!!dir;system;j=2;mai=
        0
AIPS 2:   while(j<numfle)
AIPS 2:       j=j+1;egetname j;if(intype='MA')then;mai=j;j=numfle+1;end;
        end
AIPS 2:       uvi=mai-1;for nn=3:uvi;egetname nn;chkname; $ archive cali
        brated UV file
AIPS 2:       xe=1-error;nvasname;sysout'';sys2com'';sys2com(3) ' >& /de
        v/null
AIPS 2:       outfile='AIMG:'!!outfile;if(xe=1)then;gx;end;syscom'\mv -f
         $aimg/
AIPS 2:       sys2com(1)=substr(outfile,6,length(outfile))!!' $aimg/
AIPS 2:       sys2com(2)=dir;system;clrtemp;end;for nn=(uvi+1):numfle $
        archive MAps
AIPS 2:       egetname nn;chkname;xe=1-error;if((intype='MA')&(inclass='
        NVAS06'))then
AIPS 2:       nvasname;sysout'';sys2com'';sys2com(8) ' >& /dev/null
AIPS 2:       expfile=outfile;outfile='AIMG:'!!outfile
AIPS 2:       if(xe=1)then;gx;syscom'fits2jpeg -fits $aimg/
AIPS 2:         sys2com(1)=expfile!!' -jpeg $aimg/
AIPS 2:         sys2com(2)=expfile!!'.jpg ; convert $aimg/
AIPS 2:         sys2com(3)=expfile!!'.jpg
AIPS 2:         sys2com(4)=' -resize 150x150 -gamma 1.5 -depth 32 $aimg/
AIPS 2:         sys2com(5)=expfile!!'.JPG'!!' ; \mv -f $aimg/
AIPS 2:         sys2com(6)=expfile!!'* $aimg/
AIPS 2:   sys2com(7)=dir;system;clrtemp;end;end;end;end
AIPS 2: finish
AIPS 2:
AIPS 2: procedure nvas
AIPS 2:   typ expid;flatfov;if(uvi>3)then;nvasimage;nvasarch
AIPS 2: end
AIPS 2:
AIPS 2: finish
>AIPS 2: Found in Version=ABIN
AIPS 2: Found in Version=ABIN
AIPS 2: Got(1)   disk= 1  user=****   type=UV   19991229.C BAND.1
AIPS 2: 'AIPS WILL CHOOSE THE REFERENCE ANTENNA'
AIPS 2: Got(1)   disk= 1  user=****   type=UV   19991229.C BAND.1
AIPS 2: 'SETFC WILL DETERMINE THE CELL SIZE'
AIPS 2: '3.3333 SECOND INTEGRATIONS (GUESS)'
AIPS 2: Extension file type CL version   2 deleted
AIPS 2: Extension file type CL version   3 deleted
AIPS 2: Extension file type SN version   1 deleted
AIPS 2: Extension file type SN version   2 deleted
AIPS 2: Extension file type XX version   1 deleted
AIPS 2: 'DONE CLEANUP OF OLD TABLE EXTENTION FILES (CL,SN,FG,BP,PL,XX)'
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: '0542+498 MODEL ='     '3C147_C'
AIPS 2: SYSTEM command to be executed is:
AIPS 2: ls -1 $AIPSTARS/3C147_C.MODEL >& /dev/null
AIPS 2: Resumes
CLCAL2: Task CLCAL  (release of 31DEC06) begins
CLCAL2: Using interpolation mode 2PT
CLCAL2: Processing SN table    1
CLCAL2: SNMRG: Merging SN table
CLCAL2: SNMRG: Write     214 merged records from     214 input records
CLCAL2: SN2CL: Applying SN tables to CL table   1, writing CL table  2
CLCAL2: Appears to have ended successfully
CLCAL2: auto         31DEC06 TST: Cpu=       0.3  Real=       0
2com(7)=substr(sys2com(7),1,2);clrtemp
AIPS 2:     sys2com(8) ' >& /dev/null
AIPS 2:    system;clrtemp;for i=1:7;dir=dir!!sys2com(i);end;ki=length(di
        r) $must be 23
AIPS 2:     dir=substr(dir,8,ki);if(ki<>23)then;type'OOPS: WRONG DIRECTO
        RY NAME ?';end
AIPS 2:   end;syscom'';sys2com'';clrtemp
AIPS 2:   return
AIPS 2: finish
AIPS 2:
AIPS 2: procedure nvasarch
AIPS 2: $LOS - archives the files to disk - define $EXP (and $AVLA/$ADAT
        /$AIMG/$AUVF)
AIPS 2:   string*4 nnsl
AIPS 2:   string*20 expnm
AIPS 2:   string*64 expfile
AIPS 2:   scalar nn,mai,uvi,xe,nif
AIPS 2:   clrname;indisk=lsdisk;chkname;numfle=1-error;intype'UV';chknam
        e;uvi=1-error
AIPS 2:   default fitab;indisk=lsdisk;recat;douvcomp=-1;nif=2;type expid
AIPS 2: $2IF IM, or reset in uv#1
AIPS 2:   if(numfle>3)then $ at least 1UVF, 1TSV, 1SS, 1MA
AIPS 2:     egetname 1;nnsl=mkarr;nvasname;i=1;clrtemp
AIPS 2:     while((substr(expnm,i,i)<>'_')&(i<21));i=i+1;end;dir=substr(
        expnm,1,i-1)
AIPS 2:    outfile='ADAT:'!!expnm!!'_'!!frqs!!stc!!nnsl!!'.UVF';syscom'm
        kdir
AIPS 2:     sysout'';sys2com'';sys2com(2) ' >& /dev/null
AIPS 2:    sys2com(1)' $ADAT/'!!dir;system;gx;clrtemp;egetname 2;clrtemp
        ;syscom'\mv -f
AIPS 2:     outfile='ADAT:'!!expnm!!'_'!!frqs!!stc!!nnsl!!'.TSV';gx
AIPS 2:     sys2com(1)' $ADAT/'!!expnm!!'_* $ADAT/'!!dir;system
AIPS 2:     sys2com(1)' $ADAT/'!!expnm!!'.* $ADAT/'!!dir;system
AIPS 2:     sys2com(1)' $ARUN/'!!expnm!!'.* $ADAT/'!!dir;system;j=2;mai=
        0
AIPS 2:   while(j<numfle)
AIPS 2:       j=j+1;egetname j;if(intype='MA')then;mai=j;j=numfle+1;end;
        end
AIPS 2:       uvi=mai-1;for nn=3:uvi;egetname nn;chkname; $ archive cali
        brated UV file
AIPS 2:       xe=1-error;nvasname;sysout'';sys2com'';sys2com(3) ' >& /de
        v/null
AIPS 2:       outfile='AIMG:'!!outfile;if(xe=1)then;gx;end;syscom'\mv -f
         $aimg/
AIPS 2:       sys2com(1)=substr(outfile,6,length(outfile))!!' $aimg/
AIPS 2:       sys2com(2)=dir;system;clrtemp;end;for nn=(uvi+1):numfle $
        archive MAps
AIPS 2:       egetname nn;chkname;xe=1-error;if((intype='MA')&(inclass='
        NVAS06'))then
AIPS 2:       nvasname;sysout'';sys2com'';sys2com(8) ' >& /dev/null
AIPS 2:       expfile=outfile;outfile='AIMG:'!!outfile
AIPS 2:       if(xe=1)then;gx;syscom'fits2jpeg -fits $aimg/
AIPS 2:         sys2com(1)=expfile!!' -jpeg $aimg/
AIPS 2:         sys2com(2)=expfile!!'.jpg ; convert $aimg/
AIPS 2:         sys2com(3)=expfile!!'.jpg
AIPS 2:         sys2com(4)=' -resize 150x150 -gamma 1.5 -depth 32 $aimg/
AIPS 2:         sys2com(5)=expfile!!'.JPG'!!' ; \mv -f $aimg/
AIPS 2:         sys2com(6)=expfile!!'* $aimg/
AIPS 2:   sys2com(7)=dir;system;clrtemp;end;end;end;end
AIPS 2: finish
AIPS 2:
AIPS 2: procedure nvas
AIPS 2:   typ expid;flatfov;if(uvi>3)then;nvasimage;nvasarch
AIPS 2: end
AIPS 2:
AIPS 2: finish
>AIPS 2: Found in Version=ABIN
AIPS 2: Found in Version=ABIN
AIPS 2: Got(1)   disk= 1  user=****   type=UV   19991229.C BAND.1
AIPS 2: 'AIPS WILL CHOOSE THE REFERENCE ANTENNA'
AIPS 2: Got(1)   disk= 1  user=****   type=UV   19991229.C BAND.1
AIPS 2: 'SETFC WILL DETERMINE THE CELL SIZE'
AIPS 2: '3.3333 SECOND INTEGRATIONS (GUESS)'
AIPS 2: Extension file type CL version   2 deleted
AIPS 2: Extension file type CL version   3 deleted
AIPS 2: Extension file type SN version   1 deleted
AIPS 2: Extension file type SN version   2 deleted
AIPS 2: Extension file type XX version   1 deleted
AIPS 2: 'DONE CLEANUP OF OLD TABLE EXTENTION FILES (CL,SN,FG,BP,PL,XX)'
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: '0542+498 MODEL ='     '3C147_C'
AIPS 2: SYSTEM command to be executed is:
AIPS 2: ls -1 $AIPSTARS/3C147_C.MODEL >& /dev/null
AIPS 2: Resumes
AIPS 2: Resumes
CLCAL2: Task CLCAL  (release of 31DEC06) begins
CLCAL2: Using interpolation mode SELF
CLCAL2: Deleted    837 records from CL table no.    2
CLCAL2: Processing SN table    1
CLCAL2: WARNING: SN table    1 has already been applied
CLCAL2: SNMRG: Merging SN table
CLCAL2: SNMRG: Write     214 merged records from     214 input records
CLCAL2: SN2CL: Applying SN tables to CL table   1, writing CL table  2
CLCAL2: Appears to have ended successfully
CLCAL2: auto         31DEC06 TST: Cpu=       0.4  Real=       0
2com(7)=substr(sys2com(7),1,2);clrtemp
AIPS 2:     sys2com(8) ' >& /dev/null
AIPS 2:    system;clrtemp;for i=1:7;dir=dir!!sys2com(i);end;ki=length(di
        r) $must be 23
AIPS 2:     dir=substr(dir,8,ki);if(ki<>23)then;type'OOPS: WRONG DIRECTO
        RY NAME ?';end
AIPS 2:   end;syscom'';sys2com'';clrtemp
AIPS 2:   return
AIPS 2: finish
AIPS 2:
AIPS 2: procedure nvasarch
AIPS 2: $LOS - archives the files to disk - define $EXP (and $AVLA/$ADAT
        /$AIMG/$AUVF)
AIPS 2:   string*4 nnsl
AIPS 2:   string*20 expnm
AIPS 2:   string*64 expfile
AIPS 2:   scalar nn,mai,uvi,xe,nif
AIPS 2:   clrname;indisk=lsdisk;chkname;numfle=1-error;intype'UV';chknam
        e;uvi=1-error
AIPS 2:   default fitab;indisk=lsdisk;recat;douvcomp=-1;nif=2;type expid
AIPS 2: $2IF IM, or reset in uv#1
AIPS 2:   if(numfle>3)then $ at least 1UVF, 1TSV, 1SS, 1MA
AIPS 2:     egetname 1;nnsl=mkarr;nvasname;i=1;clrtemp
AIPS 2:     while((substr(expnm,i,i)<>'_')&(i<21));i=i+1;end;dir=substr(
        expnm,1,i-1)
AIPS 2:    outfile='ADAT:'!!expnm!!'_'!!frqs!!stc!!nnsl!!'.UVF';syscom'm
        kdir
AIPS 2:     sysout'';sys2com'';sys2com(2) ' >& /dev/null
AIPS 2:    sys2com(1)' $ADAT/'!!dir;system;gx;clrtemp;egetname 2;clrtemp
        ;syscom'\mv -f
AIPS 2:     outfile='ADAT:'!!expnm!!'_'!!frqs!!stc!!nnsl!!'.TSV';gx
AIPS 2:     sys2com(1)' $ADAT/'!!expnm!!'_* $ADAT/'!!dir;system
AIPS 2:     sys2com(1)' $ADAT/'!!expnm!!'.* $ADAT/'!!dir;system
AIPS 2:     sys2com(1)' $ARUN/'!!expnm!!'.* $ADAT/'!!dir;system;j=2;mai=
        0
AIPS 2:   while(j<numfle)
AIPS 2:       j=j+1;egetname j;if(intype='MA')then;mai=j;j=numfle+1;end;
        end
AIPS 2:       uvi=mai-1;for nn=3:uvi;egetname nn;chkname; $ archive cali
        brated UV file
AIPS 2:       xe=1-error;nvasname;sysout'';sys2com'';sys2com(3) ' >& /de
        v/null
AIPS 2:       outfile='AIMG:'!!outfile;if(xe=1)then;gx;end;syscom'\mv -f
         $aimg/
AIPS 2:       sys2com(1)=substr(outfile,6,length(outfile))!!' $aimg/
AIPS 2:       sys2com(2)=dir;system;clrtemp;end;for nn=(uvi+1):numfle $
        archive MAps
AIPS 2:       egetname nn;chkname;xe=1-error;if((intype='MA')&(inclass='
        NVAS06'))then
AIPS 2:       nvasname;sysout'';sys2com'';sys2com(8) ' >& /dev/null
AIPS 2:       expfile=outfile;outfile='AIMG:'!!outfile
AIPS 2:       if(xe=1)then;gx;syscom'fits2jpeg -fits $aimg/
AIPS 2:         sys2com(1)=expfile!!' -jpeg $aimg/
AIPS 2:         sys2com(2)=expfile!!'.jpg ; convert $aimg/
AIPS 2:         sys2com(3)=expfile!!'.jpg
AIPS 2:         sys2com(4)=' -resize 150x150 -gamma 1.5 -depth 32 $aimg/
AIPS 2:         sys2com(5)=expfile!!'.JPG'!!' ; \mv -f $aimg/
AIPS 2:         sys2com(6)=expfile!!'* $aimg/
AIPS 2:   sys2com(7)=dir;system;clrtemp;end;end;end;end
AIPS 2: finish
AIPS 2:
AIPS 2: procedure nvas
AIPS 2:   typ expid;flatfov;if(uvi>3)then;nvasimage;nvasarch
AIPS 2: end
AIPS 2:
AIPS 2: finish
>AIPS 2: Found in Version=ABIN
AIPS 2: Found in Version=ABIN
AIPS 2: Got(1)   disk= 1  user=****   type=UV   19991229.C BAND.1
AIPS 2: 'AIPS WILL CHOOSE THE REFERENCE ANTENNA'
AIPS 2: Got(1)   disk= 1  user=****   type=UV   19991229.C BAND.1
AIPS 2: 'SETFC WILL DETERMINE THE CELL SIZE'
AIPS 2: '3.3333 SECOND INTEGRATIONS (GUESS)'
AIPS 2: Extension file type CL version   2 deleted
AIPS 2: Extension file type CL version   3 deleted
AIPS 2: Extension file type SN version   1 deleted
AIPS 2: Extension file type SN version   2 deleted
AIPS 2: Extension file type XX version   1 deleted
AIPS 2: 'DONE CLEANUP OF OLD TABLE EXTENTION FILES (CL,SN,FG,BP,PL,XX)'
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: '0542+498 MODEL ='     '3C147_C'
AIPS 2: SYSTEM command to be executed is:
AIPS 2: ls -1 $AIPSTARS/3C147_C.MODEL >& /dev/null
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: Resumes
CALIB2: Task CALIB  (release of 31DEC06) begins
CALIB2: CALIB USING 19991229     . C BAND .   1 DISK=  1 USID=****
CALIB2: L1 Solution type
CALIB2: Selecting, editing and calibrating the data
CALIB2: Doing cal transfer mode with point model for each source
CALIB2: This is not self-calibration
CALIB2: Dividing data by source flux densities
CALIB2: Determining solutions
CALIB2: Writing SN table    2
CALIB2: RPOL, IF= 1 The average gain over these antennas is  2.865E+00
CALIB2: RPOL, IF= 2 The average gain over these antennas is  2.890E+00
CALIB2: LPOL, IF= 1 The average gain over these antennas is  2.868E+00
CALIB2: LPOL, IF= 2 The average gain over these antennas is  2.908E+00
CALIB2: Found          748 good solutions
CALIB2: Average closure rms =  0.0019 +-  0.0003
CALIB2: Fraction of times having data >  2.5 rms from solution
CALIB2: 0.60714 of the times had  0 -  2 percent outside  2.5 times rms
CALIB2: 0.07143 of the times had  2 -  4 percent outside  2.5 times rms
CALIB2: 0.03571 of the times had  4 -  6 percent outside  2.5 times rms
CALIB2: 0.10714 of the times had  6 -  8 percent outside  2.5 times rms
CALIB2: 0.03571 of the times had  8 - 10 percent outside  2.5 times rms
CALIB2: 0.07143 of the times had 10 - 12 percent outside  2.5 times rms
CALIB2: 0.07143 of the times had 12 - 14 percent outside  2.5 times rms
CALIB2: Adjusting solutions to a common reference antenna
CALIB2: Appears to have ended successfully
CALIB2: auto         31DEC06 TST: Cpu=       0.7  Real=       1
2com(7)=substr(sys2com(7),1,2);clrtemp
AIPS 2:     sys2com(8) ' >& /dev/null
AIPS 2:    system;clrtemp;for i=1:7;dir=dir!!sys2com(i);end;ki=length(di
        r) $must be 23
AIPS 2:     dir=substr(dir,8,ki);if(ki<>23)then;type'OOPS: WRONG DIRECTO
        RY NAME ?';end
AIPS 2:   end;syscom'';sys2com'';clrtemp
AIPS 2:   return
AIPS 2: finish
AIPS 2:
AIPS 2: procedure nvasarch
AIPS 2: $LOS - archives the files to disk - define $EXP (and $AVLA/$ADAT
        /$AIMG/$AUVF)
AIPS 2:   string*4 nnsl
AIPS 2:   string*20 expnm
AIPS 2:   string*64 expfile
AIPS 2:   scalar nn,mai,uvi,xe,nif
AIPS 2:   clrname;indisk=lsdisk;chkname;numfle=1-error;intype'UV';chknam
        e;uvi=1-error
AIPS 2:   default fitab;indisk=lsdisk;recat;douvcomp=-1;nif=2;type expid
AIPS 2: $2IF IM, or reset in uv#1
AIPS 2:   if(numfle>3)then $ at least 1UVF, 1TSV, 1SS, 1MA
AIPS 2:     egetname 1;nnsl=mkarr;nvasname;i=1;clrtemp
AIPS 2:     while((substr(expnm,i,i)<>'_')&(i<21));i=i+1;end;dir=substr(
        expnm,1,i-1)
AIPS 2:    outfile='ADAT:'!!expnm!!'_'!!frqs!!stc!!nnsl!!'.UVF';syscom'm
        kdir
AIPS 2:     sysout'';sys2com'';sys2com(2) ' >& /dev/null
AIPS 2:    sys2com(1)' $ADAT/'!!dir;system;gx;clrtemp;egetname 2;clrtemp
        ;syscom'\mv -f
AIPS 2:     outfile='ADAT:'!!expnm!!'_'!!frqs!!stc!!nnsl!!'.TSV';gx
AIPS 2:     sys2com(1)' $ADAT/'!!expnm!!'_* $ADAT/'!!dir;system
AIPS 2:     sys2com(1)' $ADAT/'!!expnm!!'.* $ADAT/'!!dir;system
AIPS 2:     sys2com(1)' $ARUN/'!!expnm!!'.* $ADAT/'!!dir;system;j=2;mai=
        0
AIPS 2:   while(j<numfle)
AIPS 2:       j=j+1;egetname j;if(intype='MA')then;mai=j;j=numfle+1;end;
        end
AIPS 2:       uvi=mai-1;for nn=3:uvi;egetname nn;chkname; $ archive cali
        brated UV file
AIPS 2:       xe=1-error;nvasname;sysout'';sys2com'';sys2com(3) ' >& /de
        v/null
AIPS 2:       outfile='AIMG:'!!outfile;if(xe=1)then;gx;end;syscom'\mv -f
         $aimg/
AIPS 2:       sys2com(1)=substr(outfile,6,length(outfile))!!' $aimg/
AIPS 2:       sys2com(2)=dir;system;clrtemp;end;for nn=(uvi+1):numfle $
        archive MAps
AIPS 2:       egetname nn;chkname;xe=1-error;if((intype='MA')&(inclass='
        NVAS06'))then
AIPS 2:       nvasname;sysout'';sys2com'';sys2com(8) ' >& /dev/null
AIPS 2:       expfile=outfile;outfile='AIMG:'!!outfile
AIPS 2:       if(xe=1)then;gx;syscom'fits2jpeg -fits $aimg/
AIPS 2:         sys2com(1)=expfile!!' -jpeg $aimg/
AIPS 2:         sys2com(2)=expfile!!'.jpg ; convert $aimg/
AIPS 2:         sys2com(3)=expfile!!'.jpg
AIPS 2:         sys2com(4)=' -resize 150x150 -gamma 1.5 -depth 32 $aimg/
AIPS 2:         sys2com(5)=expfile!!'.JPG'!!' ; \mv -f $aimg/
AIPS 2:         sys2com(6)=expfile!!'* $aimg/
AIPS 2:   sys2com(7)=dir;system;clrtemp;end;end;end;end
AIPS 2: finish
AIPS 2:
AIPS 2: procedure nvas
AIPS 2:   typ expid;flatfov;if(uvi>3)then;nvasimage;nvasarch
AIPS 2: end
AIPS 2:
AIPS 2: finish
>AIPS 2: Found in Version=ABIN
AIPS 2: Found in Version=ABIN
AIPS 2: Got(1)   disk= 1  user=****   type=UV   19991229.C BAND.1
AIPS 2: 'AIPS WILL CHOOSE THE REFERENCE ANTENNA'
AIPS 2: Got(1)   disk= 1  user=****   type=UV   19991229.C BAND.1
AIPS 2: 'SETFC WILL DETERMINE THE CELL SIZE'
AIPS 2: '3.3333 SECOND INTEGRATIONS (GUESS)'
AIPS 2: Extension file type CL version   2 deleted
AIPS 2: Extension file type CL version   3 deleted
AIPS 2: Extension file type SN version   1 deleted
AIPS 2: Extension file type SN version   2 deleted
AIPS 2: Extension file type XX version   1 deleted
AIPS 2: 'DONE CLEANUP OF OLD TABLE EXTENTION FILES (CL,SN,FG,BP,PL,XX)'
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: '0542+498 MODEL ='     '3C147_C'
AIPS 2: SYSTEM command to be executed is:
AIPS 2: ls -1 $AIPSTARS/3C147_C.MODEL >& /dev/null
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: '0542+498 MODEL ='     '3C147_C'
AIPS 2: SYSTEM command to be executed is:
AIPS 2: ls -1 $AIPSTARS/3C147_C.MODEL >& /dev/null
CALIB2: Task CALIB  (release of 31DEC06) begins
CALIB2: CALIB USING 19991229     . C BAND .   1 DISK=  1 USID=****
CALIB2: L1 Solution type
CALIB2: Selecting, editing and calibrating the data
CALIB2: Doing cal transfer mode with point model for each source
CALIB2: This is not self-calibration
CALIB2: Dividing data by source flux densities
CALIB2: Determining solutions
CALIB2: Deleted     27 records from SN table no.    2
CALIB2: Writing SN table    2
CALIB2: RPOL, IF= 1 The average gain over these antennas is  3.208E+00
CALIB2: RPOL, IF= 2 The average gain over these antennas is  3.238E+00
CALIB2: LPOL, IF= 1 The average gain over these antennas is  3.211E+00
CALIB2: LPOL, IF= 2 The average gain over these antennas is  3.255E+00
CALIB2: Found          108 good solutions
CALIB2: Average closure rms =  0.0012 +-  0.0001
CALIB2: Fraction of times having data >  2.5 rms from solution
CALIB2: 0.50000 of the times had 10 - 12 percent outside  2.5 times rms
CALIB2: 0.50000 of the times had 12 - 14 percent outside  2.5 times rms
CALIB2: Adjusting solutions to a common reference antenna
CALIB2: Appears to have ended successfully
CALIB2: auto         31DEC06 TST: Cpu=       0.2  Real=       0
GETJY2: Task GETJY  (release of 31DEC06) begins
GETJY2:    Source:Qual      CALCODE IF  Flux (Jy)
GETJY2: 1658+476        :  0   A     1    1.31832 +/-   0.01411
GETJY2:                              2    1.31875 +/-   0.01397
GETJY2: Appears to have ended successfully
GETJY2: auto         31DEC06 TST: Cpu=       0.0  Real=       0
2com(7)=substr(sys2com(7),1,2);clrtemp
AIPS 2:     sys2com(8) ' >& /dev/null
AIPS 2:    system;clrtemp;for i=1:7;dir=dir!!sys2com(i);end;ki=length(di
        r) $must be 23
AIPS 2:     dir=substr(dir,8,ki);if(ki<>23)then;type'OOPS: WRONG DIRECTO
        RY NAME ?';end
AIPS 2:   end;syscom'';sys2com'';clrtemp
AIPS 2:   return
AIPS 2: finish
AIPS 2:
AIPS 2: procedure nvasarch
AIPS 2: $LOS - archives the files to disk - define $EXP (and $AVLA/$ADAT
        /$AIMG/$AUVF)
AIPS 2:   string*4 nnsl
AIPS 2:   string*20 expnm
AIPS 2:   string*64 expfile
AIPS 2:   scalar nn,mai,uvi,xe,nif
AIPS 2:   clrname;indisk=lsdisk;chkname;numfle=1-error;intype'UV';chknam
        e;uvi=1-error
AIPS 2:   default fitab;indisk=lsdisk;recat;douvcomp=-1;nif=2;type expid
AIPS 2: $2IF IM, or reset in uv#1
AIPS 2:   if(numfle>3)then $ at least 1UVF, 1TSV, 1SS, 1MA
AIPS 2:     egetname 1;nnsl=mkarr;nvasname;i=1;clrtemp
AIPS 2:     while((substr(expnm,i,i)<>'_')&(i<21));i=i+1;end;dir=substr(
        expnm,1,i-1)
AIPS 2:    outfile='ADAT:'!!expnm!!'_'!!frqs!!stc!!nnsl!!'.UVF';syscom'm
        kdir
AIPS 2:     sysout'';sys2com'';sys2com(2) ' >& /dev/null
AIPS 2:    sys2com(1)' $ADAT/'!!dir;system;gx;clrtemp;egetname 2;clrtemp
        ;syscom'\mv -f
AIPS 2:     outfile='ADAT:'!!expnm!!'_'!!frqs!!stc!!nnsl!!'.TSV';gx
AIPS 2:     sys2com(1)' $ADAT/'!!expnm!!'_* $ADAT/'!!dir;system
AIPS 2:     sys2com(1)' $ADAT/'!!expnm!!'.* $ADAT/'!!dir;system
AIPS 2:     sys2com(1)' $ARUN/'!!expnm!!'.* $ADAT/'!!dir;system;j=2;mai=
        0
AIPS 2:   while(j<numfle)
AIPS 2:       j=j+1;egetname j;if(intype='MA')then;mai=j;j=numfle+1;end;
        end
AIPS 2:       uvi=mai-1;for nn=3:uvi;egetname nn;chkname; $ archive cali
        brated UV file
AIPS 2:       xe=1-error;nvasname;sysout'';sys2com'';sys2com(3) ' >& /de
        v/null
AIPS 2:       outfile='AIMG:'!!outfile;if(xe=1)then;gx;end;syscom'\mv -f
         $aimg/
AIPS 2:       sys2com(1)=substr(outfile,6,length(outfile))!!' $aimg/
AIPS 2:       sys2com(2)=dir;system;clrtemp;end;for nn=(uvi+1):numfle $
        archive MAps
AIPS 2:       egetname nn;chkname;xe=1-error;if((intype='MA')&(inclass='
        NVAS06'))then
AIPS 2:       nvasname;sysout'';sys2com'';sys2com(8) ' >& /dev/null
AIPS 2:       expfile=outfile;outfile='AIMG:'!!outfile
AIPS 2:       if(xe=1)then;gx;syscom'fits2jpeg -fits $aimg/
AIPS 2:         sys2com(1)=expfile!!' -jpeg $aimg/
AIPS 2:         sys2com(2)=expfile!!'.jpg ; convert $aimg/
AIPS 2:         sys2com(3)=expfile!!'.jpg
AIPS 2:         sys2com(4)=' -resize 150x150 -gamma 1.5 -depth 32 $aimg/
AIPS 2:         sys2com(5)=expfile!!'.JPG'!!' ; \mv -f $aimg/
AIPS 2:         sys2com(6)=expfile!!'* $aimg/
AIPS 2:   sys2com(7)=dir;system;clrtemp;end;end;end;end
AIPS 2: finish
AIPS 2:
AIPS 2: procedure nvas
AIPS 2:   typ expid;flatfov;if(uvi>3)then;nvasimage;nvasarch
AIPS 2: end
AIPS 2:
AIPS 2: finish
>AIPS 2: Found in Version=ABIN
AIPS 2: Found in Version=ABIN
AIPS 2: Got(1)   disk= 1  user=****   type=UV   19991229.C BAND.1
AIPS 2: 'AIPS WILL CHOOSE THE REFERENCE ANTENNA'
AIPS 2: Got(1)   disk= 1  user=****   type=UV   19991229.C BAND.1
AIPS 2: 'SETFC WILL DETERMINE THE CELL SIZE'
AIPS 2: '3.3333 SECOND INTEGRATIONS (GUESS)'
AIPS 2: Extension file type CL version   2 deleted
AIPS 2: Extension file type CL version   3 deleted
AIPS 2: Extension file type SN version   1 deleted
AIPS 2: Extension file type SN version   2 deleted
AIPS 2: Extension file type XX version   1 deleted
AIPS 2: 'DONE CLEANUP OF OLD TABLE EXTENTION FILES (CL,SN,FG,BP,PL,XX)'
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: '0542+498 MODEL ='     '3C147_C'
AIPS 2: SYSTEM command to be executed is:
AIPS 2: ls -1 $AIPSTARS/3C147_C.MODEL >& /dev/null
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: '0542+498 MODEL ='     '3C147_C'
AIPS 2: SYSTEM command to be executed is:
AIPS 2: ls -1 $AIPSTARS/3C147_C.MODEL >& /dev/null
AIPS 2: Resumes
2com(7)=substr(sys2com(7),1,2);clrtemp
AIPS 2:     sys2com(8) ' >& /dev/null
AIPS 2:    system;clrtemp;for i=1:7;dir=dir!!sys2com(i);end;ki=length(di
        r) $must be 23
AIPS 2:     dir=substr(dir,8,ki);if(ki<>23)then;type'OOPS: WRONG DIRECTO
        RY NAME ?';end
AIPS 2:   end;syscom'';sys2com'';clrtemp
AIPS 2:   return
AIPS 2: finish
AIPS 2:
AIPS 2: procedure nvasarch
AIPS 2: $LOS - archives the files to disk - define $EXP (and $AVLA/$ADAT
        /$AIMG/$AUVF)
AIPS 2:   string*4 nnsl
AIPS 2:   string*20 expnm
AIPS 2:   string*64 expfile
AIPS 2:   scalar nn,mai,uvi,xe,nif
AIPS 2:   clrname;indisk=lsdisk;chkname;numfle=1-error;intype'UV';chknam
        e;uvi=1-error
AIPS 2:   default fitab;indisk=lsdisk;recat;douvcomp=-1;nif=2;type expid
AIPS 2: $2IF IM, or reset in uv#1
AIPS 2:   if(numfle>3)then $ at least 1UVF, 1TSV, 1SS, 1MA
AIPS 2:     egetname 1;nnsl=mkarr;nvasname;i=1;clrtemp
AIPS 2:     while((substr(expnm,i,i)<>'_')&(i<21));i=i+1;end;dir=substr(
        expnm,1,i-1)
AIPS 2:    outfile='ADAT:'!!expnm!!'_'!!frqs!!stc!!nnsl!!'.UVF';syscom'm
        kdir
AIPS 2:     sysout'';sys2com'';sys2com(2) ' >& /dev/null
AIPS 2:    sys2com(1)' $ADAT/'!!dir;system;gx;clrtemp;egetname 2;clrtemp
        ;syscom'\mv -f
AIPS 2:     outfile='ADAT:'!!expnm!!'_'!!frqs!!stc!!nnsl!!'.TSV';gx
AIPS 2:     sys2com(1)' $ADAT/'!!expnm!!'_* $ADAT/'!!dir;system
AIPS 2:     sys2com(1)' $ADAT/'!!expnm!!'.* $ADAT/'!!dir;system
AIPS 2:     sys2com(1)' $ARUN/'!!expnm!!'.* $ADAT/'!!dir;system;j=2;mai=
        0
AIPS 2:   while(j<numfle)
AIPS 2:       j=j+1;egetname j;if(intype='MA')then;mai=j;j=numfle+1;end;
        end
AIPS 2:       uvi=mai-1;for nn=3:uvi;egetname nn;chkname; $ archive cali
        brated UV file
AIPS 2:       xe=1-error;nvasname;sysout'';sys2com'';sys2com(3) ' >& /de
        v/null
AIPS 2:       outfile='AIMG:'!!outfile;if(xe=1)then;gx;end;syscom'\mv -f
         $aimg/
AIPS 2:       sys2com(1)=substr(outfile,6,length(outfile))!!' $aimg/
AIPS 2:       sys2com(2)=dir;system;clrtemp;end;for nn=(uvi+1):numfle $
        archive MAps
AIPS 2:       egetname nn;chkname;xe=1-error;if((intype='MA')&(inclass='
        NVAS06'))then
AIPS 2:       nvasname;sysout'';sys2com'';sys2com(8) ' >& /dev/null
AIPS 2:       expfile=outfile;outfile='AIMG:'!!outfile
AIPS 2:       if(xe=1)then;gx;syscom'fits2jpeg -fits $aimg/
AIPS 2:         sys2com(1)=expfile!!' -jpeg $aimg/
AIPS 2:         sys2com(2)=expfile!!'.jpg ; convert $aimg/
AIPS 2:         sys2com(3)=expfile!!'.jpg
AIPS 2:         sys2com(4)=' -resize 150x150 -gamma 1.5 -depth 32 $aimg/
AIPS 2:         sys2com(5)=expfile!!'.JPG'!!' ; \mv -f $aimg/
AIPS 2:         sys2com(6)=expfile!!'* $aimg/
AIPS 2:   sys2com(7)=dir;system;clrtemp;end;end;end;end
AIPS 2: finish
AIPS 2:
AIPS 2: procedure nvas
AIPS 2:   typ expid;flatfov;if(uvi>3)then;nvasimage;nvasarch
AIPS 2: end
AIPS 2:
AIPS 2: finish
>AIPS 2: Found in Version=ABIN
AIPS 2: Found in Version=ABIN
AIPS 2: Got(1)   disk= 1  user=****   type=UV   19991229.C BAND.1
AIPS 2: 'AIPS WILL CHOOSE THE REFERENCE ANTENNA'
AIPS 2: Got(1)   disk= 1  user=****   type=UV   19991229.C BAND.1
AIPS 2: 'SETFC WILL DETERMINE THE CELL SIZE'
AIPS 2: '3.3333 SECOND INTEGRATIONS (GUESS)'
AIPS 2: Extension file type CL version   2 deleted
AIPS 2: Extension file type CL version   3 deleted
AIPS 2: Extension file type SN version   1 deleted
AIPS 2: Extension file type SN version   2 deleted
AIPS 2: Extension file type XX version   1 deleted
AIPS 2: 'DONE CLEANUP OF OLD TABLE EXTENTION FILES (CL,SN,FG,BP,PL,XX)'
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: '0542+498 MODEL ='     '3C147_C'
AIPS 2: SYSTEM command to be executed is:
AIPS 2: ls -1 $AIPSTARS/3C147_C.MODEL >& /dev/null
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: '0542+498 MODEL ='     '3C147_C'
AIPS 2: SYSTEM command to be executed is:
AIPS 2: ls -1 $AIPSTARS/3C147_C.MODEL >& /dev/null
AIPS 2: Resumes
AIPS 2: Resumes
CLCAL2: Task CLCAL  (release of 31DEC06) begins
CLCAL2: Using interpolation mode 2PT
CLCAL2: Processing SN table    2
CLCAL2: SNMRG: Merging SN table
CLCAL2: SNMRG: Write     187 merged records from     187 input records
CLCAL2: SN2CL: Applying SN tables to CL table   2, writing CL table  3
CLCAL2: Appears to have ended successfully
CLCAL2: auto         31DEC06 TST: Cpu=       0.3  Real=       0
2com(7)=substr(sys2com(7),1,2);clrtemp
AIPS 2:     sys2com(8) ' >& /dev/null
AIPS 2:    system;clrtemp;for i=1:7;dir=dir!!sys2com(i);end;ki=length(di
        r) $must be 23
AIPS 2:     dir=substr(dir,8,ki);if(ki<>23)then;type'OOPS: WRONG DIRECTO
        RY NAME ?';end
AIPS 2:   end;syscom'';sys2com'';clrtemp
AIPS 2:   return
AIPS 2: finish
AIPS 2:
AIPS 2: procedure nvasarch
AIPS 2: $LOS - archives the files to disk - define $EXP (and $AVLA/$ADAT
        /$AIMG/$AUVF)
AIPS 2:   string*4 nnsl
AIPS 2:   string*20 expnm
AIPS 2:   string*64 expfile
AIPS 2:   scalar nn,mai,uvi,xe,nif
AIPS 2:   clrname;indisk=lsdisk;chkname;numfle=1-error;intype'UV';chknam
        e;uvi=1-error
AIPS 2:   default fitab;indisk=lsdisk;recat;douvcomp=-1;nif=2;type expid
AIPS 2: $2IF IM, or reset in uv#1
AIPS 2:   if(numfle>3)then $ at least 1UVF, 1TSV, 1SS, 1MA
AIPS 2:     egetname 1;nnsl=mkarr;nvasname;i=1;clrtemp
AIPS 2:     while((substr(expnm,i,i)<>'_')&(i<21));i=i+1;end;dir=substr(
        expnm,1,i-1)
AIPS 2:    outfile='ADAT:'!!expnm!!'_'!!frqs!!stc!!nnsl!!'.UVF';syscom'm
        kdir
AIPS 2:     sysout'';sys2com'';sys2com(2) ' >& /dev/null
AIPS 2:    sys2com(1)' $ADAT/'!!dir;system;gx;clrtemp;egetname 2;clrtemp
        ;syscom'\mv -f
AIPS 2:     outfile='ADAT:'!!expnm!!'_'!!frqs!!stc!!nnsl!!'.TSV';gx
AIPS 2:     sys2com(1)' $ADAT/'!!expnm!!'_* $ADAT/'!!dir;system
AIPS 2:     sys2com(1)' $ADAT/'!!expnm!!'.* $ADAT/'!!dir;system
AIPS 2:     sys2com(1)' $ARUN/'!!expnm!!'.* $ADAT/'!!dir;system;j=2;mai=
        0
AIPS 2:   while(j<numfle)
AIPS 2:       j=j+1;egetname j;if(intype='MA')then;mai=j;j=numfle+1;end;
        end
AIPS 2:       uvi=mai-1;for nn=3:uvi;egetname nn;chkname; $ archive cali
        brated UV file
AIPS 2:       xe=1-error;nvasname;sysout'';sys2com'';sys2com(3) ' >& /de
        v/null
AIPS 2:       outfile='AIMG:'!!outfile;if(xe=1)then;gx;end;syscom'\mv -f
         $aimg/
AIPS 2:       sys2com(1)=substr(outfile,6,length(outfile))!!' $aimg/
AIPS 2:       sys2com(2)=dir;system;clrtemp;end;for nn=(uvi+1):numfle $
        archive MAps
AIPS 2:       egetname nn;chkname;xe=1-error;if((intype='MA')&(inclass='
        NVAS06'))then
AIPS 2:       nvasname;sysout'';sys2com'';sys2com(8) ' >& /dev/null
AIPS 2:       expfile=outfile;outfile='AIMG:'!!outfile
AIPS 2:       if(xe=1)then;gx;syscom'fits2jpeg -fits $aimg/
AIPS 2:         sys2com(1)=expfile!!' -jpeg $aimg/
AIPS 2:         sys2com(2)=expfile!!'.jpg ; convert $aimg/
AIPS 2:         sys2com(3)=expfile!!'.jpg
AIPS 2:         sys2com(4)=' -resize 150x150 -gamma 1.5 -depth 32 $aimg/
AIPS 2:         sys2com(5)=expfile!!'.JPG'!!' ; \mv -f $aimg/
AIPS 2:         sys2com(6)=expfile!!'* $aimg/
AIPS 2:   sys2com(7)=dir;system;clrtemp;end;end;end;end
AIPS 2: finish
AIPS 2:
AIPS 2: procedure nvas
AIPS 2:   typ expid;flatfov;if(uvi>3)then;nvasimage;nvasarch
AIPS 2: end
AIPS 2:
AIPS 2: finish
>AIPS 2: Found in Version=ABIN
AIPS 2: Found in Version=ABIN
AIPS 2: Got(1)   disk= 1  user=****   type=UV   19991229.C BAND.1
AIPS 2: 'AIPS WILL CHOOSE THE REFERENCE ANTENNA'
AIPS 2: Got(1)   disk= 1  user=****   type=UV   19991229.C BAND.1
AIPS 2: 'SETFC WILL DETERMINE THE CELL SIZE'
AIPS 2: '3.3333 SECOND INTEGRATIONS (GUESS)'
AIPS 2: Extension file type CL version   2 deleted
AIPS 2: Extension file type CL version   3 deleted
AIPS 2: Extension file type SN version   1 deleted
AIPS 2: Extension file type SN version   2 deleted
AIPS 2: Extension file type XX version   1 deleted
AIPS 2: 'DONE CLEANUP OF OLD TABLE EXTENTION FILES (CL,SN,FG,BP,PL,XX)'
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: '0542+498 MODEL ='     '3C147_C'
AIPS 2: SYSTEM command to be executed is:
AIPS 2: ls -1 $AIPSTARS/3C147_C.MODEL >& /dev/null
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: '0542+498 MODEL ='     '3C147_C'
AIPS 2: SYSTEM command to be executed is:
AIPS 2: ls -1 $AIPSTARS/3C147_C.MODEL >& /dev/null
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: Resumes
CLCAL2: Task CLCAL  (release of 31DEC06) begins
CLCAL2: Using interpolation mode SELF
CLCAL2: Deleted    837 records from CL table no.    3
CLCAL2: Processing SN table    2
CLCAL2: WARNING: SN table    2 has already been applied
CLCAL2: SNMRG: Merging SN table
CLCAL2: SNMRG: Write     187 merged records from     187 input records
CLCAL2: SN2CL: Applying SN tables to CL table   2, writing CL table  3
CLCAL2: Appears to have ended successfully
CLCAL2: auto         31DEC06 TST: Cpu=       0.4  Real=       0
2com(7)=substr(sys2com(7),1,2);clrtemp
AIPS 2:     sys2com(8) ' >& /dev/null
AIPS 2:    system;clrtemp;for i=1:7;dir=dir!!sys2com(i);end;ki=length(di
        r) $must be 23
AIPS 2:     dir=substr(dir,8,ki);if(ki<>23)then;type'OOPS: WRONG DIRECTO
        RY NAME ?';end
AIPS 2:   end;syscom'';sys2com'';clrtemp
AIPS 2:   return
AIPS 2: finish
AIPS 2:
AIPS 2: procedure nvasarch
AIPS 2: $LOS - archives the files to disk - define $EXP (and $AVLA/$ADAT
        /$AIMG/$AUVF)
AIPS 2:   string*4 nnsl
AIPS 2:   string*20 expnm
AIPS 2:   string*64 expfile
AIPS 2:   scalar nn,mai,uvi,xe,nif
AIPS 2:   clrname;indisk=lsdisk;chkname;numfle=1-error;intype'UV';chknam
        e;uvi=1-error
AIPS 2:   default fitab;indisk=lsdisk;recat;douvcomp=-1;nif=2;type expid
AIPS 2: $2IF IM, or reset in uv#1
AIPS 2:   if(numfle>3)then $ at least 1UVF, 1TSV, 1SS, 1MA
AIPS 2:     egetname 1;nnsl=mkarr;nvasname;i=1;clrtemp
AIPS 2:     while((substr(expnm,i,i)<>'_')&(i<21));i=i+1;end;dir=substr(
        expnm,1,i-1)
AIPS 2:    outfile='ADAT:'!!expnm!!'_'!!frqs!!stc!!nnsl!!'.UVF';syscom'm
        kdir
AIPS 2:     sysout'';sys2com'';sys2com(2) ' >& /dev/null
AIPS 2:    sys2com(1)' $ADAT/'!!dir;system;gx;clrtemp;egetname 2;clrtemp
        ;syscom'\mv -f
AIPS 2:     outfile='ADAT:'!!expnm!!'_'!!frqs!!stc!!nnsl!!'.TSV';gx
AIPS 2:     sys2com(1)' $ADAT/'!!expnm!!'_* $ADAT/'!!dir;system
AIPS 2:     sys2com(1)' $ADAT/'!!expnm!!'.* $ADAT/'!!dir;system
AIPS 2:     sys2com(1)' $ARUN/'!!expnm!!'.* $ADAT/'!!dir;system;j=2;mai=
        0
AIPS 2:   while(j<numfle)
AIPS 2:       j=j+1;egetname j;if(intype='MA')then;mai=j;j=numfle+1;end;
        end
AIPS 2:       uvi=mai-1;for nn=3:uvi;egetname nn;chkname; $ archive cali
        brated UV file
AIPS 2:       xe=1-error;nvasname;sysout'';sys2com'';sys2com(3) ' >& /de
        v/null
AIPS 2:       outfile='AIMG:'!!outfile;if(xe=1)then;gx;end;syscom'\mv -f
         $aimg/
AIPS 2:       sys2com(1)=substr(outfile,6,length(outfile))!!' $aimg/
AIPS 2:       sys2com(2)=dir;system;clrtemp;end;for nn=(uvi+1):numfle $
        archive MAps
AIPS 2:       egetname nn;chkname;xe=1-error;if((intype='MA')&(inclass='
        NVAS06'))then
AIPS 2:       nvasname;sysout'';sys2com'';sys2com(8) ' >& /dev/null
AIPS 2:       expfile=outfile;outfile='AIMG:'!!outfile
AIPS 2:       if(xe=1)then;gx;syscom'fits2jpeg -fits $aimg/
AIPS 2:         sys2com(1)=expfile!!' -jpeg $aimg/
AIPS 2:         sys2com(2)=expfile!!'.jpg ; convert $aimg/
AIPS 2:         sys2com(3)=expfile!!'.jpg
AIPS 2:         sys2com(4)=' -resize 150x150 -gamma 1.5 -depth 32 $aimg/
AIPS 2:         sys2com(5)=expfile!!'.JPG'!!' ; \mv -f $aimg/
AIPS 2:         sys2com(6)=expfile!!'* $aimg/
AIPS 2:   sys2com(7)=dir;system;clrtemp;end;end;end;end
AIPS 2: finish
AIPS 2:
AIPS 2: procedure nvas
AIPS 2:   typ expid;flatfov;if(uvi>3)then;nvasimage;nvasarch
AIPS 2: end
AIPS 2:
AIPS 2: finish
>AIPS 2: Found in Version=ABIN
AIPS 2: Found in Version=ABIN
AIPS 2: Got(1)   disk= 1  user=****   type=UV   19991229.C BAND.1
AIPS 2: 'AIPS WILL CHOOSE THE REFERENCE ANTENNA'
AIPS 2: Got(1)   disk= 1  user=****   type=UV   19991229.C BAND.1
AIPS 2: 'SETFC WILL DETERMINE THE CELL SIZE'
AIPS 2: '3.3333 SECOND INTEGRATIONS (GUESS)'
AIPS 2: Extension file type CL version   2 deleted
AIPS 2: Extension file type CL version   3 deleted
AIPS 2: Extension file type SN version   1 deleted
AIPS 2: Extension file type SN version   2 deleted
AIPS 2: Extension file type XX version   1 deleted
AIPS 2: 'DONE CLEANUP OF OLD TABLE EXTENTION FILES (CL,SN,FG,BP,PL,XX)'
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: '0542+498 MODEL ='     '3C147_C'
AIPS 2: SYSTEM command to be executed is:
AIPS 2: ls -1 $AIPSTARS/3C147_C.MODEL >& /dev/null
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: '0542+498 MODEL ='     '3C147_C'
AIPS 2: SYSTEM command to be executed is:
AIPS 2: ls -1 $AIPSTARS/3C147_C.MODEL >& /dev/null
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: Resumes
TASAV2: Task TASAV  (release of 31DEC06) begins
TASAV2: Create 19991229    .TASAV .   1 (UV)  on disk  1  cno    2
TASAV2: Copied AN file from vol/cno/vers  1    1   1 to  1    2   1
TASAV2: Copied NX file from vol/cno/vers  1    1   1 to  1    2   1
TASAV2: Copied SU file from vol/cno/vers  1    1   1 to  1    2   1
TASAV2: Copied FQ file from vol/cno/vers  1    1   1 to  1    2   1
TASAV2: Copied CL file from vol/cno/vers  1    1   1 to  1    2   1
TASAV2: Copied CL file from vol/cno/vers  1    1   2 to  1    2   2
TASAV2: Copied CL file from vol/cno/vers  1    1   3 to  1    2   3
TASAV2: Copied TY file from vol/cno/vers  1    1   1 to  1    2   1
TASAV2: Copied WX file from vol/cno/vers  1    1   1 to  1    2   1
TASAV2: Copied OF file from vol/cno/vers  1    1   1 to  1    2   1
TASAV2: Copied FG file from vol/cno/vers  1    1   1 to  1    2   1
TASAV2: Copied FG file from vol/cno/vers  1    1   2 to  1    2   2
TASAV2: Copied SN file from vol/cno/vers  1    1   1 to  1    2   1
TASAV2: Copied SN file from vol/cno/vers  1    1   2 to  1    2   2
TASAV2: Appears to have ended successfully
TASAV2: auto         31DEC06 TST: Cpu=       0.1  Real=       1
2com(7)=substr(sys2com(7),1,2);clrtemp
AIPS 2:     sys2com(8) ' >& /dev/null
AIPS 2:    system;clrtemp;for i=1:7;dir=dir!!sys2com(i);end;ki=length(di
        r) $must be 23
AIPS 2:     dir=substr(dir,8,ki);if(ki<>23)then;type'OOPS: WRONG DIRECTO
        RY NAME ?';end
AIPS 2:   end;syscom'';sys2com'';clrtemp
AIPS 2:   return
AIPS 2: finish
AIPS 2:
AIPS 2: procedure nvasarch
AIPS 2: $LOS - archives the files to disk - define $EXP (and $AVLA/$ADAT
        /$AIMG/$AUVF)
AIPS 2:   string*4 nnsl
AIPS 2:   string*20 expnm
AIPS 2:   string*64 expfile
AIPS 2:   scalar nn,mai,uvi,xe,nif
AIPS 2:   clrname;indisk=lsdisk;chkname;numfle=1-error;intype'UV';chknam
        e;uvi=1-error
AIPS 2:   default fitab;indisk=lsdisk;recat;douvcomp=-1;nif=2;type expid
AIPS 2: $2IF IM, or reset in uv#1
AIPS 2:   if(numfle>3)then $ at least 1UVF, 1TSV, 1SS, 1MA
AIPS 2:     egetname 1;nnsl=mkarr;nvasname;i=1;clrtemp
AIPS 2:     while((substr(expnm,i,i)<>'_')&(i<21));i=i+1;end;dir=substr(
        expnm,1,i-1)
AIPS 2:    outfile='ADAT:'!!expnm!!'_'!!frqs!!stc!!nnsl!!'.UVF';syscom'm
        kdir
AIPS 2:     sysout'';sys2com'';sys2com(2) ' >& /dev/null
AIPS 2:    sys2com(1)' $ADAT/'!!dir;system;gx;clrtemp;egetname 2;clrtemp
        ;syscom'\mv -f
AIPS 2:     outfile='ADAT:'!!expnm!!'_'!!frqs!!stc!!nnsl!!'.TSV';gx
AIPS 2:     sys2com(1)' $ADAT/'!!expnm!!'_* $ADAT/'!!dir;system
AIPS 2:     sys2com(1)' $ADAT/'!!expnm!!'.* $ADAT/'!!dir;system
AIPS 2:     sys2com(1)' $ARUN/'!!expnm!!'.* $ADAT/'!!dir;system;j=2;mai=
        0
AIPS 2:   while(j<numfle)
AIPS 2:       j=j+1;egetname j;if(intype='MA')then;mai=j;j=numfle+1;end;
        end
AIPS 2:       uvi=mai-1;for nn=3:uvi;egetname nn;chkname; $ archive cali
        brated UV file
AIPS 2:       xe=1-error;nvasname;sysout'';sys2com'';sys2com(3) ' >& /de
        v/null
AIPS 2:       outfile='AIMG:'!!outfile;if(xe=1)then;gx;end;syscom'\mv -f
         $aimg/
AIPS 2:       sys2com(1)=substr(outfile,6,length(outfile))!!' $aimg/
AIPS 2:       sys2com(2)=dir;system;clrtemp;end;for nn=(uvi+1):numfle $
        archive MAps
AIPS 2:       egetname nn;chkname;xe=1-error;if((intype='MA')&(inclass='
        NVAS06'))then
AIPS 2:       nvasname;sysout'';sys2com'';sys2com(8) ' >& /dev/null
AIPS 2:       expfile=outfile;outfile='AIMG:'!!outfile
AIPS 2:       if(xe=1)then;gx;syscom'fits2jpeg -fits $aimg/
AIPS 2:         sys2com(1)=expfile!!' -jpeg $aimg/
AIPS 2:         sys2com(2)=expfile!!'.jpg ; convert $aimg/
AIPS 2:         sys2com(3)=expfile!!'.jpg
AIPS 2:         sys2com(4)=' -resize 150x150 -gamma 1.5 -depth 32 $aimg/
AIPS 2:         sys2com(5)=expfile!!'.JPG'!!' ; \mv -f $aimg/
AIPS 2:         sys2com(6)=expfile!!'* $aimg/
AIPS 2:   sys2com(7)=dir;system;clrtemp;end;end;end;end
AIPS 2: finish
AIPS 2:
AIPS 2: procedure nvas
AIPS 2:   typ expid;flatfov;if(uvi>3)then;nvasimage;nvasarch
AIPS 2: end
AIPS 2:
AIPS 2: finish
>AIPS 2: Found in Version=ABIN
AIPS 2: Found in Version=ABIN
AIPS 2: Got(1)   disk= 1  user=****   type=UV   19991229.C BAND.1
AIPS 2: 'AIPS WILL CHOOSE THE REFERENCE ANTENNA'
AIPS 2: Got(1)   disk= 1  user=****   type=UV   19991229.C BAND.1
AIPS 2: 'SETFC WILL DETERMINE THE CELL SIZE'
AIPS 2: '3.3333 SECOND INTEGRATIONS (GUESS)'
AIPS 2: Extension file type CL version   2 deleted
AIPS 2: Extension file type CL version   3 deleted
AIPS 2: Extension file type SN version   1 deleted
AIPS 2: Extension file type SN version   2 deleted
AIPS 2: Extension file type XX version   1 deleted
AIPS 2: 'DONE CLEANUP OF OLD TABLE EXTENTION FILES (CL,SN,FG,BP,PL,XX)'
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: '0542+498 MODEL ='     '3C147_C'
AIPS 2: SYSTEM command to be executed is:
AIPS 2: ls -1 $AIPSTARS/3C147_C.MODEL >& /dev/null
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: '0542+498 MODEL ='     '3C147_C'
AIPS 2: SYSTEM command to be executed is:
AIPS 2: ls -1 $AIPSTARS/3C147_C.MODEL >& /dev/null
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: Resumes
SPLIT2: Task SPLIT  (release of 31DEC06) begins
SPLIT2: You are using a non-standard program
SPLIT2: Doing subarray  1
SPLIT2: Create 0542+498    .C BAND.   1 (UV)  on disk  1  cno    3
SPLIT2: Applying CL Table version     3
SPLIT2:            Previously flagged   flagged by gain         kept
SPLIT2: Partially             156                   0            156
SPLIT2: Fully                   0                   0           9321
SPLIT2: Copied AN file from vol/cno/vers  1    1   1 to  1    3   1
SPLIT2: Copied WX file from vol/cno/vers  1    1   1 to  1    3   1
SPLIT2: Copied OF file from vol/cno/vers  1    1   1 to  1    3   1
SPLIT2: Create 1658+476    .C BAND.   1 (UV)  on disk  1  cno    4
SPLIT2:            Previously flagged   flagged by gain         kept
SPLIT2: Partially             372                   0            372
SPLIT2: Fully                   0                   0          21047
SPLIT2: Copied AN file from vol/cno/vers  1    1   1 to  1    4   1
SPLIT2: Copied WX file from vol/cno/vers  1    1   1 to  1    4   1
SPLIT2: Copied OF file from vol/cno/vers  1    1   1 to  1    4   1
SPLIT2: Create G991208     .C BAND.   1 (UV)  on disk  1  cno    5
SPLIT2:            Previously flagged   flagged by gain         kept
SPLIT2: Partially             333                   0            333
SPLIT2: Fully                   0                   0         112293
SPLIT2: Copied AN file from vol/cno/vers  1    1   1 to  1    5   1
SPLIT2: Copied WX file from vol/cno/vers  1    1   1 to  1    5   1
SPLIT2: Copied OF file from vol/cno/vers  1    1   1 to  1    5   1
SPLIT2: Appears to have ended successfully
SPLIT2: auto         31DEC06 TST: Cpu=       0.4  Real=       0
2com(7)=substr(sys2com(7),1,2);clrtemp
AIPS 2:     sys2com(8) ' >& /dev/null
AIPS 2:    system;clrtemp;for i=1:7;dir=dir!!sys2com(i);end;ki=length(di
        r) $must be 23
AIPS 2:     dir=substr(dir,8,ki);if(ki<>23)then;type'OOPS: WRONG DIRECTO
        RY NAME ?';end
AIPS 2:   end;syscom'';sys2com'';clrtemp
AIPS 2:   return
AIPS 2: finish
AIPS 2:
AIPS 2: procedure nvasarch
AIPS 2: $LOS - archives the files to disk - define $EXP (and $AVLA/$ADAT
        /$AIMG/$AUVF)
AIPS 2:   string*4 nnsl
AIPS 2:   string*20 expnm
AIPS 2:   string*64 expfile
AIPS 2:   scalar nn,mai,uvi,xe,nif
AIPS 2:   clrname;indisk=lsdisk;chkname;numfle=1-error;intype'UV';chknam
        e;uvi=1-error
AIPS 2:   default fitab;indisk=lsdisk;recat;douvcomp=-1;nif=2;type expid
AIPS 2: $2IF IM, or reset in uv#1
AIPS 2:   if(numfle>3)then $ at least 1UVF, 1TSV, 1SS, 1MA
AIPS 2:     egetname 1;nnsl=mkarr;nvasname;i=1;clrtemp
AIPS 2:     while((substr(expnm,i,i)<>'_')&(i<21));i=i+1;end;dir=substr(
        expnm,1,i-1)
AIPS 2:    outfile='ADAT:'!!expnm!!'_'!!frqs!!stc!!nnsl!!'.UVF';syscom'm
        kdir
AIPS 2:     sysout'';sys2com'';sys2com(2) ' >& /dev/null
AIPS 2:    sys2com(1)' $ADAT/'!!dir;system;gx;clrtemp;egetname 2;clrtemp
        ;syscom'\mv -f
AIPS 2:     outfile='ADAT:'!!expnm!!'_'!!frqs!!stc!!nnsl!!'.TSV';gx
AIPS 2:     sys2com(1)' $ADAT/'!!expnm!!'_* $ADAT/'!!dir;system
AIPS 2:     sys2com(1)' $ADAT/'!!expnm!!'.* $ADAT/'!!dir;system
AIPS 2:     sys2com(1)' $ARUN/'!!expnm!!'.* $ADAT/'!!dir;system;j=2;mai=
        0
AIPS 2:   while(j<numfle)
AIPS 2:       j=j+1;egetname j;if(intype='MA')then;mai=j;j=numfle+1;end;
        end
AIPS 2:       uvi=mai-1;for nn=3:uvi;egetname nn;chkname; $ archive cali
        brated UV file
AIPS 2:       xe=1-error;nvasname;sysout'';sys2com'';sys2com(3) ' >& /de
        v/null
AIPS 2:       outfile='AIMG:'!!outfile;if(xe=1)then;gx;end;syscom'\mv -f
         $aimg/
AIPS 2:       sys2com(1)=substr(outfile,6,length(outfile))!!' $aimg/
AIPS 2:       sys2com(2)=dir;system;clrtemp;end;for nn=(uvi+1):numfle $
        archive MAps
AIPS 2:       egetname nn;chkname;xe=1-error;if((intype='MA')&(inclass='
        NVAS06'))then
AIPS 2:       nvasname;sysout'';sys2com'';sys2com(8) ' >& /dev/null
AIPS 2:       expfile=outfile;outfile='AIMG:'!!outfile
AIPS 2:       if(xe=1)then;gx;syscom'fits2jpeg -fits $aimg/
AIPS 2:         sys2com(1)=expfile!!' -jpeg $aimg/
AIPS 2:         sys2com(2)=expfile!!'.jpg ; convert $aimg/
AIPS 2:         sys2com(3)=expfile!!'.jpg
AIPS 2:         sys2com(4)=' -resize 150x150 -gamma 1.5 -depth 32 $aimg/
AIPS 2:         sys2com(5)=expfile!!'.JPG'!!' ; \mv -f $aimg/
AIPS 2:         sys2com(6)=expfile!!'* $aimg/
AIPS 2:   sys2com(7)=dir;system;clrtemp;end;end;end;end
AIPS 2: finish
AIPS 2:
AIPS 2: procedure nvas
AIPS 2:   typ expid;flatfov;if(uvi>3)then;nvasimage;nvasarch
AIPS 2: end
AIPS 2:
AIPS 2: finish
>AIPS 2: Found in Version=ABIN
AIPS 2: Found in Version=ABIN
AIPS 2: Got(1)   disk= 1  user=****   type=UV   19991229.C BAND.1
AIPS 2: 'AIPS WILL CHOOSE THE REFERENCE ANTENNA'
AIPS 2: Got(1)   disk= 1  user=****   type=UV   19991229.C BAND.1
AIPS 2: 'SETFC WILL DETERMINE THE CELL SIZE'
AIPS 2: '3.3333 SECOND INTEGRATIONS (GUESS)'
AIPS 2: Extension file type CL version   2 deleted
AIPS 2: Extension file type CL version   3 deleted
AIPS 2: Extension file type SN version   1 deleted
AIPS 2: Extension file type SN version   2 deleted
AIPS 2: Extension file type XX version   1 deleted
AIPS 2: 'DONE CLEANUP OF OLD TABLE EXTENTION FILES (CL,SN,FG,BP,PL,XX)'
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: '0542+498 MODEL ='     '3C147_C'
AIPS 2: SYSTEM command to be executed is:
AIPS 2: ls -1 $AIPSTARS/3C147_C.MODEL >& /dev/null
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: '0542+498 MODEL ='     '3C147_C'
AIPS 2: SYSTEM command to be executed is:
AIPS 2: ls -1 $AIPSTARS/3C147_C.MODEL >& /dev/null
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: Resumes
AIPS 2: ' '
AIPS 2: 'ESTIMATED RMS:'     '0.1402 MILLI JANSKY'
AIPS 2: SYSTEM command to be executed is:
AIPS 2: rm -f /tmp/SETFC@0542+498_C,BAND.0-1 >& /dev/null
AIPS 2: Found in Version=ABIN
SETFC2: Task SETFC  (release of 31DEC06) begins
SETFC2: Found 0542+498    C BAND Seq   1 Disk:  1 in slot    3
SETFC2: SETCEL: recommends IMSIZE  1354 CELLSIZE   0.40805
SETFC2: SETCEL: returns    IMSIZE  1024 CELLSIZE   0.40805
SETFC2: ZTXOP2: using translated file name =
SETFC2: ZTXOP2: /tmp/SETFC@0542+498_C,BAND.0-1
SETFC2: FLYEYE added   7 fields to BOXFILE to  0.096 deg
SETFC2: First field number written was   1
SETFC2: Highest field number written was   7
SETFC2: returns adverbs to AIPS
SETFC2: Appears to have ended successfully
SETFC2: auto         31DEC06 TST: Cpu=       0.0  Real=       0
xecuted is:
AIPS 2: rm -f /tmp/SETFC@0542+498_C,BAND.0-1 >& /dev/null
AIPS 2: Found in Version=ABIN
AIPS 2: Waiting for returned adverbs
AIPS 2: Resumes
AIPS 2: Found in Version=ABIN
AIPS 2: SETFC    was not found to be running
AIPS 2: 'SEARCHING FOR NVSS SOURCES'
AIPS 2: Found in Version=ABIN
SETFC2: Task SETFC  (release of 31DEC06) begins
SETFC2: Found 0542+498    C BAND Seq   1 Disk:  1 in slot    3
SETFC2: ZTXOP2: using translated file name =
SETFC2: ZTXOP2: /tmp/SETFC@0542+498_C,BAND.0-1
SETFC2: Searching catalog between  0.05 and   0.23 degrees radius
SETFC2: ZTXOP2: using translated file name =
SETFC2: ZTXOP2: /home/auto/aips/TEXT/STARS/NV00.0030
SETFC2: No NVSS sources selected for BOXFILE
SETFC2: The Sun is 151.7 deg away - ignoring
SETFC2: First field number written was   8
SETFC2: Highest field number written was   7
SETFC2: returns adverbs to AIPS
SETFC2: Appears to have ended successfully
SETFC2: auto         31DEC06 TST: Cpu=       0.4  Real=       1
C     1  1012  1012   05 42 36.14   49 51 07.2
00001  -1    507    512    513
C     2  1012  1012   05 42 36.14   49 45 19.9
00002  -1    507    512    513
C     3  1012  1012   05 42 05.06   49 48 13.3
00003  -1    507    512    513
C     4  1012  1012   05 43 07.21   49 48 13.3
00004  -1    507    512    513
C     5  1012  1012   05 42 05.00   49 54 00.7
00005  -1    507    512    513
C     6  1012  1012   05 43 07.27   49 54 00.7
00006  -1    507    512    513
C     7  1012  1012   05 42 36.14   49 56 54.6
00007  -1    507    512    513
xecuted is:
AIPS 2: rm -f /tmp/SETFC@0542+498_C,BAND.0-1 >& /dev/null
AIPS 2: Found in Version=ABIN
AIPS 2: Waiting for returned adverbs
AIPS 2: Resumes
AIPS 2: Found in Version=ABIN
AIPS 2: SETFC    was not found to be running
AIPS 2: 'SEARCHING FOR NVSS SOURCES'
AIPS 2: Found in Version=ABIN
AIPS 2: Waiting for returned adverbs
AIPS 2: Resumes
AIPS 2: Found in Version=ABIN
AIPS 2: SETFC    was not found to be running
AIPS 2: SYSTEM command to be executed is:
AIPS 2: cat /tmp/SETFC@0542+498_C,BAND.0-1 >> /home/auto/run/AK485_1999D
AIPS 2: EC29_1.log.0
AIPS 2: '    NOW STARTING WITH SOURCE  :1  =0542+498'
AIPS 2: ' '
IMAGR2: Task IMAGR  (release of 31DEC06) begins
IMAGR2: ZTXOP2: using translated file name =
IMAGR2: ZTXOP2: /tmp/SETFC@0542+498_C,BAND.0-1
IMAGR2: FIELDF: Final field parameters and # read are:
IMAGR2: Field    1 1012 1012  2.0310E-02 -3.4000E-02          0
IMAGR2: Field    2 1012 1012  2.0310E-02 -3.4733E+02          0
IMAGR2: Field    3 1012 1012 -3.0057E+02 -1.7393E+02          0
IMAGR2: Field    4 1012 1012  3.0051E+02 -1.7393E+02          0
IMAGR2: Field    5 1012 1012 -3.0115E+02  1.7347E+02          0
IMAGR2: Field    6 1012 1012  3.0109E+02  1.7347E+02          0
IMAGR2: Field    7 1012 1012  2.0310E-02  3.4737E+02          0
IMAGR2: ZTXOP2: using translated file name =
IMAGR2: ZTXOP2: /tmp/SETFC@0542+498_C,BAND.0-1
IMAGR2: WINDF: Number of clean boxes/field read as follows:
IMAGR2: Field 01:   1  Field 02:   1  Field 03:   1  Field 04:   1
IMAGR2: Field 05:   1  Field 06:   1  Field 07:   1
IMAGR2: Create 0542+498    .IMAGR .   1 (UV)  on disk  1  cno    6
IMAGR2: Beginning channel    1 through    1 with  2 IFs
IMAGR2: IMACPY: Copied     9477 visibilities to be imaged
IMAGR2: **** WARNING data included out of inner portion of UV plane ****
IMAGR2: **** Watch for high-frequency & other poor cleaning effects ****
IMAGR2: UVWAIT: begin finding uniform weights
IMAGR2: UVWAIT: Average grid weight  2.722E+04
IMAGR2: UVWAIT: Adding temperance S  5.445E+03
IMAGR2: UVWAIT: begin applying uniform or other weights
IMAGR2: UVWAIT: Sum of weights in  1.825E+07 and out  2.322E+07
IMAGR2: UVWAIT: Noise is increased by a factor 1.156 due to weighting
IMAGR2: UVWAIT: Average summed weight  2.722E+04 over      18876 vis
IMAGR2: Create 0542+498    .IBM001.   1 (MA)  on disk  1  cno    7
IMAGR2: Create 0542+498    .IBM002.   1 (MA)  on disk  1  cno    8
IMAGR2: Create 0542+498    .IBM003.   1 (MA)  on disk  1  cno    9
IMAGR2: Create 0542+498    .IBM004.   1 (MA)  on disk  1  cno   10
IMAGR2: Create 0542+498    .IBM005.   1 (MA)  on disk  1  cno   11
IMAGR2: Create 0542+498    .IBM006.   1 (MA)  on disk  1  cno   12
IMAGR2: Create 0542+498    .IBM007.   1 (MA)  on disk  1  cno   13
IMAGR2: Create 0542+498    .ICL001.   1 (MA)  on disk  1  cno   14
IMAGR2: Create 0542+498    .ICL002.   1 (MA)  on disk  1  cno   15
IMAGR2: Create 0542+498    .ICL003.   1 (MA)  on disk  1  cno   16
IMAGR2: Create 0542+498    .ICL004.   1 (MA)  on disk  1  cno   17
IMAGR2: Create 0542+498    .ICL005.   1 (MA)  on disk  1  cno   18
IMAGR2: Create 0542+498    .ICL006.   1 (MA)  on disk  1  cno   19
IMAGR2: Create 0542+498    .ICL007.   1 (MA)  on disk  1  cno   20
IMAGR2: GRDFLT: X and Y convolution type = SPHEROIDAL
IMAGR2: GRDFLT: X and Y parms =  3.0000  1.0000
IMAGR2: GRDFLT: convolution function sampled every 1/100 of a cell
IMAGR2: GRDMEM: Ave    2 Channels; 4.885100E+09 to 4.835100E+09 Hz
IMAGR2: Field   1 Sum of gridding weights =  2.46521E+08
IMAGR2: Field   1 Beam min = -142.8 MilliJy, max =    1.0      Jy
IMAGR2: Field   1 fit FWHM =    1.886 x    1.232      arcsec, PA=   90.0
IMAGR2: Field   2 Sum of gridding weights =  2.46520E+08
IMAGR2: Field   2 Beam min = -142.8 MilliJy, max =    1.0      Jy
IMAGR2: Field   2 fit FWHM =    1.886 x    1.232      arcsec, PA=   89.9
IMAGR2: Field   3 Sum of gridding weights =  2.46520E+08
IMAGR2: Field   3 Beam min =  -94.3 MilliJy, max =    1.0      Jy
IMAGR2: Field   3 fit FWHM =    1.889 x    1.232      arcsec, PA=   89.8
IMAGR2: Field   4 Sum of gridding weights =  2.46520E+08
IMAGR2: Field   4 Beam min =  -95.2 MilliJy, max =    1.0      Jy
IMAGR2: Field   4 fit FWHM =    1.883 x    1.232      arcsec, PA=  -89.9
IMAGR2: Field   5 Sum of gridding weights =  2.46520E+08
IMAGR2: Field   5 Beam min =  -95.3 MilliJy, max =    1.0      Jy
IMAGR2: Field   5 fit FWHM =    1.889 x    1.232      arcsec, PA=   89.9
IMAGR2: Field   6 Sum of gridding weights =  2.46520E+08
IMAGR2: Field   6 Beam min =  -96.9 MilliJy, max =    1.0      Jy
IMAGR2: Field   6 fit FWHM =    1.883 x    1.231      arcsec, PA=  -89.9
IMAGR2: Field   7 Sum of gridding weights =  2.46520E+08
IMAGR2: Field   7 Beam min = -142.8 MilliJy, max =    1.0      Jy
IMAGR2: Field   7 fit FWHM =    1.886 x    1.231      arcsec, PA=  -89.9
IMAGR2: CLBHIS: minimum component 0.500 of current peak
IMAGR2: Field   1 min = -744.5 MilliJy,max =    7.9      Jy
IMAGR2: Field   2 min = -603.3 MilliJy,max =    2.2      Jy
IMAGR2: Field   3 min = -593.6 MilliJy,max =    2.8      Jy
IMAGR2: Field   4 min = -593.7 MilliJy,max =    2.3      Jy
IMAGR2: Field   5 min = -583.3 MilliJy,max =    2.2      Jy
IMAGR2: Field   6 min = -568.9 MilliJy,max =    3.1      Jy
IMAGR2: Field   7 min = -599.5 MilliJy,max =    2.2      Jy
IMAGR2: BGC Clean: using 2043 cell beam + residuals >   959.02 MilliJy
IMAGR2:     3494 Residual map points loaded
IMAGR2: Field    1 min allowed flux  =    3.798      Jy iter=        8
IMAGR2: Field    1 Clean flux density=    4.523      Jy        8 comps
IMAGR2: Total Cleaned flux density     =    4.523      Jy        8 comps
IMAGR2: SETDO3: imaging done with multiple tangent planes
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: VISDFT: Model components of type Point
IMAGR2: I Polarization model processed
IMAGR2: Field   1 min = -317.7 MilliJy,max =    3.4      Jy
IMAGR2: BGC Clean: using 1943 cell beam + residuals >   821.06 MilliJy
IMAGR2:      202 Residual map points loaded
IMAGR2: Field    1 min allowed flux  =    1.635      Jy iter=       16
IMAGR2: Field    1 Clean flux density=    6.470      Jy       16 comps
IMAGR2: Total Cleaned flux density     =    6.470      Jy       16 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   6 min = -113.9 MilliJy,max =  610.7 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  5.264E-01 < Second best  2.669E+00
IMAGR2: Field   3 min = -119.3 MilliJy,max =  559.7 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  5.330E-01 < Second best  2.157E+00
IMAGR2: Field   4 min = -125.3 MilliJy,max =  444.3 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  4.233E-01 < Second best  2.132E+00
IMAGR2: Field   2 min = -114.0 MilliJy,max =  441.6 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  4.209E-01 < Second best  2.104E+00
IMAGR2: Field   5 min = -123.0 MilliJy,max =  448.9 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  4.276E-01 < Second best  2.081E+00
IMAGR2: Field   7 min = -120.0 MilliJy,max =  448.1 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  4.271E-01 < Second best  1.555E+00
IMAGR2: Field   1 min = -147.0 MilliJy,max =    1.5      Jy
IMAGR2: BGC Clean: using 2043 cell beam + residuals >   197.46 MilliJy
IMAGR2:     2993 Residual map points loaded
IMAGR2: Field    1 min allowed flux  =  705.973 MilliJy iter=       25
IMAGR2: Field    1 Clean flux density=    7.402      Jy       25 comps
IMAGR2: Total Cleaned flux density     =    7.402      Jy       25 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   1 min =  -84.6 MilliJy,max =  648.2 MilliJy
IMAGR2: BGC Clean: using 1943 cell beam + residuals >   152.61 MilliJy
IMAGR2:      321 Residual map points loaded
IMAGR2: Field    1 min allowed flux  =  323.273 MilliJy iter=       34
IMAGR2: Field    1 Clean flux density=    7.824      Jy       34 comps
IMAGR2: Total Cleaned flux density     =    7.824      Jy       34 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   3 min =  -43.5 MilliJy,max =   98.4 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  8.696E-02 < Second best  5.264E-01
IMAGR2: Field   6 min =  -43.4 MilliJy,max =   98.4 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  8.380E-02 < Second best  4.276E-01
IMAGR2: Field   5 min =  -39.2 MilliJy,max =  103.1 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  8.400E-02 < Second best  4.271E-01
IMAGR2: Field   7 min =  -36.4 MilliJy,max =   93.2 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  8.891E-02 < Second best  4.233E-01
IMAGR2: Field   4 min =  -40.7 MilliJy,max =   99.2 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  9.146E-02 < Second best  4.209E-01
IMAGR2: Field   2 min =  -37.8 MilliJy,max =   97.1 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  9.262E-02 < Second best  3.075E-01
IMAGR2: Field   1 min =  -72.8 MilliJy,max =  295.4 MilliJy
IMAGR2: BGC Clean: using 2043 cell beam + residuals >    39.04 MilliJy
IMAGR2:     6414 Residual map points loaded
IMAGR2: Field    1 min allowed flux  =  134.157 MilliJy iter=       44
IMAGR2: Field    1 Clean flux density=    8.030      Jy       44 comps
IMAGR2: Total Cleaned flux density     =    8.030      Jy       44 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   1 min =  -82.8 MilliJy,max =  125.4 MilliJy
IMAGR2: BGC Clean: using 1491 cell beam + residuals >    34.40 MilliJy
IMAGR2:     2067 Residual map points loaded
IMAGR2: Field    1 min allowed flux  =  -60.543 MilliJy iter=       64
IMAGR2: Field    1 Clean flux density=    8.075      Jy       64 comps
IMAGR2: Total Cleaned flux density     =    8.075      Jy       64 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   2 min =  -33.8 MilliJy,max =   44.2 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  3.230E-02 < Second best  9.146E-02
IMAGR2: Field   4 min =  -30.8 MilliJy,max =   48.8 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  3.683E-02 < Second best  8.891E-02
IMAGR2: Field   7 min =  -32.8 MilliJy,max =   34.1 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  3.189E-02 < Second best  8.696E-02
IMAGR2: Field   3 min =  -30.4 MilliJy,max =   50.3 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  3.202E-02 < Second best  8.400E-02
IMAGR2: Field   5 min =  -32.4 MilliJy,max =   50.7 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  3.629E-02 < Second best  8.380E-02
IMAGR2: Field   6 min =  -36.7 MilliJy,max =   46.5 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  3.587E-02 < Second best  5.766E-02
IMAGR2: Field   1 min =  -56.6 MilliJy,max =   60.5 MilliJy
IMAGR2: BGC Clean: using  589 cell beam + residuals >    19.79 MilliJy
IMAGR2:     9357 Residual map points loaded
IMAGR2: Field    1 min algorithm flux=   35.473 MilliJy iter=      130
IMAGR2: Field    1 Clean flux density=    8.228      Jy      130 comps
IMAGR2: Total Cleaned flux density     =    8.228      Jy      130 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   4 min =  -25.0 MilliJy,max =   30.5 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  2.684E-02 < Second best  3.629E-02
IMAGR2: Field   5 min =  -26.7 MilliJy,max =   34.1 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  2.647E-02 < Second best  3.587E-02
IMAGR2: Field   6 min =  -31.7 MilliJy,max =   29.4 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  3.033E-02 < Second best  3.385E-02
IMAGR2: Field   1 min =  -35.2 MilliJy,max =   32.9 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >    17.64 MilliJy
IMAGR2:     4646 Residual map points loaded
IMAGR2: Field    1 min algorithm flux=   26.581 MilliJy iter=      213
IMAGR2: Field    1 Clean flux density=    8.402      Jy      213 comps
IMAGR2: Total Cleaned flux density     =    8.402      Jy      213 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   2 min =  -24.6 MilliJy,max =   22.7 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  2.350E-02 < Second best  3.202E-02
IMAGR2: Field   3 min =  -25.7 MilliJy,max =   27.7 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  2.263E-02 < Second best  3.189E-02
IMAGR2: Field   7 min =  -24.7 MilliJy,max =   23.9 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  2.364E-02 < Second best  3.033E-02
IMAGR2: Field   6 min =  -31.2 MilliJy,max =   23.1 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >    15.31 MilliJy
IMAGR2:      987 Residual map points loaded
IMAGR2: Field    6 min algorithm flux=  -18.959 MilliJy iter=       54
IMAGR2: Field    6 Clean flux density=    4.313 MilliJy       54 comps
IMAGR2: Total Cleaned flux density     =    8.407      Jy      267 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   4 min =  -20.3 MilliJy,max =   20.9 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  1.972E-02 < Second best  2.647E-02
IMAGR2: Field   5 min =  -23.4 MilliJy,max =   26.4 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  2.226E-02 < Second best  2.541E-02
IMAGR2: Field   1 min =  -23.6 MilliJy,max =   24.0 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >    13.33 MilliJy
IMAGR2:     4376 Residual map points loaded
IMAGR2: Field    1 min algorithm flux=  -17.931 MilliJy iter=      319
IMAGR2: Field    1 Clean flux density=    8.533      Jy      319 comps
IMAGR2: Total Cleaned flux density     =    8.537      Jy      373 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   7 min =  -22.2 MilliJy,max =   21.0 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  2.125E-02 < Second best  2.350E-02
IMAGR2: Field   2 min =  -20.2 MilliJy,max =   20.3 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  1.935E-02 < Second best  2.263E-02
IMAGR2: Field   3 min =  -24.3 MilliJy,max =   22.6 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >    12.78 MilliJy
IMAGR2:     1525 Residual map points loaded
IMAGR2: Field    3 min algorithm flux=   15.789 MilliJy iter=       94
IMAGR2: Field    3 Clean flux density=  -14.961 MilliJy       94 comps
IMAGR2: Total Cleaned flux density     =    8.522      Jy      467 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   5 min =  -18.6 MilliJy,max =   20.8 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  1.687E-02 < Second best  2.125E-02
IMAGR2: Field   7 min =  -19.1 MilliJy,max =   19.8 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >    12.31 MilliJy
IMAGR2:      553 Residual map points loaded
IMAGR2: Field    7 min algorithm flux=   14.087 MilliJy iter=       69
IMAGR2: Field    7 Clean flux density=   -7.387 MilliJy       69 comps
IMAGR2: Total Cleaned flux density     =    8.515      Jy      536 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   4 min =  -18.2 MilliJy,max =   19.7 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >    12.09 MilliJy
IMAGR2:     1176 Residual map points loaded
IMAGR2: Field    4 min algorithm flux=   14.349 MilliJy iter=      104
IMAGR2: Field    4 Clean flux density=   76.999 MilliJy      104 comps
IMAGR2: Total Cleaned flux density     =    8.592      Jy      640 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   2 min =  -16.9 MilliJy,max =   16.3 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  1.621E-02 < Second best  1.811E-02
IMAGR2: Field   6 min =  -14.5 MilliJy,max =   17.5 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  1.372E-02 < Second best  1.716E-02
IMAGR2: Field   1 min =  -16.2 MilliJy,max =   15.5 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  1.483E-02 < Second best  1.687E-02
IMAGR2: Field   5 min =  -16.9 MilliJy,max =   18.6 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >    10.24 MilliJy
IMAGR2:     1980 Residual map points loaded
IMAGR2: Field    5 min algorithm flux=   12.368 MilliJy iter=      140
IMAGR2: Field    5 Clean flux density=  118.927 MilliJy      140 comps
IMAGR2: Total Cleaned flux density     =    8.710      Jy      780 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   2 min =  -17.1 MilliJy,max =   16.1 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >    10.22 MilliJy
IMAGR2:      748 Residual map points loaded
IMAGR2: Field    2 min algorithm flux=   11.641 MilliJy iter=      107
IMAGR2: Field    2 Clean flux density=   12.566 MilliJy      107 comps
IMAGR2: Total Cleaned flux density     =    8.723      Jy      887 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   3 min =  -15.5 MilliJy,max =   14.7 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  1.124E-02 < Second best  1.483E-02
IMAGR2: Field   1 min =  -13.2 MilliJy,max =   13.5 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  1.292E-02 < Second best  1.373E-02
IMAGR2: Field   4 min =  -14.2 MilliJy,max =   15.7 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  1.175E-02 < Second best  1.372E-02
IMAGR2: Field   6 min =  -13.4 MilliJy,max =   15.2 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     8.98 MilliJy
IMAGR2:      798 Residual map points loaded
IMAGR2: Field    6 min algorithm flux=  -10.020 MilliJy iter=      155
IMAGR2: Field    6 Clean flux density=   50.980 MilliJy      155 comps
IMAGR2: Total Cleaned flux density     =    8.770      Jy      988 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   7 min =  -15.4 MilliJy,max =   14.1 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  1.128E-02 < Second best  1.292E-02
IMAGR2: Field   1 min =  -13.8 MilliJy,max =   13.2 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     8.47 MilliJy
IMAGR2:     1833 Residual map points loaded
IMAGR2: Field    1 min algorithm flux=    9.804 MilliJy iter=      474
IMAGR2: Field    1 Clean flux density=    8.576      Jy      474 comps
IMAGR2: Total Cleaned flux density     =    8.814      Jy     1143 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   5 min =  -12.8 MilliJy,max =   15.4 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  1.090E-02 < Second best  1.175E-02
IMAGR2: Field   4 min =  -12.9 MilliJy,max =   13.4 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  1.073E-02 < Second best  1.128E-02
IMAGR2: Field   7 min =  -14.4 MilliJy,max =   13.3 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  1.048E-02 < Second best  1.124E-02
IMAGR2: Field   3 min =  -13.9 MilliJy,max =   13.4 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     7.73 MilliJy
IMAGR2:     1051 Residual map points loaded
IMAGR2: Field    3 min algorithm flux=   -8.737 MilliJy iter=      249
IMAGR2: Field    3 Clean flux density=   29.612 MilliJy      249 comps
IMAGR2: Total Cleaned flux density     =    8.858      Jy     1298 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   2 min =  -12.5 MilliJy,max =   12.4 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  1.004E-02 < Second best  1.090E-02
IMAGR2: Field   5 min =  -12.6 MilliJy,max =   14.5 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     7.22 MilliJy
IMAGR2:      860 Residual map points loaded
IMAGR2: Field    5 min algorithm flux=   -7.953 MilliJy iter=      274
IMAGR2: Field    5 Clean flux density=  147.658 MilliJy      274 comps
IMAGR2: Total Cleaned flux density     =    8.887      Jy     1432 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   4 min =  -12.9 MilliJy,max =   12.7 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     7.19 MilliJy
IMAGR2:     1871 Residual map points loaded
IMAGR2: Field    4 min algorithm flux=   -8.299 MilliJy iter=      327
IMAGR2: Field    4 Clean flux density=   62.367 MilliJy      327 comps
IMAGR2: Total Cleaned flux density     =    8.872      Jy     1655 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   7 min =  -11.7 MilliJy,max =   12.6 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  8.769E-03 < Second best  1.004E-02
IMAGR2: Field   2 min =   -9.9 MilliJy,max =   12.1 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  8.816E-03 < Second best  9.594E-03
IMAGR2: Field   6 min =  -10.0 MilliJy,max =   10.0 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  8.040E-03 < Second best  9.389E-03
IMAGR2: Field   1 min =   -9.0 MilliJy,max =    8.8 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     6.25 MilliJy
IMAGR2:      783 Residual map points loaded
IMAGR2: Field    1 min algorithm flux=    6.774 MilliJy iter=      612
IMAGR2: Field    1 Clean flux density=    8.576      Jy      612 comps
IMAGR2: Total Cleaned flux density     =    8.871      Jy     1793 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   2 min =   -9.2 MilliJy,max =   11.5 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     6.23 MilliJy
IMAGR2:      331 Residual map points loaded
IMAGR2: Field    2 min algorithm flux=    6.590 MilliJy iter=      207
IMAGR2: Field    2 Clean flux density=   27.600 MilliJy      207 comps
IMAGR2: Total Cleaned flux density     =    8.886      Jy     1893 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   7 min =  -10.4 MilliJy,max =   11.3 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     6.20 MilliJy
IMAGR2:      338 Residual map points loaded
IMAGR2: Field    7 min algorithm flux=    6.564 MilliJy iter=      177
IMAGR2: Field    7 Clean flux density=  -12.679 MilliJy      177 comps
IMAGR2: Total Cleaned flux density     =    8.881      Jy     2001 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   3 min =   -8.9 MilliJy,max =    9.1 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  7.215E-03 < Second best  8.040E-03
IMAGR2: Field   6 min =   -9.4 MilliJy,max =    9.1 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     5.87 MilliJy
IMAGR2:      310 Residual map points loaded
IMAGR2: Field    6 min algorithm flux=   -6.159 MilliJy iter=      248
IMAGR2: Field    6 Clean flux density=   90.056 MilliJy      248 comps
IMAGR2: Total Cleaned flux density     =    8.920      Jy     2094 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   4 min =   -9.1 MilliJy,max =    9.1 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  6.674E-03 < Second best  7.620E-03
IMAGR2: Field   5 min =  -10.1 MilliJy,max =   11.4 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     5.05 MilliJy
IMAGR2:     2394 Residual map points loaded
IMAGR2: Field    5 min algorithm flux=   -5.739 MilliJy iter=      570
IMAGR2: Field    5 Clean flux density=  167.146 MilliJy      570 comps
IMAGR2: Total Cleaned flux density     =    8.940      Jy     2390 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   3 min =   -7.9 MilliJy,max =    7.7 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  6.138E-03 < Second best  6.674E-03
IMAGR2: Field   4 min =   -8.6 MilliJy,max =    8.9 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     5.01 MilliJy
IMAGR2:      908 Residual map points loaded
IMAGR2: Field    4 min algorithm flux=   -5.411 MilliJy iter=      518
IMAGR2: Field    4 Clean flux density=  103.562 MilliJy      518 comps
IMAGR2: Total Cleaned flux density     =    8.981      Jy     2581 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   1 min =   -7.0 MilliJy,max =    7.0 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  5.942E-03 < Second best  6.310E-03
IMAGR2: Field   2 min =   -7.5 MilliJy,max =    9.8 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  5.931E-03 < Second best  6.285E-03
IMAGR2: Field   7 min =   -7.6 MilliJy,max =    9.4 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  5.811E-03 < Second best  6.138E-03
IMAGR2: Field   3 min =   -7.9 MilliJy,max =    7.4 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     4.43 MilliJy
IMAGR2:      824 Residual map points loaded
IMAGR2: Field    3 min algorithm flux=    4.767 MilliJy iter=      442
IMAGR2: Field    3 Clean flux density=   49.795 MilliJy      442 comps
IMAGR2: Total Cleaned flux density     =    9.001      Jy     2774 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   1 min =   -6.2 MilliJy,max =    6.6 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     4.42 MilliJy
IMAGR2:      515 Residual map points loaded
IMAGR2: Field    1 min algorithm flux=   -4.636 MilliJy iter=      745
IMAGR2: Field    1 Clean flux density=    8.568      Jy      745 comps
IMAGR2: Total Cleaned flux density     =    8.994      Jy     2907 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   2 min =   -6.5 MilliJy,max =    8.4 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  5.185E-03 < Second best  5.898E-03
IMAGR2: Field   6 min =   -7.4 MilliJy,max =    7.0 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  5.407E-03 < Second best  5.811E-03
IMAGR2: Field   7 min =   -7.2 MilliJy,max =    8.2 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     4.21 MilliJy
IMAGR2:      319 Residual map points loaded
IMAGR2: Field    7 min algorithm flux=   -4.384 MilliJy iter=      298
IMAGR2: Field    7 Clean flux density=  -12.889 MilliJy      298 comps
IMAGR2: Total Cleaned flux density     =    8.993      Jy     3028 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   5 min =   -7.4 MilliJy,max =    7.9 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  5.035E-03 < Second best  5.407E-03
IMAGR2: Field   6 min =   -7.3 MilliJy,max =    7.0 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     3.88 MilliJy
IMAGR2:     1419 Residual map points loaded
IMAGR2: Field    6 min algorithm flux=    4.227 MilliJy iter=      525
IMAGR2: Field    6 Clean flux density=  116.659 MilliJy      525 comps
IMAGR2: Total Cleaned flux density     =    9.020      Jy     3305 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   4 min =   -6.7 MilliJy,max =    7.0 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  4.823E-03 < Second best  5.185E-03
IMAGR2: Field   2 min =   -6.1 MilliJy,max =    8.0 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     3.60 MilliJy
IMAGR2:     1376 Residual map points loaded
IMAGR2: Field    2 min algorithm flux=   -3.917 MilliJy iter=      501
IMAGR2: Field    2 Clean flux density=   56.517 MilliJy      501 comps
IMAGR2: Total Cleaned flux density     =    9.049      Jy     3599 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   5 min =   -7.0 MilliJy,max =    7.7 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     3.60 MilliJy
IMAGR2:     1388 Residual map points loaded
IMAGR2: Field    5 min algorithm flux=    3.887 MilliJy iter=      834
IMAGR2: Field    5 Clean flux density=  176.838 MilliJy      834 comps
IMAGR2: Total Cleaned flux density     =    9.059      Jy     3863 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   4 min =   -6.6 MilliJy,max =    6.6 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     3.59 MilliJy
IMAGR2:      497 Residual map points loaded
IMAGR2: Field    4 min algorithm flux=    3.744 MilliJy iter=      676
IMAGR2: Field    4 Clean flux density=  110.005 MilliJy      676 comps
IMAGR2: Total Cleaned flux density     =    9.065      Jy     4021 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   3 min =   -6.0 MilliJy,max =    5.5 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     3.44 MilliJy
IMAGR2:      316 Residual map points loaded
IMAGR2: Field    3 min algorithm flux=   -3.546 MilliJy iter=      558
IMAGR2: Field    3 Clean flux density=   53.874 MilliJy      558 comps
IMAGR2: Total Cleaned flux density     =    9.069      Jy     4137 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   1 min =   -4.4 MilliJy,max =    4.6 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     3.28 MilliJy
IMAGR2:      273 Residual map points loaded
IMAGR2: Field    1 min algorithm flux=   -3.365 MilliJy iter=      846
IMAGR2: Field    1 Clean flux density=    8.566      Jy      846 comps
IMAGR2: Total Cleaned flux density     =    9.067      Jy     4238 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   7 min =   -5.0 MilliJy,max =    6.9 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  3.789E-03 < Second best  4.054E-03
IMAGR2: Field   6 min =   -6.0 MilliJy,max =    5.5 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     3.01 MilliJy
IMAGR2:      542 Residual map points loaded
IMAGR2: Field    6 min algorithm flux=   -3.137 MilliJy iter=      690
IMAGR2: Field    6 Clean flux density=  109.630 MilliJy      690 comps
IMAGR2: Total Cleaned flux density     =    9.060      Jy     4403 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   7 min =   -4.8 MilliJy,max =    6.7 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     3.01 MilliJy
IMAGR2:      333 Residual map points loaded
IMAGR2: Field    7 min algorithm flux=   -3.103 MilliJy iter=      432
IMAGR2: Field    7 Clean flux density=   -1.965 MilliJy      432 comps
IMAGR2: Total Cleaned flux density     =    9.071      Jy     4537 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   2 min =   -4.6 MilliJy,max =    5.5 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  3.299E-03 < Second best  3.724E-03
IMAGR2: Field   5 min =   -5.6 MilliJy,max =    6.1 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     2.68 MilliJy
IMAGR2:     1292 Residual map points loaded
IMAGR2: Field    5 min algorithm flux=   -2.853 MilliJy iter=     1125
IMAGR2: Field    5 Clean flux density=  184.710 MilliJy     1125 comps
IMAGR2: Total Cleaned flux density     =    9.079      Jy     4828 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   4 min =   -5.9 MilliJy,max =    6.0 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     2.58 MilliJy
IMAGR2:     2131 Residual map points loaded
IMAGR2: Field    4 min algorithm flux=   -2.807 MilliJy iter=     1091
IMAGR2: Field    4 Clean flux density=  126.574 MilliJy     1091 comps
IMAGR2: Total Cleaned flux density     =    9.095      Jy     5243 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   3 min =   -5.2 MilliJy,max =    4.9 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     2.51 MilliJy
IMAGR2:     1302 Residual map points loaded
IMAGR2: Field    3 min algorithm flux=    2.681 MilliJy iter=      868
IMAGR2: Field    3 Clean flux density=   70.878 MilliJy      868 comps
IMAGR2: Total Cleaned flux density     =    9.112      Jy     5553 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   2 min =   -3.9 MilliJy,max =    4.9 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     2.50 MilliJy
IMAGR2:      701 Residual map points loaded
IMAGR2: Field    2 min algorithm flux=    2.611 MilliJy iter=      732
IMAGR2: Field    2 Clean flux density=   45.642 MilliJy      732 comps
IMAGR2: Total Cleaned flux density     =    9.102      Jy     5784 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   1 min =   -3.4 MilliJy,max =    3.3 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     2.41 MilliJy
IMAGR2:      351 Residual map points loaded
IMAGR2: Field    1 min algorithm flux=    2.476 MilliJy iter=      973
IMAGR2: Field    1 Clean flux density=    8.561      Jy      973 comps
IMAGR2: Total Cleaned flux density     =    9.097      Jy     5911 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   6 min =   -5.2 MilliJy,max =    4.4 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     2.35 MilliJy
IMAGR2:      680 Residual map points loaded
IMAGR2: Field    6 min algorithm flux=    2.448 MilliJy iter=      884
IMAGR2: Field    6 Clean flux density=   98.769 MilliJy      884 comps
IMAGR2: Total Cleaned flux density     =    9.086      Jy     6105 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   7 min =   -3.5 MilliJy,max =    4.9 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     2.28 MilliJy
IMAGR2:      375 Residual map points loaded
IMAGR2: Field    7 min algorithm flux=    2.337 MilliJy iter=      575
IMAGR2: Field    7 Clean flux density=    2.393 MilliJy      575 comps
IMAGR2: Total Cleaned flux density     =    9.090      Jy     6248 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   5 min =   -4.5 MilliJy,max =    4.9 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     2.20 MilliJy
IMAGR2:     1334 Residual map points loaded
IMAGR2: Field    5 min algorithm flux=   -2.312 MilliJy iter=     1435
IMAGR2: Field    5 Clean flux density=  181.312 MilliJy     1435 comps
IMAGR2: Total Cleaned flux density     =    9.087      Jy     6558 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   4 min =   -4.8 MilliJy,max =    4.8 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     2.08 MilliJy
IMAGR2:      964 Residual map points loaded
IMAGR2: Field    4 min algorithm flux=   -2.169 MilliJy iter=     1366
IMAGR2: Field    4 Clean flux density=  129.392 MilliJy     1366 comps
IMAGR2: Total Cleaned flux density     =    9.090      Jy     6833 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   3 min =   -4.1 MilliJy,max =    4.2 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     2.00 MilliJy
IMAGR2:     1088 Residual map points loaded
IMAGR2: Field    3 min algorithm flux=    2.104 MilliJy iter=     1152
IMAGR2: Field    3 Clean flux density=   81.640 MilliJy     1152 comps
IMAGR2: Total Cleaned flux density     =    9.101      Jy     7117 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   2 min =   -3.3 MilliJy,max =    3.5 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.92 MilliJy
IMAGR2:      884 Residual map points loaded
IMAGR2: Field    2 min algorithm flux=    2.001 MilliJy iter=     1011
IMAGR2: Field    2 Clean flux density=   55.353 MilliJy     1011 comps
IMAGR2: Total Cleaned flux density     =    9.110      Jy     7396 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   1 min =   -2.9 MilliJy,max =    3.1 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.88 MilliJy
IMAGR2:      883 Residual map points loaded
IMAGR2: Field    1 min algorithm flux=   -1.962 MilliJy iter=     1205
IMAGR2: Field    1 Clean flux density=    8.559      Jy     1205 comps
IMAGR2: Total Cleaned flux density     =    9.108      Jy     7628 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   6 min =   -4.9 MilliJy,max =    4.0 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.84 MilliJy
IMAGR2:     1925 Residual map points loaded
IMAGR2: Field    6 min algorithm flux=   -1.965 MilliJy iter=     1285
IMAGR2: Field    6 Clean flux density=   92.981 MilliJy     1285 comps
IMAGR2: Total Cleaned flux density     =    9.103      Jy     8029 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   7 min =   -2.9 MilliJy,max =    4.0 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.80 MilliJy
IMAGR2:      382 Residual map points loaded
IMAGR2: Field    7 min algorithm flux=    1.839 MilliJy iter=      728
IMAGR2: Field    7 Clean flux density=   13.202 MilliJy      728 comps
IMAGR2: Total Cleaned flux density     =    9.113      Jy     8182 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   5 min =   -3.7 MilliJy,max =    4.1 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.74 MilliJy
IMAGR2:     2140 Residual map points loaded
IMAGR2: Field    5 min algorithm flux=    1.839 MilliJy iter=     1896
IMAGR2: Field    5 Clean flux density=  174.259 MilliJy     1896 comps
IMAGR2: Total Cleaned flux density     =    9.106      Jy     8643 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   4 min =   -4.2 MilliJy,max =    4.2 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.69 MilliJy
IMAGR2:     1622 Residual map points loaded
IMAGR2: Field    4 min algorithm flux=   -1.775 MilliJy iter=     1772
IMAGR2: Field    4 Clean flux density=  127.537 MilliJy     1772 comps
IMAGR2: Total Cleaned flux density     =    9.104      Jy     9049 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   3 min =   -3.5 MilliJy,max =    3.6 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.65 MilliJy
IMAGR2:     1349 Residual map points loaded
IMAGR2: Field    3 min algorithm flux=   -1.733 MilliJy iter=     1484
IMAGR2: Field    3 Clean flux density=   89.611 MilliJy     1484 comps
IMAGR2: Total Cleaned flux density     =    9.112      Jy     9381 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   2 min =   -2.9 MilliJy,max =    2.9 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.61 MilliJy
IMAGR2:      835 Residual map points loaded
IMAGR2: Field    2 min algorithm flux=    1.660 MilliJy iter=     1284
IMAGR2: Field    2 Clean flux density=   51.758 MilliJy     1284 comps
IMAGR2: Total Cleaned flux density     =    9.109      Jy     9654 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   6 min =   -3.5 MilliJy,max =    3.5 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.56 MilliJy
IMAGR2:      888 Residual map points loaded
IMAGR2: Field    6 min algorithm flux=   -1.607 MilliJy iter=     1561
IMAGR2: Field    6 Clean flux density=   86.329 MilliJy     1561 comps
IMAGR2: Total Cleaned flux density     =    9.102      Jy     9930 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   1 min =   -2.3 MilliJy,max =    2.4 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.52 MilliJy
IMAGR2:     1065 Residual map points loaded
IMAGR2: Field    1 min algorithm flux=    1.573 MilliJy iter=     1475
IMAGR2: Field    1 Clean flux density=    8.565      Jy     1475 comps
IMAGR2: Total Cleaned flux density     =    9.108      Jy    10200 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   7 min =   -3.0 MilliJy,max =    3.1 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.50 MilliJy
IMAGR2:      949 Residual map points loaded
IMAGR2: Field    7 min algorithm flux=   -1.546 MilliJy iter=     1035
IMAGR2: Field    7 Clean flux density=   15.396 MilliJy     1035 comps
IMAGR2: Total Cleaned flux density     =    9.110      Jy    10507 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   5 min =   -3.4 MilliJy,max =    3.6 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.44 MilliJy
IMAGR2:     2047 Residual map points loaded
IMAGR2: Field    5 min algorithm flux=   -1.512 MilliJy iter=     2353
IMAGR2: Field    5 Clean flux density=  169.337 MilliJy     2353 comps
IMAGR2: Total Cleaned flux density     =    9.105      Jy    10964 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   4 min =   -4.0 MilliJy,max =    3.5 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.41 MilliJy
IMAGR2:     2624 Residual map points loaded
IMAGR2: Field    4 min algorithm flux=    1.487 MilliJy iter=     2343
IMAGR2: Field    4 Clean flux density=  127.049 MilliJy     2343 comps
IMAGR2: Total Cleaned flux density     =    9.105      Jy    11535 comps
IMAGR2: ALGSTB: All   468 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    4 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  457-   0 Cells, with     9477 Pts
IMAGR2: Field   3 min =   -2.9 MilliJy,max =    3.4 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.38 MilliJy
IMAGR2:     1842 Residual map points loaded
IMAGR2: Field    3 min algorithm flux=   -1.450 MilliJy iter=     1928
IMAGR2: Field    3 Clean flux density=   91.886 MilliJy     1928 comps
IMAGR2: Total Cleaned flux density     =    9.107      Jy    11979 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   2 min =   -2.4 MilliJy,max =    2.3 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.35 MilliJy
IMAGR2:      911 Residual map points loaded
IMAGR2: Field    2 min algorithm flux=    1.388 MilliJy iter=     1589
IMAGR2: Field    2 Clean flux density=   51.860 MilliJy     1589 comps
IMAGR2: Total Cleaned flux density     =    9.107      Jy    12284 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   6 min =   -3.1 MilliJy,max =    3.0 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.33 MilliJy
IMAGR2:     1531 Residual map points loaded
IMAGR2: Field    6 min algorithm flux=    1.386 MilliJy iter=     1957
IMAGR2: Field    6 Clean flux density=   79.254 MilliJy     1957 comps
IMAGR2: Total Cleaned flux density     =    9.100      Jy    12680 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   1 min =   -2.1 MilliJy,max =    2.4 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.31 MilliJy
IMAGR2:     1804 Residual map points loaded
IMAGR2: Field    1 min algorithm flux=    1.371 MilliJy iter=     1850
IMAGR2: Field    1 Clean flux density=    8.572      Jy     1850 comps
IMAGR2: Total Cleaned flux density     =    9.106      Jy    13055 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   7 min =   -2.5 MilliJy,max =    2.5 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.29 MilliJy
IMAGR2:     1109 Residual map points loaded
IMAGR2: Field    7 min algorithm flux=   -1.332 MilliJy iter=     1380
IMAGR2: Field    7 Clean flux density=   18.272 MilliJy     1380 comps
IMAGR2: Total Cleaned flux density     =    9.109      Jy    13400 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   5 min =   -3.1 MilliJy,max =    3.4 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.27 MilliJy
IMAGR2:     2118 Residual map points loaded
IMAGR2: Field    5 min algorithm flux=    1.318 MilliJy iter=     2864
IMAGR2: Field    5 Clean flux density=  163.329 MilliJy     2864 comps
IMAGR2: Total Cleaned flux density     =    9.103      Jy    13911 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   4 min =   -3.6 MilliJy,max =    3.5 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.23 MilliJy
IMAGR2:     2388 Residual map points loaded
IMAGR2: Field    4 min algorithm flux=   -1.283 MilliJy iter=     2897
IMAGR2: Field    4 Clean flux density=  127.613 MilliJy     2897 comps
IMAGR2: Total Cleaned flux density     =    9.104      Jy    14465 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   3 min =   -2.7 MilliJy,max =    3.0 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.21 MilliJy
IMAGR2:     2198 Residual map points loaded
IMAGR2: Field    3 min algorithm flux=   -1.271 MilliJy iter=     2447
IMAGR2: Field    3 Clean flux density=   95.300 MilliJy     2447 comps
IMAGR2: Total Cleaned flux density     =    9.107      Jy    14984 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   2 min =   -2.2 MilliJy,max =    2.1 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.19 MilliJy
IMAGR2:      652 Residual map points loaded
IMAGR2: Field    2 min algorithm flux=    1.216 MilliJy iter=     1838
IMAGR2: Field    2 Clean flux density=   50.678 MilliJy     1838 comps
IMAGR2: Total Cleaned flux density     =    9.106      Jy    15233 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   6 min =   -2.8 MilliJy,max =    2.9 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.17 MilliJy
IMAGR2:     1409 Residual map points loaded
IMAGR2: Field    6 min algorithm flux=    1.211 MilliJy iter=     2338
IMAGR2: Field    6 Clean flux density=   74.056 MilliJy     2338 comps
IMAGR2: Total Cleaned flux density     =    9.101      Jy    15614 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   1 min =   -1.8 MilliJy,max =    2.1 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.15 MilliJy
IMAGR2:     2319 Residual map points loaded
IMAGR2: Field    1 min algorithm flux=    1.206 MilliJy iter=     2307
IMAGR2: Field    1 Clean flux density=    8.574      Jy     2307 comps
IMAGR2: Total Cleaned flux density     =    9.103      Jy    16071 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   7 min =   -2.1 MilliJy,max =    2.2 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.14 MilliJy
IMAGR2:     1140 Residual map points loaded
IMAGR2: Field    7 min algorithm flux=    1.166 MilliJy iter=     1740
IMAGR2: Field    7 Clean flux density=   19.825 MilliJy     1740 comps
IMAGR2: Total Cleaned flux density     =    9.105      Jy    16431 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   5 min =   -2.7 MilliJy,max =    2.9 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.11 MilliJy
IMAGR2:     2184 Residual map points loaded
IMAGR2: Field    5 min algorithm flux=   -1.160 MilliJy iter=     3378
IMAGR2: Field    5 Clean flux density=  155.996 MilliJy     3378 comps
IMAGR2: Total Cleaned flux density     =    9.097      Jy    16945 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   4 min =   -3.4 MilliJy,max =    3.3 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.09 MilliJy
IMAGR2:     2329 Residual map points loaded
IMAGR2: Field    4 min algorithm flux=    1.130 MilliJy iter=     3456
IMAGR2: Field    4 Clean flux density=  127.399 MilliJy     3456 comps
IMAGR2: Total Cleaned flux density     =    9.097      Jy    17504 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   3 min =   -2.4 MilliJy,max =    2.6 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.07 MilliJy
IMAGR2:     2329 Residual map points loaded
IMAGR2: Field    3 min algorithm flux=    1.119 MilliJy iter=     2966
IMAGR2: Field    3 Clean flux density=   93.168 MilliJy     2966 comps
IMAGR2: Total Cleaned flux density     =    9.095      Jy    18023 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   2 min =   -1.9 MilliJy,max =    1.8 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.06 MilliJy
IMAGR2:      769 Residual map points loaded
IMAGR2: Field    2 min algorithm flux=    1.077 MilliJy iter=     2112
IMAGR2: Field    2 Clean flux density=   53.866 MilliJy     2112 comps
IMAGR2: Total Cleaned flux density     =    9.098      Jy    18297 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   6 min =   -2.6 MilliJy,max =    2.6 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.04 MilliJy
IMAGR2:     1694 Residual map points loaded
IMAGR2: Field    6 min algorithm flux=    1.080 MilliJy iter=     2781
IMAGR2: Field    6 Clean flux density=   69.889 MilliJy     2781 comps
IMAGR2: Total Cleaned flux density     =    9.094      Jy    18740 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   1 min =   -1.7 MilliJy,max =    2.0 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.03 MilliJy
IMAGR2:     2622 Residual map points loaded
IMAGR2: Field    1 min algorithm flux=   -1.073 MilliJy iter=     2807
IMAGR2: Field    1 Clean flux density=    8.584      Jy     2807 comps
IMAGR2: Total Cleaned flux density     =    9.105      Jy    19240 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   7 min =   -2.2 MilliJy,max =    1.9 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.01 MilliJy
IMAGR2:     1242 Residual map points loaded
IMAGR2: Field    7 min algorithm flux=   -1.038 MilliJy iter=     2113
IMAGR2: Field    7 Clean flux density=   15.120 MilliJy     2113 comps
IMAGR2: Total Cleaned flux density     =    9.100      Jy    19613 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   5 min =   -2.7 MilliJy,max =    2.8 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   995.82 MicroJy
IMAGR2:     2184 Residual map points loaded
IMAGR2: Field    5 min algorithm flux=   -1.034 MilliJy iter=     3931
IMAGR2: Field    5 Clean flux density=  151.576 MilliJy     3931 comps
IMAGR2: Total Cleaned flux density     =    9.096      Jy    20166 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   4 min =   -3.1 MilliJy,max =    3.2 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   978.42 MicroJy
IMAGR2:     2485 Residual map points loaded
IMAGR2: Field    4 min algorithm flux=    1.012 MilliJy iter=     4060
IMAGR2: Field    4 Clean flux density=  125.750 MilliJy     4060 comps
IMAGR2: Total Cleaned flux density     =    9.094      Jy    20770 comps
IMAGR2: ALGSTB: All   468 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    4 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  457-   0 Cells, with     9477 Pts
IMAGR2: Field   3 min =   -2.2 MilliJy,max =    2.4 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   963.97 MicroJy
IMAGR2:     2467 Residual map points loaded
IMAGR2: Field    3 min algorithm flux=    1.006 MilliJy iter=     3532
IMAGR2: Field    3 Clean flux density=   91.790 MilliJy     3532 comps
IMAGR2: Total Cleaned flux density     =    9.093      Jy    21336 comps
IMAGR2: ALGSTB: All   468 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    3 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  457-   0 Cells, with     9477 Pts
IMAGR2: Field   6 min =   -2.4 MilliJy,max =    2.2 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   952.51 MicroJy
IMAGR2:     1661 Residual map points loaded
IMAGR2: Field    6 min algorithm flux= -978.684 MicroJy iter=     3279
IMAGR2: Field    6 Clean flux density=   66.498 MilliJy     3279 comps
IMAGR2: Total Cleaned flux density     =    9.089      Jy    21834 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   2 min =   -1.6 MilliJy,max =    1.6 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   942.13 MicroJy
IMAGR2:      776 Residual map points loaded
IMAGR2: Field    2 min algorithm flux=  957.246 MicroJy iter=     2394
IMAGR2: Field    2 Clean flux density=   56.851 MilliJy     2394 comps
IMAGR2: Total Cleaned flux density     =    9.092      Jy    22116 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   1 min =   -1.5 MilliJy,max =    1.7 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   921.62 MicroJy
IMAGR2:     1643 Residual map points loaded
IMAGR2: Field    1 min algorithm flux=  952.151 MicroJy iter=     3162
IMAGR2: Field    1 Clean flux density=    8.588      Jy     3162 comps
IMAGR2: Total Cleaned flux density     =    9.096      Jy    22471 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   7 min =   -1.8 MilliJy,max =    1.7 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   906.89 MicroJy
IMAGR2:      796 Residual map points loaded
IMAGR2: Field    7 min algorithm flux= -921.870 MicroJy iter=     2386
IMAGR2: Field    7 Clean flux density=   15.525 MilliJy     2386 comps
IMAGR2: Total Cleaned flux density     =    9.097      Jy    22744 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   5 min =   -2.5 MilliJy,max =    2.6 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   890.75 MicroJy
IMAGR2:     2353 Residual map points loaded
IMAGR2: Field    5 min algorithm flux=  918.494 MicroJy iter=     4552
IMAGR2: Field    5 Clean flux density=  143.646 MilliJy     4552 comps
IMAGR2: Total Cleaned flux density     =    9.089      Jy    23365 comps
IMAGR2: ALGSTB: All   468 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    5 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  457-   0 Cells, with     9477 Pts
IMAGR2: Field   4 min =   -2.9 MilliJy,max =    2.9 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   872.85 MicroJy
IMAGR2:     2596 Residual map points loaded
IMAGR2: Field    4 min algorithm flux=  900.492 MicroJy iter=     4711
IMAGR2: Field    4 Clean flux density=  127.781 MilliJy     4711 comps
IMAGR2: Total Cleaned flux density     =    9.091      Jy    24016 comps
IMAGR2: ALGSTB: All   468 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    4 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  457-   0 Cells, with     9477 Pts
IMAGR2: Field   3 min =   -2.1 MilliJy,max =    2.0 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   856.61 MicroJy
IMAGR2:     2523 Residual map points loaded
IMAGR2: Field    3 min algorithm flux= -890.685 MicroJy iter=     4137
IMAGR2: Field    3 Clean flux density=   95.959 MilliJy     4137 comps
IMAGR2: Total Cleaned flux density     =    9.095      Jy    24621 comps
IMAGR2: ALGSTB: All   468 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    3 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  457-   0 Cells, with     9477 Pts
IMAGR2: Field   6 min =   -2.3 MilliJy,max =    2.1 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   846.63 MicroJy
IMAGR2:     2659 Residual map points loaded
IMAGR2: Field    6 min algorithm flux=  881.874 MicroJy iter=     3937
IMAGR2: Field    6 Clean flux density=   61.563 MilliJy     3937 comps
IMAGR2: Total Cleaned flux density     =    9.090      Jy    25279 comps
IMAGR2: ALGSTB: All   468 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    6 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  457-   0 Cells, with     9477 Pts
IMAGR2: Field   2 min =   -1.5 MilliJy,max =    1.5 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   841.70 MicroJy
IMAGR2:     1485 Residual map points loaded
IMAGR2: Field    2 min algorithm flux= -860.703 MicroJy iter=     2871
IMAGR2: Field    2 Clean flux density=   57.603 MilliJy     2871 comps
IMAGR2: Total Cleaned flux density     =    9.091      Jy    25756 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   1 min =   -1.4 MilliJy,max =    1.7 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   836.09 MicroJy
IMAGR2:     2507 Residual map points loaded
IMAGR2: Field    1 min algorithm flux= -869.432 MicroJy iter=     3657
IMAGR2: Field    1 Clean flux density=    8.593      Jy     3657 comps
IMAGR2: Total Cleaned flux density     =    9.095      Jy    26251 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   7 min =   -1.7 MilliJy,max =    1.6 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   832.20 MicroJy
IMAGR2:     1221 Residual map points loaded
IMAGR2: Field    7 min algorithm flux= -853.439 MicroJy iter=     2753
IMAGR2: Field    7 Clean flux density=   12.502 MilliJy     2753 comps
IMAGR2: Total Cleaned flux density     =    9.092      Jy    26618 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   5 min =   -2.5 MilliJy,max =    2.4 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   824.00 MicroJy
IMAGR2:     2913 Residual map points loaded
IMAGR2: Field    5 min algorithm flux= -855.206 MicroJy iter=     5275
IMAGR2: Field    5 Clean flux density=  136.821 MilliJy     5275 comps
IMAGR2: Total Cleaned flux density     =    9.085      Jy    27341 comps
IMAGR2: ALGSTB: All   468 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    5 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  457-   0 Cells, with     9477 Pts
IMAGR2: Field   4 min =   -2.6 MilliJy,max =    2.6 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   814.75 MicroJy
IMAGR2:     2743 Residual map points loaded
IMAGR2: Field    4 min algorithm flux= -843.248 MicroJy iter=     5387
IMAGR2: Field    4 Clean flux density=  126.358 MilliJy     5387 comps
IMAGR2: Total Cleaned flux density     =    9.084      Jy    28017 comps
IMAGR2: ALGSTB: All   468 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    4 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  457-   0 Cells, with     9477 Pts
IMAGR2: Field   3 min =   -1.8 MilliJy,max =    1.9 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   808.76 MicroJy
IMAGR2:     2725 Residual map points loaded
IMAGR2: Field    3 min algorithm flux= -843.407 MicroJy iter=     4787
IMAGR2: Field    3 Clean flux density=   97.810 MilliJy     4787 comps
IMAGR2: Total Cleaned flux density     =    9.085      Jy    28667 comps
IMAGR2: ALGSTB: All   468 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    3 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  457-   0 Cells, with     9477 Pts
IMAGR2: Field   6 min =   -1.9 MilliJy,max =    2.0 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   797.31 MicroJy
IMAGR2:     1827 Residual map points loaded
IMAGR2: Field    6 min Clean flux    = -841.013 MicroJy iter=     4364
IMAGR2: Field    6 Clean flux density=   58.418 MilliJy     4364 comps
IMAGR2: Total Cleaned flux density     =    9.082      Jy    29094 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   1 min =   -1.4 MilliJy,max =    1.7 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   787.44 MicroJy
IMAGR2:     3744 Residual map points loaded
IMAGR2: Field    1 min allowed flux  =  869.893 MicroJy iter=     4119
IMAGR2: Field    1 Clean flux density=    8.600      Jy     4119 comps
IMAGR2: Total Cleaned flux density     =    9.090      Jy    29556 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   1 min =   -1.6 MilliJy,max =    1.4 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   767.93 MicroJy
IMAGR2:       58 Residual map points loaded
IMAGR2: Field    1 min Clean flux    =  831.821 MicroJy iter=     4127
IMAGR2: Field    1 Clean flux density=    8.600      Jy     4127 comps
IMAGR2: Total Cleaned flux density     =    9.090      Jy    29564 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   2 min =   -1.5 MilliJy,max =    1.5 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   756.36 MicroJy
IMAGR2:     1715 Residual map points loaded
IMAGR2: Field    2 min Clean flux    = -840.810 MicroJy iter=     3144
IMAGR2: Field    2 Clean flux density=   56.688 MilliJy     3144 comps
IMAGR2: Total Cleaned flux density     =    9.089      Jy    29837 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   5 min =   -2.3 MilliJy,max =    2.3 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   725.90 MicroJy
IMAGR2:     2846 Residual map points loaded
IMAGR2: Field    5 min Clean flux    =  841.027 MicroJy iter=     5521
IMAGR2: Field    5 Clean flux density=  135.887 MilliJy     5521 comps
IMAGR2: Total Cleaned flux density     =    9.088      Jy    30083 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   7 min =   -1.6 MilliJy,max =    1.5 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   697.12 MicroJy
IMAGR2:     3141 Residual map points loaded
IMAGR2: Field    7 min Clean flux    = -841.262 MicroJy iter=     2943
IMAGR2: Field    7 Clean flux density=   15.772 MilliJy     2943 comps
IMAGR2: Total Cleaned flux density     =    9.091      Jy    30273 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   4 min =   -2.4 MilliJy,max =    2.6 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   647.37 MicroJy
IMAGR2:     7382 Residual map points loaded
IMAGR2: Field    4 min Clean flux    =  841.280 MicroJy iter=     5650
IMAGR2: Field    4 Clean flux density=  126.825 MilliJy     5650 comps
IMAGR2: Total Cleaned flux density     =    9.092      Jy    30536 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   3 min =   -2.0 MilliJy,max =    1.7 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   507.01 MicroJy
IMAGR2:    19974 Residual map points loaded
IMAGR2: Field    3 min Clean flux    = -840.883 MicroJy iter=     4902
IMAGR2: Field    3 Clean flux density=   94.968 MilliJy     4902 comps
IMAGR2: Total Cleaned flux density     =    9.089      Jy    30651 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Peak residual in window 841.280 less than limit 841.302 MicroJy
IMAGR2: Merging the Clean components files
IMAGR2: Field    1 compressed from      4127 to      1809 components
IMAGR2: Field    2 compressed from      3144 to      1716 components
IMAGR2: Field    3 compressed from      4902 to      2099 components
IMAGR2: Field    4 compressed from      5650 to      2568 components
IMAGR2: Field    5 compressed from      5521 to      2555 components
IMAGR2: Field    6 compressed from      4364 to      2028 components
IMAGR2: Field    7 compressed from      2943 to      1447 components
IMAGR2: Field   1 min =   -1.0 MilliJy,max =    1.0 MilliJy
IMAGR2: Field   2 min =   -1.3 MilliJy,max =    1.3 MilliJy
IMAGR2: Field   3 min =   -1.9 MilliJy,max =    1.6 MilliJy
IMAGR2: Field   4 min =   -2.3 MilliJy,max =    2.4 MilliJy
IMAGR2: Field   5 min =   -2.2 MilliJy,max =    2.2 MilliJy
IMAGR2: Field   6 min =   -2.2 MilliJy,max =    1.9 MilliJy
IMAGR2: Field   7 min =   -1.5 MilliJy,max =    1.5 MilliJy
IMAGR2: Restoring Clean components
IMAGR2: Restoring overlapped Clean components
IMAGR2: Restore  13.643 MilliJy (    48 CCs) from field   1 to field   2
IMAGR2: Restore  43.289 MilliJy (   287 CCs) from field   1 to field   3
IMAGR2: Restore  50.986 MilliJy (   139 CCs) from field   1 to field   4
IMAGR2: Restore  89.370 MilliJy (   220 CCs) from field   1 to field   5
IMAGR2: Restore  38.133 MilliJy (   220 CCs) from field   1 to field   6
IMAGR2: Restore  17.390 MilliJy (    67 CCs) from field   1 to field   7
IMAGR2: Restore  -5.801 MilliJy (    81 CCs) from field   2 to field   1
IMAGR2: Restore   2.346 MilliJy (    68 CCs) from field   2 to field   3
IMAGR2: Restore  18.600 MilliJy (   221 CCs) from field   2 to field   4
IMAGR2: Restore   9.779 MilliJy (    69 CCs) from field   3 to field   1
IMAGR2: Restore   2.032 MilliJy (    74 CCs) from field   3 to field   2
IMAGR2: Restore  21.343 MilliJy (   177 CCs) from field   3 to field   5
IMAGR2: Restore  25.874 MilliJy (    70 CCs) from field   4 to field   1
IMAGR2: Restore  33.932 MilliJy (    68 CCs) from field   4 to field   2
IMAGR2: Restore  11.342 MilliJy (   224 CCs) from field   4 to field   6
IMAGR2: Restore  19.858 MilliJy (    43 CCs) from field   5 to field   1
IMAGR2: Restore  29.012 MilliJy (   225 CCs) from field   5 to field   3
IMAGR2: Restore  19.923 MilliJy (    66 CCs) from field   5 to field   7
IMAGR2: Restore  -1.733 MilliJy (   144 CCs) from field   6 to field   1
IMAGR2: Restore  81.178 MilliJy (   197 CCs) from field   6 to field   4
IMAGR2: Restore  -6.710 MilliJy (    71 CCs) from field   6 to field   7
IMAGR2: Restore   6.086 MilliJy (    23 CCs) from field   7 to field   1
IMAGR2: Restore  26.179 MilliJy (   126 CCs) from field   7 to field   5
IMAGR2: Restore  -2.946 MilliJy (    49 CCs) from field   7 to field   6
IMAGR2: Checking image max/min
IMAGR2: Field    1 final Clean flux     8.655      Jy
IMAGR2: Field    2 final Clean flux   106.296 MilliJy
IMAGR2: Field    3 final Clean flux   169.615 MilliJy
IMAGR2: Field    4 final Clean flux   277.590 MilliJy
IMAGR2: Field    5 final Clean flux   272.779 MilliJy
IMAGR2: Field    6 final Clean flux   104.948 MilliJy
IMAGR2: Field    7 final Clean flux    46.375 MilliJy
IMAGR2: Deleting UV work file:
IMAGR2: Destroyed  1 extension files of type AN
IMAGR2: Destroyed  1 extension files of type FQ
IMAGR2: Destroyed UV image file: catno=      6 disk= 1
IMAGR2: Appears to have ended successfully
IMAGR2: auto         31DEC06 TST: Cpu=     197.4  Real=     204
xecuted is:
AIPS 2: rm -f /tmp/SETFC@0542+498_C,BAND.0-1 >& /dev/null
AIPS 2: Found in Version=ABIN
AIPS 2: Waiting for returned adverbs
AIPS 2: Resumes
AIPS 2: Found in Version=ABIN
AIPS 2: SETFC    was not found to be running
AIPS 2: 'SEARCHING FOR NVSS SOURCES'
AIPS 2: Found in Version=ABIN
AIPS 2: Waiting for returned adverbs
AIPS 2: Resumes
AIPS 2: Found in Version=ABIN
AIPS 2: SETFC    was not found to be running
AIPS 2: SYSTEM command to be executed is:
AIPS 2: cat /tmp/SETFC@0542+498_C,BAND.0-1 >> /home/auto/run/AK485_1999D
AIPS 2: EC29_1.log.0
AIPS 2: '    NOW STARTING WITH SOURCE  :1  =0542+498'
AIPS 2: ' '
AIPS 2: Resumes
AIPS 2: SYSTEM command to be executed is:
AIPS 2: rm -f /tmp/SETFC@0542+498_C,BAND.0-1 >& /dev/null
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=      7 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=      8 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=      9 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     10 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     11 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     12 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     13 disk= 1
AIPS 2: Disk  1 in-CNO   14 renumbered as CNO    6
AIPS 2: Disk  1 in-CNO   15 renumbered as CNO    7
AIPS 2: Disk  1 in-CNO   16 renumbered as CNO    8
AIPS 2: Disk  1 in-CNO   17 renumbered as CNO    9
AIPS 2: Disk  1 in-CNO   18 renumbered as CNO   10
AIPS 2: Disk  1 in-CNO   19 renumbered as CNO   11
AIPS 2: Disk  1 in-CNO   20 renumbered as CNO   12
AIPS 2: ' '
AIPS 2: 'ESTIMATED RMS:'     '0.09327 MILLI JANSKY'
AIPS 2: SYSTEM command to be executed is:
AIPS 2: rm -f /tmp/SETFC@1658+476_C,BAND.0-1 >& /dev/null
AIPS 2: Found in Version=ABIN
SETFC2: Task SETFC  (release of 31DEC06) begins
SETFC2: Found 1658+476    C BAND Seq   1 Disk:  1 in slot    4
SETFC2: SETCEL: recommends IMSIZE  1378 CELLSIZE   0.40101
SETFC2: SETCEL: returns    IMSIZE  1024 CELLSIZE   0.40101
SETFC2: ZTXOP2: using translated file name =
SETFC2: ZTXOP2: /tmp/SETFC@1658+476_C,BAND.0-1
SETFC2: FLYEYE added   7 fields to BOXFILE to  0.095 deg
SETFC2: First field number written was   1
SETFC2: Highest field number written was   7
SETFC2: returns adverbs to AIPS
SETFC2: Appears to have ended successfully
SETFC2: auto         31DEC06 TST: Cpu=       0.0  Real=       0
xecuted is:
AIPS 2: rm -f /tmp/SETFC@0542+498_C,BAND.0-1 >& /dev/null
AIPS 2: Found in Version=ABIN
AIPS 2: Waiting for returned adverbs
AIPS 2: Resumes
AIPS 2: Found in Version=ABIN
AIPS 2: SETFC    was not found to be running
AIPS 2: 'SEARCHING FOR NVSS SOURCES'
AIPS 2: Found in Version=ABIN
AIPS 2: Waiting for returned adverbs
AIPS 2: Resumes
AIPS 2: Found in Version=ABIN
AIPS 2: SETFC    was not found to be running
AIPS 2: SYSTEM command to be executed is:
AIPS 2: cat /tmp/SETFC@0542+498_C,BAND.0-1 >> /home/auto/run/AK485_1999D
AIPS 2: EC29_1.log.0
AIPS 2: '    NOW STARTING WITH SOURCE  :1  =0542+498'
AIPS 2: ' '
AIPS 2: Resumes
AIPS 2: SYSTEM command to be executed is:
AIPS 2: rm -f /tmp/SETFC@0542+498_C,BAND.0-1 >& /dev/null
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=      7 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=      8 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=      9 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     10 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     11 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     12 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     13 disk= 1
AIPS 2: Disk  1 in-CNO   14 renumbered as CNO    6
AIPS 2: Disk  1 in-CNO   15 renumbered as CNO    7
AIPS 2: Disk  1 in-CNO   16 renumbered as CNO    8
AIPS 2: Disk  1 in-CNO   17 renumbered as CNO    9
AIPS 2: Disk  1 in-CNO   18 renumbered as CNO   10
AIPS 2: Disk  1 in-CNO   19 renumbered as CNO   11
AIPS 2: Disk  1 in-CNO   20 renumbered as CNO   12
AIPS 2: ' '
AIPS 2: 'ESTIMATED RMS:'     '0.09327 MILLI JANSKY'
AIPS 2: SYSTEM command to be executed is:
AIPS 2: rm -f /tmp/SETFC@1658+476_C,BAND.0-1 >& /dev/null
AIPS 2: Found in Version=ABIN
AIPS 2: Waiting for returned adverbs
AIPS 2: Resumes
AIPS 2: Found in Version=ABIN
AIPS 2: SETFC    was not found to be running
AIPS 2: 'SEARCHING FOR NVSS SOURCES'
AIPS 2: Found in Version=ABIN
SETFC2: Task SETFC  (release of 31DEC06) begins
SETFC2: Found 1658+476    C BAND Seq   1 Disk:  1 in slot    4
SETFC2: ZTXOP2: using translated file name =
SETFC2: ZTXOP2: /tmp/SETFC@1658+476_C,BAND.0-1
SETFC2: Searching catalog between  0.05 and   0.23 degrees radius
SETFC2: ZTXOP2: using translated file name =
SETFC2: ZTXOP2: /home/auto/aips/TEXT/STARS/NV00.0030
SETFC2: No NVSS sources selected for BOXFILE
SETFC2: The Sun is  73.9 deg away - ignoring
SETFC2: First field number written was   8
SETFC2: Highest field number written was   7
SETFC2: returns adverbs to AIPS
SETFC2: Appears to have ended successfully
SETFC2: auto         31DEC06 TST: Cpu=       1.2  Real=       1
C     1  1012  1012   16 58 02.78   47 37 49.2
00001  -1    507    512    513
C     2  1012  1012   16 58 02.78   47 32 07.8
00002  -1    507    512    513
C     3  1012  1012   16 57 33.56   47 34 58.3
00003  -1    507    512    513
C     4  1012  1012   16 58 32.00   47 34 58.3
00004  -1    507    512    513
C     5  1012  1012   16 57 33.51   47 40 39.7
00005  -1    507    512    513
C     6  1012  1012   16 58 32.05   47 40 39.7
00006  -1    507    512    513
C     7  1012  1012   16 58 02.78   47 43 30.6
00007  -1    507    512    513
xecuted is:
AIPS 2: rm -f /tmp/SETFC@0542+498_C,BAND.0-1 >& /dev/null
AIPS 2: Found in Version=ABIN
AIPS 2: Waiting for returned adverbs
AIPS 2: Resumes
AIPS 2: Found in Version=ABIN
AIPS 2: SETFC    was not found to be running
AIPS 2: 'SEARCHING FOR NVSS SOURCES'
AIPS 2: Found in Version=ABIN
AIPS 2: Waiting for returned adverbs
AIPS 2: Resumes
AIPS 2: Found in Version=ABIN
AIPS 2: SETFC    was not found to be running
AIPS 2: SYSTEM command to be executed is:
AIPS 2: cat /tmp/SETFC@0542+498_C,BAND.0-1 >> /home/auto/run/AK485_1999D
AIPS 2: EC29_1.log.0
AIPS 2: '    NOW STARTING WITH SOURCE  :1  =0542+498'
AIPS 2: ' '
AIPS 2: Resumes
AIPS 2: SYSTEM command to be executed is:
AIPS 2: rm -f /tmp/SETFC@0542+498_C,BAND.0-1 >& /dev/null
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=      7 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=      8 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=      9 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     10 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     11 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     12 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     13 disk= 1
AIPS 2: Disk  1 in-CNO   14 renumbered as CNO    6
AIPS 2: Disk  1 in-CNO   15 renumbered as CNO    7
AIPS 2: Disk  1 in-CNO   16 renumbered as CNO    8
AIPS 2: Disk  1 in-CNO   17 renumbered as CNO    9
AIPS 2: Disk  1 in-CNO   18 renumbered as CNO   10
AIPS 2: Disk  1 in-CNO   19 renumbered as CNO   11
AIPS 2: Disk  1 in-CNO   20 renumbered as CNO   12
AIPS 2: ' '
AIPS 2: 'ESTIMATED RMS:'     '0.09327 MILLI JANSKY'
AIPS 2: SYSTEM command to be executed is:
AIPS 2: rm -f /tmp/SETFC@1658+476_C,BAND.0-1 >& /dev/null
AIPS 2: Found in Version=ABIN
AIPS 2: Waiting for returned adverbs
AIPS 2: Resumes
AIPS 2: Found in Version=ABIN
AIPS 2: SETFC    was not found to be running
AIPS 2: 'SEARCHING FOR NVSS SOURCES'
AIPS 2: Found in Version=ABIN
AIPS 2: Waiting for returned adverbs
AIPS 2: Resumes
AIPS 2: Found in Version=ABIN
AIPS 2: SETFC    was not found to be running
AIPS 2: SYSTEM command to be executed is:
AIPS 2: cat /tmp/SETFC@1658+476_C,BAND.0-1 >> /home/auto/run/AK485_1999D
AIPS 2: EC29_1.log.0
AIPS 2: '    NOW STARTING WITH SOURCE  :2  =1658+476'
AIPS 2: ' '
IMAGR2: Task IMAGR  (release of 31DEC06) begins
IMAGR2: ZTXOP2: using translated file name =
IMAGR2: ZTXOP2: /tmp/SETFC@1658+476_C,BAND.0-1
IMAGR2: FIELDF: Final field parameters and # read are:
IMAGR2: Field    1 1012 1012  4.0435E-03 -3.1000E-02          0
IMAGR2: Field    2 1012 1012  4.0435E-03 -3.4143E+02          0
IMAGR2: Field    3 1012 1012 -2.9537E+02 -1.7093E+02          0
IMAGR2: Field    4 1012 1012  2.9538E+02 -1.7093E+02          0
IMAGR2: Field    5 1012 1012 -2.9588E+02  1.7047E+02          0
IMAGR2: Field    6 1012 1012  2.9588E+02  1.7047E+02          0
IMAGR2: Field    7 1012 1012  4.0435E-03  3.4137E+02          0
IMAGR2: ZTXOP2: using translated file name =
IMAGR2: ZTXOP2: /tmp/SETFC@1658+476_C,BAND.0-1
IMAGR2: WINDF: Number of clean boxes/field read as follows:
IMAGR2: Field 01:   1  Field 02:   1  Field 03:   1  Field 04:   1
IMAGR2: Field 05:   1  Field 06:   1  Field 07:   1
IMAGR2: Create 1658+476    .IMAGR .   1 (UV)  on disk  1  cno   13
IMAGR2: Beginning channel    1 through    1 with  2 IFs
IMAGR2: IMACPY: Copied    21419 visibilities to be imaged
IMAGR2: UVWAIT: begin finding uniform weights
IMAGR2: UVWAIT: Average grid weight  1.457E+04
IMAGR2: UVWAIT: Adding temperance S  2.915E+03
IMAGR2: UVWAIT: begin applying uniform or other weights
IMAGR2: UVWAIT: Sum of weights in  3.724E+07 and out  4.960E+07
IMAGR2: UVWAIT: Noise is increased by a factor 1.121 due to weighting
IMAGR2: UVWAIT: Average summed weight  1.457E+04 over      42539 vis
IMAGR2: Create 1658+476    .IBM001.   1 (MA)  on disk  1  cno   14
IMAGR2: Create 1658+476    .IBM002.   1 (MA)  on disk  1  cno   15
IMAGR2: Create 1658+476    .IBM003.   1 (MA)  on disk  1  cno   16
IMAGR2: Create 1658+476    .IBM004.   1 (MA)  on disk  1  cno   17
IMAGR2: Create 1658+476    .IBM005.   1 (MA)  on disk  1  cno   18
IMAGR2: Create 1658+476    .IBM006.   1 (MA)  on disk  1  cno   19
IMAGR2: Create 1658+476    .IBM007.   1 (MA)  on disk  1  cno   20
IMAGR2: Create 1658+476    .ICL001.   1 (MA)  on disk  1  cno   21
IMAGR2: Create 1658+476    .ICL002.   1 (MA)  on disk  1  cno   22
IMAGR2: Create 1658+476    .ICL003.   1 (MA)  on disk  1  cno   23
IMAGR2: Create 1658+476    .ICL004.   1 (MA)  on disk  1  cno   24
IMAGR2: Create 1658+476    .ICL005.   1 (MA)  on disk  1  cno   25
IMAGR2: Create 1658+476    .ICL006.   1 (MA)  on disk  1  cno   26
IMAGR2: Create 1658+476    .ICL007.   1 (MA)  on disk  1  cno   27
IMAGR2: GRDFLT: X and Y convolution type = SPHEROIDAL
IMAGR2: GRDFLT: X and Y parms =  3.0000  1.0000
IMAGR2: GRDFLT: convolution function sampled every 1/100 of a cell
IMAGR2: GRDMEM: Ave    2 Channels; 4.885100E+09 to 4.835100E+09 Hz
IMAGR2: Field   1 Sum of gridding weights =  5.26586E+08
IMAGR2: Field   1 Beam min = -159.2 MilliJy, max =    1.0      Jy
IMAGR2: Field   1 fit FWHM =    2.867 x    1.197      arcsec, PA=  -68.3
IMAGR2: Field   2 Sum of gridding weights =  5.26588E+08
IMAGR2: Field   2 Beam min = -159.2 MilliJy, max =    1.0      Jy
IMAGR2: Field   2 fit FWHM =    2.871 x    1.198      arcsec, PA=  -68.2
IMAGR2: Field   3 Sum of gridding weights =  5.26584E+08
IMAGR2: Field   3 Beam min =  -75.7 MilliJy, max =    1.0      Jy
IMAGR2: Field   3 fit FWHM =    2.861 x    1.198      arcsec, PA=  -68.3
IMAGR2: Field   4 Sum of gridding weights =  5.26585E+08
IMAGR2: Field   4 Beam min =  -87.4 MilliJy, max =    1.0      Jy
IMAGR2: Field   4 fit FWHM =    2.877 x    1.197      arcsec, PA=  -68.2
IMAGR2: Field   5 Sum of gridding weights =  5.26584E+08
IMAGR2: Field   5 Beam min =  -75.6 MilliJy, max =    1.0      Jy
IMAGR2: Field   5 fit FWHM =    2.857 x    1.197      arcsec, PA=  -68.4
IMAGR2: Field   6 Sum of gridding weights =  5.26585E+08
IMAGR2: Field   6 Beam min =  -75.6 MilliJy, max =    1.0      Jy
IMAGR2: Field   6 fit FWHM =    2.873 x    1.197      arcsec, PA=  -68.2
IMAGR2: Field   7 Sum of gridding weights =  5.26586E+08
IMAGR2: Field   7 Beam min = -159.2 MilliJy, max =    1.0      Jy
IMAGR2: Field   7 fit FWHM =    2.863 x    1.197      arcsec, PA=  -68.3
IMAGR2: CLBHIS: minimum component 0.344 of current peak
IMAGR2: Field   1 min =  -99.8 MilliJy,max =    1.3      Jy
IMAGR2: Field   2 min =  -62.4 MilliJy,max =  105.3 MilliJy
IMAGR2: Field   3 min = -100.3 MilliJy,max =  107.5 MilliJy
IMAGR2: Field   4 min = -104.3 MilliJy,max =   89.2 MilliJy
IMAGR2: Field   5 min = -106.1 MilliJy,max =   91.3 MilliJy
IMAGR2: Field   6 min = -102.7 MilliJy,max =  110.1 MilliJy
IMAGR2: Field   7 min =  -55.5 MilliJy,max =  111.3 MilliJy
IMAGR2: BGC Clean: using 2043 cell beam + residuals >    88.01 MilliJy
IMAGR2:      600 Residual map points loaded
IMAGR2: Field    1 min algorithm flux=  411.887 MilliJy iter=       12
IMAGR2: Field    1 Clean flux density=  941.836 MilliJy       12 comps
IMAGR2: Total Cleaned flux density     =  941.836 MilliJy       12 comps
IMAGR2: SETDO3: imaging done with multiple tangent planes
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: VISDFT: Model components of type Point
IMAGR2: I Polarization model processed
IMAGR2: Field   1 min =  -28.8 MilliJy,max =  370.7 MilliJy
IMAGR2: BGC Clean: using  119 cell beam + residuals >    47.83 MilliJy
IMAGR2:       49 Residual map points loaded
IMAGR2: Field    1 min allowed flux  =  123.381 MilliJy iter=       24
IMAGR2: Field    1 Clean flux density=    1.210      Jy       24 comps
IMAGR2: Total Cleaned flux density     =    1.210      Jy       24 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   1 min =   -8.7 MilliJy,max =  112.4 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >    46.46 MilliJy
IMAGR2:       20 Residual map points loaded
IMAGR2: Field    1 min algorithm flux=   59.258 MilliJy iter=       32
IMAGR2: Field    1 Clean flux density=    1.277      Jy       32 comps
IMAGR2: Total Cleaned flux density     =    1.277      Jy       32 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   7 min =   -8.2 MilliJy,max =    6.8 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  7.866E-03 < Second best  1.052E-01
IMAGR2: Field   6 min =   -8.1 MilliJy,max =    7.8 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  7.751E-03 < Second best  1.027E-01
IMAGR2: Field   3 min =   -6.6 MilliJy,max =    6.4 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  6.124E-03 < Second best  1.006E-01
IMAGR2: Field   2 min =   -7.1 MilliJy,max =    6.1 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  6.140E-03 < Second best  8.689E-02
IMAGR2: Field   5 min =   -6.9 MilliJy,max =    7.4 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  6.019E-03 < Second best  8.307E-02
IMAGR2: Field   4 min =   -7.6 MilliJy,max =   12.1 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  1.150E-02 < Second best  5.633E-02
IMAGR2: Field   1 min =   -6.6 MilliJy,max =   53.6 MilliJy
IMAGR2: BGC Clean: using 2043 cell beam + residuals >     3.97 MilliJy
IMAGR2:      828 Residual map points loaded
IMAGR2: Field    1 min allowed flux  =   17.850 MilliJy iter=       45
IMAGR2: Field    1 Clean flux density=    1.319      Jy       45 comps
IMAGR2: Total Cleaned flux density     =    1.319      Jy       45 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   1 min =   -8.4 MilliJy,max =   16.1 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     3.45 MilliJy
IMAGR2:      136 Residual map points loaded
IMAGR2: Field    1 min algorithm flux=   -5.611 MilliJy iter=       73
IMAGR2: Field    1 Clean flux density=    1.325      Jy       73 comps
IMAGR2: Total Cleaned flux density     =    1.325      Jy       73 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   4 min =   -7.2 MilliJy,max =   12.2 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     3.34 MilliJy
IMAGR2:     1583 Residual map points loaded
IMAGR2: Field    4 min algorithm flux=   -5.089 MilliJy iter=       38
IMAGR2: Field    4 Clean flux density=    2.498 MilliJy       38 comps
IMAGR2: Total Cleaned flux density     =    1.327      Jy      111 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   7 min =   -7.9 MilliJy,max =    4.8 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     3.28 MilliJy
IMAGR2:      314 Residual map points loaded
IMAGR2: Field    7 min algorithm flux=    4.198 MilliJy iter=       33
IMAGR2: Field    7 Clean flux density=   -9.779 MilliJy       33 comps
IMAGR2: Total Cleaned flux density     =    1.317      Jy      144 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   6 min =   -6.7 MilliJy,max =    5.1 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     3.10 MilliJy
IMAGR2:     2514 Residual map points loaded
IMAGR2: Field    6 min algorithm flux=   -4.347 MilliJy iter=       69
IMAGR2: Field    6 Clean flux density=  -17.214 MilliJy       69 comps
IMAGR2: Total Cleaned flux density     =    1.300      Jy      213 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   2 min =   -6.2 MilliJy,max =    4.4 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     3.01 MilliJy
IMAGR2:      217 Residual map points loaded
IMAGR2: Field    2 min algorithm flux=   -3.508 MilliJy iter=       37
IMAGR2: Field    2 Clean flux density=   -7.195 MilliJy       37 comps
IMAGR2: Total Cleaned flux density     =    1.293      Jy      250 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   3 min =   -5.7 MilliJy,max =    4.8 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  4.861E-03 < Second best  6.019E-03
IMAGR2: Field   5 min =   -7.2 MilliJy,max =    5.5 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     2.75 MilliJy
IMAGR2:     3324 Residual map points loaded
IMAGR2: Field    5 min algorithm flux=   -3.977 MilliJy iter=      134
IMAGR2: Field    5 Clean flux density=  -36.734 MilliJy      134 comps
IMAGR2: Total Cleaned flux density     =    1.256      Jy      384 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   1 min =   -4.5 MilliJy,max =    5.9 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     2.74 MilliJy
IMAGR2:      297 Residual map points loaded
IMAGR2: Field    1 min algorithm flux=    3.223 MilliJy iter=      141
IMAGR2: Field    1 Clean flux density=    1.322      Jy      141 comps
IMAGR2: Total Cleaned flux density     =    1.253      Jy      452 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   3 min =   -5.3 MilliJy,max =    4.7 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     2.72 MilliJy
IMAGR2:     1991 Residual map points loaded
IMAGR2: Field    3 min algorithm flux=   -3.486 MilliJy iter=      140
IMAGR2: Field    3 Clean flux density=  -32.938 MilliJy      140 comps
IMAGR2: Total Cleaned flux density     =    1.220      Jy      592 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   4 min =   -6.6 MilliJy,max =    6.1 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     2.67 MilliJy
IMAGR2:     4499 Residual map points loaded
IMAGR2: Field    4 min algorithm flux=   -3.681 MilliJy iter=      298
IMAGR2: Field    4 Clean flux density=  -16.476 MilliJy      298 comps
IMAGR2: Total Cleaned flux density     =    1.201      Jy      852 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    4 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   6 min =   -5.6 MilliJy,max =    4.7 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     2.60 MilliJy
IMAGR2:     4180 Residual map points loaded
IMAGR2: Field    6 min algorithm flux=   -3.352 MilliJy iter=      343
IMAGR2: Field    6 Clean flux density=  -39.678 MilliJy      343 comps
IMAGR2: Total Cleaned flux density     =    1.179      Jy     1126 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    6 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   7 min =   -4.6 MilliJy,max =    4.1 MilliJy
IMAGR2: TRY ANOTHER FIELD: this is  3.501E-03 < Second best  3.801E-03
IMAGR2: Field   5 min =   -6.3 MilliJy,max =    5.0 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     2.53 MilliJy
IMAGR2:     2908 Residual map points loaded
IMAGR2: Field    5 min algorithm flux=    3.099 MilliJy iter=      409
IMAGR2: Field    5 Clean flux density=  -54.079 MilliJy      409 comps
IMAGR2: Total Cleaned flux density     =    1.162      Jy     1401 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    5 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   4 min =   -5.4 MilliJy,max =    5.2 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     2.44 MilliJy
IMAGR2:     2777 Residual map points loaded
IMAGR2: Field    4 min algorithm flux=   -2.897 MilliJy iter=      580
IMAGR2: Field    4 Clean flux density=  -20.237 MilliJy      580 comps
IMAGR2: Total Cleaned flux density     =    1.158      Jy     1683 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    4 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   7 min =   -4.4 MilliJy,max =    3.7 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     2.44 MilliJy
IMAGR2:      634 Residual map points loaded
IMAGR2: Field    7 min algorithm flux=   -2.676 MilliJy iter=      199
IMAGR2: Field    7 Clean flux density=  -26.390 MilliJy      199 comps
IMAGR2: Total Cleaned flux density     =    1.141      Jy     1849 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   2 min =   -4.8 MilliJy,max =    3.4 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     2.42 MilliJy
IMAGR2:      456 Residual map points loaded
IMAGR2: Field    2 min algorithm flux=    2.606 MilliJy iter=      178
IMAGR2: Field    2 Clean flux density=  -18.522 MilliJy      178 comps
IMAGR2: Total Cleaned flux density     =    1.130      Jy     1990 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   3 min =   -4.6 MilliJy,max =    4.4 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     2.37 MilliJy
IMAGR2:     2122 Residual map points loaded
IMAGR2: Field    3 min algorithm flux=   -2.724 MilliJy iter=      451
IMAGR2: Field    3 Clean flux density=  -70.828 MilliJy      451 comps
IMAGR2: Total Cleaned flux density     =    1.092      Jy     2301 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    3 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   6 min =   -5.0 MilliJy,max =    4.0 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     2.28 MilliJy
IMAGR2:     3524 Residual map points loaded
IMAGR2: Field    6 min algorithm flux=   -2.676 MilliJy iter=      767
IMAGR2: Field    6 Clean flux density=  -64.792 MilliJy      767 comps
IMAGR2: Total Cleaned flux density     =    1.067      Jy     2725 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    6 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   1 min =   -3.7 MilliJy,max =    3.1 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     2.27 MilliJy
IMAGR2:      211 Residual map points loaded
IMAGR2: Field    1 min algorithm flux=   -2.364 MilliJy iter=      231
IMAGR2: Field    1 Clean flux density=    1.316      Jy      231 comps
IMAGR2: Total Cleaned flux density     =    1.061      Jy     2815 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   5 min =   -5.6 MilliJy,max =    4.2 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     2.20 MilliJy
IMAGR2:     2313 Residual map points loaded
IMAGR2: Field    5 min algorithm flux=    2.465 MilliJy iter=      758
IMAGR2: Field    5 Clean flux density=  -64.718 MilliJy      758 comps
IMAGR2: Total Cleaned flux density     =    1.050      Jy     3164 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    5 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   4 min =   -5.0 MilliJy,max =    4.5 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     2.13 MilliJy
IMAGR2:     2490 Residual map points loaded
IMAGR2: Field    4 min algorithm flux=    2.387 MilliJy iter=      967
IMAGR2: Field    4 Clean flux density=  -29.903 MilliJy      967 comps
IMAGR2: Total Cleaned flux density     =    1.040      Jy     3551 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    4 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   3 min =   -4.2 MilliJy,max =    3.9 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     2.09 MilliJy
IMAGR2:     1788 Residual map points loaded
IMAGR2: Field    3 min algorithm flux=    2.278 MilliJy iter=      786
IMAGR2: Field    3 Clean flux density=  -93.462 MilliJy      786 comps
IMAGR2: Total Cleaned flux density     =    1.018      Jy     3886 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    3 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   6 min =   -4.3 MilliJy,max =    3.5 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     2.02 MilliJy
IMAGR2:     2931 Residual map points loaded
IMAGR2: Field    6 min algorithm flux=   -2.249 MilliJy iter=     1221
IMAGR2: Field    6 Clean flux density=  -80.058 MilliJy     1221 comps
IMAGR2: Total Cleaned flux density     =    1.002      Jy     4340 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    6 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   7 min =   -3.9 MilliJy,max =    3.2 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.99 MilliJy
IMAGR2:      612 Residual map points loaded
IMAGR2: Field    7 min algorithm flux=   -2.085 MilliJy iter=      408
IMAGR2: Field    7 Clean flux density=  -39.972 MilliJy      408 comps
IMAGR2: Total Cleaned flux density     =  988.869 MilliJy     4549 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   2 min =   -4.2 MilliJy,max =    2.8 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.96 MilliJy
IMAGR2:      709 Residual map points loaded
IMAGR2: Field    2 min algorithm flux=   -2.064 MilliJy iter=      409
IMAGR2: Field    2 Clean flux density=  -41.258 MilliJy      409 comps
IMAGR2: Total Cleaned flux density     =  966.133 MilliJy     4780 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   5 min =   -5.2 MilliJy,max =    3.8 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.91 MilliJy
IMAGR2:     2261 Residual map points loaded
IMAGR2: Field    5 min algorithm flux=    2.077 MilliJy iter=     1168
IMAGR2: Field    5 Clean flux density=  -80.377 MilliJy     1168 comps
IMAGR2: Total Cleaned flux density     =  950.474 MilliJy     5190 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    5 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   4 min =   -4.6 MilliJy,max =    3.8 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.86 MilliJy
IMAGR2:     2314 Residual map points loaded
IMAGR2: Field    4 min algorithm flux=   -2.013 MilliJy iter=     1393
IMAGR2: Field    4 Clean flux density=  -43.242 MilliJy     1393 comps
IMAGR2: Total Cleaned flux density     =  937.135 MilliJy     5616 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    4 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   1 min =   -3.0 MilliJy,max =    2.7 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.85 MilliJy
IMAGR2:      428 Residual map points loaded
IMAGR2: Field    1 min algorithm flux=    1.925 MilliJy iter=      398
IMAGR2: Field    1 Clean flux density=    1.303      Jy      398 comps
IMAGR2: Total Cleaned flux density     =  924.276 MilliJy     5783 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   3 min =   -3.8 MilliJy,max =    3.4 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.81 MilliJy
IMAGR2:     1936 Residual map points loaded
IMAGR2: Field    3 min algorithm flux=    1.939 MilliJy iter=     1204
IMAGR2: Field    3 Clean flux density= -108.588 MilliJy     1204 comps
IMAGR2: Total Cleaned flux density     =  909.150 MilliJy     6201 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    3 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   6 min =   -3.9 MilliJy,max =    3.2 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.75 MilliJy
IMAGR2:     3160 Residual map points loaded
IMAGR2: Field    6 min algorithm flux=   -1.918 MilliJy iter=     1807
IMAGR2: Field    6 Clean flux density=  -92.077 MilliJy     1807 comps
IMAGR2: Total Cleaned flux density     =  897.131 MilliJy     6787 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    6 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   7 min =   -3.5 MilliJy,max =    2.8 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.74 MilliJy
IMAGR2:      598 Residual map points loaded
IMAGR2: Field    7 min algorithm flux=    1.796 MilliJy iter=      631
IMAGR2: Field    7 Clean flux density=  -55.905 MilliJy      631 comps
IMAGR2: Total Cleaned flux density     =  881.199 MilliJy     7010 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   5 min =   -4.4 MilliJy,max =    3.4 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.70 MilliJy
IMAGR2:     1909 Residual map points loaded
IMAGR2: Field    5 min algorithm flux=   -1.799 MilliJy iter=     1575
IMAGR2: Field    5 Clean flux density=  -83.019 MilliJy     1575 comps
IMAGR2: Total Cleaned flux density     =  878.557 MilliJy     7417 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    5 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   2 min =   -4.0 MilliJy,max =    2.6 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.68 MilliJy
IMAGR2:      863 Residual map points loaded
IMAGR2: Field    2 min algorithm flux=    1.750 MilliJy iter=      712
IMAGR2: Field    2 Clean flux density=  -65.613 MilliJy      712 comps
IMAGR2: Total Cleaned flux density     =  854.202 MilliJy     7720 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    2 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   4 min =   -4.0 MilliJy,max =    3.3 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.64 MilliJy
IMAGR2:     2099 Residual map points loaded
IMAGR2: Field    4 min algorithm flux=   -1.737 MilliJy iter=     1858
IMAGR2: Field    4 Clean flux density=  -50.213 MilliJy     1858 comps
IMAGR2: Total Cleaned flux density     =  847.231 MilliJy     8185 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    4 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   3 min =   -3.5 MilliJy,max =    3.0 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.60 MilliJy
IMAGR2:     1679 Residual map points loaded
IMAGR2: Field    3 min algorithm flux=   -1.685 MilliJy iter=     1629
IMAGR2: Field    3 Clean flux density= -133.833 MilliJy     1629 comps
IMAGR2: Total Cleaned flux density     =  821.985 MilliJy     8610 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    3 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   6 min =   -3.5 MilliJy,max =    2.8 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.55 MilliJy
IMAGR2:     2268 Residual map points loaded
IMAGR2: Field    6 min algorithm flux=   -1.647 MilliJy iter=     2334
IMAGR2: Field    6 Clean flux density= -110.106 MilliJy     2334 comps
IMAGR2: Total Cleaned flux density     =  803.956 MilliJy     9137 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    6 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   1 min =   -2.5 MilliJy,max =    2.7 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.54 MilliJy
IMAGR2:      822 Residual map points loaded
IMAGR2: Field    1 min algorithm flux=    1.611 MilliJy iter=      691
IMAGR2: Field    1 Clean flux density=    1.287      Jy      691 comps
IMAGR2: Total Cleaned flux density     =  788.806 MilliJy     9430 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    1 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   5 min =   -4.2 MilliJy,max =    3.2 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.51 MilliJy
IMAGR2:     2261 Residual map points loaded
IMAGR2: Field    5 min algorithm flux=    1.597 MilliJy iter=     2094
IMAGR2: Field    5 Clean flux density=  -83.193 MilliJy     2094 comps
IMAGR2: Total Cleaned flux density     =  788.631 MilliJy     9949 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    5 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   7 min =   -3.1 MilliJy,max =    2.4 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.49 MilliJy
IMAGR2:      674 Residual map points loaded
IMAGR2: Field    7 min algorithm flux=    1.538 MilliJy iter=      913
IMAGR2: Field    7 Clean flux density=  -65.691 MilliJy      913 comps
IMAGR2: Total Cleaned flux density     =  778.845 MilliJy    10231 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    7 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   2 min =   -3.8 MilliJy,max =    2.4 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.48 MilliJy
IMAGR2:      795 Residual map points loaded
IMAGR2: Field    2 min algorithm flux=    1.523 MilliJy iter=     1019
IMAGR2: Field    2 Clean flux density=  -80.778 MilliJy     1019 comps
IMAGR2: Total Cleaned flux density     =  763.680 MilliJy    10538 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    2 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   4 min =   -3.9 MilliJy,max =    3.2 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.45 MilliJy
IMAGR2:     2649 Residual map points loaded
IMAGR2: Field    4 min algorithm flux=    1.535 MilliJy iter=     2481
IMAGR2: Field    4 Clean flux density=  -49.492 MilliJy     2481 comps
IMAGR2: Total Cleaned flux density     =  764.401 MilliJy    11161 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    4 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   3 min =   -3.2 MilliJy,max =    2.7 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.42 MilliJy
IMAGR2:     1914 Residual map points loaded
IMAGR2: Field    3 min algorithm flux=   -1.489 MilliJy iter=     2149
IMAGR2: Field    3 Clean flux density= -147.243 MilliJy     2149 comps
IMAGR2: Total Cleaned flux density     =  750.991 MilliJy    11681 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    3 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   6 min =   -3.3 MilliJy,max =    2.6 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.39 MilliJy
IMAGR2:     2278 Residual map points loaded
IMAGR2: Field    6 min algorithm flux=   -1.461 MilliJy iter=     2921
IMAGR2: Field    6 Clean flux density= -129.512 MilliJy     2921 comps
IMAGR2: Total Cleaned flux density     =  731.585 MilliJy    12268 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    6 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   1 min =   -2.5 MilliJy,max =    2.2 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.38 MilliJy
IMAGR2:      719 Residual map points loaded
IMAGR2: Field    1 min algorithm flux=    1.429 MilliJy iter=      946
IMAGR2: Field    1 Clean flux density=    1.273      Jy      946 comps
IMAGR2: Total Cleaned flux density     =  717.426 MilliJy    12523 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    1 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   5 min =   -3.9 MilliJy,max =    3.0 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.35 MilliJy
IMAGR2:     2160 Residual map points loaded
IMAGR2: Field    5 min algorithm flux=   -1.411 MilliJy iter=     2637
IMAGR2: Field    5 Clean flux density=  -84.137 MilliJy     2637 comps
IMAGR2: Total Cleaned flux density     =  716.482 MilliJy    13066 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    5 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   7 min =   -2.7 MilliJy,max =    2.2 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.34 MilliJy
IMAGR2:      643 Residual map points loaded
IMAGR2: Field    7 min algorithm flux=   -1.367 MilliJy iter=     1185
IMAGR2: Field    7 Clean flux density=  -72.179 MilliJy     1185 comps
IMAGR2: Total Cleaned flux density     =  709.994 MilliJy    13338 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    7 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   4 min =   -3.5 MilliJy,max =    2.9 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.31 MilliJy
IMAGR2:     2192 Residual map points loaded
IMAGR2: Field    4 min algorithm flux=   -1.370 MilliJy iter=     3042
IMAGR2: Field    4 Clean flux density=  -49.328 MilliJy     3042 comps
IMAGR2: Total Cleaned flux density     =  710.159 MilliJy    13899 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    4 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   2 min =   -3.2 MilliJy,max =    2.1 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.30 MilliJy
IMAGR2:      842 Residual map points loaded
IMAGR2: Field    2 min algorithm flux=   -1.328 MilliJy iter=     1343
IMAGR2: Field    2 Clean flux density=  -93.567 MilliJy     1343 comps
IMAGR2: Total Cleaned flux density     =  697.370 MilliJy    14223 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    2 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   3 min =   -3.0 MilliJy,max =    2.5 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.27 MilliJy
IMAGR2:     1762 Residual map points loaded
IMAGR2: Field    3 min algorithm flux=   -1.319 MilliJy iter=     2674
IMAGR2: Field    3 Clean flux density= -150.740 MilliJy     2674 comps
IMAGR2: Total Cleaned flux density     =  693.872 MilliJy    14748 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    3 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   6 min =   -3.0 MilliJy,max =    2.4 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.25 MilliJy
IMAGR2:     2761 Residual map points loaded
IMAGR2: Field    6 min algorithm flux=   -1.308 MilliJy iter=     3627
IMAGR2: Field    6 Clean flux density= -140.340 MilliJy     3627 comps
IMAGR2: Total Cleaned flux density     =  683.045 MilliJy    15454 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    6 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   1 min =   -2.2 MilliJy,max =    1.9 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.24 MilliJy
IMAGR2:      733 Residual map points loaded
IMAGR2: Field    1 min algorithm flux=   -1.278 MilliJy iter=     1203
IMAGR2: Field    1 Clean flux density=    1.262      Jy     1203 comps
IMAGR2: Total Cleaned flux density     =  671.653 MilliJy    15711 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    1 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   5 min =   -3.6 MilliJy,max =    2.8 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.21 MilliJy
IMAGR2:     2341 Residual map points loaded
IMAGR2: Field    5 min algorithm flux=    1.264 MilliJy iter=     3249
IMAGR2: Field    5 Clean flux density=  -86.929 MilliJy     3249 comps
IMAGR2: Total Cleaned flux density     =  668.861 MilliJy    16323 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    5 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   4 min =   -3.3 MilliJy,max =    2.7 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.19 MilliJy
IMAGR2:     2132 Residual map points loaded
IMAGR2: Field    4 min algorithm flux=   -1.239 MilliJy iter=     3630
IMAGR2: Field    4 Clean flux density=  -48.776 MilliJy     3630 comps
IMAGR2: Total Cleaned flux density     =  669.413 MilliJy    16911 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    4 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   7 min =   -2.4 MilliJy,max =    2.0 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.18 MilliJy
IMAGR2:     1066 Residual map points loaded
IMAGR2: Field    7 min algorithm flux=   -1.214 MilliJy iter=     1604
IMAGR2: Field    7 Clean flux density=  -88.034 MilliJy     1604 comps
IMAGR2: Total Cleaned flux density     =  653.557 MilliJy    17330 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    7 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   2 min =   -2.8 MilliJy,max =    1.9 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.17 MilliJy
IMAGR2:      966 Residual map points loaded
IMAGR2: Field    2 min algorithm flux=    1.200 MilliJy iter=     1714
IMAGR2: Field    2 Clean flux density= -110.327 MilliJy     1714 comps
IMAGR2: Total Cleaned flux density     =  636.798 MilliJy    17701 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    2 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   3 min =   -2.9 MilliJy,max =    2.5 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.15 MilliJy
IMAGR2:     1627 Residual map points loaded
IMAGR2: Field    3 min algorithm flux=   -1.191 MilliJy iter=     3210
IMAGR2: Field    3 Clean flux density= -161.441 MilliJy     3210 comps
IMAGR2: Total Cleaned flux density     =  626.097 MilliJy    18237 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    3 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   6 min =   -2.7 MilliJy,max =    2.3 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.13 MilliJy
IMAGR2:     2479 Residual map points loaded
IMAGR2: Field    6 min algorithm flux=    1.175 MilliJy iter=     4310
IMAGR2: Field    6 Clean flux density= -141.980 MilliJy     4310 comps
IMAGR2: Total Cleaned flux density     =  624.457 MilliJy    18920 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    6 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   1 min =   -2.0 MilliJy,max =    1.7 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.12 MilliJy
IMAGR2:      666 Residual map points loaded
IMAGR2: Field    1 min algorithm flux=   -1.155 MilliJy iter=     1442
IMAGR2: Field    1 Clean flux density=    1.253      Jy     1442 comps
IMAGR2: Total Cleaned flux density     =  615.620 MilliJy    19159 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   5 min =   -3.4 MilliJy,max =    2.6 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.10 MilliJy
IMAGR2:     2262 Residual map points loaded
IMAGR2: Field    5 min algorithm flux=   -1.140 MilliJy iter=     3871
IMAGR2: Field    5 Clean flux density=  -91.640 MilliJy     3871 comps
IMAGR2: Total Cleaned flux density     =  610.908 MilliJy    19781 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    5 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   4 min =   -3.2 MilliJy,max =    2.4 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.09 MilliJy
IMAGR2:     2419 Residual map points loaded
IMAGR2: Field    4 min algorithm flux=   -1.125 MilliJy iter=     4313
IMAGR2: Field    4 Clean flux density=  -51.829 MilliJy     4313 comps
IMAGR2: Total Cleaned flux density     =  607.856 MilliJy    20464 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    4 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   7 min =   -2.3 MilliJy,max =    1.9 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.07 MilliJy
IMAGR2:     1042 Residual map points loaded
IMAGR2: Field    7 min algorithm flux=    1.098 MilliJy iter=     2009
IMAGR2: Field    7 Clean flux density= -100.722 MilliJy     2009 comps
IMAGR2: Total Cleaned flux density     =  595.168 MilliJy    20869 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    7 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   2 min =   -2.7 MilliJy,max =    1.8 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.07 MilliJy
IMAGR2:      904 Residual map points loaded
IMAGR2: Field    2 min algorithm flux=    1.085 MilliJy iter=     2080
IMAGR2: Field    2 Clean flux density= -120.211 MilliJy     2080 comps
IMAGR2: Total Cleaned flux density     =  585.283 MilliJy    21235 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    2 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   3 min =   -2.7 MilliJy,max =    2.3 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.05 MilliJy
IMAGR2:     1888 Residual map points loaded
IMAGR2: Field    3 min algorithm flux=    1.083 MilliJy iter=     3820
IMAGR2: Field    3 Clean flux density= -166.622 MilliJy     3820 comps
IMAGR2: Total Cleaned flux density     =  580.102 MilliJy    21845 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    3 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   6 min =   -2.5 MilliJy,max =    2.2 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.03 MilliJy
IMAGR2:     2455 Residual map points loaded
IMAGR2: Field    6 min algorithm flux=    1.068 MilliJy iter=     5040
IMAGR2: Field    6 Clean flux density= -147.624 MilliJy     5040 comps
IMAGR2: Total Cleaned flux density     =  574.456 MilliJy    22575 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    6 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   1 min =   -2.0 MilliJy,max =    1.6 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.03 MilliJy
IMAGR2:      803 Residual map points loaded
IMAGR2: Field    1 min algorithm flux=   -1.056 MilliJy iter=     1711
IMAGR2: Field    1 Clean flux density=    1.245      Jy     1711 comps
IMAGR2: Total Cleaned flux density     =  566.644 MilliJy    22844 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    1 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   5 min =   -3.2 MilliJy,max =    2.4 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >     1.01 MilliJy
IMAGR2:     2461 Residual map points loaded
IMAGR2: Field    5 min algorithm flux=   -1.043 MilliJy iter=     4577
IMAGR2: Field    5 Clean flux density=  -94.057 MilliJy     4577 comps
IMAGR2: Total Cleaned flux density     =  564.228 MilliJy    23550 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    5 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   4 min =   -3.0 MilliJy,max =    2.3 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   993.78 MicroJy
IMAGR2:     2376 Residual map points loaded
IMAGR2: Field    4 min algorithm flux=   -1.025 MilliJy iter=     4999
IMAGR2: Field    4 Clean flux density=  -54.461 MilliJy     4999 comps
IMAGR2: Total Cleaned flux density     =  561.596 MilliJy    24236 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    4 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   7 min =   -2.1 MilliJy,max =    1.9 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   985.34 MicroJy
IMAGR2:      998 Residual map points loaded
IMAGR2: Field    7 min algorithm flux=    1.003 MilliJy iter=     2404
IMAGR2: Field    7 Clean flux density= -111.317 MilliJy     2404 comps
IMAGR2: Total Cleaned flux density     =  551.001 MilliJy    24631 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    7 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   2 min =   -2.3 MilliJy,max =    1.7 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   977.38 MicroJy
IMAGR2:      902 Residual map points loaded
IMAGR2: Field    2 min algorithm flux=  993.074 MicroJy iter=     2440
IMAGR2: Field    2 Clean flux density= -130.798 MilliJy     2440 comps
IMAGR2: Total Cleaned flux density     =  540.414 MilliJy    24991 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    2 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   3 min =   -2.5 MilliJy,max =    2.2 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   963.28 MicroJy
IMAGR2:     1824 Residual map points loaded
IMAGR2: Field    3 min algorithm flux=  988.424 MicroJy iter=     4427
IMAGR2: Field    3 Clean flux density= -172.479 MilliJy     4427 comps
IMAGR2: Total Cleaned flux density     =  534.556 MilliJy    25598 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    3 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   6 min =   -2.3 MilliJy,max =    2.1 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   947.49 MicroJy
IMAGR2:     2424 Residual map points loaded
IMAGR2: Field    6 min algorithm flux= -977.237 MicroJy iter=     5779
IMAGR2: Field    6 Clean flux density= -150.404 MilliJy     5779 comps
IMAGR2: Total Cleaned flux density     =  531.776 MilliJy    26337 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    6 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   1 min =   -1.8 MilliJy,max =    1.5 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   942.34 MicroJy
IMAGR2:      919 Residual map points loaded
IMAGR2: Field    1 min algorithm flux= -970.373 MicroJy iter=     2011
IMAGR2: Field    1 Clean flux density=    1.236      Jy     2011 comps
IMAGR2: Total Cleaned flux density     =  522.237 MilliJy    26637 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    1 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   5 min =   -3.0 MilliJy,max =    2.2 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   927.98 MicroJy
IMAGR2:     2504 Residual map points loaded
IMAGR2: Field    5 min algorithm flux= -956.028 MicroJy iter=     5307
IMAGR2: Field    5 Clean flux density=  -97.559 MilliJy     5307 comps
IMAGR2: Total Cleaned flux density     =  518.734 MilliJy    27367 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    5 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   4 min =   -2.8 MilliJy,max =    2.2 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   915.08 MicroJy
IMAGR2:     2683 Residual map points loaded
IMAGR2: Field    4 min algorithm flux= -943.322 MicroJy iter=     5769
IMAGR2: Field    4 Clean flux density=  -54.854 MilliJy     5769 comps
IMAGR2: Total Cleaned flux density     =  518.342 MilliJy    28137 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    4 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   7 min =   -1.9 MilliJy,max =    1.8 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   908.01 MicroJy
IMAGR2:     1052 Residual map points loaded
IMAGR2: Field    7 min algorithm flux=  923.994 MicroJy iter=     2832
IMAGR2: Field    7 Clean flux density= -118.192 MilliJy     2832 comps
IMAGR2: Total Cleaned flux density     =  511.468 MilliJy    28565 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    7 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   2 min =   -2.1 MilliJy,max =    1.6 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   901.39 MicroJy
IMAGR2:      957 Residual map points loaded
IMAGR2: Field    2 min algorithm flux=  915.136 MicroJy iter=     2830
IMAGR2: Field    2 Clean flux density= -140.473 MilliJy     2830 comps
IMAGR2: Total Cleaned flux density     =  501.793 MilliJy    28955 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    2 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   3 min =   -2.4 MilliJy,max =    2.1 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   890.18 MicroJy
IMAGR2:     1866 Residual map points loaded
IMAGR2: Field    3 min algorithm flux=  911.873 MicroJy iter=     5077
IMAGR2: Field    3 Clean flux density= -177.414 MilliJy     5077 comps
IMAGR2: Total Cleaned flux density     =  496.858 MilliJy    29605 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    3 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   6 min =   -2.2 MilliJy,max =    2.0 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   877.05 MicroJy
IMAGR2:     2426 Residual map points loaded
IMAGR2: Field    6 min algorithm flux= -901.674 MicroJy iter=     6541
IMAGR2: Field    6 Clean flux density= -154.646 MilliJy     6541 comps
IMAGR2: Total Cleaned flux density     =  492.617 MilliJy    30367 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    6 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   1 min =   -1.7 MilliJy,max =    1.3 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   872.10 MicroJy
IMAGR2:      977 Residual map points loaded
IMAGR2: Field    1 min algorithm flux= -897.739 MicroJy iter=     2334
IMAGR2: Field    1 Clean flux density=    1.226      Jy     2334 comps
IMAGR2: Total Cleaned flux density     =  482.635 MilliJy    30690 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    1 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   5 min =   -2.8 MilliJy,max =    2.1 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   861.03 MicroJy
IMAGR2:     2619 Residual map points loaded
IMAGR2: Field    5 min algorithm flux=  884.470 MicroJy iter=     6072
IMAGR2: Field    5 Clean flux density= -102.589 MilliJy     6072 comps
IMAGR2: Total Cleaned flux density     =  477.605 MilliJy    31455 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    5 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   4 min =   -2.7 MilliJy,max =    2.1 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   849.23 MicroJy
IMAGR2:     2573 Residual map points loaded
IMAGR2: Field    4 min algorithm flux= -872.447 MicroJy iter=     6537
IMAGR2: Field    4 Clean flux density=  -57.199 MilliJy     6537 comps
IMAGR2: Total Cleaned flux density     =  475.259 MilliJy    32223 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    4 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   7 min =   -1.8 MilliJy,max =    1.6 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   842.54 MicroJy
IMAGR2:      995 Residual map points loaded
IMAGR2: Field    7 min algorithm flux=  855.393 MicroJy iter=     3259
IMAGR2: Field    7 Clean flux density= -130.297 MilliJy     3259 comps
IMAGR2: Total Cleaned flux density     =  463.154 MilliJy    32650 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    7 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   2 min =   -2.0 MilliJy,max =    1.6 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   836.27 MicroJy
IMAGR2:      952 Residual map points loaded
IMAGR2: Field    2 min algorithm flux=  848.238 MicroJy iter=     3234
IMAGR2: Field    2 Clean flux density= -150.598 MilliJy     3234 comps
IMAGR2: Total Cleaned flux density     =  453.029 MilliJy    33054 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    2 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   3 min =   -2.3 MilliJy,max =    2.0 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   826.14 MicroJy
IMAGR2:     1847 Residual map points loaded
IMAGR2: Field    3 min algorithm flux= -844.238 MicroJy iter=     5729
IMAGR2: Field    3 Clean flux density= -179.382 MilliJy     5729 comps
IMAGR2: Total Cleaned flux density     =  451.061 MilliJy    33706 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    3 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   6 min =   -2.1 MilliJy,max =    1.9 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   814.96 MicroJy
IMAGR2:     2542 Residual map points loaded
IMAGR2: Field    6 min algorithm flux= -836.192 MicroJy iter=     7335
IMAGR2: Field    6 Clean flux density= -156.991 MilliJy     7335 comps
IMAGR2: Total Cleaned flux density     =  448.716 MilliJy    34500 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    6 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   1 min =   -1.6 MilliJy,max =    1.3 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   810.68 MicroJy
IMAGR2:     1054 Residual map points loaded
IMAGR2: Field    1 min algorithm flux=  833.553 MicroJy iter=     2655
IMAGR2: Field    1 Clean flux density=    1.217      Jy     2655 comps
IMAGR2: Total Cleaned flux density     =  439.772 MilliJy    34821 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    1 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   5 min =   -2.6 MilliJy,max =    2.0 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   800.49 MicroJy
IMAGR2:     2736 Residual map points loaded
IMAGR2: Field    5 min algorithm flux= -821.217 MicroJy iter=     6876
IMAGR2: Field    5 Clean flux density= -105.814 MilliJy     6876 comps
IMAGR2: Total Cleaned flux density     =  436.547 MilliJy    35625 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    5 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   4 min =   -2.6 MilliJy,max =    2.0 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   790.69 MicroJy
IMAGR2:     2774 Residual map points loaded
IMAGR2: Field    4 min algorithm flux=  811.111 MicroJy iter=     7361
IMAGR2: Field    4 Clean flux density=  -59.796 MilliJy     7361 comps
IMAGR2: Total Cleaned flux density     =  433.951 MilliJy    36449 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    4 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   7 min =   -1.6 MilliJy,max =    1.6 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   785.36 MicroJy
IMAGR2:     1067 Residual map points loaded
IMAGR2: Field    7 min algorithm flux= -796.265 MicroJy iter=     3707
IMAGR2: Field    7 Clean flux density= -138.682 MilliJy     3707 comps
IMAGR2: Total Cleaned flux density     =  425.566 MilliJy    36897 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    7 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   2 min =   -1.9 MilliJy,max =    1.4 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   780.51 MicroJy
IMAGR2:     1075 Residual map points loaded
IMAGR2: Field    2 min algorithm flux= -791.556 MicroJy iter=     3688
IMAGR2: Field    2 Clean flux density= -160.387 MilliJy     3688 comps
IMAGR2: Total Cleaned flux density     =  415.778 MilliJy    37351 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    2 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   3 min =   -2.2 MilliJy,max =    1.9 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   771.87 MicroJy
IMAGR2:     1849 Residual map points loaded
IMAGR2: Field    3 min algorithm flux= -786.899 MicroJy iter=     6388
IMAGR2: Field    3 Clean flux density= -182.943 MilliJy     6388 comps
IMAGR2: Total Cleaned flux density     =  412.217 MilliJy    38010 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    3 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   6 min =   -2.0 MilliJy,max =    1.8 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   762.07 MicroJy
IMAGR2:     2513 Residual map points loaded
IMAGR2: Field    6 min algorithm flux= -780.734 MicroJy iter=     8146
IMAGR2: Field    6 Clean flux density= -160.340 MilliJy     8146 comps
IMAGR2: Total Cleaned flux density     =  408.869 MilliJy    38821 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    6 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   1 min =   -1.5 MilliJy,max =    1.2 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   758.18 MicroJy
IMAGR2:     1081 Residual map points loaded
IMAGR2: Field    1 min algorithm flux= -779.724 MicroJy iter=     2992
IMAGR2: Field    1 Clean flux density=    1.208      Jy     2992 comps
IMAGR2: Total Cleaned flux density     =  400.040 MilliJy    39158 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    1 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   5 min =   -2.6 MilliJy,max =    2.0 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   749.63 MicroJy
IMAGR2:     2856 Residual map points loaded
IMAGR2: Field    5 min algorithm flux= -767.985 MicroJy iter=     7723
IMAGR2: Field    5 Clean flux density= -110.624 MilliJy     7723 comps
IMAGR2: Total Cleaned flux density     =  395.229 MilliJy    40005 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    5 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   4 min =   -2.5 MilliJy,max =    1.9 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   740.34 MicroJy
IMAGR2:     2765 Residual map points loaded
IMAGR2: Field    4 min algorithm flux= -758.233 MicroJy iter=     8202
IMAGR2: Field    4 Clean flux density=  -62.169 MilliJy     8202 comps
IMAGR2: Total Cleaned flux density     =  392.856 MilliJy    40846 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    4 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   7 min =   -1.6 MilliJy,max =    1.5 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   735.23 MicroJy
IMAGR2:     1029 Residual map points loaded
IMAGR2: Field    7 min algorithm flux=  744.774 MicroJy iter=     4123
IMAGR2: Field    7 Clean flux density= -145.511 MilliJy     4123 comps
IMAGR2: Total Cleaned flux density     =  386.026 MilliJy    41262 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    7 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   2 min =   -1.7 MilliJy,max =    1.4 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   730.40 MicroJy
IMAGR2:     1077 Residual map points loaded
IMAGR2: Field    2 min algorithm flux= -739.532 MicroJy iter=     4124
IMAGR2: Field    2 Clean flux density= -168.787 MilliJy     4124 comps
IMAGR2: Total Cleaned flux density     =  377.626 MilliJy    41698 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    2 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   3 min =   -2.1 MilliJy,max =    1.8 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   723.34 MicroJy
IMAGR2:     2065 Residual map points loaded
IMAGR2: Field    3 min algorithm flux=  737.600 MicroJy iter=     7118
IMAGR2: Field    3 Clean flux density= -184.429 MilliJy     7118 comps
IMAGR2: Total Cleaned flux density     =  376.140 MilliJy    42428 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    3 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   6 min =   -1.9 MilliJy,max =    1.7 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   714.79 MicroJy
IMAGR2:     2643 Residual map points loaded
IMAGR2: Field    6 min algorithm flux=  730.899 MicroJy iter=     9001
IMAGR2: Field    6 Clean flux density= -163.388 MilliJy     9001 comps
IMAGR2: Total Cleaned flux density     =  373.091 MilliJy    43283 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    6 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   1 min =   -1.5 MilliJy,max =    1.1 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   711.68 MicroJy
IMAGR2:     1161 Residual map points loaded
IMAGR2: Field    1 min algorithm flux= -732.483 MicroJy iter=     3351
IMAGR2: Field    1 Clean flux density=    1.198      Jy     3351 comps
IMAGR2: Total Cleaned flux density     =  363.305 MilliJy    43642 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    1 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   5 min =   -2.4 MilliJy,max =    1.9 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   703.92 MicroJy
IMAGR2:     2940 Residual map points loaded
IMAGR2: Field    5 min algorithm flux=  720.379 MicroJy iter=     8604
IMAGR2: Field    5 Clean flux density= -112.335 MilliJy     8604 comps
IMAGR2: Total Cleaned flux density     =  361.593 MilliJy    44523 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    5 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   4 min =   -2.4 MilliJy,max =    1.8 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   696.51 MicroJy
IMAGR2:     2828 Residual map points loaded
IMAGR2: Field    4 min algorithm flux=  712.189 MicroJy iter=     9064
IMAGR2: Field    4 Clean flux density=  -63.948 MilliJy     9064 comps
IMAGR2: Total Cleaned flux density     =  359.814 MilliJy    45385 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    4 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   7 min =   -1.4 MilliJy,max =    1.4 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   692.76 MicroJy
IMAGR2:     1079 Residual map points loaded
IMAGR2: Field    7 min algorithm flux= -701.222 MicroJy iter=     4575
IMAGR2: Field    7 Clean flux density= -151.307 MilliJy     4575 comps
IMAGR2: Total Cleaned flux density     =  354.018 MilliJy    45837 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    7 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   2 min =   -1.6 MilliJy,max =    1.4 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   688.66 MicroJy
IMAGR2:     1017 Residual map points loaded
IMAGR2: Field    2 min algorithm flux=  696.657 MicroJy iter=     4559
IMAGR2: Field    2 Clean flux density= -176.324 MilliJy     4559 comps
IMAGR2: Total Cleaned flux density     =  346.480 MilliJy    46272 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    2 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   3 min =   -2.0 MilliJy,max =    1.8 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   681.78 MicroJy
IMAGR2:     1938 Residual map points loaded
IMAGR2: Field    3 min algorithm flux= -693.782 MicroJy iter=     7829
IMAGR2: Field    3 Clean flux density= -188.194 MilliJy     7829 comps
IMAGR2: Total Cleaned flux density     =  342.715 MilliJy    46983 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    3 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   6 min =   -1.8 MilliJy,max =    1.6 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   674.02 MicroJy
IMAGR2:     2601 Residual map points loaded
IMAGR2: Field    6 min algorithm flux=  688.070 MicroJy iter=     9858
IMAGR2: Field    6 Clean flux density= -167.130 MilliJy     9858 comps
IMAGR2: Total Cleaned flux density     =  338.973 MilliJy    47840 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    6 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   1 min =   -1.3 MilliJy,max =    1.0 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   671.00 MicroJy
IMAGR2:     1164 Residual map points loaded
IMAGR2: Field    1 min algorithm flux=  689.259 MicroJy iter=     3719
IMAGR2: Field    1 Clean flux density=    1.189      Jy     3719 comps
IMAGR2: Total Cleaned flux density     =  329.545 MilliJy    48208 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    1 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   5 min =   -2.4 MilliJy,max =    1.8 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   663.65 MicroJy
IMAGR2:     2996 Residual map points loaded
IMAGR2: Field    5 min algorithm flux=  678.002 MicroJy iter=     9514
IMAGR2: Field    5 Clean flux density= -114.126 MilliJy     9514 comps
IMAGR2: Total Cleaned flux density     =  327.754 MilliJy    49118 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    5 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   4 min =   -2.2 MilliJy,max =    1.8 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   656.96 MicroJy
IMAGR2:     3011 Residual map points loaded
IMAGR2: Field    4 min algorithm flux= -671.734 MicroJy iter=     9971
IMAGR2: Field    4 Clean flux density=  -65.429 MilliJy     9971 comps
IMAGR2: Total Cleaned flux density     =  326.273 MilliJy    50025 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    4 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   7 min =   -1.4 MilliJy,max =    1.3 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   653.29 MicroJy
IMAGR2:     1119 Residual map points loaded
IMAGR2: Field    7 min algorithm flux=  661.151 MicroJy iter=     5042
IMAGR2: Field    7 Clean flux density= -157.459 MilliJy     5042 comps
IMAGR2: Total Cleaned flux density     =  320.121 MilliJy    50492 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    7 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   2 min =   -1.5 MilliJy,max =    1.3 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   649.86 MicroJy
IMAGR2:     1082 Residual map points loaded
IMAGR2: Field    2 min algorithm flux=  656.766 MicroJy iter=     5008
IMAGR2: Field    2 Clean flux density= -182.447 MilliJy     5008 comps
IMAGR2: Total Cleaned flux density     =  313.999 MilliJy    50941 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    2 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   3 min =   -1.8 MilliJy,max =    1.7 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   644.64 MicroJy
IMAGR2:     2137 Residual map points loaded
IMAGR2: Field    3 min algorithm flux= -655.651 MicroJy iter=     8598
IMAGR2: Field    3 Clean flux density= -192.419 MilliJy     8598 comps
IMAGR2: Total Cleaned flux density     =  309.774 MilliJy    51710 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    3 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   6 min =   -1.7 MilliJy,max =    1.6 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   637.63 MicroJy
IMAGR2:     2615 Residual map points loaded
IMAGR2: Field    6 min algorithm flux=  649.827 MicroJy iter=    10728
IMAGR2: Field    6 Clean flux density= -168.275 MilliJy    10728 comps
IMAGR2: Total Cleaned flux density     =  308.628 MilliJy    52580 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    6 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   1 min =   -1.3 MilliJy,max =    1.0 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   634.99 MicroJy
IMAGR2:     1171 Residual map points loaded
IMAGR2: Field    1 min algorithm flux= -652.387 MicroJy iter=     4069
IMAGR2: Field    1 Clean flux density=    1.181      Jy     4069 comps
IMAGR2: Total Cleaned flux density     =  300.891 MilliJy    52930 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    1 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   5 min =   -2.2 MilliJy,max =    1.8 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   628.30 MicroJy
IMAGR2:     2940 Residual map points loaded
IMAGR2: Field    5 min algorithm flux=  640.656 MicroJy iter=    10399
IMAGR2: Field    5 Clean flux density= -118.717 MilliJy    10399 comps
IMAGR2: Total Cleaned flux density     =  296.299 MilliJy    53815 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    5 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   4 min =   -2.1 MilliJy,max =    1.7 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   621.93 MicroJy
IMAGR2:     3015 Residual map points loaded
IMAGR2: Field    4 min algorithm flux=  634.984 MicroJy iter=    10891
IMAGR2: Field    4 Clean flux density=  -64.721 MilliJy    10891 comps
IMAGR2: Total Cleaned flux density     =  297.008 MilliJy    54735 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    4 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   7 min =   -1.4 MilliJy,max =    1.3 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   618.99 MicroJy
IMAGR2:     1179 Residual map points loaded
IMAGR2: Field    7 min algorithm flux= -625.661 MicroJy iter=     5531
IMAGR2: Field    7 Clean flux density= -162.177 MilliJy     5531 comps
IMAGR2: Total Cleaned flux density     =  292.289 MilliJy    55224 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    7 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   2 min =   -1.5 MilliJy,max =    1.2 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   616.12 MicroJy
IMAGR2:     1111 Residual map points loaded
IMAGR2: Field    2 min algorithm flux=  622.477 MicroJy iter=     5463
IMAGR2: Field    2 Clean flux density= -189.984 MilliJy     5463 comps
IMAGR2: Total Cleaned flux density     =  284.752 MilliJy    55679 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    2 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   3 min =   -1.7 MilliJy,max =    1.6 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   610.95 MicroJy
IMAGR2:     2131 Residual map points loaded
IMAGR2: Field    3 min algorithm flux=  620.990 MicroJy iter=     9374
IMAGR2: Field    3 Clean flux density= -195.230 MilliJy     9374 comps
IMAGR2: Total Cleaned flux density     =  281.942 MilliJy    56455 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    3 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   6 min =   -1.6 MilliJy,max =    1.5 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   604.74 MicroJy
IMAGR2:     2658 Residual map points loaded
IMAGR2: Field    6 min algorithm flux=  615.782 MicroJy iter=    11625
IMAGR2: Field    6 Clean flux density= -169.662 MilliJy    11625 comps
IMAGR2: Total Cleaned flux density     =  280.556 MilliJy    57352 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    6 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   1 min =   -1.2 MilliJy,max =  940.7 MicroJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   602.32 MicroJy
IMAGR2:     1239 Residual map points loaded
IMAGR2: Field    1 min algorithm flux=  618.883 MicroJy iter=     4437
IMAGR2: Field    1 Clean flux density=    1.173      Jy     4437 comps
IMAGR2: Total Cleaned flux density     =  272.437 MilliJy    57720 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    1 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   5 min =   -2.2 MilliJy,max =    1.7 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   597.08 MicroJy
IMAGR2:     3121 Residual map points loaded
IMAGR2: Field    5 min algorithm flux= -608.706 MicroJy iter=    11366
IMAGR2: Field    5 Clean flux density= -122.285 MilliJy    11366 comps
IMAGR2: Total Cleaned flux density     =  268.868 MilliJy    58687 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    5 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   4 min =   -2.0 MilliJy,max =    1.6 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   591.84 MicroJy
IMAGR2:     3147 Residual map points loaded
IMAGR2: Field    4 min algorithm flux= -603.796 MicroJy iter=    11867
IMAGR2: Field    4 Clean flux density=  -67.395 MilliJy    11867 comps
IMAGR2: Total Cleaned flux density     =  266.194 MilliJy    59663 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    4 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   7 min =   -1.3 MilliJy,max =    1.2 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   589.03 MicroJy
IMAGR2:     1170 Residual map points loaded
IMAGR2: Field    7 min algorithm flux= -594.883 MicroJy iter=     6015
IMAGR2: Field    7 Clean flux density= -166.730 MilliJy     6015 comps
IMAGR2: Total Cleaned flux density     =  261.641 MilliJy    60147 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    7 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   2 min =   -1.4 MilliJy,max =    1.2 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   586.60 MicroJy
IMAGR2:     1220 Residual map points loaded
IMAGR2: Field    2 min algorithm flux=  592.807 MicroJy iter=     5962
IMAGR2: Field    2 Clean flux density= -196.714 MilliJy     5962 comps
IMAGR2: Total Cleaned flux density     =  254.911 MilliJy    60646 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    2 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   3 min =   -1.6 MilliJy,max =    1.6 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   582.50 MicroJy
IMAGR2:     2258 Residual map points loaded
IMAGR2: Field    3 min algorithm flux= -592.110 MicroJy iter=    10193
IMAGR2: Field    3 Clean flux density= -196.612 MilliJy    10193 comps
IMAGR2: Total Cleaned flux density     =  253.529 MilliJy    61465 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    3 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   6 min =   -1.5 MilliJy,max =    1.4 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   577.34 MicroJy
IMAGR2:     2540 Residual map points loaded
IMAGR2: Field    6 min algorithm flux=  587.019 MicroJy iter=    12507
IMAGR2: Field    6 Clean flux density= -171.495 MilliJy    12507 comps
IMAGR2: Total Cleaned flux density     =  251.696 MilliJy    62347 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    6 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   1 min =   -1.2 MilliJy,max =  884.0 MicroJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   575.09 MicroJy
IMAGR2:     1169 Residual map points loaded
IMAGR2: Field    1 min algorithm flux= -590.664 MicroJy iter=     4793
IMAGR2: Field    1 Clean flux density=    1.166      Jy     4793 comps
IMAGR2: Total Cleaned flux density     =  244.798 MilliJy    62703 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    1 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   5 min =   -2.1 MilliJy,max =    1.7 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   569.86 MicroJy
IMAGR2:     3221 Residual map points loaded
IMAGR2: Field    5 min algorithm flux= -580.387 MicroJy iter=    12353
IMAGR2: Field    5 Clean flux density= -125.249 MilliJy    12353 comps
IMAGR2: Total Cleaned flux density     =  241.834 MilliJy    63690 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    5 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   4 min =   -1.9 MilliJy,max =    1.6 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   564.92 MicroJy
IMAGR2:     3020 Residual map points loaded
IMAGR2: Field    4 min algorithm flux= -575.146 MicroJy iter=    12786
IMAGR2: Field    4 Clean flux density=  -70.404 MilliJy    12786 comps
IMAGR2: Total Cleaned flux density     =  238.825 MilliJy    64609 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    4 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   7 min =   -1.3 MilliJy,max =    1.2 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   562.30 MicroJy
IMAGR2:     1151 Residual map points loaded
IMAGR2: Field    7 min algorithm flux= -567.640 MicroJy iter=     6493
IMAGR2: Field    7 Clean flux density= -171.115 MilliJy     6493 comps
IMAGR2: Total Cleaned flux density     =  234.440 MilliJy    65087 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    7 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   2 min =   -1.3 MilliJy,max =    1.2 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   559.61 MicroJy
IMAGR2:     1156 Residual map points loaded
IMAGR2: Field    2 min algorithm flux= -564.957 MicroJy iter=     6448
IMAGR2: Field    2 Clean flux density= -203.961 MilliJy     6448 comps
IMAGR2: Total Cleaned flux density     =  227.193 MilliJy    65573 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    2 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   3 min =   -1.6 MilliJy,max =    1.5 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   555.18 MicroJy
IMAGR2:     2300 Residual map points loaded
IMAGR2: Field    3 min algorithm flux= -563.562 MicroJy iter=    11028
IMAGR2: Field    3 Clean flux density= -199.181 MilliJy    11028 comps
IMAGR2: Total Cleaned flux density     =  224.623 MilliJy    66408 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    3 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   1 min = -988.1 MicroJy,max =  772.0 MicroJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   553.07 MicroJy
IMAGR2:      885 Residual map points loaded
IMAGR2: Field    1 min algorithm flux= -564.223 MicroJy iter=     5094
IMAGR2: Field    1 Clean flux density=    1.162      Jy     5094 comps
IMAGR2: Total Cleaned flux density     =  220.591 MilliJy    66709 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    1 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   6 min =   -1.5 MilliJy,max =    1.4 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   548.85 MicroJy
IMAGR2:     3167 Residual map points loaded
IMAGR2: Field    6 min Clean flux    = -559.368 MicroJy iter=    13536
IMAGR2: Field    6 Clean flux density= -170.002 MilliJy    13536 comps
IMAGR2: Total Cleaned flux density     =  222.084 MilliJy    67738 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    6 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   5 min =   -2.0 MilliJy,max =    1.7 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   535.58 MicroJy
IMAGR2:     3830 Residual map points loaded
IMAGR2: Field    5 min Clean flux    = -559.610 MicroJy iter=    13161
IMAGR2: Field    5 Clean flux density= -133.190 MilliJy    13161 comps
IMAGR2: Total Cleaned flux density     =  214.144 MilliJy    68546 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    5 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   4 min =   -1.9 MilliJy,max =    1.5 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   518.52 MicroJy
IMAGR2:     4705 Residual map points loaded
IMAGR2: Field    4 min Clean flux    =  559.506 MicroJy iter=    13452
IMAGR2: Field    4 Clean flux density=  -74.953 MilliJy    13452 comps
IMAGR2: Total Cleaned flux density     =  209.594 MilliJy    69212 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    4 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Field   7 min =   -1.2 MilliJy,max =    1.1 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   500.48 MicroJy
IMAGR2:     3311 Residual map points loaded
IMAGR2: Field    7 min Clean flux    =  559.372 MicroJy iter=     6723
IMAGR2: Field    7 Clean flux density= -172.144 MilliJy     6723 comps
IMAGR2: Total Cleaned flux density     =  208.566 MilliJy    69442 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   2 min =   -1.3 MilliJy,max =    1.2 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   485.29 MicroJy
IMAGR2:     4660 Residual map points loaded
IMAGR2: Field    2 min Clean flux    =  559.480 MicroJy iter=     6690
IMAGR2: Field    2 Clean flux density= -206.947 MilliJy     6690 comps
IMAGR2: Total Cleaned flux density     =  205.579 MilliJy    69684 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   3 min =   -1.5 MilliJy,max =    1.5 MilliJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   456.88 MicroJy
IMAGR2:    12694 Residual map points loaded
IMAGR2: Field    3 Iter limit, Max resid=-562.733 MicroJy iter=    11344
IMAGR2: Field    3 Clean flux density= -199.705 MilliJy    11344 comps
IMAGR2: Total Cleaned flux density     =  205.056 MilliJy    70000 comps
IMAGR2: ALGSTB: All   393 Rows In AP (Max   1035)
IMAGR2: ALGSTB field    3 Ipol gridded model subtraction chns    1-    2
IMAGR2: ALGSTB: Pass   1;  382-   0 Cells, with    21419 Pts
IMAGR2: Total Clean components    70000 reaches limit   70000
IMAGR2: Merging the Clean components files
IMAGR2: Field    1 compressed from      5094 to      1392 components
IMAGR2: Field    2 compressed from      6690 to      2170 components
IMAGR2: Field    3 compressed from     11344 to      3899 components
IMAGR2: Field    4 compressed from     13452 to      4307 components
IMAGR2: Field    5 compressed from     13161 to      4331 components
IMAGR2: Field    6 compressed from     13536 to      4609 components
IMAGR2: Field    7 compressed from      6723 to      2196 components
IMAGR2: Field   1 min = -932.8 MicroJy,max =  759.6 MicroJy
IMAGR2: Field   2 min =   -1.3 MilliJy,max =    1.1 MilliJy
IMAGR2: Field   3 min =   -1.5 MilliJy,max =    1.5 MilliJy
IMAGR2: Field   4 min =   -1.7 MilliJy,max =    1.5 MilliJy
IMAGR2: Field   5 min =   -1.9 MilliJy,max =    1.7 MilliJy
IMAGR2: Field   6 min =   -1.4 MilliJy,max =    1.4 MilliJy
IMAGR2: Field   7 min =   -1.2 MilliJy,max =    1.1 MilliJy
IMAGR2: Restoring Clean components
IMAGR2: Restoring overlapped Clean components
IMAGR2: Restore  -2.979 MilliJy (    73 CCs) from field   1 to field   2
IMAGR2: Restore -33.828 MilliJy (   232 CCs) from field   1 to field   3
IMAGR2: Restore -23.490 MilliJy (   253 CCs) from field   1 to field   4
IMAGR2: Restore -29.146 MilliJy (   261 CCs) from field   1 to field   5
IMAGR2: Restore -21.143 MilliJy (   237 CCs) from field   1 to field   6
IMAGR2: Restore  -3.408 MilliJy (    58 CCs) from field   1 to field   7
IMAGR2: Restore  -8.779 MilliJy (   129 CCs) from field   2 to field   1
IMAGR2: Restore -45.532 MilliJy (   429 CCs) from field   2 to field   3
IMAGR2: Restore  -3.813 MilliJy (   183 CCs) from field   2 to field   4
IMAGR2: Restore -16.341 MilliJy (   172 CCs) from field   3 to field   1
IMAGR2: Restore -15.595 MilliJy (   188 CCs) from field   3 to field   2
IMAGR2: Restore -19.831 MilliJy (   305 CCs) from field   3 to field   5
IMAGR2: Restore  -7.712 MilliJy (   208 CCs) from field   4 to field   1
IMAGR2: Restore  -4.309 MilliJy (   187 CCs) from field   4 to field   2
IMAGR2: Restore  -8.912 MilliJy (   331 CCs) from field   4 to field   6
IMAGR2: Restore  -1.337 MilliJy (   156 CCs) from field   5 to field   1
IMAGR2: Restore  -2.939 MilliJy (   331 CCs) from field   5 to field   3
IMAGR2: Restore  -6.205 MilliJy (   142 CCs) from field   5 to field   7
IMAGR2: Restore -16.881 MilliJy (   230 CCs) from field   6 to field   1
IMAGR2: Restore  -9.009 MilliJy (   288 CCs) from field   6 to field   4
IMAGR2: Restore -24.768 MilliJy (   342 CCs) from field   6 to field   7
IMAGR2: Restore -14.101 MilliJy (   111 CCs) from field   7 to field   1
IMAGR2: Restore -11.341 MilliJy (   171 CCs) from field   7 to field   5
IMAGR2: Restore -26.534 MilliJy (   413 CCs) from field   7 to field   6
IMAGR2: Checking image max/min
IMAGR2: Field    1 final Clean flux     1.097      Jy
IMAGR2: Field    2 final Clean flux  -229.830 MilliJy
IMAGR2: Field    3 final Clean flux  -282.004 MilliJy
IMAGR2: Field    4 final Clean flux  -111.265 MilliJy
IMAGR2: Field    5 final Clean flux  -193.508 MilliJy
IMAGR2: Field    6 final Clean flux  -226.591 MilliJy
IMAGR2: Field    7 final Clean flux  -206.525 MilliJy
IMAGR2: Deleting UV work file:
IMAGR2: Destroyed  1 extension files of type AN
IMAGR2: Destroyed  1 extension files of type FQ
IMAGR2: Destroyed UV image file: catno=     13 disk= 1
IMAGR2: Appears to have ended successfully
IMAGR2: auto         31DEC06 TST: Cpu=     188.2  Real=     229
xecuted is:
AIPS 2: rm -f /tmp/SETFC@0542+498_C,BAND.0-1 >& /dev/null
AIPS 2: Found in Version=ABIN
AIPS 2: Waiting for returned adverbs
AIPS 2: Resumes
AIPS 2: Found in Version=ABIN
AIPS 2: SETFC    was not found to be running
AIPS 2: 'SEARCHING FOR NVSS SOURCES'
AIPS 2: Found in Version=ABIN
AIPS 2: Waiting for returned adverbs
AIPS 2: Resumes
AIPS 2: Found in Version=ABIN
AIPS 2: SETFC    was not found to be running
AIPS 2: SYSTEM command to be executed is:
AIPS 2: cat /tmp/SETFC@0542+498_C,BAND.0-1 >> /home/auto/run/AK485_1999D
AIPS 2: EC29_1.log.0
AIPS 2: '    NOW STARTING WITH SOURCE  :1  =0542+498'
AIPS 2: ' '
AIPS 2: Resumes
AIPS 2: SYSTEM command to be executed is:
AIPS 2: rm -f /tmp/SETFC@0542+498_C,BAND.0-1 >& /dev/null
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=      7 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=      8 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=      9 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     10 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     11 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     12 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     13 disk= 1
AIPS 2: Disk  1 in-CNO   14 renumbered as CNO    6
AIPS 2: Disk  1 in-CNO   15 renumbered as CNO    7
AIPS 2: Disk  1 in-CNO   16 renumbered as CNO    8
AIPS 2: Disk  1 in-CNO   17 renumbered as CNO    9
AIPS 2: Disk  1 in-CNO   18 renumbered as CNO   10
AIPS 2: Disk  1 in-CNO   19 renumbered as CNO   11
AIPS 2: Disk  1 in-CNO   20 renumbered as CNO   12
AIPS 2: ' '
AIPS 2: 'ESTIMATED RMS:'     '0.09327 MILLI JANSKY'
AIPS 2: SYSTEM command to be executed is:
AIPS 2: rm -f /tmp/SETFC@1658+476_C,BAND.0-1 >& /dev/null
AIPS 2: Found in Version=ABIN
AIPS 2: Waiting for returned adverbs
AIPS 2: Resumes
AIPS 2: Found in Version=ABIN
AIPS 2: SETFC    was not found to be running
AIPS 2: 'SEARCHING FOR NVSS SOURCES'
AIPS 2: Found in Version=ABIN
AIPS 2: Waiting for returned adverbs
AIPS 2: Resumes
AIPS 2: Found in Version=ABIN
AIPS 2: SETFC    was not found to be running
AIPS 2: SYSTEM command to be executed is:
AIPS 2: cat /tmp/SETFC@1658+476_C,BAND.0-1 >> /home/auto/run/AK485_1999D
AIPS 2: EC29_1.log.0
AIPS 2: '    NOW STARTING WITH SOURCE  :2  =1658+476'
AIPS 2: ' '
AIPS 2: Resumes
AIPS 2: SYSTEM command to be executed is:
AIPS 2: rm -f /tmp/SETFC@1658+476_C,BAND.0-1 >& /dev/null
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     14 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     15 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     16 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     17 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     18 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     19 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     20 disk= 1
AIPS 2: Disk  1 in-CNO   21 renumbered as CNO   13
AIPS 2: Disk  1 in-CNO   22 renumbered as CNO   14
AIPS 2: Disk  1 in-CNO   23 renumbered as CNO   15
AIPS 2: Disk  1 in-CNO   24 renumbered as CNO   16
AIPS 2: Disk  1 in-CNO   25 renumbered as CNO   17
AIPS 2: Disk  1 in-CNO   26 renumbered as CNO   18
AIPS 2: Disk  1 in-CNO   27 renumbered as CNO   19
AIPS 2: ' '
AIPS 2: 'ESTIMATED RMS:'     '0.04067 MILLI JANSKY'
AIPS 2: SYSTEM command to be executed is:
AIPS 2: rm -f /tmp/SETFC@G991208_C,BAND.0-1 >& /dev/null
AIPS 2: Found in Version=ABIN
SETFC2: Task SETFC  (release of 31DEC06) begins
SETFC2: Found G991208     C BAND Seq   1 Disk:  1 in slot    5
SETFC2: SETCEL: recommends IMSIZE  1380 CELLSIZE   0.40059
SETFC2: SETCEL: returns    IMSIZE  1024 CELLSIZE   0.40059
SETFC2: ZTXOP2: using translated file name =
SETFC2: ZTXOP2: /tmp/SETFC@G991208_C,BAND.0-1
SETFC2: FLYEYE added   7 fields to BOXFILE to  0.095 deg
SETFC2: First field number written was   1
SETFC2: Highest field number written was   7
SETFC2: returns adverbs to AIPS
SETFC2: Appears to have ended successfully
SETFC2: auto         31DEC06 TST: Cpu=       0.1  Real=       0
xecuted is:
AIPS 2: rm -f /tmp/SETFC@0542+498_C,BAND.0-1 >& /dev/null
AIPS 2: Found in Version=ABIN
AIPS 2: Waiting for returned adverbs
AIPS 2: Resumes
AIPS 2: Found in Version=ABIN
AIPS 2: SETFC    was not found to be running
AIPS 2: 'SEARCHING FOR NVSS SOURCES'
AIPS 2: Found in Version=ABIN
AIPS 2: Waiting for returned adverbs
AIPS 2: Resumes
AIPS 2: Found in Version=ABIN
AIPS 2: SETFC    was not found to be running
AIPS 2: SYSTEM command to be executed is:
AIPS 2: cat /tmp/SETFC@0542+498_C,BAND.0-1 >> /home/auto/run/AK485_1999D
AIPS 2: EC29_1.log.0
AIPS 2: '    NOW STARTING WITH SOURCE  :1  =0542+498'
AIPS 2: ' '
AIPS 2: Resumes
AIPS 2: SYSTEM command to be executed is:
AIPS 2: rm -f /tmp/SETFC@0542+498_C,BAND.0-1 >& /dev/null
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=      7 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=      8 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=      9 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     10 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     11 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     12 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     13 disk= 1
AIPS 2: Disk  1 in-CNO   14 renumbered as CNO    6
AIPS 2: Disk  1 in-CNO   15 renumbered as CNO    7
AIPS 2: Disk  1 in-CNO   16 renumbered as CNO    8
AIPS 2: Disk  1 in-CNO   17 renumbered as CNO    9
AIPS 2: Disk  1 in-CNO   18 renumbered as CNO   10
AIPS 2: Disk  1 in-CNO   19 renumbered as CNO   11
AIPS 2: Disk  1 in-CNO   20 renumbered as CNO   12
AIPS 2: ' '
AIPS 2: 'ESTIMATED RMS:'     '0.09327 MILLI JANSKY'
AIPS 2: SYSTEM command to be executed is:
AIPS 2: rm -f /tmp/SETFC@1658+476_C,BAND.0-1 >& /dev/null
AIPS 2: Found in Version=ABIN
AIPS 2: Waiting for returned adverbs
AIPS 2: Resumes
AIPS 2: Found in Version=ABIN
AIPS 2: SETFC    was not found to be running
AIPS 2: 'SEARCHING FOR NVSS SOURCES'
AIPS 2: Found in Version=ABIN
AIPS 2: Waiting for returned adverbs
AIPS 2: Resumes
AIPS 2: Found in Version=ABIN
AIPS 2: SETFC    was not found to be running
AIPS 2: SYSTEM command to be executed is:
AIPS 2: cat /tmp/SETFC@1658+476_C,BAND.0-1 >> /home/auto/run/AK485_1999D
AIPS 2: EC29_1.log.0
AIPS 2: '    NOW STARTING WITH SOURCE  :2  =1658+476'
AIPS 2: ' '
AIPS 2: Resumes
AIPS 2: SYSTEM command to be executed is:
AIPS 2: rm -f /tmp/SETFC@1658+476_C,BAND.0-1 >& /dev/null
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     14 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     15 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     16 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     17 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     18 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     19 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     20 disk= 1
AIPS 2: Disk  1 in-CNO   21 renumbered as CNO   13
AIPS 2: Disk  1 in-CNO   22 renumbered as CNO   14
AIPS 2: Disk  1 in-CNO   23 renumbered as CNO   15
AIPS 2: Disk  1 in-CNO   24 renumbered as CNO   16
AIPS 2: Disk  1 in-CNO   25 renumbered as CNO   17
AIPS 2: Disk  1 in-CNO   26 renumbered as CNO   18
AIPS 2: Disk  1 in-CNO   27 renumbered as CNO   19
AIPS 2: ' '
AIPS 2: 'ESTIMATED RMS:'     '0.04067 MILLI JANSKY'
AIPS 2: SYSTEM command to be executed is:
AIPS 2: rm -f /tmp/SETFC@G991208_C,BAND.0-1 >& /dev/null
AIPS 2: Found in Version=ABIN
AIPS 2: Waiting for returned adverbs
AIPS 2: Resumes
AIPS 2: Found in Version=ABIN
AIPS 2: SETFC    was not found to be running
AIPS 2: 'SEARCHING FOR NVSS SOURCES'
AIPS 2: Found in Version=ABIN
SETFC2: Task SETFC  (release of 31DEC06) begins
SETFC2: Found G991208     C BAND Seq   1 Disk:  1 in slot    5
SETFC2: ZTXOP2: using translated file name =
SETFC2: ZTXOP2: /tmp/SETFC@G991208_C,BAND.0-1
SETFC2: Searching catalog between  0.05 and   0.23 degrees radius
SETFC2: ZTXOP2: using translated file name =
SETFC2: ZTXOP2: /home/auto/aips/TEXT/STARS/NV00.0030
SETFC2: No NVSS sources selected for BOXFILE
SETFC2: The Sun is  74.6 deg away - ignoring
SETFC2: First field number written was   8
SETFC2: Highest field number written was   7
SETFC2: returns adverbs to AIPS
SETFC2: Appears to have ended successfully
SETFC2: auto         31DEC06 TST: Cpu=       1.2  Real=       3
C     1  1012  1012   16 33 53.50   46 27 20.9
00001  -1    507    512    513
C     2  1012  1012   16 33 53.50   46 21 39.9
00002  -1    507    512    513
C     3  1012  1012   16 33 24.95   46 24 30.2
00003  -1    507    512    513
C     4  1012  1012   16 34 22.05   46 24 30.2
00004  -1    507    512    513
C     5  1012  1012   16 33 24.90   46 30 11.2
00005  -1    507    512    513
C     6  1012  1012   16 34 22.10   46 30 11.2
00006  -1    507    512    513
C     7  1012  1012   16 33 53.50   46 33 01.9
00007  -1    507    512    513
: Found in Version=ABIN
AIPS 2: Waiting for returned adverbs
AIPS 2: Resumes
AIPS 2: Found in Version=ABIN
AIPS 2: SETFC    was not found to be running
AIPS 2: SYSTEM command to be executed is:
AIPS 2: cat /tmp/SETFC@G991208_C,BAND.0-1 >> /home/auto/run/AK485_1999DE
AIPS 2: C29_1.log.0
AIPS 2: '    NOW STARTING WITH SOURCE  :3  =G991208'
AIPS 2: ' '
IMAGR2: Task IMAGR  (release of 31DEC06) begins
IMAGR2: ZTXOP2: using translated file name =
IMAGR2: ZTXOP2: /tmp/SETFC@G991208_C,BAND.0-1
IMAGR2: FIELDF: Final field parameters and # read are:
IMAGR2: Field    1 1012 1012  1.4098E-10  2.5580E-11          0
IMAGR2: Field    2 1012 1012  1.4098E-10 -3.4100E+02          0
IMAGR2: Field    3 1012 1012 -2.9503E+02 -1.7070E+02          0
IMAGR2: Field    4 1012 1012  2.9503E+02 -1.7070E+02          0
IMAGR2: Field    5 1012 1012 -2.9554E+02  1.7030E+02          0
IMAGR2: Field    6 1012 1012  2.9554E+02  1.7030E+02          0
IMAGR2: Field    7 1012 1012  1.4098E-10  3.4100E+02          0
IMAGR2: ZTXOP2: using translated file name =
IMAGR2: ZTXOP2: /tmp/SETFC@G991208_C,BAND.0-1
IMAGR2: WINDF: Number of clean boxes/field read as follows:
IMAGR2: Field 01:   1  Field 02:   1  Field 03:   1  Field 04:   1
IMAGR2: Field 05:   1  Field 06:   1  Field 07:   1
IMAGR2: Create G991208     .IMAGR .   1 (UV)  on disk  1  cno   20
IMAGR2: Beginning channel    1 through    1 with  2 IFs
IMAGR2: IMACPY: Copied   112626 visibilities to be imaged
IMAGR2: **** WARNING data included out of inner portion of UV plane ****
IMAGR2: **** Watch for high-frequency & other poor cleaning effects ****
IMAGR2: UVWAIT: begin finding uniform weights
IMAGR2: UVWAIT: Average grid weight  7.320E+04
IMAGR2: UVWAIT: Adding temperance S  1.464E+04
IMAGR2: UVWAIT: begin applying uniform or other weights
IMAGR2: UVWAIT: Sum of weights in  2.014E+08 and out  3.389E+08
IMAGR2: UVWAIT: Noise is increased by a factor 1.173 due to weighting
IMAGR2: UVWAIT: Average summed weight  7.320E+04 over     225100 vis
IMAGR2: Create G991208     .IBM001.   1 (MA)  on disk  1  cno   21
IMAGR2: Create G991208     .IBM002.   1 (MA)  on disk  1  cno   22
IMAGR2: Create G991208     .IBM003.   1 (MA)  on disk  1  cno   23
IMAGR2: Create G991208     .IBM004.   1 (MA)  on disk  1  cno   24
IMAGR2: Create G991208     .IBM005.   1 (MA)  on disk  1  cno   25
IMAGR2: Create G991208     .IBM006.   1 (MA)  on disk  1  cno   26
IMAGR2: Create G991208     .IBM007.   1 (MA)  on disk  1  cno   27
IMAGR2: Create G991208     .ICL001.   1 (MA)  on disk  1  cno   28
IMAGR2: Create G991208     .ICL002.   1 (MA)  on disk  1  cno   29
IMAGR2: Create G991208     .ICL003.   1 (MA)  on disk  1  cno   30
IMAGR2: Create G991208     .ICL004.   1 (MA)  on disk  1  cno   31
IMAGR2: Create G991208     .ICL005.   1 (MA)  on disk  1  cno   32
IMAGR2: Create G991208     .ICL006.   1 (MA)  on disk  1  cno   33
IMAGR2: Create G991208     .ICL007.   1 (MA)  on disk  1  cno   34
IMAGR2: GRDFLT: X and Y convolution type = SPHEROIDAL
IMAGR2: GRDFLT: X and Y parms =  3.0000  1.0000
IMAGR2: GRDFLT: convolution function sampled every 1/100 of a cell
IMAGR2: GRDMEM: Ave    2 Channels; 4.885100E+09 to 4.835100E+09 Hz
IMAGR2: Field   1 Sum of gridding weights =  3.59781E+09
IMAGR2: Field   1 Beam min = -106.3 MilliJy, max =    1.0      Jy
IMAGR2: Field   1 fit FWHM =    2.393 x    1.128      arcsec, PA=  -73.5
IMAGR2: Field   2 Sum of gridding weights =  3.59781E+09
IMAGR2: Field   2 Beam min = -106.4 MilliJy, max =    1.0      Jy
IMAGR2: Field   2 fit FWHM =    2.395 x    1.128      arcsec, PA=  -73.4
IMAGR2: Field   3 Sum of gridding weights =  3.59781E+09
IMAGR2: Field   3 Beam min = -106.4 MilliJy, max =    1.0      Jy
IMAGR2: Field   3 fit FWHM =    2.387 x    1.128      arcsec, PA=  -73.6
IMAGR2: Field   4 Sum of gridding weights =  3.59782E+09
IMAGR2: Field   4 Beam min = -108.4 MilliJy, max =    1.0      Jy
IMAGR2: Field   4 fit FWHM =    2.400 x    1.128      arcsec, PA=  -73.4
IMAGR2: Field   5 Sum of gridding weights =  3.59781E+09
IMAGR2: Field   5 Beam min = -106.3 MilliJy, max =    1.0      Jy
IMAGR2: Field   5 fit FWHM =    2.385 x    1.128      arcsec, PA=  -73.6
IMAGR2: Field   6 Sum of gridding weights =  3.59781E+09
IMAGR2: Field   6 Beam min = -106.2 MilliJy, max =    1.0      Jy
IMAGR2: Field   6 fit FWHM =    2.398 x    1.127      arcsec, PA=  -73.4
IMAGR2: Field   7 Sum of gridding weights =  3.59782E+09
IMAGR2: Field   7 Beam min = -106.2 MilliJy, max =    1.0      Jy
IMAGR2: Field   7 fit FWHM =    2.391 x    1.127      arcsec, PA=  -73.5
IMAGR2: CLBHIS: minimum component 0.308 of current peak
IMAGR2: Field   1 min = -302.5 MicroJy,max =    1.9 MilliJy
IMAGR2: Field   2 min = -266.3 MicroJy,max =  274.6 MicroJy
IMAGR2: Field   3 min = -272.9 MicroJy,max =  292.3 MicroJy
IMAGR2: Field   4 min = -300.4 MicroJy,max =  258.0 MicroJy
IMAGR2: Field   5 min = -359.1 MicroJy,max =  343.3 MicroJy
IMAGR2: Field   6 min = -291.1 MicroJy,max =  648.9 MicroJy
IMAGR2: Field   7 min = -336.2 MicroJy,max =    1.9 MilliJy
IMAGR2: BGC Clean: using  247 cell beam + residuals >   191.27 MicroJy
IMAGR2:     1240 Residual map points loaded
IMAGR2: Field    1 min algorithm flux=  813.693 MicroJy iter=       10
IMAGR2: Field    1 Clean flux density=    1.273 MilliJy       10 comps
IMAGR2: Total Cleaned flux density     =    1.273 MilliJy       10 comps
IMAGR2: SETDO3: imaging done with multiple tangent planes
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: VISDFT: Model components of type Point
IMAGR2: I Polarization model processed
IMAGR2: Field   7 min = -320.7 MicroJy,max =  752.9 MicroJy
IMAGR2: TRY ANOTHER FIELD: this is  7.174E-04 < Second best  7.740E-04
IMAGR2: Field   1 min = -285.3 MicroJy,max =  746.9 MicroJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   154.69 MicroJy
IMAGR2:     3532 Residual map points loaded
IMAGR2: Field    1 min algorithm flux=  321.965 MicroJy iter=       29
IMAGR2: Field    1 Clean flux density=    2.150 MilliJy       29 comps
IMAGR2: Total Cleaned flux density     =    2.150 MilliJy       29 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   7 min = -314.2 MicroJy,max =  327.8 MicroJy
IMAGR2: TRY ANOTHER FIELD: this is  3.135E-04 < Second best  6.186E-04
IMAGR2: Field   6 min = -282.3 MicroJy,max =  649.9 MicroJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   153.66 MicroJy
IMAGR2:     2947 Residual map points loaded
IMAGR2: Field    6 min algorithm flux=  253.651 MicroJy iter=       21
IMAGR2: Field    6 Clean flux density=  711.081 MicroJy       21 comps
IMAGR2: Total Cleaned flux density     =    2.861 MilliJy       50 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   7 min = -314.8 MicroJy,max =  328.5 MicroJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   153.56 MicroJy
IMAGR2:     2831 Residual map points loaded
IMAGR2: Field    7 min Clean flux    = -243.628 MicroJy iter=       10
IMAGR2: Field    7 Clean flux density=  177.182 MicroJy       10 comps
IMAGR2: Total Cleaned flux density     =    3.038 MilliJy       60 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   1 min = -278.1 MicroJy,max =  290.8 MicroJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   150.29 MicroJy
IMAGR2:     3680 Residual map points loaded
IMAGR2: Field    1 min Clean flux    =  242.680 MicroJy iter=       40
IMAGR2: Field    1 Clean flux density=    2.333 MilliJy       40 comps
IMAGR2: Total Cleaned flux density     =    3.221 MilliJy       71 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   5 min = -279.0 MicroJy,max =  268.8 MicroJy
IMAGR2: TRY ANOTHER FIELD: this is  2.348E-04 < Second best  2.551E-04
IMAGR2: Field   2 min = -270.6 MicroJy,max =  256.5 MicroJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   143.90 MicroJy
IMAGR2:     4471 Residual map points loaded
IMAGR2: Field    2 min Clean flux    = -243.504 MicroJy iter=        4
IMAGR2: Field    2 Clean flux density=  -51.592 MicroJy        4 comps
IMAGR2: Total Cleaned flux density     =    3.169 MilliJy       75 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   4 min = -303.3 MicroJy,max =  256.8 MicroJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   137.60 MicroJy
IMAGR2:     6313 Residual map points loaded
IMAGR2: Field    4 min Clean flux    =  238.835 MicroJy iter=        2
IMAGR2: Field    4 Clean flux density= -572.671 Nano Jy        2 comps
IMAGR2: Total Cleaned flux density     =    3.169 MilliJy       77 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   6 min = -282.3 MicroJy,max =  275.8 MicroJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   129.66 MicroJy
IMAGR2:    10269 Residual map points loaded
IMAGR2: Field    6 min Clean flux    =  242.448 MicroJy iter=       24
IMAGR2: Field    6 Clean flux density=  784.453 MicroJy       24 comps
IMAGR2: Total Cleaned flux density     =    3.242 MilliJy       80 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Field   5 min = -279.2 MicroJy,max =  268.5 MicroJy
IMAGR2: BGC Clean: using  103 cell beam + residuals >   115.69 MicroJy
IMAGR2:    19991 Residual map points loaded
IMAGR2: Field    5 min Clean flux    = -233.515 MicroJy iter=        2
IMAGR2: Field    5 Clean flux density=  -47.898 MicroJy        2 comps
IMAGR2: Total Cleaned flux density     =    3.194 MilliJy       82 comps
IMAGR2: VISDFT: Begin DFT component subtraction
IMAGR2: I Polarization model processed
IMAGR2: Peak residual in window 243.628 less than limit 244.044 MicroJy
IMAGR2: Merging the Clean components files
IMAGR2: Field    1 compressed from        40 to        13 components
IMAGR2: Field    2 compressed from         4 to         3 components
IMAGR2: Field    3 compressed from         0 to         0 components
IMAGR2: Field    4 compressed from         2 to         2 components
IMAGR2: Field    5 compressed from         2 to         2 components
IMAGR2: Field    6 compressed from        24 to        11 components
IMAGR2: Field    7 compressed from        10 to         6 components
IMAGR2: Field   1 min = -266.1 MicroJy,max =  266.0 MicroJy
IMAGR2: Field   2 min = -245.6 MicroJy,max =  256.5 MicroJy
IMAGR2: Field   3 min = -246.2 MicroJy,max =  271.8 MicroJy
IMAGR2: Field   4 min = -304.0 MicroJy,max =  256.3 MicroJy
IMAGR2: Field   5 min = -278.8 MicroJy,max =  268.6 MicroJy
IMAGR2: Field   6 min = -281.8 MicroJy,max =  275.5 MicroJy
IMAGR2: Field   7 min = -265.3 MicroJy,max =  259.3 MicroJy
IMAGR2: Restoring Clean components
IMAGR2: Restoring overlapped Clean components
IMAGR2: Restore  76.248 MicroJy (     3 CCs) from field   1 to field   2
IMAGR2: Restore -52.848 MicroJy (     1 CCs) from field   1 to field   5
IMAGR2: Restore   1.848 MilliJy (     7 CCs) from field   1 to field   7
IMAGR2: Restore  24.819 MicroJy (     1 CCs) from field   2 to field   3
IMAGR2: Restore -51.406 MicroJy (     1 CCs) from field   2 to field   4
IMAGR2: Restore -24.546 MicroJy (     1 CCs) from field   5 to field   1
IMAGR2: Restore -24.546 MicroJy (     1 CCs) from field   5 to field   3
IMAGR2: Restore  25.651 MicroJy (     1 CCs) from field   6 to field   4
IMAGR2: Restore 152.168 MicroJy (     3 CCs) from field   7 to field   1
IMAGR2: Restore  24.435 MicroJy (     1 CCs) from field   7 to field   5
IMAGR2: Checking image max/min
IMAGR2: Field    1 final Clean flux     2.460 MilliJy
IMAGR2: Field    2 final Clean flux    24.655 MicroJy
IMAGR2: Field    3 final Clean flux   272.504 Nano Jy
IMAGR2: Field    4 final Clean flux   -26.328 MicroJy
IMAGR2: Field    5 final Clean flux   -76.311 MicroJy
IMAGR2: Field    6 final Clean flux   784.453 MicroJy
IMAGR2: Field    7 final Clean flux     2.025 MilliJy
IMAGR2: Deleting UV work file:
IMAGR2: Destroyed  1 extension files of type AN
IMAGR2: Destroyed  1 extension files of type FQ
IMAGR2: Destroyed UV image file: catno=     20 disk= 1
IMAGR2: Appears to have ended successfully
IMAGR2: auto         31DEC06 TST: Cpu=      30.2  Real=      49
: Found in Version=ABIN
AIPS 2: Waiting for returned adverbs
AIPS 2: Resumes
AIPS 2: Found in Version=ABIN
AIPS 2: SETFC    was not found to be running
AIPS 2: SYSTEM command to be executed is:
AIPS 2: cat /tmp/SETFC@G991208_C,BAND.0-1 >> /home/auto/run/AK485_1999DE
AIPS 2: C29_1.log.0
AIPS 2: '    NOW STARTING WITH SOURCE  :3  =G991208'
AIPS 2: ' '
AIPS 2: Resumes
AIPS 2: SYSTEM command to be executed is:
AIPS 2: rm -f /tmp/SETFC@G991208_C,BAND.0-1 >& /dev/null
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     21 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     22 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     23 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     24 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     25 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     26 disk= 1
AIPS 2: Destroyed  1 extension files of type HI
AIPS 2: Destroyed MA image file: catno=     27 disk= 1
AIPS 2: Disk  1 in-CNO   28 renumbered as CNO   20
AIPS 2: Disk  1 in-CNO   29 renumbered as CNO   21
AIPS 2: Disk  1 in-CNO   30 renumbered as CNO   22
AIPS 2: Disk  1 in-CNO   31 renumbered as CNO   23
AIPS 2: Disk  1 in-CNO   32 renumbered as CNO   24
AIPS 2: Disk  1 in-CNO   33 renumbered as CNO   25
AIPS 2: Disk  1 in-CNO   34 renumbered as CNO   26
AIPS 2: ' '
AIPS 2: ' '
AIPS 2: Found in Version=ABIN
AIPS 2: '* APPEARS TO HAVE ENDED SUCCESSFULLY *'
>>AIPS 2: Disk  1 No files needed renumbering
AIPS 2: 'EMPTY CATALOG ?'               26
>AIPS 2: Begin check for any 'standard' scratch files
AIPS 2: Scratch files -- destroyed:    0  still active:    0
AIPS 2: User18465:  4442 messages, oldest written 09-OCT-2006  13:07:34
AIPS 2: Deleted      0 messages
AIPS 2: Saved POPS environment in area named 'LASTEXIT'
AIPS 2: Session command-line history saved.
AIPS 2: auto         31DEC06 TST: Cpu=       0.8  Real=     494

/home/auto/run/AK485_1999DEC29_1.run.0     finished on Mon Oct 9 14:05:45 MDT 2006