AIPS version = /home/auto/aips/31DEC06/LINUX/SYSTEM/VLA_PIPE/aips
Prep version = Aug 10 14:21 /home/auto/bin/AVLAPREP.001   
Pipe version = Aug 10 14:21 /home/auto/bin/AVLAPIPE.001   
Post version = Sep 7 11:26 /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 private file /users/vlbacald/.dadevs 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 4: You are NOT assigned a TV device or server
AIPS 4: You are NOT assigned a graphics device or server
AIPS 4: Enter user ID number
?AIPS 4:                          31DEC06 AIPS:
AIPS 4:      Copyright (C) 1995-2006 Associated Universities, Inc.
AIPS 4:            AIPS comes with ABSOLUTELY NO WARRANTY;
AIPS 4:                 for details, type HELP GNUGPL
AIPS 4: This is free software, and you are welcome to redistribute it
AIPS 4: under certain conditions; type EXPLAIN GNUGPL for details.
AIPS 4: Previous session command-line history *not* recovered.
AIPS 4: TAB-key completions enabled, type HELP READLINE for details.
AIPS 4: Recovered POPS environment from last exit
>>>AIPS 4: Found in Version=ABIN
AIPS 4: $ Lorant Sjouwerman, versions 1.. 2005, for NRAO
AIPS 4:
AIPS 4: $$ General naming utilities - default to data disk 1 (safest of
        all)
AIPS 4: procedure pipedef1
AIPS 4:   string*12 pnam
AIPS 4:   string*6 pcls
AIPS 4:   scalar pseq,pdsk
AIPS 4:   pdsk=1
AIPS 4: finish
AIPS 4: pipedef1
AIPS 4: procedure namepipe
AIPS 4:   pnam=inname;pcls=inclass;pseq=inseq;indisk=pdsk
AIPS 4: finish
AIPS 4: procedure pipename
AIPS 4:   inname=pnam;inclass=pcls;inseq=pseq;indisk=pdsk
AIPS 4: finish
AIPS 4:
AIPS 4: procedure checkcat
AIPS 4: $LOS - count and make sure catalog starts at one (and not more t
        han 10 files)
AIPS 4:   scalar numcat
AIPS 4:   clrname;indisk=pdsk;chkname;numcat=1-error
AIPS 4: $ for later: find out how to deal with CH0/LINE data in MOVE
AIPS 4:   if(numcat>0)then;recat;end;clrtemp
AIPS 4:   return numcat
AIPS 4: finish
AIPS 4:
AIPS 4: procedure gx
AIPS 4: $  inputs
AIPS 4:   go;wait
AIPS 4: finish
AIPS 4:
AIPS 4: procedure pre_fillm
AIPS 4: $LOS - sets VLA archive defaults for fillm
AIPS 4:   default fillm;outdisk=pdsk;doall=1;douvcomp=-1;cparm(8)=0.05;b
        parm(10)=0.75
AIPS 4: finish
AIPS 4:
AIPS 4: procedure fname
AIPS 4:   return inname!!'.'!!inclass!!'.'!!char(inseq)
AIPS 4: finish
AIPS 4:
AIPS 4: procedure del
AIPS 4:   error=1;zap
AIPS 4: finish
AIPS 4:
AIPS 4: procedure skipdata
AIPS 4: $LOS - delete unwanted data sets - currently all but continuum X
         and C bands
AIPS 4: $  if(inclass='LINE')then;del;inclass'CH 0';del;type'ZAP LINE :'
        fname;end
AIPS 4:   if((inclass='CH 0')!(inclass='LINE'))then;del;type'ZAP LINE :'
        fname;end
AIPS 4:   if(inclass='4 BAND')then;del;type'ZAP 4-BAND :'fname;end
AIPS 4:   if(inclass='P BAND')then;del;type'ZAP P-BAND :'fname;end
AIPS 4:   if(inclass='L BAND')then;del;type'ZAP L-BAND :'fname;end
AIPS 4:   if(inclass='U BAND')then;del;type'ZAP U-BAND :'fname;end
AIPS 4:   if(inclass='K BAND')then;del;type'ZAP K-BAND :'fname;end
AIPS 4:   if(inclass='Q BAND')then;del;type'ZAP Q-BAND :'fname;end;clrte
        mp
AIPS 4:   if(error<1)then $ file not zapped, check for single dish vlbi;
         #vis=0
AIPS 4:     task'TABGET';userid 0;inext'NX';invers=0;keyvalue=0;keystrng
        ''
AIPS 4:     keyword'NUM ROW';getthead;pixxy=keyvalue(1),6,0;tabget;clrte
        mp
AIPS 4:     if(keyvalue(1)=0)then;del;type'ZAP S-DISH :'fname;end
AIPS 4:   end
AIPS 4: $also zap if solar/planetary/pulsar mode - su table proper motio
        n??
AIPS 4: $ and what about PT-link?  antenna VPT is not OUT, later also EV
        LA names
AIPS 4: finish
AIPS 4:
AIPS 4: procedure checkids
AIPS 4: $LOS - account for fast switching source names - check on pos, q
        ual, calco
AIPS 4:   scalar ra1a,ra1b,ra2a,ra2b,dc1a,dc1b,dc2a,dc2b,n,m,l,idx
AIPS 4:   scalar q1,q2
AIPS 4:   string*1 co1,co2
AIPS 4:   string*16 n1,n2
AIPS 4:   array alist(100),blist(100)
AIPS 4:   inext'SU';invers 0;keyword'NUM ROW';keyvalue 0;keystrng'';gett
        head
AIPS 4:   n=keyvalue(1);idx=1;aparm 0;bparm 0;alist 0;blist 0
AIPS 4:   if (n > 1) then
AIPS 4:     for m=1:(n-1);clrtemp
AIPS 4:       pixxy m,11;tabget;ra1a keyvalue(1);ra1b keyvalue(2)
AIPS 4:       for l=(m+1):n;clrtemp
AIPS 4:         pixxy l,11;tabget;ra2a keyvalue(1);ra2b keyvalue(2)
AIPS 4:         if (abs(ra1a-ra2a)=0) then
AIPS 4:           if ( abs((ra1b-ra2b)*3600*1000) < 3 ) then $ RA within
         3 mas!
AIPS 4:             pixxy m,12;tabget;dc1a keyvalue(1);dc1b keyvalue(2)
AIPS 4:             pixxy l,12;tabget;dc2a keyvalue(1);dc2b keyvalue(2)
AIPS 4:             if (abs(dc1a-dc2a)=0) then
AIPS 4:               if ( abs((dc1b-dc2b)*3600*1000) < 3 ) then $ DC wi
        thin 3 mas!
AIPS 4:                 pixxy m,3;tabget;q1 keyvalue(1);pixxy l,3;tabget
        ;q2 keyvalue(1)
AIPS 4:                 if (q1=q2) then $ same qualifier; same calcode?
AIPS 4:                   pixxy m,4;tabget;co1 keystrng;pixxy l,4;tabget
        ;co2 keystrng
AIPS 4:                   if (co1=co2) then
AIPS 4:                     pixxy m,1;tabget;q1 keyvalue(1)
AIPS 4:                     pixxy l,1;tabget;q2 keyvalue(1)
AIPS 4:                     pixxy m,2;tabget;n1 keystrng;pixxy l,2;tabge
        t;n2 keystrng
AIPS 4:                     if (idx>100) then;
AIPS 4:                       type 'TOO MANY SOURCES TO DO DSORC - DO BY
         HAND!'
AIPS 4:                      type 'NEXT =.'!!char(idx)!!' DO:'!!char(l)!
        !'.&.'!!char(m)
AIPS 4:                     else
AIPS 4:                       if (length(n1)<length(n2)) then $ keep sho
        rtest name
AIPS 4:                         alist(idx) q2;blist(idx) q1
AIPS 4:                       else;alist(idx) q1;blist(idx) q2
AIPS 4:     end;end;idx=idx+1;end;end;end;end;end;end;end;end;clrtemp
AIPS 4:     if (idx>1) then;task'DSORC';n=0
AIPS 4:       outname inname;outclass inclass;outseq inseq;outdisk indis
        k
AIPS 4:       while (n<idx)
AIPS 4:        for l=1:10;aparm(l)=alist(l+n);bparm(l)=blist(l+n);end;gx
        ;n=n+10;clrtemp
AIPS 4:     end;end
AIPS 4:     if(idx>100)then;type'TOO MANY SOURCES FOR DSORC';error 1;end
        ;clrtemp
AIPS 4:   end
AIPS 4: finish
AIPS 4:
AIPS 4: procedure checkcal
AIPS 4: $LOS   Currently (Sep 22, 2005) can/will do 3C286 and 3C48 at X
        and C
AIPS 4: $LOS   (and for now skip 3C286/3C48/3C138/3C147 Q,K,U and 3C48 L
        )
AIPS 4:   scalar idx,jdx
AIPS 4:   string*16 sname
AIPS 4:   task'TABGET';userid 0;inext'SU';invers=0;keyvalue=0;keystrng''
        ;error=1
AIPS 4:   keyword'NUM ROW';getthead;idx=keyvalue(1);clrtemp
AIPS 4:   for jdx=1:idx
AIPS 4:     pixxy=jdx,2,0;tabget;sname=substr(keystrng,1,length(keystrng
        ))
AIPS 4:     if(sname='3C286')then;error=-1;jdx=idx+1;end
AIPS 4:     if(sname='3C48')then;error=-1;jdx=idx+1;end
AIPS 4:     if(sname='3C138')then;error=-1;jdx=idx+1;end
AIPS 4:     if(sname='3C147')then;error=-1;jdx=idx+1;end
AIPS 4:     if(sname='3C295')then;error=-1;jdx=idx+1;end
AIPS 4:     if(error>0)then $ try B1950 name
AIPS 4:       if(sname='1328+307')then;error=-1;jdx=idx+1;end
AIPS 4:       if(sname='0134+329')then;error=-1;jdx=idx+1;end
AIPS 4:       if(sname='0518+165')then;error=-1;jdx=idx+1;end
AIPS 4:       if(sname='0538+498')then;error=-1;jdx=idx+1;end
AIPS 4:       if(sname='1409+524')then;error=-1;jdx=idx+1;end
AIPS 4:       if(error>0)then $ try J2000
AIPS 4:         if(sname='1331+305')then;error=-1;jdx=idx+1;end
AIPS 4:         if(sname='0137+331')then;error=-1;jdx=idx+1;end
AIPS 4:         if(sname='0521+166')then;error=-1;jdx=idx+1;end
AIPS 4:         if(sname='0542+498')then;error=-1;jdx=idx+1;end
AIPS 4:         if(sname='1411+522')then;error=-1;jdx=idx+1;end
AIPS 4:         if(error>0)then $ try J2000 name
AIPS 4:           if(sname='J1331+3030')then;error=-1;jdx=idx+1;end
AIPS 4:           if(sname='J0137+3309')then;error=-1;jdx=idx+1;end
AIPS 4:           if(sname='J0521+1638')then;error=-1;jdx=idx+1;end
AIPS 4:           if(sname='J0542+4951')then;error=-1;jdx=idx+1;end
AIPS 4:           if(sname='J1411+5212')then;error=-1;jdx=idx+1;end
AIPS 4:     end;end;end;clrtemp
AIPS 4:   end
AIPS 4: $ if error>0 check on coords (for different name than standard)
AIPS 4: $ but keyval not reliable to do this.. ??
AIPS 4: $ end
AIPS 4:   if(error>0)then;del;type'ZAP - NO STD CAL SRC FOR :'fname;erro
        r=1
AIPS 4:   else;checkids;error=-1;end;clrtemp
AIPS 4: finish
AIPS 4:
AIPS 4: procedure j2000fix
AIPS 4: $LOS - convert data to J2000 by default use of uvfix
AIPS 4:   task'UVFIX';outname=inname;outclass=inclass;outseq=inseq;outdi
        sk=indisk
AIPS 4:   shift=0;uvfixprm=0;tput uvfix;outclass'PREFIX';rename
AIPS 4:   tget uvfix;inclass'PREFIX';gx;zap;inclass=outclass;clrtemp
AIPS 4: finish
AIPS 4:
AIPS 4: procedure datachks
AIPS 4: $LOS - delete unwanted data sets, check for standard calibrators
         and make J2000
AIPS 4:   if(error<1)then  $ file exists
AIPS 4:     skipdata;if(error<1)then  $ file was not zapped
AIPS 4:       checkcal;if(error<1)then  $ file has standard calibrator i
        n it
AIPS 4:         j2000fix
AIPS 4: $      addcalco
AIPS 4:   end;end;end;clrtemp
AIPS 4: finish
AIPS 4:
AIPS 4: procedure freqchks
AIPS 4: $LOS - split up in frequency IDs, run INDXR, and remove
AIPS 4:   scalar rows, nfrq
AIPS 4:   if(error<1)then  $ file exists
AIPS 4:     inext'FQ';invers=1;keyword='NUM ROW';getthead;nfrq=keyvalue(
        1)
AIPS 4:     if (nfrq > 1) then
AIPS 4:       if (nfrq > 9) then;type' WARNING! MORE THAN 9 FREQUENCY ID
        -S!';end
AIPS 4:       tput getthead;default'UVCOP';tget getthead;keyword='';task
        'UVCOP';tput
AIPS 4:       for rows=1:nfrq
AIPS 4:         pixxy=rows,1,1;inver=1;inext='FQ';tabget;tget;freqid=key
        value(1)
AIPS 4:         outclass=substr(inclass,1,1)!!substr(inclass,3,6)!!char(
        freqid)
AIPS 4:         type'COPYING FREQUENCY ID #'!!char(freqid);gx
AIPS 4:         default'INDXR';tget uvcop;task'INDXR';inclass outclass;g
        x;task'DQUAL'
AIPS 4: $out not in! ** outname=inname;outclass=inclass;outseq=inseq;out
        disk=indisk;gx
AIPS 4:         tget uvcop;freqid=1;clrtemp
AIPS 4:   end;end;end;if(nfrq>1)then;type fname!!' SPLIT IN :'!!char(nfr
        q);zap;end
AIPS 4: finish
AIPS 4:
AIPS 4: procedure pre_move
AIPS 4: $LOS - moves file to another AIPS user number
AIPS 4:   default move;indisk=pdsk;outseq=-1;opcode'MOVE';clrtemp
AIPS 4: finish
>AIPS 4: Found in Version=ABIN
AIPS 4: $
AIPS 4: $ Ver 1.0 : Copy of private Ver 3.0 of VLARUN (public version is
         2.5):
AIPS 4: $ was 3.0 : Add PLVER (in goplt) for plot files and to include T
        ASAV (12MAY04)
AIPS 4: $           Repositioned inseq=0 to safeguard to SU-tab confusio
        n (12NOV04)
AIPS 4: $           Rearanged inputs and options, added integration time
         calculation,
AIPS 4: $           QUACK, selective plotting, INNAME vs DOCAT, alternat
        ive flux cal,
AIPS 4: $           selective imaging, SCIMG for targets, use model in C
        ALIB, find VLA
AIPS 4: $           array, use model,..
AIPS 4: $
AIPS 4: $Next vers add        polarization calibration, SCIMG->SCIMG?
AIPS 4: $                     find imsize, find cutoffflux, include infi
        le
AIPS 4: $---------------------------------------------------------------
AIPS 4: $000000001111111111222222222233333333334444444444555555555566666
        6666677777777778
AIPS 4: $234567890123456789012345678901234567890123456789012345678901234
        5678901234567890
AIPS 4: $===============================================
AIPS 4: $! Calibrating amplitude and phase, and imaging VLA data
AIPS 4: $# RUN POPS VLA UTILITY CALIBRATION IMAGING
AIPS 4: $---------------------------------------------------------------
AIPS 4: $;  Copyright (C) 2002-2006
AIPS 4: $;  Associated Universities, Inc. Washington DC, USA.
AIPS 4: $;
AIPS 4: $;  This program is free software; you can redistribute it and/o
        r
AIPS 4: $;  modify it under the terms of the GNU General Public License
        as
AIPS 4: $;  published by the Free Software Foundation; either version 2
        of
AIPS 4: $;  the License, or (at your option) any later version.
AIPS 4: $;
AIPS 4: $;  This program is distributed in the hope that it will be usef
        ul,
AIPS 4: $;  but WITHOUT ANY WARRANTY; without even the implied warranty
        of
AIPS 4: $;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See th
        e
AIPS 4: $;  GNU General Public License for more details.
AIPS 4: $;
AIPS 4: $;  You should have received a copy of the GNU General Public
AIPS 4: $;  License along with this program; if not, write to the Free
AIPS 4: $;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,
AIPS 4: $;  MA 02139, USA.
AIPS 4: $;
AIPS 4: $;  Correspondence concerning AIPS should be addressed as follow
        s:
AIPS 4: $;         Internet email: aipsmail@nrao.edu.
AIPS 4: $;         Postal address: AIPS Project Office
AIPS 4: $;                         National Radio Astronomy Observatory
AIPS 4: $;                         520 Edgemont Road
AIPS 4: $;                         Charlottesville, VA 22903-2475 USA
AIPS 4: $---------------------------------------------------------------
AIPS 4: $===============================================================
AIPS 4:
AIPS 4: procedure pipeinit
AIPS 4:   scalar lsdisk,lsname,lsrant,lscont,lserr,lsplot,lsflag,k,lsflu
        x,lstarg,lsmodl
AIPS 4:   scalar lsids,star,tint,fsw
AIPS 4:   string*2 lstyp
AIPS 4:   string*3 lsvla
AIPS 4:   string*6 lsidc,lsstrng
AIPS 4:   string*16 lsidn,lscal
AIPS 4:   string*16 lsampcal(20),lsbndcal(5),lsphacal(20),lspntcal(25),l
        sallcal(30),
AIPS 4:   array lsbadd(10),lsparm(16),lssid(1000) $ D=1,C=3.3,B=10.8,A=3
        5.4,PT=73
AIPS 4:   string*20 expnm
AIPS 4:   string*48 expmsg
AIPS 4: finish
AIPS 4: pipeinit
AIPS 4:
AIPS 4: procedure pipeinpt
AIPS 4:   lsampcal     '3C48', '0134+329','0137+331','J0137+3309'
AIPS 4:   lsampcal(5)~ '3C138','0518+165','0521+166','J0521+1638'
AIPS 4:   lsampcal(9)~ '3C147','0538+498','0542+498','J0542+4951'
AIPS 4:   lsampcal(13)~'3C286','1328+307','1331+305','J1331+3030'
AIPS 4:   lsampcal(17)~'3C295','1409+524','1411+522','J1411+5212'
AIPS 4:   lserr=0;lsbadd=baddisk;lsdisk=indisk;lsname=docat
AIPS 4:   lsidn=inname;lsidc=inclass;lsids=inseq;lstyp'UV';fsw=doalign;l
        sflag=flagver
AIPS 4:   lsparm(2)=solint;lsparm(13)=factor;lsrant=refant;lsmodl=domode
        l
AIPS 4:   lscal=keystrng;lsflux=flux;lsparm(3)=uvrange(1);lsparm(4)=uvra
        nge(2)
AIPS 4:   for k=1:20;lsphacal(k)=sources(k);end;for k=1:5;lsbndcal(k)=ca
        lsour(k);end
AIPS 4:   lsparm(11)=dopol;lsparm(12)=bpa;lscont=docont;lsplot=plver;lsp
        arm(1)=doall
AIPS 4:   lsparm(5)=doarray;lsparm(6)=imsize(1);lsparm(7)=niter;lsparm(8
        )=cutoff
AIPS 4:   lsparm(9)=docal;lsparm(10)=doresid
AIPS 4: $ check input values
AIPS 4: $->lsbadd
AIPS 4:   if (lsdisk<=0) then;lserr=1;type'SPECIFY THE INDISK';end
AIPS 4:   if(lsname<=0)then;inname=lsidn;inclass=lsidc;inseq=lsids;intyp
        e=lstyp;chkname
AIPS 4:     if (error<>0) then
AIPS 4:       lserr=2; type 'SPECIFY INNAME, ETC, OR THE CATALOG NUMBER
        = DOCAT'
AIPS 4:     else
AIPS 4:       userid=0;k=1;lsname=0
AIPS 4:       while (lsname=0);egetname k
AIPS 4:         if (( (lsidn=inname)&(lsidc=inclass) )&(lsids=inseq)) th
        en
AIPS 4:           lsname=k;lsidn=inname;lsidc=inclass;lsids=inseq;lstyp=
        intype
AIPS 4:   else;k=k+1;end;end;end;else
AIPS 4:     if ( ((inname <> '')!(inclass <> '')) ! (inseq <> 0) ) then
AIPS 4:       lserr=2; type 'DO NOT SPECIFY BOTH INNAME, ETC, AND VARIAB
        LE DOCAT'
AIPS 4:     else
AIPS 4:       getname(lsname);lsidn=inname;lsidc=inclass;lsids=inseq;lst
        yp=intype
AIPS 4:     end
AIPS 4:   end
AIPS 4:
AIPS 4: $->inname
AIPS 4: $->inclass
AIPS 4: $->inseq
AIPS 4: $->fsw
AIPS 4: $->lsflag
AIPS 4:   if (lsparm(2)<=0) then; lserr=3; type 'SPECIFY THE SOLUTION IN
        TERVAL';end
AIPS 4:   if (lsparm(13)<1)then;lsparm(13)=1;type'FACTOR<1 QUESTIONABLE,
         SET TO 1';end
AIPS 4:   if (lsrant<=0)then;lsrant=0;type'AIPS WILL CHOOSE THE REFERENC
        E ANTENNA';end
AIPS 4:   if ( (lsmodl>0) & (length(lscal)>0) ) then
AIPS 4:     lserr=4;type 'CANNOT USE STANDARD SOURCE MODEL FOR ALTERNATI
        VE CALIBRATOR'
AIPS 4:   end
AIPS 4: $->lscal
AIPS 4:     if (length(lscal)<>0) then
AIPS 4:       type 'USING NON-STANDARD AMPLITUDE CALIBRATOR, FLUX, UVRAN
        GE :'
AIPS 4:       type lscal, lsflux, lsparm(3), lsparm(4);lsampcal='';lsamp
        cal(1)=lscal
AIPS 4:     end
AIPS 4:
AIPS 4: $->lsflux
AIPS 4: $-> #3+#4 uvrange
AIPS 4:   for i=1:20;for j=1:16;if(substr(lsphacal(i),j,j)='*')then;if (
        lserr<>7) then
AIPS 4:     if((i=1)&(j=1))then;star=1;else;
AIPS 4:       star=-1;lserr=7;type'ONLY USE * IN THE 1ST CHARACTER OF TH
        E 1ST SOURCE'
AIPS 4:   end;end;end;end;clrtemp;end
AIPS 4:   if (lsname>0) then; indisk=lsdisk; getname(lsname); clrtemp
AIPS 4:     if ( (inclass='CH 0') & (substr(lsbndcal(1),1,1) = ' ') ) th
        en
AIPS 4:       lserr=8;type 'SPECIFY THE BANDPASS CALIBRATOR = CALSOUR'
AIPS 4:   end;end;clrtemp
AIPS 4: $-> #11 dopol
AIPS 4: $-> #12 bpa
AIPS 4: $->lscont
AIPS 4: $->lsplot
AIPS 4:   if (lsparm(1) > 0) then
AIPS 4:     if (lsparm(5)<0) then;type 'SETFC WILL DETERMINE THE CELL SI
        ZE'
AIPS 4:     else;
AIPS 4:       if (lsparm(5)=0) then;
AIPS 4:         keyword='TELESCOP';gethead;
AIPS 4:         if (substr(keystrng,1,3)<>'VLA') then;
AIPS 4:           lserr=5; type 'CANNOT DETERMINE ARRAY - THIS IS NOT TH
        E VLA'
AIPS 4:         else;keyword'NUM ROW';inext'AN';invers=0;getthead;k=keyv
        alue(1)
AIPS 4:           for j=1:k
AIPS 4:             pixxy=j,1,0;tabget;i=1;clrtemp
AIPS 4:             while((substr(keystrng,i,i)<>':')&(i<9));i=i+1;end
AIPS 4:             if (substr(keystrng,i+1,i+1)<>' ')then;
AIPS 4:               lsvla=substr(keystrng,i+1,i+3);else
AIPS 4:               lsvla=substr(keystrng,i+2,i+4);end
AIPS 4:             if ((lsvla<>'OUT')&(lsvla<>'MPD'))then;
AIPS 4:               if (lsvla='VPT')then;lsparm(5)=75;else
AIPS 4:                 if (substr(keystrng,i+1,i+1)<>' ')then;
AIPS 4:                   keyword=substr(keystrng,i+2,i+8);else
AIPS 4:                   keyword=substr(keystrng,i+3,i+9);end
AIPS 4:                   lsparm(5)=max(lsparm(5),value(keyword));clrtem
        p;end;end;end
AIPS 4:           if (lsparm(5)<75) then;if (lsparm(5)>36) then;lsparm(5
        )=36;else
AIPS 4:           if (lsparm(5)>18) then;lsparm(5)=11;else
AIPS 4:           if(lsparm(5)>9)then;lsparm(5)=3.5;else;lsparm(5)=1;end
        ;end;end;end
AIPS 4:         end;if(lsparm(5)=0)then;lserr=5;type'WHAT ARRAY?! USE DO
        ARRAY';else
AIPS 4:         if(lsparm(5)>0)then
AIPS 4:           type char(lsparm(5))!!' KILOMETERS WILL BE USED AS MAX
        IMUM BASELINE'
AIPS 4:     end;end;end;end
AIPS 4:     if (lsparm(6)>=0)then;if((lsparm(6)<128)!(imsize(2)<128))the
        n
AIPS 4:       lserr=6; type 'SPECIFY THE IMSIZE CORRECTLY (>127 OR <0)';
        end;end
AIPS 4:
AIPS 4: $-> #7 niter
AIPS 4:     if (lsparm(7) < 0) then; lsparm(7) = 1e6; end
AIPS 4: $-> #8 cutoff
AIPS 4: $-> #9 docal
AIPS 4: $-> #10 doresid
AIPS 4:
AIPS 4:   end
AIPS 4: finish
AIPS 4:
AIPS 4: procedure getidn
AIPS 4:   indisk=lsdisk;inname=lsidn;inclass=lsidc;inseq=lsids;intype=ls
        typ
AIPS 4: finish
AIPS 4:
AIPS 4: procedure getset
AIPS 4:   default;getidn;clrtemp
AIPS 4: finish
AIPS 4:
AIPS 4: procedure lsclrcal
AIPS 4: $ consolidate lists, deal with calcode='*' later
AIPS 4:   scalar lsidx,l,m,n
AIPS 4:   task'TABGET';getset;inext'NX';invers 0;keyvalue=0;keystrng''
AIPS 4:   keyword'NUM ROW';getthead;lsidx=keyvalue(1);clrtemp;n=0;lssid=
        0
AIPS 4:   if (keyvalue(1)>1000)then;type'WARNING: MORE THAN 1000 SCANS !
        ';end
AIPS 4:   for i=1:lsidx $ remember source number
AIPS 4:     pixxy=i,3,0;tabget;error=0
AIPS 4:     for l=1:n;if(lssid(l)=keyvalue(1))then;error=1;end;end;clrte
        mp
AIPS 4:     if(error=0)then;n=n+1;lssid(n)=keyvalue(1);end
AIPS 4:   end;inext'SU';invers 0;keyvalue=0;keystrng'';keyword'NUM ROW'
AIPS 4:   getthead;lsidx=keyvalue(1);clrtemp;sources'';l=1;m=1;n=1
AIPS 4:   for i=1:lsidx
AIPS 4:     pixxy=i,2,0;tabget;k=length(keystrng);j=0;clrtemp
AIPS 4:     while (j<20);j=j+1;if (substr(lsampcal(j),1,k)=substr(keystr
        ng,1,k)) then
AIPS 4:         lsampcal(l)=lsampcal(j);j=30;lsparm(14)=l;l=l+1;end;end;
        j=0;clrtemp
AIPS 4:     while (j<20);j=j+1;if (substr(lsphacal(j),1,k)=substr(keystr
        ng,1,k)) then
AIPS 4:         lsphacal(m)=lsphacal(j);j=30;lsparm(15)=m;m=m+1;end;end;
        j=0;clrtemp
AIPS 4:     while (j<5);j=j+1;if (substr(lsbndcal(j),1,k)=substr(keystrn
        g,1,k)) then
AIPS 4:         lsbndcal(n)=lsbndcal(j);j=30;lsparm(16)=n;n=n+1;end;end;
        clrtemp
AIPS 4:   end;lspntcal'';lsallcal'';for j=l:20;lsampcal(j)='';end
AIPS 4:   for j=m:20;lsphacal(j)='';end;for j=n:5;lsbndcal(j)='';end
AIPS 4:   for j=1:lsparm(15);lspntcal(j)=lsphacal(j);end;k=lsparm(15)
AIPS 4:   for j=1:lsparm(16);lspntcal(j+k)=lsbndcal(j);end;j=0;l=1;clrte
        mp
AIPS 4:   while (j<(lsparm(15)+lsparm(16)));j=j+1;if (length(lspntcal(j)
        )>0) then
AIPS 4:     lspntcal(l)=lspntcal(j);if(l<>j)then;lspntcal(j)='';end;l=l+
        1;end;end
AIPS 4: $here - clean up pnt cal for doubles - subtract from total count
         below
AIPS 4:   k=lsparm(15)+lsparm(16);for j=1:k;lsallcal(j)=lspntcal(j);end;
        l=1
AIPS 4:   for j=1:lsparm(14);i=length(lsampcal(j));lsidx=0;m=j
AIPS 4:     while ((lsidx<k)&j<30);lsidx=lsidx+1
AIPS 4:       if (substr(lspntcal(lsidx),1,i)=substr(lsampcal(j),1,i)) t
        hen;j=30;end
AIPS 4:   end;if (j<30) then;lsallcal(l+k)=lsampcal(m);l=l+1;end;end;j=0
        ;l=1;clrtemp
AIPS 4:   while (j<(lsparm(14)+lsparm(15)+lsparm(16)));j=j+1
AIPS 4:     if (length(lsallcal(j))>0) then;lsallcal(l)=lsallcal(j)
AIPS 4:       if(l<>j)then;lsallcal(j)='';end;l=l+1;end;end
AIPS 4: $typ 'LSAMPCAL, LSPHACAL, LSBNDCAL, LSPNTCAL, AND LSALLCAL :'
AIPS 4: $typ lsampcal; typ lsphacal; typ lsbndcal; typ lspntcal; typ lsa
        llcal;
AIPS 4:   return;clrtemp
AIPS 4: finish
AIPS 4:
AIPS 4: procedure numtab(lsstrng)
AIPS 4:   keystrng'';j=0;clrtemp
AIPS 4:   while ((j<15)&(keystrng<>lsstrng))
AIPS 4:     j=j+1;keyword'EXTYPE'!!char(j);gethead;end;clrtemp
AIPS 4:   if (keystrng=lsstrng) then
AIPS 4:     keyword'EXTVER'!!char(j);gethead;else;keyvalue=0;end
AIPS 4:   keyword'';keystrng'';clrtemp
AIPS 4: return keyvalue(1);finish
AIPS 4:
AIPS 4: procedure numbasel
AIPS 4:   scalar numarow,numbout,numbant,numbase,idx;string*16 nameant
AIPS 4:   numbout=0;keyword'NUM ROW';inext'AN';invers=0;getthead;numarow
        =keyvalue(1)
AIPS 4:   for numbant=1:numarow
AIPS 4:     pixxy=numbant,1,0;tabget;nameant=keystrng;idx=1;clrtemp
AIPS 4:     while(substr(nameant,idx,idx)<>':');idx=idx+1;end
AIPS 4:     if(substr(nameant,idx+1,idx+3)='OUT')then;numbout=numbout+1;
        end
AIPS 4:     if(substr(nameant,idx+2,idx+4)='OUT')then;numbout=numbout+1;
        end
AIPS 4:   end;numbase=(numarow-numbout)*(numarow-numbout-1)/2;clrtemp
AIPS 4: $  type char(numarow-numbout)!!' ANTENNAS',char(numbase)!!' BASE
        LINES'
AIPS 4:   return numbase
AIPS 4: finish
AIPS 4:
AIPS 4: procedure calcintt
AIPS 4:   scalar numxrow,numscan,numbbeg,numbend,numcnst,sum,avr,rms,rma
        x;rmax=300
AIPS 4:   array interval(1000),numbvis(1000);avr=0;if(rmax>1000)then;rma
        x=1000;end
AIPS 4:   if (numtab('NX')<1) then;type'NOT MULTISOURCE - NO INTTIME CAL
        CULATED'
AIPS 4:   else
AIPS 4:     keyword'NUM ROW';inext'NX';invers 0;getthead;numxrow=keyvalu
        e(1)
AIPS 4:     if(numxrow>rmax)then;numxrow rmax;end
AIPS 4:     for numscan=1:numxrow;clrtemp
AIPS 4:       pixxy=numscan,2,0;tabget;interval(numscan)=86400*keyvalue(
        1)
AIPS 4:       pixxy=numscan,5,0;tabget;numbbeg=keyvalue(1)
AIPS 4:       pixxy=numscan,6,0;tabget;numbend=keyvalue(1)
AIPS 4:       numbvis(numscan)=numbend-numbbeg+1;avr=max(avr,numbvis(num
        scan))
AIPS 4:     end;numcnst=numbasel;sum=0
AIPS 4:     if (avr > 0) then
AIPS 4:       for numscan=1:numxrow;if (numbvis(numscan)>0) then
AIPS 4:           sum=sum+( (numcnst*interval(numscan)) / numbvis(numsca
        n) )
AIPS 4:       end;end;clrtemp;avr=sum/numxrow;sum=0
AIPS 4:       for numscan=1:numxrow;if (numbvis(numscan)>0) then
AIPS 4:           sum=sum+((numcnst*interval(numscan))/numbvis(numscan)-
        avr)**2
AIPS 4:     end;end;clrtemp;rms=sum/numxrow;clrtemp;end
AIPS 4: $  type char(numxrow)!!' SCANS/SAMPLES WITH RMS(SEC) +/-'!!char(
        rms)
AIPS 4: $  type char(avr)!!' SECOND INTEGRATIONS (APPROXIMATELY)'
AIPS 4:   end
AIPS 4:   return avr
AIPS 4: finish
AIPS 4:
AIPS 4: procedure guesintt
AIPS 4:   scalar intcst,intavr,intmod,intime
AIPS 4:   intavr=calcintt;intcst=intavr;keyword'TELESCOP';gethead
AIPS 4:   if (keystrng='VLA') then;intcst=1+(2/3);end
AIPS 4:   if (keystrng='VLBA') then;intcst=0.131072;end
AIPS 4:   if (intcst=intavr) then;type'UNKNOWN TELESCOPE :'!!keystrng;en
        d
AIPS 4:   if (intavr>10) then
AIPS 4: $    intime=10*floor(0.5+(intavr/10))
AIPS 4:     intime=10*floor(intavr/10)
AIPS 4:   else;if (intavr>0) then
AIPS 4:       intmod=mod(intavr,intcst)
AIPS 4: $      intime=intcst*((intavr-intmod)/intcst+floor(0.5+(intmod/i
        ntcst)))
AIPS 4:       intime=intcst*((intavr-intmod)/intcst+floor(intmod/intcst)
        )
AIPS 4:   else;intime=intavr;end;end;clrtemp
AIPS 4:   if(numtab('NX')>0)then;type char(intime)!!' SECOND INTEGRATION
        S (GUESS)';end
AIPS 4:   return intime
AIPS 4: finish
AIPS 4:
AIPS 4: procedure checkids
AIPS 4: $LOS - account for fast switching source names - check on pos, q
        ual, calco
AIPS 4:   scalar ra1a,ra1b,ra2a,ra2b,dc1a,dc1b,dc2a,dc2b,n,m,l,idx
AIPS 4:   scalar q1,q2
AIPS 4:   string*1 co1,co2
AIPS 4:   string*16 n1,n2
AIPS 4:   array alist(100),blist(100)
AIPS 4:   inext'SU';invers 0;keyword'NUM ROW';keyvalue 0;keystrng'';gett
        head
AIPS 4:   n=keyvalue(1);idx=1;aparm 0;bparm 0;alist 0;blist 0
AIPS 4:   if (n > 1) then
AIPS 4:     for m=1:(n-1);clrtemp
AIPS 4:       pixxy m,11;tabget;ra1a keyvalue(1);ra1b keyvalue(2)
AIPS 4:       for l=(m+1):n;clrtemp
AIPS 4:         pixxy l,11;tabget;ra2a keyvalue(1);ra2b keyvalue(2)
AIPS 4:         if (abs(ra1a-ra2a)=0) then
AIPS 4:           if ( abs((ra1b-ra2b)*3600*1000) < 3 ) then $ RA within
         3 mas!
AIPS 4:             pixxy m,12;tabget;dc1a keyvalue(1);dc1b keyvalue(2)
AIPS 4:             pixxy l,12;tabget;dc2a keyvalue(1);dc2b keyvalue(2)
AIPS 4:             if (abs(dc1a-dc2a)=0) then
AIPS 4:               if ( abs((dc1b-dc2b)*3600*1000) < 3 ) then $ DC wi
        thin 3 mas!
AIPS 4:                 pixxy m,3;tabget;q1 keyvalue(1);pixxy l,3;tabget
        ;q2 keyvalue(1)
AIPS 4:                 if (q1=q2) then $ same qualifier; same calcode?
AIPS 4:                   pixxy m,4;tabget;co1 keystrng;pixxy l,4;tabget
        ;co2 keystrng
AIPS 4:                   if (co1=co2) then
AIPS 4:                     pixxy m,1;tabget;q1 keyvalue(1)
AIPS 4:                     pixxy l,1;tabget;q2 keyvalue(1)
AIPS 4:                     pixxy m,2;tabget;n1 keystrng;pixxy l,2;tabge
        t;n2 keystrng
AIPS 4:                     if (idx>100) then;
AIPS 4:                       type 'TOO MANY SOURCES TO DO DSORC - DO BY
         HAND!'
AIPS 4:                      type 'NEXT =.'!!char(idx)!!' DO:'!!char(l)!
        !'.&.'!!char(m)
AIPS 4:                     else
AIPS 4:                       if (length(n1)<length(n2)) then $ keep sho
        rtest name
AIPS 4:                         alist(idx) q2;blist(idx) q1
AIPS 4:                       else;alist(idx) q1;blist(idx) q2
AIPS 4:     end;end;idx=idx+1;end;end;end;end;end;end;end;end;clrtemp
AIPS 4:     if (idx>1) then;task'DSORC';n=0
AIPS 4:       outname inname;outclass inclass;outseq inseq;outdisk indis
        k
AIPS 4:       while (n<idx)
AIPS 4:        for l=1:10;aparm(l)=alist(l+n);bparm(l)=blist(l+n);end;gx
        ;n=n+10;clrtemp
AIPS 4:     end;end
AIPS 4:     if(idx>100)then;type'TOO MANY SOURCES FOR DSORC';error 1;end
        ;clrtemp
AIPS 4:   end
AIPS 4: finish
AIPS 4:
AIPS 4: procedure chkobjct
AIPS 4:   if (( (object='1331+305') ! (object='1328+307') ) ! (object='J
        1331+3030') )
AIPS 4:     then; object='3C286';end
AIPS 4:   if (( (object='0137+331') ! (object='0134+329') ) ! (object='J
        0137+3309') )
AIPS 4:     then; object='3C48';end
AIPS 4:   if (( (object='0521+166') ! (object='0518+165') ) ! (object='J
        0521+1638') )
AIPS 4:     then; object='3C138';end
AIPS 4:   if (( (object='0542+498') ! (object='0538+498') ) ! (object='J
        0542+4951') )
AIPS 4:     then; object='3C147';end
AIPS 4:   if (( (object='1411+522') ! (object='1409+524') ) ! (object='J
        1411+5212') )
AIPS 4:     then; object='3C295';end;clrtemp;return
AIPS 4: finish
AIPS 4:
AIPS 4: procedure checkbnd
AIPS 4:   band='';j=1
AIPS 4:   while (j<9)
AIPS 4:     keyword='CTYPE'!!char(j);gethead;keyword='CRVAL'!!char(j);cl
        rtemp
AIPS 4:     if (keystrng='FREQ') then;gethead;j=9;else;j=j+1;end;end
AIPS 4:   keyvalue(1)=keyvalue(1)/1e9;
AIPS 4:   if ( (keyvalue(1)>38)    & (keyvalue(1)<51) )    then; band='Q
        ';end
AIPS 4:   if ( (keyvalue(1)>20.4)  & (keyvalue(1)<25.5) )  then; band='K
        ';end
AIPS 4:   if ( (keyvalue(1)>13.5)  & (keyvalue(1)<16.3) )  then; band='U
        ';end
AIPS 4:   if ( (keyvalue(1)> 6.8)  & (keyvalue(1)< 9.6) )  then; band='X
        ';end
AIPS 4:   if ( (keyvalue(1)> 4.2)  & (keyvalue(1)< 5.1) )  then; band='C
        ';end
AIPS 4:   if ( (keyvalue(1)> 1.15) & (keyvalue(1)< 1.75) ) then; band='L
        ';end
AIPS 4:   if ( (keyvalue(1)>0.298) & (keyvalue(1)<0.345) ) then; band='P
        ';end
AIPS 4:   if ( (keyvalue(1)>0.072) & (keyvalue(1)<0.076) ) then; band='4
        ';end;clrtemp
AIPS 4:   return
AIPS 4: finish
AIPS 4:
AIPS 4: procedure chkmodel
AIPS 4:   error=0;sysout='';sys2com''
AIPS 4:   syscom'ls -1 $AIPSTARS/
AIPS 4:   sys2com(1) inname!!'.MODEL'
AIPS 4:   sys2com(2) ' >& /dev/null
AIPS 4:   system
AIPS 4: finish
AIPS 4:
AIPS 4: procedure loadmodl
AIPS 4:   scalar lsidx,l
AIPS 4:   array lsload(5)
AIPS 4:   task'TABGET';getset;inext'SU';invers 0;keyvalue=0;keystrng''
AIPS 4:   keyword'NUM ROW';getthead;lsidx=keyvalue(1);l=1;clrtemp
AIPS 4:   for i=1:lsidx
AIPS 4:     pixxy=i,2,0;tabget;k=length(keystrng);j=1;clrtemp
AIPS 4:     while (j<21)
AIPS 4:       if (substr(lsampcal(j),1,k)=substr(keystrng,1,k)) then
AIPS 4:         lsload(l)=i;j=30;l=l+1;else;j=j+1;clrtemp
AIPS 4:   end;end;end;lsidx=0;checkbnd;keyword'EPOCH';keyvalue=0;keystrn
        g='';gethead
AIPS 4:   if (keyvalue(1)<1999) then;lsidx=1;end
AIPS 4:   for j=1:(l-1)
AIPS 4:     object=lsampcal(j);chkobjct;clrtemp;intype'MA';outdisk=lsdis
        k
AIPS 4:     inname=object!!'_'!!band;inclass'MODEL';inseq=1;indisk=lsdis
        k;chkname
AIPS 4: $$  if (error>0) then;type lsampcal(lsload(j))!!' MODEL ='inname
        ;chkmodel
AIPS 4:     if (error>0) then;type lsampcal(j)!!' MODEL ='inname;chkmode
        l
AIPS 4:       if(error<1)then;go calrd;if (lsidx>0) then;eposwtch;end;en
        d;end $ J2000
AIPS 4:   end;return
AIPS 4: finish
AIPS 4:
AIPS 4: procedure vlanew
AIPS 4:   clrstat;j=numtab('BP');if (j>0) then;inext'BP';invers=-1;extde
        st;end
AIPS 4:   j=numtab('CL');if (j>1) then;inext'CL';for k=2:j;invers=k;extd
        est;end;end
AIPS 4:   j=numtab('SN');if (j>0) then;inext'SN';invers=-1;extdest;end
AIPS 4:   j=numtab('XX');if (j>0) then;inext'XX';invers=-1;extdest;end
AIPS 4:   if (inclass='LINE') then
AIPS 4:     j=numtab('FG');if (j>1) then;inext'FG';for k=2:j;invers=k;ex
        tdest;end;end
AIPS 4:     j=numtab('CL');if (j>1) then;inext'CL';for k=2:j;invers=k;ex
        tdest;end;end
AIPS 4:     j=numtab('BP');if (j>0) then;inext'BP';invers=-1;extdest;end
AIPS 4:     j=numtab('PL');if (j>0) then;inext'PL';invers=-1;extdest;end
AIPS 4:   end;j=numtab('PL');if (j>0) then;inext'PL';invers=-1;extdest;e
        nd;clrtemp
AIPS 4:   type'DONE CLEANUP OF OLD TABLE EXTENTION FILES (CL,SN,FG,BP,PL
        ,XX)'
AIPS 4: finish
AIPS 4:
AIPS 4: procedure allzap
AIPS 4:   chkname;if(error<1)then;for j=1:(1-error);zap;end;end;clrtemp
AIPS 4: finish
AIPS 4:
AIPS 4: procedure allplot
AIPS 4:   tvinit;j=numtab('PL');type 'NUMBER OF PLOT FILES TO SHOW ON TV
        :'!!char(j)
AIPS 4:   if (j>0) then
AIPS 4:     for k=1:j;plver=k;type 'PLOT'char(k)!!'/'!!char(j);go tvpl;r
        ead;end
AIPS 4:     else;type 'NOTHING TO PLOT - DONE';end
AIPS 4: finish
AIPS 4:
AIPS 4: procedure goplt0
AIPS 4:   if (lsplot>0) then;go;end
AIPS 4: finish $SN only
AIPS 4: procedure goplt1
AIPS 4:   if (lsplot>1) then;go;end
AIPS 4: finish $SN+CL
AIPS 4: procedure goplt2
AIPS 4:   if (lsplot>2) then;go;end
AIPS 4: finish $SN+CL+BP
AIPS 4: procedure goplt3
AIPS 4:   if (lsplot>3) then;go;end
AIPS 4: finish $CL,BP applied
AIPS 4:
AIPS 4: procedure calpipe(lsdisk,lsname,lsrant)
AIPS 4:   vnum=33;dowait=true;getidn;vlanew;j=0;clrtemp
AIPS 4:   if (inclass='CH 0') then;inclass'LINE';vlanew;end;clrtemp
AIPS 4:   if(fsw>0)then;checkids;if(inclass='CH 0')then;inclass'LINE';ch
        eckids;end;end
AIPS 4:   if ((numtab('FG')<1)&(lsflag>=0)) then
AIPS 4:     if (lsflag>=1) then
AIPS 4:       task'QUACK';getset;flagver=1;opcode'BEG';i=min(3*tint,20)
AIPS 4:       reason char(i)!!' SEC AUTO-QUACK';aparm=0,i/60,-1;go
AIPS 4:     end;task'FLAGR';getset
AIPS 4:     docal 2;solint=max(3*tint-2,2.7*tint);vector=-1;docrt 0;go
AIPS 4:   end
AIPS 4:   task'SNPLT';getset;inext'CL';nplots 8;optype'AMP';vput;pixrang
        e=0.7,1.8
AIPS 4:   goplt1;task'SETJY';getset;optype'REJY';aparm=0;freqid=1;go;opt
        ype'CALC'
AIPS 4:     if (length(lscal)<>0) then
AIPS 4:       optype'';zerosp=lsflux,0;lsallcal=lscal,lspntcal
AIPS 4:     end;sources=lsampcal;go
AIPS 4:   task'CALIB';getset;docalib=2;refant=lsrant;aparm=3,0,0,0,0,0,4
        ,0,0;calcode''
AIPS 4:     solint=lsparm(2);calsour=lspntcal;snver=numtab('SN')+1;solmo
        de'P'
AIPS 4:     soltype'L1R';baddisk=lsbadd;vput;if(star>0)then;calsour'';ca
        lcode'*';end;go
AIPS 4:   if (lsmodl>0) then $ use models for ones that exist
AIPS 4:     loadmodl;vget calib;calsour='';in2seq=0;in2disk=lsdisk;in2cl
        ass'MODEL'
AIPS 4:     for j=1:(l-1)
AIPS 4:       inext'SU';pixxy=lsload(j),2,0;tabget;calsour(1)=keystrng;c
        lrtemp
AIPS 4:       pixxy=lsload(j),4,0;tabget;calcode=substr(keystrng,1,4);cl
        rtemp
AIPS 4:       object=lsampcal(j);chkobjct;in2name=object!!'_'!!band
AIPS 4:       vput calib;inname=in2name;inclass=in2class;inseq=in2seq;in
        disk=in2disk
AIPS 4: $ if no model, use point with full uvrange
AIPS 4:       chkname;vget calib;if (error>0)then;clr2name;end;go
AIPS 4:     end;clrtemp
AIPS 4:   else;uvrange=lsparm(3),lsparm(4);calsour=lsampcal;go;end
AIPS 4:   vget snplt;inext'SN';optype'PHAS';goplt0;clrtemp
AIPS 4:   task'CLCAL';getset;freqid=1;refant=lsrant;gainuse=numtab('CL')
        +1
AIPS 4:     snver=numtab('SN');gainver=numtab('CL');sources'';soucode'';
AIPS 4:     calsour=lsphacal;calcode'';vput;if(star>0)then;calsour'';cal
        code'*';end;go
AIPS 4:     calsour=lsallcal;sources=calsour;interpol'SELF'
AIPS 4:     if(star>0)then;calsour'';calcode'*';soucode'*';end;go
AIPS 4:   vget snplt;inext'CL';optype'PHAS';goplt1;clrtemp
AIPS 4:   vget calib;solmode'A&P';calsour=lspntcal;calcode'';
AIPS 4:   solint=lsparm(13)*lsparm(2);snver=numtab('SN')+1;clr2name;vput
AIPS 4:   if(star>0)then;calsour'';calcode'*';end;go
AIPS 4:   if (lsmodl>0) then
AIPS 4:     loadmodl;vget calib;calsour='';in2seq=0;in2disk=lsdisk;in2cl
        ass'MODEL'
AIPS 4:     for j=1:(l-1)
AIPS 4:       inext'SU';pixxy=lsload(j),2,0;tabget;calsour(1)=keystrng;c
        lrtemp
AIPS 4:       pixxy=lsload(j),4,0;tabget;calcode=substr(keystrng,1,4);cl
        rtemp
AIPS 4:       object=lsampcal(j);chkobjct;in2name=object!!'_'!!band;calc
        ode''
AIPS 4:       vput calib;inname=in2name;inclass=in2class;inseq=in2seq;in
        disk=in2disk
AIPS 4: $ if no model, use point with full uvrange
AIPS 4:       chkname;vget calib;if (error>0)then;clr2name;end;go
AIPS 4:     end;inseq=0;indisk=lsdisk;inclass'MODEL';intype'MA'
AIPS 4:     for j=1:(l-1)
AIPS 4:       object=lsampcal(j);chkobjct;inname=object!!'_'!!band;chkna
        me
AIPS 4:       if (error<1) then;zap;end;end
AIPS 4:   else;uvrange=lsparm(3),lsparm(4);calsour=lsampcal;go;end
AIPS 4:   vget snplt;inext'SN';optype'AMP';goplt0;optype'PHAS';pixrange=
        -20,20;goplt0
AIPS 4:   task'GETJY';getset;calsour=lsampcal;snver=numtab('SN');
AIPS 4:   if (star>0) then;
AIPS 4: $    for j=1:lsparm(14);sources(j)='-'!!lsampcal(j);end;k=lsparm
        (14)+1
AIPS 4: $    if (length(lscal)>0) then;sources(k)='-'!!lscal;k=k+1;end
AIPS 4: $    for j=k:(25-k+2);sources(j)=lspntcal(j-k+2);end;
AIPS 4: soucode='*'
AIPS 4:   else
AIPS 4:     sources=lspntcal;if (length(lscal)>0) then;sources(11)='-'!!
        lscal;end
AIPS 4:   end;go
AIPS 4:   if (lscont<1) then
AIPS 4:     type '******************************************************
        **'
AIPS 4:     type '** WRITE DOWN THE FLUX DENSITIES FOR YOUR CALIBRATORS
        **'
AIPS 4:     type '**       (AND DO NOT FORGET THE ERRORS EITHER!)
        **'
AIPS 4:     type '******************************************************
        **';read
AIPS 4:   end
AIPS 4:   vget clcal;gainver=numtab('CL');gainuse=numtab('CL')+1;snver=n
        umtab('SN')
AIPS 4:   if(star>0)then;calsour'';calcode'*';end;go;calsour=lsallcal;so
        urces=calsour
AIPS 4:   interpol'SELF';if(star>0)then;calsour'';calcode'*';soucode'*';
        end;go
AIPS 4:   vget snplt;inext'CL';optype'AMP';goplt1;optype'PHAS';goplt1;cl
        rtemp
AIPS 4:   if (inclass='CH 0') then
AIPS 4:     task'TACOP';getset
AIPS 4:       outdisk=indisk;outname=inname;outclass'LINE';outseq=inseq;
        ncount=1
AIPS 4:       keystrng'';inext'FG';invers=numtab('FG');if (invers>0) the
        n;go;end
AIPS 4:       inext'CL';invers=numtab('CL');keyvalue 0;outseq=inseq;vput
        ;go;clrtemp
AIPS 4:     task'BPASS';getset;inclass'LINE';calsour=lsbndcal,lsampcal;d
        ocal=2
AIPS 4:       solint=-1;bpassprm(5)=-1;bpassprm(9)=1;baddisk=lsbadd;go;c
        lrtemp
AIPS 4:     task'POSSM';getset;inclass'LINE';bpver 0;aparm=0,1,.4,1.2,-3
        0,30,0,2,3,0
AIPS 4:       nplots=6;goplt2;sources=lsbndcal;docalib 2;doband 1;aparm=
        1 0;aparm(9)=3
AIPS 4:       antennas=lsrant,0;goplt2;nplots=0;vput;goplt2;stokes'I';an
        tennas=0;goplt2
AIPS 4:       sources=lsampcal;goplt3
AIPS 4:     vget tacop;inclass'LINE';outclass'CH 0';invers=numtab('BP');
        inext'BP';go
AIPS 4:   end;task'TASAV';getset;outdisk=indisk;go;dowait=false;vnum=0;c
        lrtemp
AIPS 4: finish
AIPS 4:
AIPS 4: procedure calcrms
AIPS 4:   scalar nbas,nvis,tbw,rms,minhrs
AIPS 4:   keyword'GCOUNT';gethead;nvis=keyvalue(1);nbas=numbasel;j=1
AIPS 4:   minhrs=nvis*tint/(nbas*3600) $ underesimate of obs hours (over
        estimate rms)
AIPS 4:   while (j<9) $ bandwidth in a channel, continuum or spectral li
        ne
AIPS 4:     keyword='CTYPE'!!char(j);gethead;keyword='CDELT'!!char(j);cl
        rtemp
AIPS 4:     if (keystrng='FREQ') then;gethead;j=9;else;j=j+1;end;end;tbw
        =keyvalue(1)
AIPS 4:   if (lsidc <> 'CH 0') then;j=1 $ continuum, multiple IFs averag
        ed
AIPS 4:     while (j<9)
AIPS 4:       keyword='CTYPE'!!char(j);gethead;keyword='NAXIS'!!char(j);
        clrtemp
AIPS 4:       if(keystrng='IF')then;gethead;j=9;else;j=j+1;end;end;tbw=t
        bw*keyvalue(1)
AIPS 4:   end;checkbnd;if((band='P')!(band='4'))then;tbw=tbw/3.2;else;tb
        w=tbw/50;end
AIPS 4:   tbw=sqrt(tbw*minhrs/24e6);rms=-1
AIPS 4:   if (band='Q')then;rms=3.0e-5/tbw;end;if (band='K')then;rms=2.5
        e-5/tbw;end
AIPS 4:   if (band='U')then;rms=2.0e-5/tbw;end;if (band='X')then;rms=5.3
        e-6/tbw;end
AIPS 4:   if (band='C')then;rms=6.4e-6/tbw;end;if (band='L')then;rms=6.6
        e-6/tbw;end
AIPS 4:   if (band='P')then;rms=1.7e-4/tbw;end;if (band='4')then;rms=1.5
        e-2/tbw;end
AIPS 4:   if (rms<0) then;type 'CANNOT CALCULATE RMS FROM OBSERVING BAND
         ..';end
AIPS 4:   typ 'ESTIMATED RMS:' char(rms*1000)!!' MILLI JANSKY'
AIPS 4:   return rms
AIPS 4: finish
AIPS 4:
AIPS 4: procedure setboxfle
AIPS 4:   scalar ci,bi
AIPS 4:   string*48 fbox
AIPS 4:   fbox'/tmp/SETFC@
AIPS 4:   fbox=fbox!!inname!!'_'!!inclass!!'.'!!char(inseq)!!'-'!!char(i
        ndisk)
AIPS 4:   ci=0;bi=length(fbox)
AIPS 4:   while(ci<bi);ci=ci+1
AIPS 4:     if(substr(fbox,ci,ci)=' ')then;substr(fbox,ci,ci)=',';end;cl
        rtemp;end
AIPS 4:   return fbox
AIPS 4: finish
AIPS 4:
AIPS 4: procedure delboxfle
AIPS 4:   sys2com'';sysout'';syscom 'rm -f
AIPS 4:   sys2com(1) 'X'!!boxfile;substr(sys2com(1),1,1)=''
AIPS 4:   sys2com(2) ' >& /dev/null
AIPS 4:   if(substr(boxfile,1,1)<>' ')then;system;end;clrtemp
AIPS 4: finish
AIPS 4:
AIPS 4: procedure catboxfile
AIPS 4:   sys2com'';syscom 'cat
AIPS 4:   sys2com(1) 'X'!!boxfile;substr(sys2com(1),1,1)=''
AIPS 4:   if(substr(expmsg,1,1)<>'')then;sysout=expmsg;else;sysout'';end
        ;clrtemp
AIPS 4:   system
AIPS 4: finish
AIPS 4:
AIPS 4: procedure setimsize
AIPS 4:   scalar szf, kk
AIPS 4:   string*48 bxf
AIPS 4:   array szc(2), szi(2), orgc(2), orgi(2)
AIPS 4:   vput imagr;task'SETFC';sources'';bcount=1;bxf=setboxfle;boxfil
        e=bxf
AIPS 4:   bparm=0;infile='';shift=0;flux=0;pbparm=0.25,0;delboxfle
AIPS 4:   orgc=cellsize;cellsize=0;orgi=lsparm(6);imsize=0;kk=1
AIPS 4:   while (kk<9)
AIPS 4:     keyword='CTYPE'!!char(kk);gethead;keyword='CRVAL'!!char(kk);
        clrtemp
AIPS 4:     if (keystrng='FREQ') then;gethead;kk=9;else;kk=kk+1;end;end
AIPS 4:   keyvalue(1)=keyvalue(1)/1e9;bparm(1)=0.375/keyvalue(1);bparm(4
        )=3*bparm(1)
AIPS 4:   bparm(2)=30;bparm(3)=1;bparm(5)=0.031;bparm(6)=256;bparm(7)=25
        6;bparm(8)=100
AIPS 4:   go;szf=nfield;szc=cellsize;szi=imsize
AIPS 4:   vget imagr;if(lsparm(5)<0)then;cellsize=szc;else;cellsize=orgc
        ;end
AIPS 4:   if(lsparm(6)<0)then;imsize=256;nfield=szf;boxfile=bxf;else;ims
        ize=orgi;end
AIPS 4:   vput imagr
AIPS 4: finish
AIPS 4:
AIPS 4: procedure imapipe(k,lsdisk,lsname)
AIPS 4:   vnum=33;dowait=true
AIPS 4:   if (k=1) then
AIPS 4:     task'SPLIT';getset;outdisk=indisk;outclass=inclass;docalib=2
AIPS 4:       baddisk=lsbadd;douvcomp=-1;go
AIPS 4:     if (inclass='CH 0') then;inclass'LINE';outclass=inclass;doba
        nd=1;bpver=0
AIPS 4:       go;end;end;clrtemp
AIPS 4:   task'TABGET';getset;inext'SU';invers=0;keyvalue=0;keystrng'';v
        put;clrtemp
AIPS 4:   task'IMAGR';getset;outdisk=indisk;flux=lsparm(8);baddisk=lsbad
        d;j=1
AIPS 4:   while (j<9)
AIPS 4:     keyword='CTYPE'!!char(j);gethead;keyword='CRVAL'!!char(j);cl
        rtemp
AIPS 4:     if (keystrng='FREQ') then;gethead;j=9;else;j=j+1;end;end
AIPS 4:   cellsize=1.75e10/(keyvalue(1)*abs(lsparm(5)));do3dimag=1;overl
        ap=2;vput
AIPS 4:   keyword'NUM ROW';inext'SU';invers=0;keystrng'';getthead;clrtem
        p
AIPS 4:   for i=1:keyvalue(1) $ check if source is in index and uvfile e
        xists
AIPS 4:     vget tabget;pixxy=i,2,0;tabget;vget imagr;inname=keystrng;j=
        1;intype'UV'
AIPS 4:     inseq=0;chkname;type ' ';niter=lsparm(7);lstarg=1;clrtemp;vp
        ut
AIPS 4:     if (error < 1) then $ source file exists, but same source nu
        mber ?
AIPS 4:       vget tabget;pixxy=i,1,0;tabget;error=1;k=1
AIPS 4:       while ((lssid(k)>0) & (k<1001))
AIPS 4:         if (lssid(k)=keyvalue(1))then error=0;end
AIPS 4:         k=k+1;end;end;vget imagr
AIPS 4:     if (error < 1) then
AIPS 4:       if ((lsparm(7)=1e6)&(lsparm(8)<0))then;flux=6*calcrms;end
AIPS 4:       if ((lsparm(6)<0)!(lsparm(5)<0))then;setimsize;else;imsize
        =lsparm(6);end
AIPS 4:       while (j<30)
AIPS 4:         k=length(inname)
AIPS 4:         if (substr(lsallcal(j),1,k)=substr(inname,1,k)) then $ c
        alibrator
AIPS 4:           lstarg=0;j=30
AIPS 4:           if(lsparm(6)>=-0.99)then;niter=min(500,lsparm(7))
AIPS 4:             nfield=1;boxfile'';imsize=min(256,lsparm(6))
AIPS 4:             if(imsize(1)<0)then;imsize=256;end;end
AIPS 4:         else;j=j+1;end $ check next source, if not found -> targ
        et
AIPS 4:       end;if(substr(boxfile,1,1)<>' ')then;catboxfile;end
AIPS 4:
AIPS 4: j=1
AIPS 4: $calibrator lstarg=0
AIPS 4: $target if lstarg=1
AIPS 4:
AIPS 4:
AIPS 4:       while (j<9)
AIPS 4:         keyword='CTYPE'!!char(j);gethead;keyword='NAXIS'!!char(j
        );clrtemp
AIPS 4:         if (keystrng='IF') then;gethead;j=9;else;j=j+1;end;end
AIPS 4:         type '    NOW STARTING WITH SOURCE  :'!!char(i)!!'  ='!!
        inname;type ' '
AIPS 4:       if (inclass='CH 0') then
AIPS 4:         for k=1:keyvalue(1);bif=k;eif=k
AIPS 4:           if ((lstarg>0)!(lsparm(9)>0)) then;go;end
AIPS 4:         end;clrtemp;k=keyvalue(1)
AIPS 4:         inclass'LINE';keyvalue=0;keystrng'';j=1;chkname
AIPS 4:         if (error < 1) then
AIPS 4:           while (j<9)
AIPS 4:             keyword='CTYPE'!!char(j);gethead;clrtemp
AIPS 4:             if (keystrng='FREQ') then
AIPS 4:               keyword='NAXIS'!!char(j);gethead;echan=keyvalue(1)
        ;j=9
AIPS 4:             else;j=j+1;end
AIPS 4:           end;bchan=floor(echan/10);echan=ceil(echan*9/10)
AIPS 4:           if (bchan=1) then;bchan=2;end;j=k
AIPS 4:             for k=1:j;bif=k;eif=k;if ((lstarg>0)!(lsparm(9)>1))
        then;go;end
AIPS 4:         end;end;clrtemp
AIPS 4:       else
AIPS 4:         bif=1;eif=keyvalue(1);vput;out2disk=indisk
AIPS 4:         if ( (lsparm(10)=0) ! ((lsparm(9)<1)&(lstarg<1)) )then;g
        o;clrtemp
AIPS 4:         else
AIPS 4:           solint=lsparm(2);dotv=1;nmaps=lsparm(10);refant=lsrant
        ;aparm=4,0
AIPS 4:           if (lsparm(10)<0) then;dotv=-1;nmaps=-1*nmaps;end;go s
        cimg;clrtemp
AIPS 4:       end;end;boxfile=setboxfle;delboxfle
AIPS 4:       inclass'IMAGR';inseq=0;intype'UV';indisk=lsdisk;allzap
AIPS 4: $      inclass'SCIMG';allzap
AIPS 4:       inclass'IBM*';intype'MA';allzap
AIPS 4:       inclass'RBM*';allzap;inclass'LBM*';allzap;recat;clrtemp
AIPS 4:     else;type '   NO UV-FILE, SKIPPING SOURCE :'!!inname!!'  =#'
        !!char(i)
AIPS 4:   end;end;dowait=false;vnum=0
AIPS 4: finish
AIPS 4:
AIPS 4: procedure avlapipe
AIPS 4:   tput avlapipe;vnum=33;vput avlapipe;pipeinpt;clrtemp
AIPS 4:   if (lserr <> 0) then; type '*** ERROR - ARE ALL INPUTS SET PRO
        PERLY ? ***'
AIPS 4:   else;lsclrcal;tint=guesintt;clrtemp
AIPS 4:     if (tint > 0) then;calpipe(lsdisk,lsname,lsrant);clrtemp
AIPS 4:       if (lsparm(1)>0) then;imapipe(1,lsdisk,lsname)
AIPS 4:       else;type'CALIBRATION DONE - SKIPPING SPLIT AND IMAGING'
AIPS 4:         type'---------------------------------------------------
        --------'
AIPS 4:       end;type ' '
AIPS 4:       if (lsplot>0) then;type 'VIEW CAL-PLOTS WITH GETSET;ALLPLO
        T';end;type ' '
AIPS 4:     else;type '* * *';type 'SINGLE DISH VLBI EXPERIMENT?';type '
        * * *';end
AIPS 4:   end;tget avlapipe;vnum=0;type'* APPEARS TO HAVE ENDED SUCCESSF
        ULLY *';clrtemp
AIPS 4: finish
>AIPS 4: Found in Version=ABIN
AIPS 4: default'AVLAPIPE'
AIPS 4: Found in Version=ABIN
AIPS 4: indisk   1;  doalign -1;  flagver  2;  domodel  1
AIPS 4: docal    1;  sources '*'''
AIPS 4: $ to be set by itself later
AIPS 4: solint   1;  factor   5;  doarray -1;  imsize  -1
AIPS 4: $imsize 512;$niter -1;cutoff -1;plver 0
AIPS 4: niter   -1;  cutoff  -1
AIPS 4: $ for now debugging
AIPS 4: docont   1;  plver    -1;  doall    1;  doresid  0
AIPS 4:
AIPS 4: $ defaults
AIPS 4: $ BADDISK 0$ INDISK 0$ DOCAT 1$ INNAME ' '$ INCLASS ' '$ INSEQ 0
AIPS 4: $ DOALIGN 1$ FLAgver 0$ SOLINT 0$ FACTOR 0$ REFANT 0$ DOMODEL -1
AIPS 4: $ KEYSTRNG ' '$ FLUX 0$ UVRANGE 0, 0$ SOURCES ' '$ CALSOUR ' '
AIPS 4: $ dopol 0$ bpa 0$ DOCONT 1$ PLVER 0$ DOALL -1$ DOARRAY -1
AIPS 4: $ IMSIZE 0, 0$ NITER 0$ CUTOFF 0$ DOCAL 0$ DORESID -1
>>::::>AIPS 4: 'AH669_1999DEC27_1'
>>AIPS 4: 'AH669_1999DEC27_1'
>AIPS 4: Found in Version=ABIN
AIPS 4: $ Lorant Sjouwerman, versions 1.. 2005, for NRAO
AIPS 4:
AIPS 4: $$ General catalog looks like
AIPS 4: $$ Multi-source UV data file
AIPS 4: $$ Multi-source TASAV file
AIPS 4: $$ Single-source calibrated data  - auvf
AIPS 4: $$ Single-source calibrated images- aimg
AIPS 4:
AIPS 4: $May need to redefine after a restore 0:
AIPS 4: $allzap
AIPS 4: $calcintt
AIPS 4: $guesintt
AIPS 4: $lsparm(5);tint;lsdisk
AIPS 4:
AIPS 4: procedure flatfov
AIPS 4: $LOS - compile flatn-ed radius blank-ed images out to where pbco
        rr=2.5 (=xpb)
AIPS 4:   scalar uvi,mai,fov,frq,kk,tbw,tint,xpb,xcst,,fbw,fta;xpb=2.5
AIPS 4:   clrname;indisk=lsdisk;intype'UV';chkname;uvi=1-error
AIPS 4:   if(uvi<3)then;type'ERROR: NO FILES PROCESSED !';else
AIPS 4:     if(uvi<4)then;type'WARNING: ONLY ONE UV-FILE - MAYBE CHECK?'
        ;end
AIPS 4:     getname 1;tint=guesintt;xcst=sqrt((3/ln(2))*(xpb-1)/xpb);kk=
        1
AIPS 4:     while (kk<5)
AIPS 4:       keyvalue=0;keystrng'';keyword='CTYPE'!!char(kk);gethead
AIPS 4:       if(substr(keystrng,1,4)='FREQ')then;keyword='CRVAL'!!char(
        kk)
AIPS 4:         keystrng'';gethead;frq=keyvalue(1);kk=5;else;kk=kk+1;end
AIPS 4:     end
AIPS 4:     for i=3:uvi;getname i
AIPS 4:       task'TABGET';inext'FQ';invers 1;keyword'NUM ROW';keystrng'
        ';getthead
AIPS 4:       for j=1:keyvalue(1)
AIPS 4:         pixxy=j,4,1;tabget;tbw=keyvalue(1)
AIPS 4:         pixxy=j,4,2;tabget;tbw=max(tbw,keyvalue(1))
AIPS 4: $ Actually imagr takes care of some of this bandwidth issue alre
        ady
AIPS 4: $ so instead of maximum frequency span, use max individual bandw
        idth
AIPS 4:       end;inty'MA';inseq=0;inclass'*001';chkname;mai=1-error
AIPS 4:       if(mai>1)then;type'WARNING: MULTIPLE IMAGES - MAYBE CHECK?
        ';end
AIPS 4:       for j=1:mai $ assume inseq starts at 1..
AIPS 4:         inseq=j;kk=1;cellsize=0;userid=0
AIPS 4:         while (kk<5)
AIPS 4:           keyvalue=0;keystrng'';keyword='CTYPE'!!char(kk);gethea
        d
AIPS 4:           keyword='CDELT'!!char(kk);clrtemp
AIPS 4:         if(substr(keystrng,1,3)='RA-')then;gethead;cellsize(1)=k
        eyvalue(1);end
AIPS 4:         if(substr(keystrng,1,4)='DEC-')then;gethead;cellsize(2)=
        keyvalue(1);end
AIPS 4:         if(substr(keystrng,1,4)='FREQ')then;keyword='CRVAL'!!cha
        r(kk)
AIPS 4:             keystrng'';gethead;fov=keyvalue(1)/1e9;fov=1350/fov;
        end;kk=kk+1
AIPS 4:         end;cellsize(1)=-1*cellsize(1)*3600;cellsize(2)=cellsize
        (2)*3600
AIPS 4:         fta=min(1.75e10/(frq*abs(lsparm(5))),(min(cellsize(1),ce
        llsize(2))))
AIPS 4:         fbw=xcst*3*fta*frq/tbw               $ radius field/view
         due bandwidth
AIPS 4:         fta=xcst*3*fta/(tint*7.2722e-5)      $ radius field/view
         due averaging
AIPS 4:         fov=min(fov,fbw);fov=min(fov,fta)    $ min field/view ra
        dius, arcsec
AIPS 4:         imsize(1)=ceil(2*fov/cellsize(1));imsize(2)=ceil(2*fov/c
        ellsize(2))
AIPS 4:         task'FLATN';inclass'?CL*';chkname;nfield=1-error;nmaps=1
        ;clroname
AIPS 4:         outname=inname;coordina=0;reweight=0;doweight=0;edgskp=1
        5;aparm=0
AIPS 4:         pbparm=1/xpb,0;type'MINIMUM FOV :'!!char(fov)!!' ARCSEC
        RADIUS'
AIPS 4:         inclass'?CL001';go;wait;inclass'?CL*';allzap;recat;incla
        ss'FLATN'
AIPS 4:         tput;default blank;tget flatn;task'BLANK';opcode'RADI';d
        parm fov,0
AIPS 4:         go;wait;allzap;recat
AIPS 4:   end;end;end
AIPS 4: finish
AIPS 4:
AIPS 4: procedure nvasimage
AIPS 4: $LOS - Determine noise, do primary beam correction, include copy
        right
AIPS 4:   scalar numfle,ll,mm
AIPS 4:   clrname;indisk=lsdisk;recat;chkname;numfle=1-error;mai=0
AIPS 4:   while (intype<>'MA');mai=mai+1;getname mai;end
AIPS 4:   for j=mai:numfle;default imean;docat=1;getn j;keyvalue=0;keyst
        rng''
AIPS 4:     keyword='CRPIX1';gethead;ll=keyvalue(1);keyword='CRPIX2';get
        head
AIPS 4:     mm=keyvalue(1);doinvers=1;blc(1)=ll-29;blc(2)=mm-30;trc(1)=l
        l+30
AIPS 4:     trc(2)=mm+29;imstat;doinv=-1;blc=0;trc=0;rms=pixstd;go;wa
AIPS 4:     if(pixstd=rms)then;keyword'ACTNOISE';keytype'R';keyvalue=rms
        ,0;puthead;end
AIPS 4:   end
AIPS 4:   default'PBCOR';indisk=lsdisk;inclass'BLANK';chkname;pbparm=1/x
        pb,0
AIPS 4:   for j=mai:numfle
AIPS 4:     getname mai;getoname mai;outclass'RADCOR';outseq=0;inclass'B
        LANK';chkname
AIPS 4:     if(error<1)then;outdisk=indisk;go;wait;zap;recat;end $ icl..
        .->blanked file
AIPS 4:   end;default'CPYRT';indisk=lsdisk;recat;infile='AVLA:Arch_Cprt
AIPS 4:   for j=mai:numfle $ can only do on MA files
AIPS 4:     getname mai;getoname mai;outclass'NVAS06';go;wait;zap;recat
AIPS 4:   end
AIPS 4: finish
AIPS 4:
AIPS 4: procedure nvasname
AIPS 4: $LOS - makes the RA/Dec directory and returns the archive file n
        ame
AIPS 4:   scalar ki,ra1,ra2,dc1,dc2,st1,st2,nu1,nu2,bw,rh,rm,rs,dd,dm,ds
        ,rmsv,sbmv
AIPS 4:   string*1 pm,rmsc
AIPS 4:   string*2 zz
AIPS 4:   string*3 mmm
AIPS 4:   string*4 rmss,sbms,fras
AIPS 4:   string*5 radi
AIPS 4:   string*30 dir
AIPS 4: string*20 expn
AIPS 4:   ki=1;userid=0
AIPS 4:   while (ki<9)
AIPS 4:     keyvalue=0;keystrng'';keyword='CTYPE'!!char(ki);gethead
AIPS 4: typ ki, keys
AIPS 4:     if(substr(keystrng,1,2)='RA')then
AIPS 4:       keyword='CRVAL'!!char(ki);gethead;ra1=keyvalue(1)/15;ra2=k
        eyvalue(2)/15
AIPS 4:       keyword='CDELT'!!char(ki);gethead;cellsize(1)=-1*keyvalue(
        1)*3600
AIPS 4:       rh=floor(ra1);ra1=(ra1-rh)*60;rm=floor(ra1);ra1=(ra1-rm)*6
        0
AIPS 4:       rs=((floor((ra1+(3600*ra2))*1000)+5)/1000);clrtemp
AIPS 4: $      if ((ra1+(3600*ra2))<10) then;rs=substr(char(ra1+(3600*ra
        2)+0.005),1,3)
AIPS 4: $      else;rs=substr(char(ra1+(3600*ra2)+0.005),1,4);end
AIPS 4:       if(abs(rs-floor(rs))<0.1)then;zz='.0';else;zz='';end;clrte
        mp
AIPS 4:       keyword='NAXIS'!!char(ki);gethead;ra1=0.5*keyvalue(1)*cell
        size(1);end
AIPS 4: typ 'HERE'
AIPS 4:     if(substr(keystrng,1,3)='DEC')then
AIPS 4:       keyword='CRVAL'!!char(ki);gethead;dc1=keyvalue(1);dc2=keyv
        alue(2)
AIPS 4:       keyword='CDELT'!!char(ki);gethead;cellsize(2)=keyvalue(1)*
        3600
AIPS 4:       if(dc1<0)then;pm='-';dc1=-1*dc1;dc2=-1*dc2;else;pm='+';end
AIPS 4:       dd=floor(dc1);dc1=(dc1-dd)*60;dm=floor(dc1);dc1=(dc1-dm)*6
        0
AIPS 4:       ds=floor(dc1+(3600*dc2));clrtemp
AIPS 4:       keyword='NAXIS'!!char(ki);gethead;dc1=0.5*keyvalue(1)*cell
        size(2);end
AIPS 4:     if(substr(keystrng,1,4)='FREQ')then
AIPS 4:       keyword='CRVAL'!!char(ki);gethead;nu1=keyvalue(1)/1e6;nu2=
        keyvalue(2)/1e6
AIPS 4:       keyword='CDELT'!!char(ki);gethead;bw=keyvalue(1)/1e6;end;c
        lrtemp
AIPS 4:     if(substr(keystrng,1,6)='STOKES')then
AIPS 4:       keyword='CRVAL'!!char(ki);gethead;st1=keyvalue(1)
AIPS 4:       keyword='CRPIX'!!char(ki);gethead;st2=keyvalue(1);clrtemp
AIPS 4:     end;
AIPS 4: typ ki 'TOO'
AIPS 4: if(substr(keystrng,1,1)='')then;ki=10;else;ki=ki+1;end
AIPS 4:   end;clrtemp $ build the output file name here
AIPS 4: typ 'BUILD NOW'
AIPS 4:   if (intype='MA')then; $read conv size, rms from header, use im
        si*cell/2 for R
AIPS 4:     radi='S';ra2=0.5*(ra1+dc1-9);if(ra2>60)then;radi='M';ra2=ra2
        /60;end $ R-fov
AIPS 4:     if(ra2>60)then;radi='D';ra2=ra2/60;end;radi=substr(char(ra2)
        ,1,4)!!radi
AIPS 4:     keyword='BMAJ';gethead;sbmv=keyvalue(1);keyword='BMIN';gethe
        ad
AIPS 4:     sbmv=1800*(sbmv+keyvalue(1));sbms=substr(char(sbmv),1,4)
AIPS 4:
AIPS 4:
AIPS 4:
AIPS 4:     keyvalue=0;keystrng'';keyword='ACTNOISE';gethead;rmsv=keyval
        ue(1) $ RMS<1e4
AIPS 4:     if(rmsv>1)then;rmsc='J';rmss=substr(char(rmsv),1,4);else;rms
        v=rmsv*1000
AIPS 4:       if(rmsv>1)then;rmsc='M';rmss=substr(char(rmsv),1,4);else;r
        msv=rmsv*1000
AIPS 4:         if(rmsv>1)then;rmsc='U';rmss=substr(char(rmsv),1,4);else
AIPS 4:           rmsv=rmsv*1000;rmsc='N';rmss=substr(char(rmsv),1,4)
AIPS 4:     end;end;end;clrtemp;fras='';sys2com(1)=' $aimg/
AIPS 4:   else
AIPS 4:     ;clrtemp;sbms='';rmss='';rmsc='';sys2com(1)=' $auvf/
AIPS 4:   end
AIPS 4:
AIPS 4: if (expnm='') then
AIPS 4:   keyword'OBSERVER';gethead;expnm=keystrng;keyword'DATE-OBS';get
        head
AIPS 4:   mmm=substr(keystrng,5,6)
AIPS 4:   if(mmm='01')then;mmm='JAN';end;if(mmm='02')then;mmm='FEB';end
AIPS 4:   if(mmm='03')then;mmm='MAR';end;if(mmm='04')then;mmm='APR';end
AIPS 4:   if(mmm='05')then;mmm='MAY';end;if(mmm='06')then;mmm='JUN';end
AIPS 4:   if(mmm='07')then;mmm='JUL';end;if(mmm='08')then;mmm='AUG';end
AIPS 4:   if(mmm='09')then;mmm='SEP';end;if(mmm='10')then;mmm='OCT';end
AIPS 4:   if(mmm='11')then;mmm='NOV';end;if(mmm='12')then;mmm='DEC';end
AIPS 4:   expnm=expnm!!'_'!!substr(keystrng,1,4)!!mmm!!substr(keystrng,7
        ,8)!!'_X'
AIPS 4: end
AIPS 4: outfile=sbms!!','!!expnm!!','!!rmss!!rmsc!!fras!!radi
AIPS 4: print outf
AIPS 4:
AIPS 4: $ make the source dir here
AIPS 4:   dir='';sysout'';syscom'mkdir
AIPS 4:   if(rh<10)then;sys2com(2)='J0'!!char(rh);else;sys2com(2)='J'!!
        char(rh);end
AIPS 4:   if(rm<10)then;sys2com(3)='0'!!char(rm);else;sys2com(3)=char(rm
        );end
AIPS 4:   if(rs<10)then;sys2com(4)='0'!!char(rs)!!zz;else;sys2com(4)=cha
        r(rs)!!zz;end
AIPS 4: $  sys2com(4)=substr(sys2com(4),1,4)
AIPS 4:   if(dd<10)then;sys2com(5)=pm!!'0'!!char(dd);else;sys2com(5)=pm!
        !char(dd);end
AIPS 4:   if(dm<10)then;sys2com(6)='0'!!char(dm);else;sys2com(6)=char(dm
        );end
AIPS 4:   if(ds<10)then;sys2com(7)='0'!!char(ds);else;sys2com(7)=char(ds
        );end
AIPS 4:   sys2com(8) ' >& /dev/null
AIPS 4:   system;clrtemp;for i=1:7;dir=dir!!sys2com(i);end;ki=length(dir
        ) $ must be 27
AIPS 4:   dir=substr(dir,2,ki);if(ki<>27)then;type'WARNING: WRONG DIRECT
        ORY NAME ?';end
AIPS 4:
AIPS 4: sysout=dir!!'/'!!sbms!!','!!expnm!!','!!rmss!!rmsc!!fras!!radi
AIPS 4: print sysout
AIPS 4: $keep sysout - not if we use dir instead
AIPS 4:   syscom'';sys2com'';clrtemp
AIPS 4:   return
AIPS 4: finish
AIPS 4:
AIPS 4: procedure nvasarch
AIPS 4:   scalar nn
AIPS 4: $LOS - archives the files to disk - define $EXP (and $AVLA/$ADAT
        /$AIMG/$AUVF)
AIPS 4:   default fitab;indisk=lsdisk;recat
AIPS 4: $ figure out array for uv name
AIPS 4: $  getname 1;
AIPS 4:   for nn=mai:numfle $ archive MA files
AIPS 4:     getname nn
AIPS 4:     nvasname
AIPS 4: typ length(outfile),length(sysout)
AIPS 4:     syscom'mv -f
AIPS 4:     sys2com(1)'X$FITS/'!!outfile;substr(sys2com(1),1,1)=''
AIPS 4: $    sys2com(2)'X'!!sysout;substr(sys2com(2),1,1)=''
AIPS 4:     sys2com(2)'X'!!dir;substr(sys2com(2),1,1)=''
AIPS 4:     sysout'';sys2com(3) ' >& /dev/null
AIPS 4:     outfile='FITS:'!!outfile
AIPS 4: ;go;wait;  $zap
AIPS 4:     ;system
AIPS 4:   end
AIPS 4:   clrname;indisk=lsdisk;chkname;numfle=1-error
AIPS 4: numfle=mai -1
AIPS 4:   for nn=3:numfle $ archive calibrated UV files
AIPS 4:     getname nn
AIPS 4:  nvasname
AIPS 4:     outfile='/tmp/tempuvfits
AIPS 4: go;wait;  $zap
AIPS 4:     syscom'mv -f
AIPS 4:     sys2com(1)'X'!!outfile;substr(sys2com(1),1,1)=''
AIPS 4:     sys2com(2)'X'!!sysout;substr(sys2com(2),1,1)=''
AIPS 4:     sysout'';sys2com(3) ' >& /dev/null
AIPS 4:     system
AIPS 4:   end
AIPS 4:   getname 2 $ archive calibration tables
AIPS 4: $  do not use nvasname as the dir is ADAT and dirname is expid
AIPS 4:
AIPS 4:   sys2com'';sysout'';syscom 'mkdir
AIPS 4:   sys2com(1)=' $adat/
AIPS 4:
AIPS 4: $  if(rh<10)then;sys2com(2)='J0'!!char(rh);else;sys2com(2)='J'!!
         char(rh);end
AIPS 4: $  if(rm<10)then;sys2com(3)='0'!!char(rm);else;sys2com(3)=char(r
        m);end
AIPS 4: $  if(rs<10)then;sys2com(4)='0'!!char(rs)!!zz;else;sys2com(4)=ch
        ar(rs)!!zz;end
AIPS 4: $  if(dd<10)then;sys2com(5)=pm!!'0'!!char(dd);else;sys2com(5)=pm
        !!char(dd);end
AIPS 4: $  if(dm<10)then;sys2com(6)='0'!!char(dm);else;sys2com(6)=char(d
        m);end
AIPS 4: $  if(ds<10)then;sys2com(7)='0'!!char(ds);else;sys2com(7)=char(d
        s);end
AIPS 4:
AIPS 4:   sys2com(1)=sys2com(1)!!expnm;sys2com(8) ' >& /dev/null
AIPS 4:   system;clrtemp
AIPS 4:
AIPS 4: finish
AIPS 4:
AIPS 4: procedure nvas
AIPS 4:   typ expid;flatfov;nvasimage
AIPS 4: $nvasarch
AIPS 4: finish
>AIPS 4: Found in Version=ABIN
AIPS 4: Found in Version=ABIN
AIPS 4: Got(1)   disk= 1  user=****   type=UV   19991227.X BAND.1
AIPS 4: 'AIPS WILL CHOOSE THE REFERENCE ANTENNA'
AIPS 4: Got(1)   disk= 1  user=****   type=UV   19991227.X BAND.1
AIPS 4: 'SETFC WILL DETERMINE THE CELL SIZE'
AIPS 4: '10 SECOND INTEGRATIONS (GUESS)'
AIPS 4: 'DONE CLEANUP OF OLD TABLE EXTENTION FILES (CL,SN,FG,BP,PL,XX)'
QUACK4: Task QUACK  (release of 31DEC06) begins
QUACK4: Flagged     3.33 min. of data in    10 scans
QUACK4: Appears to have ended successfully
QUACK4: auto         31DEC06 TST: Cpu=       0.0  Real=       0
sys2com(7)=char(ds
        );end
AIPS 4:   sys2com(8) ' >& /dev/null
AIPS 4:   system;clrtemp;for i=1:7;dir=dir!!sys2com(i);end;ki=length(dir
        ) $ must be 27
AIPS 4:   dir=substr(dir,2,ki);if(ki<>27)then;type'WARNING: WRONG DIRECT
        ORY NAME ?';end
AIPS 4:
AIPS 4: sysout=dir!!'/'!!sbms!!','!!expnm!!','!!rmss!!rmsc!!fras!!radi
AIPS 4: print sysout
AIPS 4: $keep sysout - not if we use dir instead
AIPS 4:   syscom'';sys2com'';clrtemp
AIPS 4:   return
AIPS 4: finish
AIPS 4:
AIPS 4: procedure nvasarch
AIPS 4:   scalar nn
AIPS 4: $LOS - archives the files to disk - define $EXP (and $AVLA/$ADAT
        /$AIMG/$AUVF)
AIPS 4:   default fitab;indisk=lsdisk;recat
AIPS 4: $ figure out array for uv name
AIPS 4: $  getname 1;
AIPS 4:   for nn=mai:numfle $ archive MA files
AIPS 4:     getname nn
AIPS 4:     nvasname
AIPS 4: typ length(outfile),length(sysout)
AIPS 4:     syscom'mv -f
AIPS 4:     sys2com(1)'X$FITS/'!!outfile;substr(sys2com(1),1,1)=''
AIPS 4: $    sys2com(2)'X'!!sysout;substr(sys2com(2),1,1)=''
AIPS 4:     sys2com(2)'X'!!dir;substr(sys2com(2),1,1)=''
AIPS 4:     sysout'';sys2com(3) ' >& /dev/null
AIPS 4:     outfile='FITS:'!!outfile
AIPS 4: ;go;wait;  $zap
AIPS 4:     ;system
AIPS 4:   end
AIPS 4:   clrname;indisk=lsdisk;chkname;numfle=1-error
AIPS 4: numfle=mai -1
AIPS 4:   for nn=3:numfle $ archive calibrated UV files
AIPS 4:     getname nn
AIPS 4:  nvasname
AIPS 4:     outfile='/tmp/tempuvfits
AIPS 4: go;wait;  $zap
AIPS 4:     syscom'mv -f
AIPS 4:     sys2com(1)'X'!!outfile;substr(sys2com(1),1,1)=''
AIPS 4:     sys2com(2)'X'!!sysout;substr(sys2com(2),1,1)=''
AIPS 4:     sysout'';sys2com(3) ' >& /dev/null
AIPS 4:     system
AIPS 4:   end
AIPS 4:   getname 2 $ archive calibration tables
AIPS 4: $  do not use nvasname as the dir is ADAT and dirname is expid
AIPS 4:
AIPS 4:   sys2com'';sysout'';syscom 'mkdir
AIPS 4:   sys2com(1)=' $adat/
AIPS 4:
AIPS 4: $  if(rh<10)then;sys2com(2)='J0'!!char(rh);else;sys2com(2)='J'!!
         char(rh);end
AIPS 4: $  if(rm<10)then;sys2com(3)='0'!!char(rm);else;sys2com(3)=char(r
        m);end
AIPS 4: $  if(rs<10)then;sys2com(4)='0'!!char(rs)!!zz;else;sys2com(4)=ch
        ar(rs)!!zz;end
AIPS 4: $  if(dd<10)then;sys2com(5)=pm!!'0'!!char(dd);else;sys2com(5)=pm
        !!char(dd);end
AIPS 4: $  if(dm<10)then;sys2com(6)='0'!!char(dm);else;sys2com(6)=char(d
        m);end
AIPS 4: $  if(ds<10)then;sys2com(7)='0'!!char(ds);else;sys2com(7)=char(d
        s);end
AIPS 4:
AIPS 4:   sys2com(1)=sys2com(1)!!expnm;sys2com(8) ' >& /dev/null
AIPS 4:   system;clrtemp
AIPS 4:
AIPS 4: finish
AIPS 4:
AIPS 4: procedure nvas
AIPS 4:   typ expid;flatfov;nvasimage
AIPS 4: $nvasarch
AIPS 4: finish
>AIPS 4: Found in Version=ABIN
AIPS 4: Found in Version=ABIN
AIPS 4: Got(1)   disk= 1  user=****   type=UV   19991227.X BAND.1
AIPS 4: 'AIPS WILL CHOOSE THE REFERENCE ANTENNA'
AIPS 4: Got(1)   disk= 1  user=****   type=UV   19991227.X BAND.1
AIPS 4: 'SETFC WILL DETERMINE THE CELL SIZE'
AIPS 4: '10 SECOND INTEGRATIONS (GUESS)'
AIPS 4: 'DONE CLEANUP OF OLD TABLE EXTENTION FILES (CL,SN,FG,BP,PL,XX)'
AIPS 4: Resumes
FLAGR4: Task FLAGR  (release of 31DEC06) begins
FLAGR4: Copied FG file from vol/cno/vers  1    1   1 to  1    1   2
FLAGR4: Overall average amp= 5.235E-01 +- 2.377E-02 source= 1331+305
FLAGR4: Overall average rms= 1.462E-03 +- 2.996E-04 source= 1331+305
FLAGR4: Overall average amp= 1.769E-03 +- 1.808E-04 source= X1748-28
FLAGR4: Overall average rms= 8.664E-04 +- 8.618E-05 source= X1748-28
FLAGR4: Overall average amp= 5.751E-02 +- 2.848E-03 source= 1744-312
FLAGR4: Overall average rms= 1.318E-03 +- 2.621E-04 source= 1744-312
FLAGR4: Overall average amp= 1.656E-03 +- 2.208E-04 source= X1859+226
FLAGR4: Overall average rms= 8.118E-04 +- 9.769E-05 source= X1859+226
FLAGR4: Overall average amp= 1.500E-01 +- 1.193E-02 source= 1850+284
FLAGR4: Overall average rms= 1.299E-03 +- 1.993E-04 source= 1850+284
FLAGR4: Overall average amp= 2.064E-01 +- 2.396E-02 source= 2007+404
FLAGR4: Overall average rms= 1.230E-03 +- 2.476E-04 source= 2007+404
FLAGR4: Overall average amp= 2.058E-03 +- 2.055E-04 source= CYGX-1
FLAGR4: Overall average rms= 9.648E-04 +- 1.220E-04 source= CYGX-1
FLAGR4: Found     0 bad times,    60 total flags
FLAGR4: Wrote     0 antenna & IF independent flags
FLAGR4: Wrote     0 antenna independent, IF dependent flags
FLAGR4: Wrote    54 antenna & IF dependent flags
FLAGR4: Wrote     6 antenna & IF dependent, all-times flags
FLAGR4: Appears to have ended successfully
FLAGR4: auto         31DEC06 TST: Cpu=       1.9  Real=       8
sys2com(7)=char(ds
        );end
AIPS 4:   sys2com(8) ' >& /dev/null
AIPS 4:   system;clrtemp;for i=1:7;dir=dir!!sys2com(i);end;ki=length(dir
        ) $ must be 27
AIPS 4:   dir=substr(dir,2,ki);if(ki<>27)then;type'WARNING: WRONG DIRECT
        ORY NAME ?';end
AIPS 4:
AIPS 4: sysout=dir!!'/'!!sbms!!','!!expnm!!','!!rmss!!rmsc!!fras!!radi
AIPS 4: print sysout
AIPS 4: $keep sysout - not if we use dir instead
AIPS 4:   syscom'';sys2com'';clrtemp
AIPS 4:   return
AIPS 4: finish
AIPS 4:
AIPS 4: procedure nvasarch
AIPS 4:   scalar nn
AIPS 4: $LOS - archives the files to disk - define $EXP (and $AVLA/$ADAT
        /$AIMG/$AUVF)
AIPS 4:   default fitab;indisk=lsdisk;recat
AIPS 4: $ figure out array for uv name
AIPS 4: $  getname 1;
AIPS 4:   for nn=mai:numfle $ archive MA files
AIPS 4:     getname nn
AIPS 4:     nvasname
AIPS 4: typ length(outfile),length(sysout)
AIPS 4:     syscom'mv -f
AIPS 4:     sys2com(1)'X$FITS/'!!outfile;substr(sys2com(1),1,1)=''
AIPS 4: $    sys2com(2)'X'!!sysout;substr(sys2com(2),1,1)=''
AIPS 4:     sys2com(2)'X'!!dir;substr(sys2com(2),1,1)=''
AIPS 4:     sysout'';sys2com(3) ' >& /dev/null
AIPS 4:     outfile='FITS:'!!outfile
AIPS 4: ;go;wait;  $zap
AIPS 4:     ;system
AIPS 4:   end
AIPS 4:   clrname;indisk=lsdisk;chkname;numfle=1-error
AIPS 4: numfle=mai -1
AIPS 4:   for nn=3:numfle $ archive calibrated UV files
AIPS 4:     getname nn
AIPS 4:  nvasname
AIPS 4:     outfile='/tmp/tempuvfits
AIPS 4: go;wait;  $zap
AIPS 4:     syscom'mv -f
AIPS 4:     sys2com(1)'X'!!outfile;substr(sys2com(1),1,1)=''
AIPS 4:     sys2com(2)'X'!!sysout;substr(sys2com(2),1,1)=''
AIPS 4:     sysout'';sys2com(3) ' >& /dev/null
AIPS 4:     system
AIPS 4:   end
AIPS 4:   getname 2 $ archive calibration tables
AIPS 4: $  do not use nvasname as the dir is ADAT and dirname is expid
AIPS 4:
AIPS 4:   sys2com'';sysout'';syscom 'mkdir
AIPS 4:   sys2com(1)=' $adat/
AIPS 4:
AIPS 4: $  if(rh<10)then;sys2com(2)='J0'!!char(rh);else;sys2com(2)='J'!!
         char(rh);end
AIPS 4: $  if(rm<10)then;sys2com(3)='0'!!char(rm);else;sys2com(3)=char(r
        m);end
AIPS 4: $  if(rs<10)then;sys2com(4)='0'!!char(rs)!!zz;else;sys2com(4)=ch
        ar(rs)!!zz;end
AIPS 4: $  if(dd<10)then;sys2com(5)=pm!!'0'!!char(dd);else;sys2com(5)=pm
        !!char(dd);end
AIPS 4: $  if(dm<10)then;sys2com(6)='0'!!char(dm);else;sys2com(6)=char(d
        m);end
AIPS 4: $  if(ds<10)then;sys2com(7)='0'!!char(ds);else;sys2com(7)=char(d
        s);end
AIPS 4:
AIPS 4:   sys2com(1)=sys2com(1)!!expnm;sys2com(8) ' >& /dev/null
AIPS 4:   system;clrtemp
AIPS 4:
AIPS 4: finish
AIPS 4:
AIPS 4: procedure nvas
AIPS 4:   typ expid;flatfov;nvasimage
AIPS 4: $nvasarch
AIPS 4: finish
>AIPS 4: Found in Version=ABIN
AIPS 4: Found in Version=ABIN
AIPS 4: Got(1)   disk= 1  user=****   type=UV   19991227.X BAND.1
AIPS 4: 'AIPS WILL CHOOSE THE REFERENCE ANTENNA'
AIPS 4: Got(1)   disk= 1  user=****   type=UV   19991227.X BAND.1
AIPS 4: 'SETFC WILL DETERMINE THE CELL SIZE'
AIPS 4: '10 SECOND INTEGRATIONS (GUESS)'
AIPS 4: 'DONE CLEANUP OF OLD TABLE EXTENTION FILES (CL,SN,FG,BP,PL,XX)'
AIPS 4: Resumes
AIPS 4: Resumes
SETJY4: Task SETJY  (release of 31DEC06) begins
SETJY4: / Resetting flux information to zero
SETJY4: BIF =  1 EIF =  2 /Range of IFs
SETJY4: SOURCES = ''     /All sources selected
SETJY4: Appears to have ended successfully
SETJY4: auto         31DEC06 TST: Cpu=       0.0  Real=       0
sys2com(7)=char(ds
        );end
AIPS 4:   sys2com(8) ' >& /dev/null
AIPS 4:   system;clrtemp;for i=1:7;dir=dir!!sys2com(i);end;ki=length(dir
        ) $ must be 27
AIPS 4:   dir=substr(dir,2,ki);if(ki<>27)then;type'WARNING: WRONG DIRECT
        ORY NAME ?';end
AIPS 4:
AIPS 4: sysout=dir!!'/'!!sbms!!','!!expnm!!','!!rmss!!rmsc!!fras!!radi
AIPS 4: print sysout
AIPS 4: $keep sysout - not if we use dir instead
AIPS 4:   syscom'';sys2com'';clrtemp
AIPS 4:   return
AIPS 4: finish
AIPS 4:
AIPS 4: procedure nvasarch
AIPS 4:   scalar nn
AIPS 4: $LOS - archives the files to disk - define $EXP (and $AVLA/$ADAT
        /$AIMG/$AUVF)
AIPS 4:   default fitab;indisk=lsdisk;recat
AIPS 4: $ figure out array for uv name
AIPS 4: $  getname 1;
AIPS 4:   for nn=mai:numfle $ archive MA files
AIPS 4:     getname nn
AIPS 4:     nvasname
AIPS 4: typ length(outfile),length(sysout)
AIPS 4:     syscom'mv -f
AIPS 4:     sys2com(1)'X$FITS/'!!outfile;substr(sys2com(1),1,1)=''
AIPS 4: $    sys2com(2)'X'!!sysout;substr(sys2com(2),1,1)=''
AIPS 4:     sys2com(2)'X'!!dir;substr(sys2com(2),1,1)=''
AIPS 4:     sysout'';sys2com(3) ' >& /dev/null
AIPS 4:     outfile='FITS:'!!outfile
AIPS 4: ;go;wait;  $zap
AIPS 4:     ;system
AIPS 4:   end
AIPS 4:   clrname;indisk=lsdisk;chkname;numfle=1-error
AIPS 4: numfle=mai -1
AIPS 4:   for nn=3:numfle $ archive calibrated UV files
AIPS 4:     getname nn
AIPS 4:  nvasname
AIPS 4:     outfile='/tmp/tempuvfits
AIPS 4: go;wait;  $zap
AIPS 4:     syscom'mv -f
AIPS 4:     sys2com(1)'X'!!outfile;substr(sys2com(1),1,1)=''
AIPS 4:     sys2com(2)'X'!!sysout;substr(sys2com(2),1,1)=''
AIPS 4:     sysout'';sys2com(3) ' >& /dev/null
AIPS 4:     system
AIPS 4:   end
AIPS 4:   getname 2 $ archive calibration tables
AIPS 4: $  do not use nvasname as the dir is ADAT and dirname is expid
AIPS 4:
AIPS 4:   sys2com'';sysout'';syscom 'mkdir
AIPS 4:   sys2com(1)=' $adat/
AIPS 4:
AIPS 4: $  if(rh<10)then;sys2com(2)='J0'!!char(rh);else;sys2com(2)='J'!!
         char(rh);end
AIPS 4: $  if(rm<10)then;sys2com(3)='0'!!char(rm);else;sys2com(3)=char(r
        m);end
AIPS 4: $  if(rs<10)then;sys2com(4)='0'!!char(rs)!!zz;else;sys2com(4)=ch
        ar(rs)!!zz;end
AIPS 4: $  if(dd<10)then;sys2com(5)=pm!!'0'!!char(dd);else;sys2com(5)=pm
        !!char(dd);end
AIPS 4: $  if(dm<10)then;sys2com(6)='0'!!char(dm);else;sys2com(6)=char(d
        m);end
AIPS 4: $  if(ds<10)then;sys2com(7)='0'!!char(ds);else;sys2com(7)=char(d
        s);end
AIPS 4:
AIPS 4:   sys2com(1)=sys2com(1)!!expnm;sys2com(8) ' >& /dev/null
AIPS 4:   system;clrtemp
AIPS 4:
AIPS 4: finish
AIPS 4:
AIPS 4: procedure nvas
AIPS 4:   typ expid;flatfov;nvasimage
AIPS 4: $nvasarch
AIPS 4: finish
>AIPS 4: Found in Version=ABIN
AIPS 4: Found in Version=ABIN
AIPS 4: Got(1)   disk= 1  user=****   type=UV   19991227.X BAND.1
AIPS 4: 'AIPS WILL CHOOSE THE REFERENCE ANTENNA'
AIPS 4: Got(1)   disk= 1  user=****   type=UV   19991227.X BAND.1
AIPS 4: 'SETFC WILL DETERMINE THE CELL SIZE'
AIPS 4: '10 SECOND INTEGRATIONS (GUESS)'
AIPS 4: 'DONE CLEANUP OF OLD TABLE EXTENTION FILES (CL,SN,FG,BP,PL,XX)'
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
SETJY4: Task SETJY  (release of 31DEC06) begins
SETJY4: A source model for this calibrator may be available
SETJY4: Use the verb CALDIR to see if there is one
SETJY4: A source model for this calibrator may be available
SETJY4: Use the verb CALDIR to see if there is one
SETJY4: / Flux calculated using known spectrum
SETJY4: BIF =  1 EIF =  2 /Range of IFs
SETJY4: '1331+305        ' IF =  1 FLUX = 5.2158 (Jy calcd)
SETJY4: '1331+305        ' IF =  2 FLUX = 5.1947 (Jy calcd)
SETJY4: / Using (1999.2) VLA or Reynolds (1934-638) coefficients
SETJY4: Appears to have ended successfully
SETJY4: auto         31DEC06 TST: Cpu=       0.0  Real=       0
sys2com(7)=char(ds
        );end
AIPS 4:   sys2com(8) ' >& /dev/null
AIPS 4:   system;clrtemp;for i=1:7;dir=dir!!sys2com(i);end;ki=length(dir
        ) $ must be 27
AIPS 4:   dir=substr(dir,2,ki);if(ki<>27)then;type'WARNING: WRONG DIRECT
        ORY NAME ?';end
AIPS 4:
AIPS 4: sysout=dir!!'/'!!sbms!!','!!expnm!!','!!rmss!!rmsc!!fras!!radi
AIPS 4: print sysout
AIPS 4: $keep sysout - not if we use dir instead
AIPS 4:   syscom'';sys2com'';clrtemp
AIPS 4:   return
AIPS 4: finish
AIPS 4:
AIPS 4: procedure nvasarch
AIPS 4:   scalar nn
AIPS 4: $LOS - archives the files to disk - define $EXP (and $AVLA/$ADAT
        /$AIMG/$AUVF)
AIPS 4:   default fitab;indisk=lsdisk;recat
AIPS 4: $ figure out array for uv name
AIPS 4: $  getname 1;
AIPS 4:   for nn=mai:numfle $ archive MA files
AIPS 4:     getname nn
AIPS 4:     nvasname
AIPS 4: typ length(outfile),length(sysout)
AIPS 4:     syscom'mv -f
AIPS 4:     sys2com(1)'X$FITS/'!!outfile;substr(sys2com(1),1,1)=''
AIPS 4: $    sys2com(2)'X'!!sysout;substr(sys2com(2),1,1)=''
AIPS 4:     sys2com(2)'X'!!dir;substr(sys2com(2),1,1)=''
AIPS 4:     sysout'';sys2com(3) ' >& /dev/null
AIPS 4:     outfile='FITS:'!!outfile
AIPS 4: ;go;wait;  $zap
AIPS 4:     ;system
AIPS 4:   end
AIPS 4:   clrname;indisk=lsdisk;chkname;numfle=1-error
AIPS 4: numfle=mai -1
AIPS 4:   for nn=3:numfle $ archive calibrated UV files
AIPS 4:     getname nn
AIPS 4:  nvasname
AIPS 4:     outfile='/tmp/tempuvfits
AIPS 4: go;wait;  $zap
AIPS 4:     syscom'mv -f
AIPS 4:     sys2com(1)'X'!!outfile;substr(sys2com(1),1,1)=''
AIPS 4:     sys2com(2)'X'!!sysout;substr(sys2com(2),1,1)=''
AIPS 4:     sysout'';sys2com(3) ' >& /dev/null
AIPS 4:     system
AIPS 4:   end
AIPS 4:   getname 2 $ archive calibration tables
AIPS 4: $  do not use nvasname as the dir is ADAT and dirname is expid
AIPS 4:
AIPS 4:   sys2com'';sysout'';syscom 'mkdir
AIPS 4:   sys2com(1)=' $adat/
AIPS 4:
AIPS 4: $  if(rh<10)then;sys2com(2)='J0'!!char(rh);else;sys2com(2)='J'!!
         char(rh);end
AIPS 4: $  if(rm<10)then;sys2com(3)='0'!!char(rm);else;sys2com(3)=char(r
        m);end
AIPS 4: $  if(rs<10)then;sys2com(4)='0'!!char(rs)!!zz;else;sys2com(4)=ch
        ar(rs)!!zz;end
AIPS 4: $  if(dd<10)then;sys2com(5)=pm!!'0'!!char(dd);else;sys2com(5)=pm
        !!char(dd);end
AIPS 4: $  if(dm<10)then;sys2com(6)='0'!!char(dm);else;sys2com(6)=char(d
        m);end
AIPS 4: $  if(ds<10)then;sys2com(7)='0'!!char(ds);else;sys2com(7)=char(d
        s);end
AIPS 4:
AIPS 4:   sys2com(1)=sys2com(1)!!expnm;sys2com(8) ' >& /dev/null
AIPS 4:   system;clrtemp
AIPS 4:
AIPS 4: finish
AIPS 4:
AIPS 4: procedure nvas
AIPS 4:   typ expid;flatfov;nvasimage
AIPS 4: $nvasarch
AIPS 4: finish
>AIPS 4: Found in Version=ABIN
AIPS 4: Found in Version=ABIN
AIPS 4: Got(1)   disk= 1  user=****   type=UV   19991227.X BAND.1
AIPS 4: 'AIPS WILL CHOOSE THE REFERENCE ANTENNA'
AIPS 4: Got(1)   disk= 1  user=****   type=UV   19991227.X BAND.1
AIPS 4: 'SETFC WILL DETERMINE THE CELL SIZE'
AIPS 4: '10 SECOND INTEGRATIONS (GUESS)'
AIPS 4: 'DONE CLEANUP OF OLD TABLE EXTENTION FILES (CL,SN,FG,BP,PL,XX)'
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
CALIB4: Task CALIB  (release of 31DEC06) begins
CALIB4: CALIB USING 19991227     . X BAND .   1 DISK=  1 USID=****
CALIB4: L1 Solution type
CALIB4: Selecting, editing and calibrating the data
CALIB4: Doing cal transfer mode with point model for each source
CALIB4: This is not self-calibration
CALIB4: Dividing data by source flux densities
CALIB4: Determining solutions
CALIB4: Writing SN table    1
CALIB4: Found          630 good solutions
CALIB4: Failed on       10 solutions
CALIB4: Average closure rms =  0.0080 +-  0.0053
CALIB4: Fraction of times having data >  2.5 rms from solution
CALIB4: 0.25000 of the times had  0 -  2 percent outside  2.5 times rms
CALIB4: 0.45833 of the times had  2 -  4 percent outside  2.5 times rms
CALIB4: 0.29167 of the times had  4 -  6 percent outside  2.5 times rms
CALIB4: Adjusting solutions to a common reference antenna
CALIB4: CALREF: CANNOT RELATE ANTENNA  5 TO 22 IN SUBARRAY  1
CALIB4: CALREF: CANNOT RELATE ANTENNA  7 TO 22 IN SUBARRAY  1
CALIB4: Some solutions were not adjusted to the common
CALIB4: reference antenna. This may be because one or more
CALIB4: antennas were not used. Check your data before
CALIB4: proceeding.
CALIB4: Appears to have ended successfully
CALIB4: auto         31DEC06 TST: Cpu=       0.2  Real=       1
sys2com(7)=char(ds
        );end
AIPS 4:   sys2com(8) ' >& /dev/null
AIPS 4:   system;clrtemp;for i=1:7;dir=dir!!sys2com(i);end;ki=length(dir
        ) $ must be 27
AIPS 4:   dir=substr(dir,2,ki);if(ki<>27)then;type'WARNING: WRONG DIRECT
        ORY NAME ?';end
AIPS 4:
AIPS 4: sysout=dir!!'/'!!sbms!!','!!expnm!!','!!rmss!!rmsc!!fras!!radi
AIPS 4: print sysout
AIPS 4: $keep sysout - not if we use dir instead
AIPS 4:   syscom'';sys2com'';clrtemp
AIPS 4:   return
AIPS 4: finish
AIPS 4:
AIPS 4: procedure nvasarch
AIPS 4:   scalar nn
AIPS 4: $LOS - archives the files to disk - define $EXP (and $AVLA/$ADAT
        /$AIMG/$AUVF)
AIPS 4:   default fitab;indisk=lsdisk;recat
AIPS 4: $ figure out array for uv name
AIPS 4: $  getname 1;
AIPS 4:   for nn=mai:numfle $ archive MA files
AIPS 4:     getname nn
AIPS 4:     nvasname
AIPS 4: typ length(outfile),length(sysout)
AIPS 4:     syscom'mv -f
AIPS 4:     sys2com(1)'X$FITS/'!!outfile;substr(sys2com(1),1,1)=''
AIPS 4: $    sys2com(2)'X'!!sysout;substr(sys2com(2),1,1)=''
AIPS 4:     sys2com(2)'X'!!dir;substr(sys2com(2),1,1)=''
AIPS 4:     sysout'';sys2com(3) ' >& /dev/null
AIPS 4:     outfile='FITS:'!!outfile
AIPS 4: ;go;wait;  $zap
AIPS 4:     ;system
AIPS 4:   end
AIPS 4:   clrname;indisk=lsdisk;chkname;numfle=1-error
AIPS 4: numfle=mai -1
AIPS 4:   for nn=3:numfle $ archive calibrated UV files
AIPS 4:     getname nn
AIPS 4:  nvasname
AIPS 4:     outfile='/tmp/tempuvfits
AIPS 4: go;wait;  $zap
AIPS 4:     syscom'mv -f
AIPS 4:     sys2com(1)'X'!!outfile;substr(sys2com(1),1,1)=''
AIPS 4:     sys2com(2)'X'!!sysout;substr(sys2com(2),1,1)=''
AIPS 4:     sysout'';sys2com(3) ' >& /dev/null
AIPS 4:     system
AIPS 4:   end
AIPS 4:   getname 2 $ archive calibration tables
AIPS 4: $  do not use nvasname as the dir is ADAT and dirname is expid
AIPS 4:
AIPS 4:   sys2com'';sysout'';syscom 'mkdir
AIPS 4:   sys2com(1)=' $adat/
AIPS 4:
AIPS 4: $  if(rh<10)then;sys2com(2)='J0'!!char(rh);else;sys2com(2)='J'!!
         char(rh);end
AIPS 4: $  if(rm<10)then;sys2com(3)='0'!!char(rm);else;sys2com(3)=char(r
        m);end
AIPS 4: $  if(rs<10)then;sys2com(4)='0'!!char(rs)!!zz;else;sys2com(4)=ch
        ar(rs)!!zz;end
AIPS 4: $  if(dd<10)then;sys2com(5)=pm!!'0'!!char(dd);else;sys2com(5)=pm
        !!char(dd);end
AIPS 4: $  if(dm<10)then;sys2com(6)='0'!!char(dm);else;sys2com(6)=char(d
        m);end
AIPS 4: $  if(ds<10)then;sys2com(7)='0'!!char(ds);else;sys2com(7)=char(d
        s);end
AIPS 4:
AIPS 4:   sys2com(1)=sys2com(1)!!expnm;sys2com(8) ' >& /dev/null
AIPS 4:   system;clrtemp
AIPS 4:
AIPS 4: finish
AIPS 4:
AIPS 4: procedure nvas
AIPS 4:   typ expid;flatfov;nvasimage
AIPS 4: $nvasarch
AIPS 4: finish
>AIPS 4: Found in Version=ABIN
AIPS 4: Found in Version=ABIN
AIPS 4: Got(1)   disk= 1  user=****   type=UV   19991227.X BAND.1
AIPS 4: 'AIPS WILL CHOOSE THE REFERENCE ANTENNA'
AIPS 4: Got(1)   disk= 1  user=****   type=UV   19991227.X BAND.1
AIPS 4: 'SETFC WILL DETERMINE THE CELL SIZE'
AIPS 4: '10 SECOND INTEGRATIONS (GUESS)'
AIPS 4: 'DONE CLEANUP OF OLD TABLE EXTENTION FILES (CL,SN,FG,BP,PL,XX)'
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: '1331+305 MODEL ='     '3C286_X'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: ls -1 $AIPSTARS/3C286_X.MODEL >& /dev/null
CALRD4: Task CALRD  (release of 31DEC06) begins
CALRD4: Reading disk file AIPSTARS:3C286_X.MODEL
CALRD4: Create 3C286_X     .MODEL .   1 (MA)  on disk  1  cno    2
CALRD4: Appears to have ended successfully
CALRD4: auto         31DEC06 TST: Cpu=       0.0  Real=       0
sys2com(7)=char(ds
        );end
AIPS 4:   sys2com(8) ' >& /dev/null
AIPS 4:   system;clrtemp;for i=1:7;dir=dir!!sys2com(i);end;ki=length(dir
        ) $ must be 27
AIPS 4:   dir=substr(dir,2,ki);if(ki<>27)then;type'WARNING: WRONG DIRECT
        ORY NAME ?';end
AIPS 4:
AIPS 4: sysout=dir!!'/'!!sbms!!','!!expnm!!','!!rmss!!rmsc!!fras!!radi
AIPS 4: print sysout
AIPS 4: $keep sysout - not if we use dir instead
AIPS 4:   syscom'';sys2com'';clrtemp
AIPS 4:   return
AIPS 4: finish
AIPS 4:
AIPS 4: procedure nvasarch
AIPS 4:   scalar nn
AIPS 4: $LOS - archives the files to disk - define $EXP (and $AVLA/$ADAT
        /$AIMG/$AUVF)
AIPS 4:   default fitab;indisk=lsdisk;recat
AIPS 4: $ figure out array for uv name
AIPS 4: $  getname 1;
AIPS 4:   for nn=mai:numfle $ archive MA files
AIPS 4:     getname nn
AIPS 4:     nvasname
AIPS 4: typ length(outfile),length(sysout)
AIPS 4:     syscom'mv -f
AIPS 4:     sys2com(1)'X$FITS/'!!outfile;substr(sys2com(1),1,1)=''
AIPS 4: $    sys2com(2)'X'!!sysout;substr(sys2com(2),1,1)=''
AIPS 4:     sys2com(2)'X'!!dir;substr(sys2com(2),1,1)=''
AIPS 4:     sysout'';sys2com(3) ' >& /dev/null
AIPS 4:     outfile='FITS:'!!outfile
AIPS 4: ;go;wait;  $zap
AIPS 4:     ;system
AIPS 4:   end
AIPS 4:   clrname;indisk=lsdisk;chkname;numfle=1-error
AIPS 4: numfle=mai -1
AIPS 4:   for nn=3:numfle $ archive calibrated UV files
AIPS 4:     getname nn
AIPS 4:  nvasname
AIPS 4:     outfile='/tmp/tempuvfits
AIPS 4: go;wait;  $zap
AIPS 4:     syscom'mv -f
AIPS 4:     sys2com(1)'X'!!outfile;substr(sys2com(1),1,1)=''
AIPS 4:     sys2com(2)'X'!!sysout;substr(sys2com(2),1,1)=''
AIPS 4:     sysout'';sys2com(3) ' >& /dev/null
AIPS 4:     system
AIPS 4:   end
AIPS 4:   getname 2 $ archive calibration tables
AIPS 4: $  do not use nvasname as the dir is ADAT and dirname is expid
AIPS 4:
AIPS 4:   sys2com'';sysout'';syscom 'mkdir
AIPS 4:   sys2com(1)=' $adat/
AIPS 4:
AIPS 4: $  if(rh<10)then;sys2com(2)='J0'!!char(rh);else;sys2com(2)='J'!!
         char(rh);end
AIPS 4: $  if(rm<10)then;sys2com(3)='0'!!char(rm);else;sys2com(3)=char(r
        m);end
AIPS 4: $  if(rs<10)then;sys2com(4)='0'!!char(rs)!!zz;else;sys2com(4)=ch
        ar(rs)!!zz;end
AIPS 4: $  if(dd<10)then;sys2com(5)=pm!!'0'!!char(dd);else;sys2com(5)=pm
        !!char(dd);end
AIPS 4: $  if(dm<10)then;sys2com(6)='0'!!char(dm);else;sys2com(6)=char(d
        m);end
AIPS 4: $  if(ds<10)then;sys2com(7)='0'!!char(ds);else;sys2com(7)=char(d
        s);end
AIPS 4:
AIPS 4:   sys2com(1)=sys2com(1)!!expnm;sys2com(8) ' >& /dev/null
AIPS 4:   system;clrtemp
AIPS 4:
AIPS 4: finish
AIPS 4:
AIPS 4: procedure nvas
AIPS 4:   typ expid;flatfov;nvasimage
AIPS 4: $nvasarch
AIPS 4: finish
>AIPS 4: Found in Version=ABIN
AIPS 4: Found in Version=ABIN
AIPS 4: Got(1)   disk= 1  user=****   type=UV   19991227.X BAND.1
AIPS 4: 'AIPS WILL CHOOSE THE REFERENCE ANTENNA'
AIPS 4: Got(1)   disk= 1  user=****   type=UV   19991227.X BAND.1
AIPS 4: 'SETFC WILL DETERMINE THE CELL SIZE'
AIPS 4: '10 SECOND INTEGRATIONS (GUESS)'
AIPS 4: 'DONE CLEANUP OF OLD TABLE EXTENTION FILES (CL,SN,FG,BP,PL,XX)'
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: '1331+305 MODEL ='     '3C286_X'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: ls -1 $AIPSTARS/3C286_X.MODEL >& /dev/null
AIPS 4: Resumes
CALIB4: Task CALIB  (release of 31DEC06) begins
CALIB4: CALIB USING 19991227     . X BAND .   1 DISK=  1 USID=****
CALIB4: L1 Solution type
CALIB4: Selecting, editing and calibrating the data
CALIB4: Doing self-cal mode with CC model
CALIB4: FACSET: source model will be scaled to  5.216 Jy
CALIB4: FACSET: 5.277485 Jy found from 194 components
CALIB4: FACSET: scaling factor set to  9.88316E-01
CALIB4: VISDFT: Begin DFT component division
CALIB4: VISDFT: Model components of type Point
CALIB4: I Polarization model processed
CALIB4: FACSET: source model will be scaled to  5.195 Jy
CALIB4: FACSET: 5.277485 Jy found from 194 components
CALIB4: FACSET: scaling factor set to  9.84307E-01
CALIB4: VISDFT: Begin DFT component division
CALIB4: I Polarization model processed
CALIB4: Field    1 used     194 CCs
CALIB4: Determining solutions
CALIB4: Deleted     26 records from SN table no.    1
CALIB4: Writing SN table    1
CALIB4: Found          103 good solutions
CALIB4: Failed on        1 solutions
CALIB4: Average closure rms =  0.0026 +-  0.0005
CALIB4: Fraction of times having data >  2.5 rms from solution
CALIB4: 0.25000 of the times had  0 -  2 percent outside  2.5 times rms
CALIB4: 0.50000 of the times had  2 -  4 percent outside  2.5 times rms
CALIB4: 0.25000 of the times had  4 -  6 percent outside  2.5 times rms
CALIB4: Adjusting solutions to a common reference antenna
CALIB4: Appears to have ended successfully
CALIB4: auto         31DEC06 TST: Cpu=       0.2  Real=       2
sys2com(7)=char(ds
        );end
AIPS 4:   sys2com(8) ' >& /dev/null
AIPS 4:   system;clrtemp;for i=1:7;dir=dir!!sys2com(i);end;ki=length(dir
        ) $ must be 27
AIPS 4:   dir=substr(dir,2,ki);if(ki<>27)then;type'WARNING: WRONG DIRECT
        ORY NAME ?';end
AIPS 4:
AIPS 4: sysout=dir!!'/'!!sbms!!','!!expnm!!','!!rmss!!rmsc!!fras!!radi
AIPS 4: print sysout
AIPS 4: $keep sysout - not if we use dir instead
AIPS 4:   syscom'';sys2com'';clrtemp
AIPS 4:   return
AIPS 4: finish
AIPS 4:
AIPS 4: procedure nvasarch
AIPS 4:   scalar nn
AIPS 4: $LOS - archives the files to disk - define $EXP (and $AVLA/$ADAT
        /$AIMG/$AUVF)
AIPS 4:   default fitab;indisk=lsdisk;recat
AIPS 4: $ figure out array for uv name
AIPS 4: $  getname 1;
AIPS 4:   for nn=mai:numfle $ archive MA files
AIPS 4:     getname nn
AIPS 4:     nvasname
AIPS 4: typ length(outfile),length(sysout)
AIPS 4:     syscom'mv -f
AIPS 4:     sys2com(1)'X$FITS/'!!outfile;substr(sys2com(1),1,1)=''
AIPS 4: $    sys2com(2)'X'!!sysout;substr(sys2com(2),1,1)=''
AIPS 4:     sys2com(2)'X'!!dir;substr(sys2com(2),1,1)=''
AIPS 4:     sysout'';sys2com(3) ' >& /dev/null
AIPS 4:     outfile='FITS:'!!outfile
AIPS 4: ;go;wait;  $zap
AIPS 4:     ;system
AIPS 4:   end
AIPS 4:   clrname;indisk=lsdisk;chkname;numfle=1-error
AIPS 4: numfle=mai -1
AIPS 4:   for nn=3:numfle $ archive calibrated UV files
AIPS 4:     getname nn
AIPS 4:  nvasname
AIPS 4:     outfile='/tmp/tempuvfits
AIPS 4: go;wait;  $zap
AIPS 4:     syscom'mv -f
AIPS 4:     sys2com(1)'X'!!outfile;substr(sys2com(1),1,1)=''
AIPS 4:     sys2com(2)'X'!!sysout;substr(sys2com(2),1,1)=''
AIPS 4:     sysout'';sys2com(3) ' >& /dev/null
AIPS 4:     system
AIPS 4:   end
AIPS 4:   getname 2 $ archive calibration tables
AIPS 4: $  do not use nvasname as the dir is ADAT and dirname is expid
AIPS 4:
AIPS 4:   sys2com'';sysout'';syscom 'mkdir
AIPS 4:   sys2com(1)=' $adat/
AIPS 4:
AIPS 4: $  if(rh<10)then;sys2com(2)='J0'!!char(rh);else;sys2com(2)='J'!!
         char(rh);end
AIPS 4: $  if(rm<10)then;sys2com(3)='0'!!char(rm);else;sys2com(3)=char(r
        m);end
AIPS 4: $  if(rs<10)then;sys2com(4)='0'!!char(rs)!!zz;else;sys2com(4)=ch
        ar(rs)!!zz;end
AIPS 4: $  if(dd<10)then;sys2com(5)=pm!!'0'!!char(dd);else;sys2com(5)=pm
        !!char(dd);end
AIPS 4: $  if(dm<10)then;sys2com(6)='0'!!char(dm);else;sys2com(6)=char(d
        m);end
AIPS 4: $  if(ds<10)then;sys2com(7)='0'!!char(ds);else;sys2com(7)=char(d
        s);end
AIPS 4:
AIPS 4:   sys2com(1)=sys2com(1)!!expnm;sys2com(8) ' >& /dev/null
AIPS 4:   system;clrtemp
AIPS 4:
AIPS 4: finish
AIPS 4:
AIPS 4: procedure nvas
AIPS 4:   typ expid;flatfov;nvasimage
AIPS 4: $nvasarch
AIPS 4: finish
>AIPS 4: Found in Version=ABIN
AIPS 4: Found in Version=ABIN
AIPS 4: Got(1)   disk= 1  user=****   type=UV   19991227.X BAND.1
AIPS 4: 'AIPS WILL CHOOSE THE REFERENCE ANTENNA'
AIPS 4: Got(1)   disk= 1  user=****   type=UV   19991227.X BAND.1
AIPS 4: 'SETFC WILL DETERMINE THE CELL SIZE'
AIPS 4: '10 SECOND INTEGRATIONS (GUESS)'
AIPS 4: 'DONE CLEANUP OF OLD TABLE EXTENTION FILES (CL,SN,FG,BP,PL,XX)'
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: '1331+305 MODEL ='     '3C286_X'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: ls -1 $AIPSTARS/3C286_X.MODEL >& /dev/null
AIPS 4: Resumes
AIPS 4: Resumes
CLCAL4: Task CLCAL  (release of 31DEC06) begins
CLCAL4: Using interpolation mode 2PT
CLCAL4: Processing SN table    1
CLCAL4: SNMRG: Merging SN table
CLCAL4: SNMRG: Write     160 merged records from     160 input records
CLCAL4: SN2CL: Applying SN tables to CL table   1, writing CL table  2
CLCAL4: Appears to have ended successfully
CLCAL4: auto         31DEC06 TST: Cpu=       0.2  Real=       1
sys2com(7)=char(ds
        );end
AIPS 4:   sys2com(8) ' >& /dev/null
AIPS 4:   system;clrtemp;for i=1:7;dir=dir!!sys2com(i);end;ki=length(dir
        ) $ must be 27
AIPS 4:   dir=substr(dir,2,ki);if(ki<>27)then;type'WARNING: WRONG DIRECT
        ORY NAME ?';end
AIPS 4:
AIPS 4: sysout=dir!!'/'!!sbms!!','!!expnm!!','!!rmss!!rmsc!!fras!!radi
AIPS 4: print sysout
AIPS 4: $keep sysout - not if we use dir instead
AIPS 4:   syscom'';sys2com'';clrtemp
AIPS 4:   return
AIPS 4: finish
AIPS 4:
AIPS 4: procedure nvasarch
AIPS 4:   scalar nn
AIPS 4: $LOS - archives the files to disk - define $EXP (and $AVLA/$ADAT
        /$AIMG/$AUVF)
AIPS 4:   default fitab;indisk=lsdisk;recat
AIPS 4: $ figure out array for uv name
AIPS 4: $  getname 1;
AIPS 4:   for nn=mai:numfle $ archive MA files
AIPS 4:     getname nn
AIPS 4:     nvasname
AIPS 4: typ length(outfile),length(sysout)
AIPS 4:     syscom'mv -f
AIPS 4:     sys2com(1)'X$FITS/'!!outfile;substr(sys2com(1),1,1)=''
AIPS 4: $    sys2com(2)'X'!!sysout;substr(sys2com(2),1,1)=''
AIPS 4:     sys2com(2)'X'!!dir;substr(sys2com(2),1,1)=''
AIPS 4:     sysout'';sys2com(3) ' >& /dev/null
AIPS 4:     outfile='FITS:'!!outfile
AIPS 4: ;go;wait;  $zap
AIPS 4:     ;system
AIPS 4:   end
AIPS 4:   clrname;indisk=lsdisk;chkname;numfle=1-error
AIPS 4: numfle=mai -1
AIPS 4:   for nn=3:numfle $ archive calibrated UV files
AIPS 4:     getname nn
AIPS 4:  nvasname
AIPS 4:     outfile='/tmp/tempuvfits
AIPS 4: go;wait;  $zap
AIPS 4:     syscom'mv -f
AIPS 4:     sys2com(1)'X'!!outfile;substr(sys2com(1),1,1)=''
AIPS 4:     sys2com(2)'X'!!sysout;substr(sys2com(2),1,1)=''
AIPS 4:     sysout'';sys2com(3) ' >& /dev/null
AIPS 4:     system
AIPS 4:   end
AIPS 4:   getname 2 $ archive calibration tables
AIPS 4: $  do not use nvasname as the dir is ADAT and dirname is expid
AIPS 4:
AIPS 4:   sys2com'';sysout'';syscom 'mkdir
AIPS 4:   sys2com(1)=' $adat/
AIPS 4:
AIPS 4: $  if(rh<10)then;sys2com(2)='J0'!!char(rh);else;sys2com(2)='J'!!
         char(rh);end
AIPS 4: $  if(rm<10)then;sys2com(3)='0'!!char(rm);else;sys2com(3)=char(r
        m);end
AIPS 4: $  if(rs<10)then;sys2com(4)='0'!!char(rs)!!zz;else;sys2com(4)=ch
        ar(rs)!!zz;end
AIPS 4: $  if(dd<10)then;sys2com(5)=pm!!'0'!!char(dd);else;sys2com(5)=pm
        !!char(dd);end
AIPS 4: $  if(dm<10)then;sys2com(6)='0'!!char(dm);else;sys2com(6)=char(d
        m);end
AIPS 4: $  if(ds<10)then;sys2com(7)='0'!!char(ds);else;sys2com(7)=char(d
        s);end
AIPS 4:
AIPS 4:   sys2com(1)=sys2com(1)!!expnm;sys2com(8) ' >& /dev/null
AIPS 4:   system;clrtemp
AIPS 4:
AIPS 4: finish
AIPS 4:
AIPS 4: procedure nvas
AIPS 4:   typ expid;flatfov;nvasimage
AIPS 4: $nvasarch
AIPS 4: finish
>AIPS 4: Found in Version=ABIN
AIPS 4: Found in Version=ABIN
AIPS 4: Got(1)   disk= 1  user=****   type=UV   19991227.X BAND.1
AIPS 4: 'AIPS WILL CHOOSE THE REFERENCE ANTENNA'
AIPS 4: Got(1)   disk= 1  user=****   type=UV   19991227.X BAND.1
AIPS 4: 'SETFC WILL DETERMINE THE CELL SIZE'
AIPS 4: '10 SECOND INTEGRATIONS (GUESS)'
AIPS 4: 'DONE CLEANUP OF OLD TABLE EXTENTION FILES (CL,SN,FG,BP,PL,XX)'
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: '1331+305 MODEL ='     '3C286_X'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: ls -1 $AIPSTARS/3C286_X.MODEL >& /dev/null
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
CLCAL4: Task CLCAL  (release of 31DEC06) begins
CLCAL4: Using interpolation mode SELF
CLCAL4: Deleted    189 records from CL table no.    2
CLCAL4: Processing SN table    1
CLCAL4: WARNING: SN table    1 has already been applied
CLCAL4: SNMRG: Merging SN table
CLCAL4: SNMRG: Write     160 merged records from     160 input records
CLCAL4: SN2CL: Applying SN tables to CL table   1, writing CL table  2
CLCAL4: Appears to have ended successfully
CLCAL4: auto         31DEC06 TST: Cpu=       0.3  Real=       1
sys2com(7)=char(ds
        );end
AIPS 4:   sys2com(8) ' >& /dev/null
AIPS 4:   system;clrtemp;for i=1:7;dir=dir!!sys2com(i);end;ki=length(dir
        ) $ must be 27
AIPS 4:   dir=substr(dir,2,ki);if(ki<>27)then;type'WARNING: WRONG DIRECT
        ORY NAME ?';end
AIPS 4:
AIPS 4: sysout=dir!!'/'!!sbms!!','!!expnm!!','!!rmss!!rmsc!!fras!!radi
AIPS 4: print sysout
AIPS 4: $keep sysout - not if we use dir instead
AIPS 4:   syscom'';sys2com'';clrtemp
AIPS 4:   return
AIPS 4: finish
AIPS 4:
AIPS 4: procedure nvasarch
AIPS 4:   scalar nn
AIPS 4: $LOS - archives the files to disk - define $EXP (and $AVLA/$ADAT
        /$AIMG/$AUVF)
AIPS 4:   default fitab;indisk=lsdisk;recat
AIPS 4: $ figure out array for uv name
AIPS 4: $  getname 1;
AIPS 4:   for nn=mai:numfle $ archive MA files
AIPS 4:     getname nn
AIPS 4:     nvasname
AIPS 4: typ length(outfile),length(sysout)
AIPS 4:     syscom'mv -f
AIPS 4:     sys2com(1)'X$FITS/'!!outfile;substr(sys2com(1),1,1)=''
AIPS 4: $    sys2com(2)'X'!!sysout;substr(sys2com(2),1,1)=''
AIPS 4:     sys2com(2)'X'!!dir;substr(sys2com(2),1,1)=''
AIPS 4:     sysout'';sys2com(3) ' >& /dev/null
AIPS 4:     outfile='FITS:'!!outfile
AIPS 4: ;go;wait;  $zap
AIPS 4:     ;system
AIPS 4:   end
AIPS 4:   clrname;indisk=lsdisk;chkname;numfle=1-error
AIPS 4: numfle=mai -1
AIPS 4:   for nn=3:numfle $ archive calibrated UV files
AIPS 4:     getname nn
AIPS 4:  nvasname
AIPS 4:     outfile='/tmp/tempuvfits
AIPS 4: go;wait;  $zap
AIPS 4:     syscom'mv -f
AIPS 4:     sys2com(1)'X'!!outfile;substr(sys2com(1),1,1)=''
AIPS 4:     sys2com(2)'X'!!sysout;substr(sys2com(2),1,1)=''
AIPS 4:     sysout'';sys2com(3) ' >& /dev/null
AIPS 4:     system
AIPS 4:   end
AIPS 4:   getname 2 $ archive calibration tables
AIPS 4: $  do not use nvasname as the dir is ADAT and dirname is expid
AIPS 4:
AIPS 4:   sys2com'';sysout'';syscom 'mkdir
AIPS 4:   sys2com(1)=' $adat/
AIPS 4:
AIPS 4: $  if(rh<10)then;sys2com(2)='J0'!!char(rh);else;sys2com(2)='J'!!
         char(rh);end
AIPS 4: $  if(rm<10)then;sys2com(3)='0'!!char(rm);else;sys2com(3)=char(r
        m);end
AIPS 4: $  if(rs<10)then;sys2com(4)='0'!!char(rs)!!zz;else;sys2com(4)=ch
        ar(rs)!!zz;end
AIPS 4: $  if(dd<10)then;sys2com(5)=pm!!'0'!!char(dd);else;sys2com(5)=pm
        !!char(dd);end
AIPS 4: $  if(dm<10)then;sys2com(6)='0'!!char(dm);else;sys2com(6)=char(d
        m);end
AIPS 4: $  if(ds<10)then;sys2com(7)='0'!!char(ds);else;sys2com(7)=char(d
        s);end
AIPS 4:
AIPS 4:   sys2com(1)=sys2com(1)!!expnm;sys2com(8) ' >& /dev/null
AIPS 4:   system;clrtemp
AIPS 4:
AIPS 4: finish
AIPS 4:
AIPS 4: procedure nvas
AIPS 4:   typ expid;flatfov;nvasimage
AIPS 4: $nvasarch
AIPS 4: finish
>AIPS 4: Found in Version=ABIN
AIPS 4: Found in Version=ABIN
AIPS 4: Got(1)   disk= 1  user=****   type=UV   19991227.X BAND.1
AIPS 4: 'AIPS WILL CHOOSE THE REFERENCE ANTENNA'
AIPS 4: Got(1)   disk= 1  user=****   type=UV   19991227.X BAND.1
AIPS 4: 'SETFC WILL DETERMINE THE CELL SIZE'
AIPS 4: '10 SECOND INTEGRATIONS (GUESS)'
AIPS 4: 'DONE CLEANUP OF OLD TABLE EXTENTION FILES (CL,SN,FG,BP,PL,XX)'
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: '1331+305 MODEL ='     '3C286_X'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: ls -1 $AIPSTARS/3C286_X.MODEL >& /dev/null
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
CALIB4: Task CALIB  (release of 31DEC06) begins
CALIB4: CALIB USING 19991227     . X BAND .   1 DISK=  1 USID=****
CALIB4: L1 Solution type
CALIB4: Selecting, editing and calibrating the data
CALIB4: Doing cal transfer mode with point model for each source
CALIB4: This is not self-calibration
CALIB4: Dividing data by source flux densities
CALIB4: Determining solutions
CALIB4: Writing SN table    2
CALIB4: RPOL, IF= 1 The average gain over these antennas is  2.966E+00
CALIB4: RPOL, IF= 2 The average gain over these antennas is  2.974E+00
CALIB4: LPOL, IF= 1 The average gain over these antennas is  2.981E+00
CALIB4: LPOL, IF= 2 The average gain over these antennas is  2.996E+00
CALIB4: Found          524 good solutions
CALIB4: Failed on        8 solutions
CALIB4: Average closure rms =  0.0010 +-  0.0002
CALIB4: Fraction of times having data >  2.5 rms from solution
CALIB4: 0.45000 of the times had  0 -  2 percent outside  2.5 times rms
CALIB4: 0.55000 of the times had  2 -  4 percent outside  2.5 times rms
CALIB4: Adjusting solutions to a common reference antenna
CALIB4: CALREF: CANNOT RELATE ANTENNA  5 TO 22 IN SUBARRAY  1
CALIB4: CALREF: CANNOT RELATE ANTENNA  7 TO 22 IN SUBARRAY  1
CALIB4: Some solutions were not adjusted to the common
CALIB4: reference antenna. This may be because one or more
CALIB4: antennas were not used. Check your data before
CALIB4: proceeding.
CALIB4: Appears to have ended successfully
CALIB4: auto         31DEC06 TST: Cpu=       0.3  Real=       2
sys2com(7)=char(ds
        );end
AIPS 4:   sys2com(8) ' >& /dev/null
AIPS 4:   system;clrtemp;for i=1:7;dir=dir!!sys2com(i);end;ki=length(dir
        ) $ must be 27
AIPS 4:   dir=substr(dir,2,ki);if(ki<>27)then;type'WARNING: WRONG DIRECT
        ORY NAME ?';end
AIPS 4:
AIPS 4: sysout=dir!!'/'!!sbms!!','!!expnm!!','!!rmss!!rmsc!!fras!!radi
AIPS 4: print sysout
AIPS 4: $keep sysout - not if we use dir instead
AIPS 4:   syscom'';sys2com'';clrtemp
AIPS 4:   return
AIPS 4: finish
AIPS 4:
AIPS 4: procedure nvasarch
AIPS 4:   scalar nn
AIPS 4: $LOS - archives the files to disk - define $EXP (and $AVLA/$ADAT
        /$AIMG/$AUVF)
AIPS 4:   default fitab;indisk=lsdisk;recat
AIPS 4: $ figure out array for uv name
AIPS 4: $  getname 1;
AIPS 4:   for nn=mai:numfle $ archive MA files
AIPS 4:     getname nn
AIPS 4:     nvasname
AIPS 4: typ length(outfile),length(sysout)
AIPS 4:     syscom'mv -f
AIPS 4:     sys2com(1)'X$FITS/'!!outfile;substr(sys2com(1),1,1)=''
AIPS 4: $    sys2com(2)'X'!!sysout;substr(sys2com(2),1,1)=''
AIPS 4:     sys2com(2)'X'!!dir;substr(sys2com(2),1,1)=''
AIPS 4:     sysout'';sys2com(3) ' >& /dev/null
AIPS 4:     outfile='FITS:'!!outfile
AIPS 4: ;go;wait;  $zap
AIPS 4:     ;system
AIPS 4:   end
AIPS 4:   clrname;indisk=lsdisk;chkname;numfle=1-error
AIPS 4: numfle=mai -1
AIPS 4:   for nn=3:numfle $ archive calibrated UV files
AIPS 4:     getname nn
AIPS 4:  nvasname
AIPS 4:     outfile='/tmp/tempuvfits
AIPS 4: go;wait;  $zap
AIPS 4:     syscom'mv -f
AIPS 4:     sys2com(1)'X'!!outfile;substr(sys2com(1),1,1)=''
AIPS 4:     sys2com(2)'X'!!sysout;substr(sys2com(2),1,1)=''
AIPS 4:     sysout'';sys2com(3) ' >& /dev/null
AIPS 4:     system
AIPS 4:   end
AIPS 4:   getname 2 $ archive calibration tables
AIPS 4: $  do not use nvasname as the dir is ADAT and dirname is expid
AIPS 4:
AIPS 4:   sys2com'';sysout'';syscom 'mkdir
AIPS 4:   sys2com(1)=' $adat/
AIPS 4:
AIPS 4: $  if(rh<10)then;sys2com(2)='J0'!!char(rh);else;sys2com(2)='J'!!
         char(rh);end
AIPS 4: $  if(rm<10)then;sys2com(3)='0'!!char(rm);else;sys2com(3)=char(r
        m);end
AIPS 4: $  if(rs<10)then;sys2com(4)='0'!!char(rs)!!zz;else;sys2com(4)=ch
        ar(rs)!!zz;end
AIPS 4: $  if(dd<10)then;sys2com(5)=pm!!'0'!!char(dd);else;sys2com(5)=pm
        !!char(dd);end
AIPS 4: $  if(dm<10)then;sys2com(6)='0'!!char(dm);else;sys2com(6)=char(d
        m);end
AIPS 4: $  if(ds<10)then;sys2com(7)='0'!!char(ds);else;sys2com(7)=char(d
        s);end
AIPS 4:
AIPS 4:   sys2com(1)=sys2com(1)!!expnm;sys2com(8) ' >& /dev/null
AIPS 4:   system;clrtemp
AIPS 4:
AIPS 4: finish
AIPS 4:
AIPS 4: procedure nvas
AIPS 4:   typ expid;flatfov;nvasimage
AIPS 4: $nvasarch
AIPS 4: finish
>AIPS 4: Found in Version=ABIN
AIPS 4: Found in Version=ABIN
AIPS 4: Got(1)   disk= 1  user=****   type=UV   19991227.X BAND.1
AIPS 4: 'AIPS WILL CHOOSE THE REFERENCE ANTENNA'
AIPS 4: Got(1)   disk= 1  user=****   type=UV   19991227.X BAND.1
AIPS 4: 'SETFC WILL DETERMINE THE CELL SIZE'
AIPS 4: '10 SECOND INTEGRATIONS (GUESS)'
AIPS 4: 'DONE CLEANUP OF OLD TABLE EXTENTION FILES (CL,SN,FG,BP,PL,XX)'
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: '1331+305 MODEL ='     '3C286_X'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: ls -1 $AIPSTARS/3C286_X.MODEL >& /dev/null
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
CALIB4: Task CALIB  (release of 31DEC06) begins
CALIB4: CALIB USING 19991227     . X BAND .   1 DISK=  1 USID=****
CALIB4: L1 Solution type
CALIB4: Selecting, editing and calibrating the data
CALIB4: Doing self-cal mode with CC model
CALIB4: FACSET: source model will be scaled to  5.216 Jy
CALIB4: FACSET: 5.277485 Jy found from 194 components
CALIB4: FACSET: scaling factor set to  9.88316E-01
CALIB4: VISDFT: Begin DFT component division
CALIB4: VISDFT: Model components of type Point
CALIB4: I Polarization model processed
CALIB4: FACSET: source model will be scaled to  5.195 Jy
CALIB4: FACSET: 5.277485 Jy found from 194 components
CALIB4: FACSET: scaling factor set to  9.84307E-01
CALIB4: VISDFT: Begin DFT component division
CALIB4: I Polarization model processed
CALIB4: Field    1 used     194 CCs
CALIB4: Determining solutions
CALIB4: Deleted     26 records from SN table no.    2
CALIB4: Writing SN table    2
CALIB4: RPOL, IF= 1 The average gain over these antennas is  3.168E+00
CALIB4: RPOL, IF= 2 The average gain over these antennas is  3.165E+00
CALIB4: LPOL, IF= 1 The average gain over these antennas is  3.179E+00
CALIB4: LPOL, IF= 2 The average gain over these antennas is  3.202E+00
CALIB4: Found          103 good solutions
CALIB4: Failed on        1 solutions
CALIB4: Average closure rms =  0.0005 +-  0.0001
CALIB4: Fraction of times having data >  2.5 rms from solution
CALIB4: 1.00000 of the times had  2 -  4 percent outside  2.5 times rms
CALIB4: Adjusting solutions to a common reference antenna
CALIB4: Appears to have ended successfully
CALIB4: auto         31DEC06 TST: Cpu=       0.2  Real=       2
sys2com(7)=char(ds
        );end
AIPS 4:   sys2com(8) ' >& /dev/null
AIPS 4:   system;clrtemp;for i=1:7;dir=dir!!sys2com(i);end;ki=length(dir
        ) $ must be 27
AIPS 4:   dir=substr(dir,2,ki);if(ki<>27)then;type'WARNING: WRONG DIRECT
        ORY NAME ?';end
AIPS 4:
AIPS 4: sysout=dir!!'/'!!sbms!!','!!expnm!!','!!rmss!!rmsc!!fras!!radi
AIPS 4: print sysout
AIPS 4: $keep sysout - not if we use dir instead
AIPS 4:   syscom'';sys2com'';clrtemp
AIPS 4:   return
AIPS 4: finish
AIPS 4:
AIPS 4: procedure nvasarch
AIPS 4:   scalar nn
AIPS 4: $LOS - archives the files to disk - define $EXP (and $AVLA/$ADAT
        /$AIMG/$AUVF)
AIPS 4:   default fitab;indisk=lsdisk;recat
AIPS 4: $ figure out array for uv name
AIPS 4: $  getname 1;
AIPS 4:   for nn=mai:numfle $ archive MA files
AIPS 4:     getname nn
AIPS 4:     nvasname
AIPS 4: typ length(outfile),length(sysout)
AIPS 4:     syscom'mv -f
AIPS 4:     sys2com(1)'X$FITS/'!!outfile;substr(sys2com(1),1,1)=''
AIPS 4: $    sys2com(2)'X'!!sysout;substr(sys2com(2),1,1)=''
AIPS 4:     sys2com(2)'X'!!dir;substr(sys2com(2),1,1)=''
AIPS 4:     sysout'';sys2com(3) ' >& /dev/null
AIPS 4:     outfile='FITS:'!!outfile
AIPS 4: ;go;wait;  $zap
AIPS 4:     ;system
AIPS 4:   end
AIPS 4:   clrname;indisk=lsdisk;chkname;numfle=1-error
AIPS 4: numfle=mai -1
AIPS 4:   for nn=3:numfle $ archive calibrated UV files
AIPS 4:     getname nn
AIPS 4:  nvasname
AIPS 4:     outfile='/tmp/tempuvfits
AIPS 4: go;wait;  $zap
AIPS 4:     syscom'mv -f
AIPS 4:     sys2com(1)'X'!!outfile;substr(sys2com(1),1,1)=''
AIPS 4:     sys2com(2)'X'!!sysout;substr(sys2com(2),1,1)=''
AIPS 4:     sysout'';sys2com(3) ' >& /dev/null
AIPS 4:     system
AIPS 4:   end
AIPS 4:   getname 2 $ archive calibration tables
AIPS 4: $  do not use nvasname as the dir is ADAT and dirname is expid
AIPS 4:
AIPS 4:   sys2com'';sysout'';syscom 'mkdir
AIPS 4:   sys2com(1)=' $adat/
AIPS 4:
AIPS 4: $  if(rh<10)then;sys2com(2)='J0'!!char(rh);else;sys2com(2)='J'!!
         char(rh);end
AIPS 4: $  if(rm<10)then;sys2com(3)='0'!!char(rm);else;sys2com(3)=char(r
        m);end
AIPS 4: $  if(rs<10)then;sys2com(4)='0'!!char(rs)!!zz;else;sys2com(4)=ch
        ar(rs)!!zz;end
AIPS 4: $  if(dd<10)then;sys2com(5)=pm!!'0'!!char(dd);else;sys2com(5)=pm
        !!char(dd);end
AIPS 4: $  if(dm<10)then;sys2com(6)='0'!!char(dm);else;sys2com(6)=char(d
        m);end
AIPS 4: $  if(ds<10)then;sys2com(7)='0'!!char(ds);else;sys2com(7)=char(d
        s);end
AIPS 4:
AIPS 4:   sys2com(1)=sys2com(1)!!expnm;sys2com(8) ' >& /dev/null
AIPS 4:   system;clrtemp
AIPS 4:
AIPS 4: finish
AIPS 4:
AIPS 4: procedure nvas
AIPS 4:   typ expid;flatfov;nvasimage
AIPS 4: $nvasarch
AIPS 4: finish
>AIPS 4: Found in Version=ABIN
AIPS 4: Found in Version=ABIN
AIPS 4: Got(1)   disk= 1  user=****   type=UV   19991227.X BAND.1
AIPS 4: 'AIPS WILL CHOOSE THE REFERENCE ANTENNA'
AIPS 4: Got(1)   disk= 1  user=****   type=UV   19991227.X BAND.1
AIPS 4: 'SETFC WILL DETERMINE THE CELL SIZE'
AIPS 4: '10 SECOND INTEGRATIONS (GUESS)'
AIPS 4: 'DONE CLEANUP OF OLD TABLE EXTENTION FILES (CL,SN,FG,BP,PL,XX)'
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: '1331+305 MODEL ='     '3C286_X'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: ls -1 $AIPSTARS/3C286_X.MODEL >& /dev/null
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Destroyed  1 extension files of type CC
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=      2 disk= 1
GETJY4: Task GETJY  (release of 31DEC06) begins
GETJY4:    Source:Qual      CALCODE IF  Flux (Jy)
GETJY4: 1744-312        :  0   C     1    0.56257 +/-   0.00582
GETJY4:                              2    0.56319 +/-   0.00587
GETJY4: 1850+284        :  0   C     1    1.50233 +/-   0.01018
GETJY4:                              2    1.50081 +/-   0.00966
GETJY4: 2007+404        :  0   A     1    2.03967 +/-   0.03683
GETJY4:                              2    2.03801 +/-   0.03655
GETJY4: Appears to have ended successfully
GETJY4: auto         31DEC06 TST: Cpu=       0.0  Real=       0
sys2com(7)=char(ds
        );end
AIPS 4:   sys2com(8) ' >& /dev/null
AIPS 4:   system;clrtemp;for i=1:7;dir=dir!!sys2com(i);end;ki=length(dir
        ) $ must be 27
AIPS 4:   dir=substr(dir,2,ki);if(ki<>27)then;type'WARNING: WRONG DIRECT
        ORY NAME ?';end
AIPS 4:
AIPS 4: sysout=dir!!'/'!!sbms!!','!!expnm!!','!!rmss!!rmsc!!fras!!radi
AIPS 4: print sysout
AIPS 4: $keep sysout - not if we use dir instead
AIPS 4:   syscom'';sys2com'';clrtemp
AIPS 4:   return
AIPS 4: finish
AIPS 4:
AIPS 4: procedure nvasarch
AIPS 4:   scalar nn
AIPS 4: $LOS - archives the files to disk - define $EXP (and $AVLA/$ADAT
        /$AIMG/$AUVF)
AIPS 4:   default fitab;indisk=lsdisk;recat
AIPS 4: $ figure out array for uv name
AIPS 4: $  getname 1;
AIPS 4:   for nn=mai:numfle $ archive MA files
AIPS 4:     getname nn
AIPS 4:     nvasname
AIPS 4: typ length(outfile),length(sysout)
AIPS 4:     syscom'mv -f
AIPS 4:     sys2com(1)'X$FITS/'!!outfile;substr(sys2com(1),1,1)=''
AIPS 4: $    sys2com(2)'X'!!sysout;substr(sys2com(2),1,1)=''
AIPS 4:     sys2com(2)'X'!!dir;substr(sys2com(2),1,1)=''
AIPS 4:     sysout'';sys2com(3) ' >& /dev/null
AIPS 4:     outfile='FITS:'!!outfile
AIPS 4: ;go;wait;  $zap
AIPS 4:     ;system
AIPS 4:   end
AIPS 4:   clrname;indisk=lsdisk;chkname;numfle=1-error
AIPS 4: numfle=mai -1
AIPS 4:   for nn=3:numfle $ archive calibrated UV files
AIPS 4:     getname nn
AIPS 4:  nvasname
AIPS 4:     outfile='/tmp/tempuvfits
AIPS 4: go;wait;  $zap
AIPS 4:     syscom'mv -f
AIPS 4:     sys2com(1)'X'!!outfile;substr(sys2com(1),1,1)=''
AIPS 4:     sys2com(2)'X'!!sysout;substr(sys2com(2),1,1)=''
AIPS 4:     sysout'';sys2com(3) ' >& /dev/null
AIPS 4:     system
AIPS 4:   end
AIPS 4:   getname 2 $ archive calibration tables
AIPS 4: $  do not use nvasname as the dir is ADAT and dirname is expid
AIPS 4:
AIPS 4:   sys2com'';sysout'';syscom 'mkdir
AIPS 4:   sys2com(1)=' $adat/
AIPS 4:
AIPS 4: $  if(rh<10)then;sys2com(2)='J0'!!char(rh);else;sys2com(2)='J'!!
         char(rh);end
AIPS 4: $  if(rm<10)then;sys2com(3)='0'!!char(rm);else;sys2com(3)=char(r
        m);end
AIPS 4: $  if(rs<10)then;sys2com(4)='0'!!char(rs)!!zz;else;sys2com(4)=ch
        ar(rs)!!zz;end
AIPS 4: $  if(dd<10)then;sys2com(5)=pm!!'0'!!char(dd);else;sys2com(5)=pm
        !!char(dd);end
AIPS 4: $  if(dm<10)then;sys2com(6)='0'!!char(dm);else;sys2com(6)=char(d
        m);end
AIPS 4: $  if(ds<10)then;sys2com(7)='0'!!char(ds);else;sys2com(7)=char(d
        s);end
AIPS 4:
AIPS 4:   sys2com(1)=sys2com(1)!!expnm;sys2com(8) ' >& /dev/null
AIPS 4:   system;clrtemp
AIPS 4:
AIPS 4: finish
AIPS 4:
AIPS 4: procedure nvas
AIPS 4:   typ expid;flatfov;nvasimage
AIPS 4: $nvasarch
AIPS 4: finish
>AIPS 4: Found in Version=ABIN
AIPS 4: Found in Version=ABIN
AIPS 4: Got(1)   disk= 1  user=****   type=UV   19991227.X BAND.1
AIPS 4: 'AIPS WILL CHOOSE THE REFERENCE ANTENNA'
AIPS 4: Got(1)   disk= 1  user=****   type=UV   19991227.X BAND.1
AIPS 4: 'SETFC WILL DETERMINE THE CELL SIZE'
AIPS 4: '10 SECOND INTEGRATIONS (GUESS)'
AIPS 4: 'DONE CLEANUP OF OLD TABLE EXTENTION FILES (CL,SN,FG,BP,PL,XX)'
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: '1331+305 MODEL ='     '3C286_X'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: ls -1 $AIPSTARS/3C286_X.MODEL >& /dev/null
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Destroyed  1 extension files of type CC
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=      2 disk= 1
AIPS 4: Resumes
CLCAL4: Task CLCAL  (release of 31DEC06) begins
CLCAL4: Using interpolation mode 2PT
CLCAL4: Processing SN table    2
CLCAL4: SNMRG: Merging SN table
CLCAL4: SNMRG: Write     133 merged records from     133 input records
CLCAL4: SN2CL: Applying SN tables to CL table   2, writing CL table  3
CLCAL4: Appears to have ended successfully
CLCAL4: auto         31DEC06 TST: Cpu=       0.2  Real=       0
sys2com(7)=char(ds
        );end
AIPS 4:   sys2com(8) ' >& /dev/null
AIPS 4:   system;clrtemp;for i=1:7;dir=dir!!sys2com(i);end;ki=length(dir
        ) $ must be 27
AIPS 4:   dir=substr(dir,2,ki);if(ki<>27)then;type'WARNING: WRONG DIRECT
        ORY NAME ?';end
AIPS 4:
AIPS 4: sysout=dir!!'/'!!sbms!!','!!expnm!!','!!rmss!!rmsc!!fras!!radi
AIPS 4: print sysout
AIPS 4: $keep sysout - not if we use dir instead
AIPS 4:   syscom'';sys2com'';clrtemp
AIPS 4:   return
AIPS 4: finish
AIPS 4:
AIPS 4: procedure nvasarch
AIPS 4:   scalar nn
AIPS 4: $LOS - archives the files to disk - define $EXP (and $AVLA/$ADAT
        /$AIMG/$AUVF)
AIPS 4:   default fitab;indisk=lsdisk;recat
AIPS 4: $ figure out array for uv name
AIPS 4: $  getname 1;
AIPS 4:   for nn=mai:numfle $ archive MA files
AIPS 4:     getname nn
AIPS 4:     nvasname
AIPS 4: typ length(outfile),length(sysout)
AIPS 4:     syscom'mv -f
AIPS 4:     sys2com(1)'X$FITS/'!!outfile;substr(sys2com(1),1,1)=''
AIPS 4: $    sys2com(2)'X'!!sysout;substr(sys2com(2),1,1)=''
AIPS 4:     sys2com(2)'X'!!dir;substr(sys2com(2),1,1)=''
AIPS 4:     sysout'';sys2com(3) ' >& /dev/null
AIPS 4:     outfile='FITS:'!!outfile
AIPS 4: ;go;wait;  $zap
AIPS 4:     ;system
AIPS 4:   end
AIPS 4:   clrname;indisk=lsdisk;chkname;numfle=1-error
AIPS 4: numfle=mai -1
AIPS 4:   for nn=3:numfle $ archive calibrated UV files
AIPS 4:     getname nn
AIPS 4:  nvasname
AIPS 4:     outfile='/tmp/tempuvfits
AIPS 4: go;wait;  $zap
AIPS 4:     syscom'mv -f
AIPS 4:     sys2com(1)'X'!!outfile;substr(sys2com(1),1,1)=''
AIPS 4:     sys2com(2)'X'!!sysout;substr(sys2com(2),1,1)=''
AIPS 4:     sysout'';sys2com(3) ' >& /dev/null
AIPS 4:     system
AIPS 4:   end
AIPS 4:   getname 2 $ archive calibration tables
AIPS 4: $  do not use nvasname as the dir is ADAT and dirname is expid
AIPS 4:
AIPS 4:   sys2com'';sysout'';syscom 'mkdir
AIPS 4:   sys2com(1)=' $adat/
AIPS 4:
AIPS 4: $  if(rh<10)then;sys2com(2)='J0'!!char(rh);else;sys2com(2)='J'!!
         char(rh);end
AIPS 4: $  if(rm<10)then;sys2com(3)='0'!!char(rm);else;sys2com(3)=char(r
        m);end
AIPS 4: $  if(rs<10)then;sys2com(4)='0'!!char(rs)!!zz;else;sys2com(4)=ch
        ar(rs)!!zz;end
AIPS 4: $  if(dd<10)then;sys2com(5)=pm!!'0'!!char(dd);else;sys2com(5)=pm
        !!char(dd);end
AIPS 4: $  if(dm<10)then;sys2com(6)='0'!!char(dm);else;sys2com(6)=char(d
        m);end
AIPS 4: $  if(ds<10)then;sys2com(7)='0'!!char(ds);else;sys2com(7)=char(d
        s);end
AIPS 4:
AIPS 4:   sys2com(1)=sys2com(1)!!expnm;sys2com(8) ' >& /dev/null
AIPS 4:   system;clrtemp
AIPS 4:
AIPS 4: finish
AIPS 4:
AIPS 4: procedure nvas
AIPS 4:   typ expid;flatfov;nvasimage
AIPS 4: $nvasarch
AIPS 4: finish
>AIPS 4: Found in Version=ABIN
AIPS 4: Found in Version=ABIN
AIPS 4: Got(1)   disk= 1  user=****   type=UV   19991227.X BAND.1
AIPS 4: 'AIPS WILL CHOOSE THE REFERENCE ANTENNA'
AIPS 4: Got(1)   disk= 1  user=****   type=UV   19991227.X BAND.1
AIPS 4: 'SETFC WILL DETERMINE THE CELL SIZE'
AIPS 4: '10 SECOND INTEGRATIONS (GUESS)'
AIPS 4: 'DONE CLEANUP OF OLD TABLE EXTENTION FILES (CL,SN,FG,BP,PL,XX)'
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: '1331+305 MODEL ='     '3C286_X'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: ls -1 $AIPSTARS/3C286_X.MODEL >& /dev/null
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Destroyed  1 extension files of type CC
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=      2 disk= 1
AIPS 4: Resumes
AIPS 4: Resumes
CLCAL4: Task CLCAL  (release of 31DEC06) begins
CLCAL4: Using interpolation mode SELF
CLCAL4: Deleted    182 records from CL table no.    3
CLCAL4: Processing SN table    2
CLCAL4: WARNING: SN table    2 has already been applied
CLCAL4: SNMRG: Merging SN table
CLCAL4: SNMRG: Write     133 merged records from     133 input records
CLCAL4: SN2CL: Applying SN tables to CL table   2, writing CL table  3
CLCAL4: Appears to have ended successfully
CLCAL4: auto         31DEC06 TST: Cpu=       0.3  Real=       2
sys2com(7)=char(ds
        );end
AIPS 4:   sys2com(8) ' >& /dev/null
AIPS 4:   system;clrtemp;for i=1:7;dir=dir!!sys2com(i);end;ki=length(dir
        ) $ must be 27
AIPS 4:   dir=substr(dir,2,ki);if(ki<>27)then;type'WARNING: WRONG DIRECT
        ORY NAME ?';end
AIPS 4:
AIPS 4: sysout=dir!!'/'!!sbms!!','!!expnm!!','!!rmss!!rmsc!!fras!!radi
AIPS 4: print sysout
AIPS 4: $keep sysout - not if we use dir instead
AIPS 4:   syscom'';sys2com'';clrtemp
AIPS 4:   return
AIPS 4: finish
AIPS 4:
AIPS 4: procedure nvasarch
AIPS 4:   scalar nn
AIPS 4: $LOS - archives the files to disk - define $EXP (and $AVLA/$ADAT
        /$AIMG/$AUVF)
AIPS 4:   default fitab;indisk=lsdisk;recat
AIPS 4: $ figure out array for uv name
AIPS 4: $  getname 1;
AIPS 4:   for nn=mai:numfle $ archive MA files
AIPS 4:     getname nn
AIPS 4:     nvasname
AIPS 4: typ length(outfile),length(sysout)
AIPS 4:     syscom'mv -f
AIPS 4:     sys2com(1)'X$FITS/'!!outfile;substr(sys2com(1),1,1)=''
AIPS 4: $    sys2com(2)'X'!!sysout;substr(sys2com(2),1,1)=''
AIPS 4:     sys2com(2)'X'!!dir;substr(sys2com(2),1,1)=''
AIPS 4:     sysout'';sys2com(3) ' >& /dev/null
AIPS 4:     outfile='FITS:'!!outfile
AIPS 4: ;go;wait;  $zap
AIPS 4:     ;system
AIPS 4:   end
AIPS 4:   clrname;indisk=lsdisk;chkname;numfle=1-error
AIPS 4: numfle=mai -1
AIPS 4:   for nn=3:numfle $ archive calibrated UV files
AIPS 4:     getname nn
AIPS 4:  nvasname
AIPS 4:     outfile='/tmp/tempuvfits
AIPS 4: go;wait;  $zap
AIPS 4:     syscom'mv -f
AIPS 4:     sys2com(1)'X'!!outfile;substr(sys2com(1),1,1)=''
AIPS 4:     sys2com(2)'X'!!sysout;substr(sys2com(2),1,1)=''
AIPS 4:     sysout'';sys2com(3) ' >& /dev/null
AIPS 4:     system
AIPS 4:   end
AIPS 4:   getname 2 $ archive calibration tables
AIPS 4: $  do not use nvasname as the dir is ADAT and dirname is expid
AIPS 4:
AIPS 4:   sys2com'';sysout'';syscom 'mkdir
AIPS 4:   sys2com(1)=' $adat/
AIPS 4:
AIPS 4: $  if(rh<10)then;sys2com(2)='J0'!!char(rh);else;sys2com(2)='J'!!
         char(rh);end
AIPS 4: $  if(rm<10)then;sys2com(3)='0'!!char(rm);else;sys2com(3)=char(r
        m);end
AIPS 4: $  if(rs<10)then;sys2com(4)='0'!!char(rs)!!zz;else;sys2com(4)=ch
        ar(rs)!!zz;end
AIPS 4: $  if(dd<10)then;sys2com(5)=pm!!'0'!!char(dd);else;sys2com(5)=pm
        !!char(dd);end
AIPS 4: $  if(dm<10)then;sys2com(6)='0'!!char(dm);else;sys2com(6)=char(d
        m);end
AIPS 4: $  if(ds<10)then;sys2com(7)='0'!!char(ds);else;sys2com(7)=char(d
        s);end
AIPS 4:
AIPS 4:   sys2com(1)=sys2com(1)!!expnm;sys2com(8) ' >& /dev/null
AIPS 4:   system;clrtemp
AIPS 4:
AIPS 4: finish
AIPS 4:
AIPS 4: procedure nvas
AIPS 4:   typ expid;flatfov;nvasimage
AIPS 4: $nvasarch
AIPS 4: finish
>AIPS 4: Found in Version=ABIN
AIPS 4: Found in Version=ABIN
AIPS 4: Got(1)   disk= 1  user=****   type=UV   19991227.X BAND.1
AIPS 4: 'AIPS WILL CHOOSE THE REFERENCE ANTENNA'
AIPS 4: Got(1)   disk= 1  user=****   type=UV   19991227.X BAND.1
AIPS 4: 'SETFC WILL DETERMINE THE CELL SIZE'
AIPS 4: '10 SECOND INTEGRATIONS (GUESS)'
AIPS 4: 'DONE CLEANUP OF OLD TABLE EXTENTION FILES (CL,SN,FG,BP,PL,XX)'
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: '1331+305 MODEL ='     '3C286_X'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: ls -1 $AIPSTARS/3C286_X.MODEL >& /dev/null
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Destroyed  1 extension files of type CC
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=      2 disk= 1
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
TASAV4: Task TASAV  (release of 31DEC06) begins
TASAV4: Create 19991227    .TASAV .   1 (UV)  on disk  1  cno    2
TASAV4: Copied AN file from vol/cno/vers  1    1   1 to  1    2   1
TASAV4: Copied NX file from vol/cno/vers  1    1   1 to  1    2   1
TASAV4: Copied SU file from vol/cno/vers  1    1   1 to  1    2   1
TASAV4: Copied FQ file from vol/cno/vers  1    1   1 to  1    2   1
TASAV4: Copied CL file from vol/cno/vers  1    1   1 to  1    2   1
TASAV4: Copied CL file from vol/cno/vers  1    1   2 to  1    2   2
TASAV4: Copied CL file from vol/cno/vers  1    1   3 to  1    2   3
TASAV4: Copied TY file from vol/cno/vers  1    1   1 to  1    2   1
TASAV4: Copied WX file from vol/cno/vers  1    1   1 to  1    2   1
TASAV4: Copied OF file from vol/cno/vers  1    1   1 to  1    2   1
TASAV4: Copied FG file from vol/cno/vers  1    1   1 to  1    2   1
TASAV4: Copied FG file from vol/cno/vers  1    1   2 to  1    2   2
TASAV4: Copied XX file from vol/cno/vers  1    1   1 to  1    2   1
TASAV4: Copied SN file from vol/cno/vers  1    1   1 to  1    2   1
TASAV4: Copied SN file from vol/cno/vers  1    1   2 to  1    2   2
TASAV4: Appears to have ended successfully
TASAV4: auto         31DEC06 TST: Cpu=       0.1  Real=       0
sys2com(7)=char(ds
        );end
AIPS 4:   sys2com(8) ' >& /dev/null
AIPS 4:   system;clrtemp;for i=1:7;dir=dir!!sys2com(i);end;ki=length(dir
        ) $ must be 27
AIPS 4:   dir=substr(dir,2,ki);if(ki<>27)then;type'WARNING: WRONG DIRECT
        ORY NAME ?';end
AIPS 4:
AIPS 4: sysout=dir!!'/'!!sbms!!','!!expnm!!','!!rmss!!rmsc!!fras!!radi
AIPS 4: print sysout
AIPS 4: $keep sysout - not if we use dir instead
AIPS 4:   syscom'';sys2com'';clrtemp
AIPS 4:   return
AIPS 4: finish
AIPS 4:
AIPS 4: procedure nvasarch
AIPS 4:   scalar nn
AIPS 4: $LOS - archives the files to disk - define $EXP (and $AVLA/$ADAT
        /$AIMG/$AUVF)
AIPS 4:   default fitab;indisk=lsdisk;recat
AIPS 4: $ figure out array for uv name
AIPS 4: $  getname 1;
AIPS 4:   for nn=mai:numfle $ archive MA files
AIPS 4:     getname nn
AIPS 4:     nvasname
AIPS 4: typ length(outfile),length(sysout)
AIPS 4:     syscom'mv -f
AIPS 4:     sys2com(1)'X$FITS/'!!outfile;substr(sys2com(1),1,1)=''
AIPS 4: $    sys2com(2)'X'!!sysout;substr(sys2com(2),1,1)=''
AIPS 4:     sys2com(2)'X'!!dir;substr(sys2com(2),1,1)=''
AIPS 4:     sysout'';sys2com(3) ' >& /dev/null
AIPS 4:     outfile='FITS:'!!outfile
AIPS 4: ;go;wait;  $zap
AIPS 4:     ;system
AIPS 4:   end
AIPS 4:   clrname;indisk=lsdisk;chkname;numfle=1-error
AIPS 4: numfle=mai -1
AIPS 4:   for nn=3:numfle $ archive calibrated UV files
AIPS 4:     getname nn
AIPS 4:  nvasname
AIPS 4:     outfile='/tmp/tempuvfits
AIPS 4: go;wait;  $zap
AIPS 4:     syscom'mv -f
AIPS 4:     sys2com(1)'X'!!outfile;substr(sys2com(1),1,1)=''
AIPS 4:     sys2com(2)'X'!!sysout;substr(sys2com(2),1,1)=''
AIPS 4:     sysout'';sys2com(3) ' >& /dev/null
AIPS 4:     system
AIPS 4:   end
AIPS 4:   getname 2 $ archive calibration tables
AIPS 4: $  do not use nvasname as the dir is ADAT and dirname is expid
AIPS 4:
AIPS 4:   sys2com'';sysout'';syscom 'mkdir
AIPS 4:   sys2com(1)=' $adat/
AIPS 4:
AIPS 4: $  if(rh<10)then;sys2com(2)='J0'!!char(rh);else;sys2com(2)='J'!!
         char(rh);end
AIPS 4: $  if(rm<10)then;sys2com(3)='0'!!char(rm);else;sys2com(3)=char(r
        m);end
AIPS 4: $  if(rs<10)then;sys2com(4)='0'!!char(rs)!!zz;else;sys2com(4)=ch
        ar(rs)!!zz;end
AIPS 4: $  if(dd<10)then;sys2com(5)=pm!!'0'!!char(dd);else;sys2com(5)=pm
        !!char(dd);end
AIPS 4: $  if(dm<10)then;sys2com(6)='0'!!char(dm);else;sys2com(6)=char(d
        m);end
AIPS 4: $  if(ds<10)then;sys2com(7)='0'!!char(ds);else;sys2com(7)=char(d
        s);end
AIPS 4:
AIPS 4:   sys2com(1)=sys2com(1)!!expnm;sys2com(8) ' >& /dev/null
AIPS 4:   system;clrtemp
AIPS 4:
AIPS 4: finish
AIPS 4:
AIPS 4: procedure nvas
AIPS 4:   typ expid;flatfov;nvasimage
AIPS 4: $nvasarch
AIPS 4: finish
>AIPS 4: Found in Version=ABIN
AIPS 4: Found in Version=ABIN
AIPS 4: Got(1)   disk= 1  user=****   type=UV   19991227.X BAND.1
AIPS 4: 'AIPS WILL CHOOSE THE REFERENCE ANTENNA'
AIPS 4: Got(1)   disk= 1  user=****   type=UV   19991227.X BAND.1
AIPS 4: 'SETFC WILL DETERMINE THE CELL SIZE'
AIPS 4: '10 SECOND INTEGRATIONS (GUESS)'
AIPS 4: 'DONE CLEANUP OF OLD TABLE EXTENTION FILES (CL,SN,FG,BP,PL,XX)'
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: '1331+305 MODEL ='     '3C286_X'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: ls -1 $AIPSTARS/3C286_X.MODEL >& /dev/null
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Destroyed  1 extension files of type CC
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=      2 disk= 1
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
SPLIT4: Task SPLIT  (release of 31DEC06) begins
SPLIT4: You are using a non-standard program
SPLIT4: Doing subarray  1
SPLIT4: Create 1331+305    .X BAND.   1 (UV)  on disk  1  cno    3
SPLIT4: Applying CL Table version     3
SPLIT4:            Previously flagged   flagged by gain         kept
SPLIT4: Partially             150                 150            150
SPLIT4: Fully                   0                   0           1800
SPLIT4: Copied AN file from vol/cno/vers  1    1   1 to  1    3   1
SPLIT4: Copied WX file from vol/cno/vers  1    1   1 to  1    3   1
SPLIT4: Copied OF file from vol/cno/vers  1    1   1 to  1    3   1
SPLIT4: Copied XX file from vol/cno/vers  1    1   1 to  1    3   1
SPLIT4: Create X1748-28    .X BAND.   1 (UV)  on disk  1  cno    4
SPLIT4:            Previously flagged   flagged by gain         kept
SPLIT4: Partially            2692                2957           3101
SPLIT4: Fully                   0                   0          36406
SPLIT4: Copied AN file from vol/cno/vers  1    1   1 to  1    4   1
SPLIT4: Copied WX file from vol/cno/vers  1    1   1 to  1    4   1
SPLIT4: Copied OF file from vol/cno/vers  1    1   1 to  1    4   1
SPLIT4: Copied XX file from vol/cno/vers  1    1   1 to  1    4   1
SPLIT4: Create 1744-312    .X BAND.   1 (UV)  on disk  1  cno    5
SPLIT4:            Previously flagged   flagged by gain         kept
SPLIT4: Partially             257                 182            257
SPLIT4: Fully                   0                   0           2200
SPLIT4: Copied AN file from vol/cno/vers  1    1   1 to  1    5   1
SPLIT4: Copied WX file from vol/cno/vers  1    1   1 to  1    5   1
SPLIT4: Copied OF file from vol/cno/vers  1    1   1 to  1    5   1
SPLIT4: Copied XX file from vol/cno/vers  1    1   1 to  1    5   1
SPLIT4: Create X1859+226   .X BAND.   1 (UV)  on disk  1  cno    6
SPLIT4:            Previously flagged   flagged by gain         kept
SPLIT4: Partially            4626                1612           4626
SPLIT4: Fully                   0                   0          25560
SPLIT4: Copied AN file from vol/cno/vers  1    1   1 to  1    6   1
SPLIT4: Copied WX file from vol/cno/vers  1    1   1 to  1    6   1
SPLIT4: Copied OF file from vol/cno/vers  1    1   1 to  1    6   1
SPLIT4: Copied XX file from vol/cno/vers  1    1   1 to  1    6   1
SPLIT4: Create 1850+284    .X BAND.   1 (UV)  on disk  1  cno    7
SPLIT4:            Previously flagged   flagged by gain         kept
SPLIT4: Partially             666                  78            666
SPLIT4: Fully                   0                   0           3546
SPLIT4: Copied AN file from vol/cno/vers  1    1   1 to  1    7   1
SPLIT4: Copied WX file from vol/cno/vers  1    1   1 to  1    7   1
SPLIT4: Copied OF file from vol/cno/vers  1    1   1 to  1    7   1
SPLIT4: Copied XX file from vol/cno/vers  1    1   1 to  1    7   1
SPLIT4: Create 2007+404    .X BAND.   1 (UV)  on disk  1  cno    8
SPLIT4:            Previously flagged   flagged by gain         kept
SPLIT4: Partially             125                  75            125
SPLIT4: Fully                   0                   0           1500
SPLIT4: Copied AN file from vol/cno/vers  1    1   1 to  1    8   1
SPLIT4: Copied WX file from vol/cno/vers  1    1   1 to  1    8   1
SPLIT4: Copied OF file from vol/cno/vers  1    1   1 to  1    8   1
SPLIT4: Copied XX file from vol/cno/vers  1    1   1 to  1    8   1
SPLIT4: Create CYGX-1      .X BAND.   1 (UV)  on disk  1  cno    9
SPLIT4:            Previously flagged   flagged by gain         kept
SPLIT4: Partially             644                 500            644
SPLIT4: Fully                   0                   0           5856
SPLIT4: Copied AN file from vol/cno/vers  1    1   1 to  1    9   1
SPLIT4: Copied WX file from vol/cno/vers  1    1   1 to  1    9   1
SPLIT4: Copied OF file from vol/cno/vers  1    1   1 to  1    9   1
SPLIT4: Copied XX file from vol/cno/vers  1    1   1 to  1    9   1
SPLIT4: Appears to have ended successfully
SPLIT4: auto         31DEC06 TST: Cpu=       0.4  Real=       1
sys2com(7)=char(ds
        );end
AIPS 4:   sys2com(8) ' >& /dev/null
AIPS 4:   system;clrtemp;for i=1:7;dir=dir!!sys2com(i);end;ki=length(dir
        ) $ must be 27
AIPS 4:   dir=substr(dir,2,ki);if(ki<>27)then;type'WARNING: WRONG DIRECT
        ORY NAME ?';end
AIPS 4:
AIPS 4: sysout=dir!!'/'!!sbms!!','!!expnm!!','!!rmss!!rmsc!!fras!!radi
AIPS 4: print sysout
AIPS 4: $keep sysout - not if we use dir instead
AIPS 4:   syscom'';sys2com'';clrtemp
AIPS 4:   return
AIPS 4: finish
AIPS 4:
AIPS 4: procedure nvasarch
AIPS 4:   scalar nn
AIPS 4: $LOS - archives the files to disk - define $EXP (and $AVLA/$ADAT
        /$AIMG/$AUVF)
AIPS 4:   default fitab;indisk=lsdisk;recat
AIPS 4: $ figure out array for uv name
AIPS 4: $  getname 1;
AIPS 4:   for nn=mai:numfle $ archive MA files
AIPS 4:     getname nn
AIPS 4:     nvasname
AIPS 4: typ length(outfile),length(sysout)
AIPS 4:     syscom'mv -f
AIPS 4:     sys2com(1)'X$FITS/'!!outfile;substr(sys2com(1),1,1)=''
AIPS 4: $    sys2com(2)'X'!!sysout;substr(sys2com(2),1,1)=''
AIPS 4:     sys2com(2)'X'!!dir;substr(sys2com(2),1,1)=''
AIPS 4:     sysout'';sys2com(3) ' >& /dev/null
AIPS 4:     outfile='FITS:'!!outfile
AIPS 4: ;go;wait;  $zap
AIPS 4:     ;system
AIPS 4:   end
AIPS 4:   clrname;indisk=lsdisk;chkname;numfle=1-error
AIPS 4: numfle=mai -1
AIPS 4:   for nn=3:numfle $ archive calibrated UV files
AIPS 4:     getname nn
AIPS 4:  nvasname
AIPS 4:     outfile='/tmp/tempuvfits
AIPS 4: go;wait;  $zap
AIPS 4:     syscom'mv -f
AIPS 4:     sys2com(1)'X'!!outfile;substr(sys2com(1),1,1)=''
AIPS 4:     sys2com(2)'X'!!sysout;substr(sys2com(2),1,1)=''
AIPS 4:     sysout'';sys2com(3) ' >& /dev/null
AIPS 4:     system
AIPS 4:   end
AIPS 4:   getname 2 $ archive calibration tables
AIPS 4: $  do not use nvasname as the dir is ADAT and dirname is expid
AIPS 4:
AIPS 4:   sys2com'';sysout'';syscom 'mkdir
AIPS 4:   sys2com(1)=' $adat/
AIPS 4:
AIPS 4: $  if(rh<10)then;sys2com(2)='J0'!!char(rh);else;sys2com(2)='J'!!
         char(rh);end
AIPS 4: $  if(rm<10)then;sys2com(3)='0'!!char(rm);else;sys2com(3)=char(r
        m);end
AIPS 4: $  if(rs<10)then;sys2com(4)='0'!!char(rs)!!zz;else;sys2com(4)=ch
        ar(rs)!!zz;end
AIPS 4: $  if(dd<10)then;sys2com(5)=pm!!'0'!!char(dd);else;sys2com(5)=pm
        !!char(dd);end
AIPS 4: $  if(dm<10)then;sys2com(6)='0'!!char(dm);else;sys2com(6)=char(d
        m);end
AIPS 4: $  if(ds<10)then;sys2com(7)='0'!!char(ds);else;sys2com(7)=char(d
        s);end
AIPS 4:
AIPS 4:   sys2com(1)=sys2com(1)!!expnm;sys2com(8) ' >& /dev/null
AIPS 4:   system;clrtemp
AIPS 4:
AIPS 4: finish
AIPS 4:
AIPS 4: procedure nvas
AIPS 4:   typ expid;flatfov;nvasimage
AIPS 4: $nvasarch
AIPS 4: finish
>AIPS 4: Found in Version=ABIN
AIPS 4: Found in Version=ABIN
AIPS 4: Got(1)   disk= 1  user=****   type=UV   19991227.X BAND.1
AIPS 4: 'AIPS WILL CHOOSE THE REFERENCE ANTENNA'
AIPS 4: Got(1)   disk= 1  user=****   type=UV   19991227.X BAND.1
AIPS 4: 'SETFC WILL DETERMINE THE CELL SIZE'
AIPS 4: '10 SECOND INTEGRATIONS (GUESS)'
AIPS 4: 'DONE CLEANUP OF OLD TABLE EXTENTION FILES (CL,SN,FG,BP,PL,XX)'
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: '1331+305 MODEL ='     '3C286_X'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: ls -1 $AIPSTARS/3C286_X.MODEL >& /dev/null
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Destroyed  1 extension files of type CC
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=      2 disk= 1
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: ' '
AIPS 4: 'ESTIMATED RMS:'     '0.1478 MILLI JANSKY'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@1331+305_X,BAND.0-1 >& /dev/null
SETFC4: Task SETFC  (release of 31DEC06) begins
SETFC4: Found 1331+305    X BAND Seq   1 Disk:  1 in slot    3
SETFC4: SETCEL: recommends IMSIZE  1343 CELLSIZE   0.23840
SETFC4: SETCEL: returns    IMSIZE  1024 CELLSIZE   0.23840
SETFC4: ZTXOP2: using translated file name =
SETFC4: ZTXOP2: /tmp/SETFC@1331+305_X,BAND.0-1
SETFC4: FLYEYE added   7 fields to BOXFILE to  0.056 deg
SETFC4: Searching catalog between  0.06 and   0.13 degrees radius
SETFC4: ZTXOP2: using translated file name =
SETFC4: ZTXOP2: /home/auto/aips/TEXT/STARS/NV00.0030
SETFC4: No NVSS sources selected for BOXFILE
SETFC4: The Sun is  88.4 deg away - ignoring
SETFC4: First field number written was   1
SETFC4: Highest field number written was   7
SETFC4: returns adverbs to AIPS
SETFC4: Appears to have ended successfully
SETFC4: auto         31DEC06 TST: Cpu=       1.0  Real=       6
C     1  1012  1012   13 31 08.29   30 30 33.0
00001  -1    507    512    513
C     2  1012  1012   13 31 08.29   30 27 10.0
00002  -1    507    512    513
C     3  1012  1012   13 30 54.69   30 28 51.4
00003  -1    507    512    513
C     4  1012  1012   13 31 21.88   30 28 51.4
00004  -1    507    512    513
C     5  1012  1012   13 30 54.68   30 32 14.4
00005  -1    507    512    513
C     6  1012  1012   13 31 21.89   30 32 14.4
00006  -1    507    512    513
C     7  1012  1012   13 31 08.29   30 33 55.9
00007  -1    507    512    513
sys2com(7)=char(ds
        );end
AIPS 4:   sys2com(8) ' >& /dev/null
AIPS 4:   system;clrtemp;for i=1:7;dir=dir!!sys2com(i);end;ki=length(dir
        ) $ must be 27
AIPS 4:   dir=substr(dir,2,ki);if(ki<>27)then;type'WARNING: WRONG DIRECT
        ORY NAME ?';end
AIPS 4:
AIPS 4: sysout=dir!!'/'!!sbms!!','!!expnm!!','!!rmss!!rmsc!!fras!!radi
AIPS 4: print sysout
AIPS 4: $keep sysout - not if we use dir instead
AIPS 4:   syscom'';sys2com'';clrtemp
AIPS 4:   return
AIPS 4: finish
AIPS 4:
AIPS 4: procedure nvasarch
AIPS 4:   scalar nn
AIPS 4: $LOS - archives the files to disk - define $EXP (and $AVLA/$ADAT
        /$AIMG/$AUVF)
AIPS 4:   default fitab;indisk=lsdisk;recat
AIPS 4: $ figure out array for uv name
AIPS 4: $  getname 1;
AIPS 4:   for nn=mai:numfle $ archive MA files
AIPS 4:     getname nn
AIPS 4:     nvasname
AIPS 4: typ length(outfile),length(sysout)
AIPS 4:     syscom'mv -f
AIPS 4:     sys2com(1)'X$FITS/'!!outfile;substr(sys2com(1),1,1)=''
AIPS 4: $    sys2com(2)'X'!!sysout;substr(sys2com(2),1,1)=''
AIPS 4:     sys2com(2)'X'!!dir;substr(sys2com(2),1,1)=''
AIPS 4:     sysout'';sys2com(3) ' >& /dev/null
AIPS 4:     outfile='FITS:'!!outfile
AIPS 4: ;go;wait;  $zap
AIPS 4:     ;system
AIPS 4:   end
AIPS 4:   clrname;indisk=lsdisk;chkname;numfle=1-error
AIPS 4: numfle=mai -1
AIPS 4:   for nn=3:numfle $ archive calibrated UV files
AIPS 4:     getname nn
AIPS 4:  nvasname
AIPS 4:     outfile='/tmp/tempuvfits
AIPS 4: go;wait;  $zap
AIPS 4:     syscom'mv -f
AIPS 4:     sys2com(1)'X'!!outfile;substr(sys2com(1),1,1)=''
AIPS 4:     sys2com(2)'X'!!sysout;substr(sys2com(2),1,1)=''
AIPS 4:     sysout'';sys2com(3) ' >& /dev/null
AIPS 4:     system
AIPS 4:   end
AIPS 4:   getname 2 $ archive calibration tables
AIPS 4: $  do not use nvasname as the dir is ADAT and dirname is expid
AIPS 4:
AIPS 4:   sys2com'';sysout'';syscom 'mkdir
AIPS 4:   sys2com(1)=' $adat/
AIPS 4:
AIPS 4: $  if(rh<10)then;sys2com(2)='J0'!!char(rh);else;sys2com(2)='J'!!
         char(rh);end
AIPS 4: $  if(rm<10)then;sys2com(3)='0'!!char(rm);else;sys2com(3)=char(r
        m);end
AIPS 4: $  if(rs<10)then;sys2com(4)='0'!!char(rs)!!zz;else;sys2com(4)=ch
        ar(rs)!!zz;end
AIPS 4: $  if(dd<10)then;sys2com(5)=pm!!'0'!!char(dd);else;sys2com(5)=pm
        !!char(dd);end
AIPS 4: $  if(dm<10)then;sys2com(6)='0'!!char(dm);else;sys2com(6)=char(d
        m);end
AIPS 4: $  if(ds<10)then;sys2com(7)='0'!!char(ds);else;sys2com(7)=char(d
        s);end
AIPS 4:
AIPS 4:   sys2com(1)=sys2com(1)!!expnm;sys2com(8) ' >& /dev/null
AIPS 4:   system;clrtemp
AIPS 4:
AIPS 4: finish
AIPS 4:
AIPS 4: procedure nvas
AIPS 4:   typ expid;flatfov;nvasimage
AIPS 4: $nvasarch
AIPS 4: finish
>AIPS 4: Found in Version=ABIN
AIPS 4: Found in Version=ABIN
AIPS 4: Got(1)   disk= 1  user=****   type=UV   19991227.X BAND.1
AIPS 4: 'AIPS WILL CHOOSE THE REFERENCE ANTENNA'
AIPS 4: Got(1)   disk= 1  user=****   type=UV   19991227.X BAND.1
AIPS 4: 'SETFC WILL DETERMINE THE CELL SIZE'
AIPS 4: '10 SECOND INTEGRATIONS (GUESS)'
AIPS 4: 'DONE CLEANUP OF OLD TABLE EXTENTION FILES (CL,SN,FG,BP,PL,XX)'
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: '1331+305 MODEL ='     '3C286_X'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: ls -1 $AIPSTARS/3C286_X.MODEL >& /dev/null
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Destroyed  1 extension files of type CC
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=      2 disk= 1
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: ' '
AIPS 4: 'ESTIMATED RMS:'     '0.1478 MILLI JANSKY'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@1331+305_X,BAND.0-1 >& /dev/null
AIPS 4: Waiting for returned adverbs
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: cat /tmp/SETFC@1331+305_X,BAND.0-1 >> /home/auto/run/AH669_1999D
AIPS 4: EC27_1.log.1
AIPS 4: '    NOW STARTING WITH SOURCE  :1  =1331+305'
AIPS 4: ' '
IMAGR4: Task IMAGR  (release of 31DEC06) begins
IMAGR4: ZTXOP2: using translated file name =
IMAGR4: ZTXOP2: /tmp/SETFC@1331+305_X,BAND.0-1
IMAGR4: FIELDF: Final field parameters and # read are:
IMAGR4: Field    1 1012 1012  2.4554E-02  4.0000E-02          0
IMAGR4: Field    2 1012 1012  2.4554E-02 -2.0296E+02          0
IMAGR4: Field    3 1012 1012 -1.7573E+02 -1.0156E+02          0
IMAGR4: Field    4 1012 1012  1.7565E+02 -1.0156E+02          0
IMAGR4: Field    5 1012 1012 -1.7586E+02  1.0144E+02          0
IMAGR4: Field    6 1012 1012  1.7578E+02  1.0144E+02          0
IMAGR4: Field    7 1012 1012  2.4554E-02  2.0294E+02          0
IMAGR4: ZTXOP2: using translated file name =
IMAGR4: ZTXOP2: /tmp/SETFC@1331+305_X,BAND.0-1
IMAGR4: WINDF: Number of clean boxes/field read as follows:
IMAGR4: Field 01:   1  Field 02:   1  Field 03:   1  Field 04:   1
IMAGR4: Field 05:   1  Field 06:   1  Field 07:   1
IMAGR4: Create 1331+305    .IMAGR .   1 (UV)  on disk  1  cno   10
IMAGR4: Beginning channel    1 through    1 with  2 IFs
IMAGR4: IMACPY: Copied     1950 visibilities to be imaged
IMAGR4: **** WARNING data included out of inner portion of UV plane ****
IMAGR4: **** Watch for high-frequency & other poor cleaning effects ****
IMAGR4: UVWAIT: begin finding uniform weights
IMAGR4: UVWAIT: Average grid weight  3.578E+04
IMAGR4: UVWAIT: Adding temperance S  7.156E+03
IMAGR4: UVWAIT: begin applying uniform or other weights
IMAGR4: UVWAIT: Sum of weights in  1.929E+07 and out  2.261E+07
IMAGR4: UVWAIT: Noise is increased by a factor 1.114 due to weighting
IMAGR4: UVWAIT: Average summed weight  3.578E+04 over       3900 vis
IMAGR4: Create 1331+305    .IBM001.   1 (MA)  on disk  1  cno   11
IMAGR4: Create 1331+305    .IBM002.   1 (MA)  on disk  1  cno   12
IMAGR4: Create 1331+305    .IBM003.   1 (MA)  on disk  1  cno   13
IMAGR4: Create 1331+305    .IBM004.   1 (MA)  on disk  1  cno   14
IMAGR4: Create 1331+305    .IBM005.   1 (MA)  on disk  1  cno   15
IMAGR4: Create 1331+305    .IBM006.   1 (MA)  on disk  1  cno   16
IMAGR4: Create 1331+305    .IBM007.   1 (MA)  on disk  1  cno   17
IMAGR4: Create 1331+305    .ICL001.   1 (MA)  on disk  1  cno   18
IMAGR4: Create 1331+305    .ICL002.   1 (MA)  on disk  1  cno   19
IMAGR4: Create 1331+305    .ICL003.   1 (MA)  on disk  1  cno   20
IMAGR4: Create 1331+305    .ICL004.   1 (MA)  on disk  1  cno   21
IMAGR4: Create 1331+305    .ICL005.   1 (MA)  on disk  1  cno   22
IMAGR4: Create 1331+305    .ICL006.   1 (MA)  on disk  1  cno   23
IMAGR4: Create 1331+305    .ICL007.   1 (MA)  on disk  1  cno   24
IMAGR4: GRDFLT: X and Y convolution type = SPHEROIDAL
IMAGR4: GRDFLT: X and Y parms =  3.0000  1.0000
IMAGR4: GRDFLT: convolution function sampled every 1/100 of a cell
IMAGR4: GRDMEM: Ave    2 Channels; 8.435100E+09 to 8.485100E+09 Hz
IMAGR4: Field   1 Sum of gridding weights =  2.40085E+08
IMAGR4: Field   1 Beam min = -153.3 MilliJy, max =    1.0      Jy
IMAGR4: Field   1 fit FWHM =  826.204 x  734.826 Milliarcsec, PA=  -84.5
IMAGR4: Field   2 Sum of gridding weights =  2.40085E+08
IMAGR4: Field   2 Beam min = -153.3 MilliJy, max =    1.0      Jy
IMAGR4: Field   2 fit FWHM =  826.156 x  735.010 Milliarcsec, PA=  -84.6
IMAGR4: Field   3 Sum of gridding weights =  2.40084E+08
IMAGR4: Field   3 Beam min = -160.3 MilliJy, max =    1.0      Jy
IMAGR4: Field   3 fit FWHM =  826.614 x  734.940 Milliarcsec, PA=  -84.6
IMAGR4: Field   4 Sum of gridding weights =  2.40084E+08
IMAGR4: Field   4 Beam min = -106.6 MilliJy, max =    1.0      Jy
IMAGR4: Field   4 fit FWHM =  825.748 x  734.899 Milliarcsec, PA=  -84.4
IMAGR4: Field   5 Sum of gridding weights =  2.40084E+08
IMAGR4: Field   5 Beam min = -160.2 MilliJy, max =    1.0      Jy
IMAGR4: Field   5 fit FWHM =  826.663 x  734.757 Milliarcsec, PA=  -84.5
IMAGR4: Field   6 Sum of gridding weights =  2.40084E+08
IMAGR4: Field   6 Beam min = -106.6 MilliJy, max =    1.0      Jy
IMAGR4: Field   6 fit FWHM =  825.797 x  734.714 Milliarcsec, PA=  -84.3
IMAGR4: Field   7 Sum of gridding weights =  2.40084E+08
IMAGR4: Field   7 Beam min = -153.3 MilliJy, max =    1.0      Jy
IMAGR4: Field   7 fit FWHM =  826.255 x  734.644 Milliarcsec, PA=  -84.3
IMAGR4: CLBHIS: minimum component 0.500 of current peak
IMAGR4: Field   1 min = -466.7 MilliJy,max =    5.1      Jy
IMAGR4: Field   2 min = -463.7 MilliJy,max =    1.9      Jy
IMAGR4: Field   3 min = -469.4 MilliJy,max =    2.3      Jy
IMAGR4: Field   4 min = -462.8 MilliJy,max =    1.6      Jy
IMAGR4: Field   5 min = -478.5 MilliJy,max =    1.5      Jy
IMAGR4: Field   6 min = -615.3 MilliJy,max =    2.3      Jy
IMAGR4: Field   7 min = -471.8 MilliJy,max =    1.9      Jy
IMAGR4: BGC Clean: using 2043 cell beam + residuals >     1.04      Jy
IMAGR4:      749 Residual map points loaded
IMAGR4: Field    1 min algorithm flux=    3.352      Jy iter=        5
IMAGR4: Field    1 Clean flux density=    2.092      Jy        5 comps
IMAGR4: Total Cleaned flux density     =    2.092      Jy        5 comps
IMAGR4: SETDO3: imaging done with multiple tangent planes
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: VISDFT: Model components of type Point
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min = -278.4 MilliJy,max =    3.0      Jy
IMAGR4: BGC Clean: using 2043 cell beam + residuals >   681.65 MilliJy
IMAGR4:      453 Residual map points loaded
IMAGR4: Field    1 min allowed flux  =    1.482      Jy iter=       13
IMAGR4: Field    1 Clean flux density=    3.814      Jy       13 comps
IMAGR4: Total Cleaned flux density     =    3.814      Jy       13 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min = -129.0 MilliJy,max =  520.5 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  4.960E-01 < Second best  1.800E+00
IMAGR4: Field   7 min = -136.8 MilliJy,max =  544.6 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  5.190E-01 < Second best  1.615E+00
IMAGR4: Field   3 min = -136.1 MilliJy,max =  647.4 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  4.583E-01 < Second best  1.597E+00
IMAGR4: Field   6 min = -175.4 MilliJy,max =  632.2 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  4.501E-01 < Second best  1.410E+00
IMAGR4: Field   1 min = -143.2 MilliJy,max =    1.3      Jy
IMAGR4: BGC Clean: using 1977 cell beam + residuals >   437.33 MilliJy
IMAGR4:      101 Residual map points loaded
IMAGR4: Field    1 min algorithm flux=  669.932 MilliJy iter=       22
IMAGR4: Field    1 Clean flux density=    4.685      Jy       22 comps
IMAGR4: Total Cleaned flux density     =    4.685      Jy       22 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   5 min =  -73.8 MilliJy,max =  209.2 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.648E-01 < Second best  1.223E+00
IMAGR4: Field   4 min =  -89.0 MilliJy,max =  207.2 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.535E-01 < Second best  6.373E-01
IMAGR4: Field   1 min =  -94.4 MilliJy,max =  622.1 MilliJy
IMAGR4: BGC Clean: using 2021 cell beam + residuals >   148.70 MilliJy
IMAGR4:      566 Residual map points loaded
IMAGR4: Field    1 min allowed flux  =  295.780 MilliJy iter=       32
IMAGR4: Field    1 Clean flux density=    5.123      Jy       32 comps
IMAGR4: Total Cleaned flux density     =    5.123      Jy       32 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   7 min =  -63.9 MilliJy,max =  132.0 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.259E-01 < Second best  4.960E-01
IMAGR4: Field   2 min =  -61.0 MilliJy,max =  113.6 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.084E-01 < Second best  4.583E-01
IMAGR4: Field   3 min =  -56.6 MilliJy,max =  134.0 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.012E-01 < Second best  4.501E-01
IMAGR4: Field   6 min =  -56.1 MilliJy,max =  125.9 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  9.443E-02 < Second best  2.814E-01
IMAGR4: Field   1 min =  -79.0 MilliJy,max =  267.2 MilliJy
IMAGR4: BGC Clean: using 2043 cell beam + residuals >    60.15 MilliJy
IMAGR4:     1384 Residual map points loaded
IMAGR4: Field    1 min allowed flux  =  129.824 MilliJy iter=       42
IMAGR4: Field    1 Clean flux density=    5.313      Jy       42 comps
IMAGR4: Total Cleaned flux density     =    5.313      Jy       42 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   5 min =  -50.8 MilliJy,max =   69.4 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  6.620E-02 < Second best  1.535E-01
IMAGR4: Field   4 min =  -50.1 MilliJy,max =   53.0 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  4.569E-02 < Second best  1.259E-01
IMAGR4: Field   7 min =  -59.8 MilliJy,max =   75.0 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  7.166E-02 < Second best  1.236E-01
IMAGR4: Field   1 min = -109.8 MilliJy,max =  117.0 MilliJy
IMAGR4: BGC Clean: using 1977 cell beam + residuals >    38.30 MilliJy
IMAGR4:     1830 Residual map points loaded
IMAGR4: Field    1 min algorithm flux=   62.981 MilliJy iter=       74
IMAGR4: Field    1 Clean flux density=    5.282      Jy       74 comps
IMAGR4: Total Cleaned flux density     =    5.282      Jy       74 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min =  -38.6 MilliJy,max =   52.9 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  5.056E-02 < Second best  1.012E-01
IMAGR4: Field   3 min =  -35.4 MilliJy,max =   52.5 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  5.009E-02 < Second best  9.443E-02
IMAGR4: Field   6 min =  -36.5 MilliJy,max =   43.2 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  4.125E-02 < Second best  7.166E-02
IMAGR4: Field   7 min =  -41.1 MilliJy,max =   51.3 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  4.905E-02 < Second best  6.620E-02
IMAGR4: Field   5 min =  -40.2 MilliJy,max =   56.6 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  5.399E-02 < Second best  6.002E-02
IMAGR4: Field   1 min =  -60.9 MilliJy,max =   60.5 MilliJy
IMAGR4: BGC Clean: using  625 cell beam + residuals >    24.32 MilliJy
IMAGR4:     3433 Residual map points loaded
IMAGR4: Field    1 min algorithm flux=   36.922 MilliJy iter=      124
IMAGR4: Field    1 Clean flux density=    5.301      Jy      124 comps
IMAGR4: Total Cleaned flux density     =    5.301      Jy      124 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   5 min =  -32.4 MilliJy,max =   44.6 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  4.259E-02 < Second best  5.056E-02
IMAGR4: Field   2 min =  -30.4 MilliJy,max =   36.4 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  3.478E-02 < Second best  5.009E-02
IMAGR4: Field   3 min =  -31.2 MilliJy,max =   35.7 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  3.411E-02 < Second best  4.905E-02
IMAGR4: Field   7 min =  -31.6 MilliJy,max =   41.2 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  3.934E-02 < Second best  4.569E-02
IMAGR4: Field   4 min =  -31.5 MilliJy,max =   30.4 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  3.011E-02 < Second best  4.259E-02
IMAGR4: BGC Clean: using  625 cell beam + residuals >    23.52 MilliJy
IMAGR4:      415 Residual map points loaded
IMAGR4: Field    5 min algorithm flux=   28.752 MilliJy iter=       30
IMAGR4: Field    5 Clean flux density=   79.530 MilliJy       30 comps
IMAGR4: Total Cleaned flux density     =    5.381      Jy      154 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   6 min =  -27.2 MilliJy,max =   30.2 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  2.373E-02 < Second best  3.934E-02
IMAGR4: Field   7 min =  -29.5 MilliJy,max =   37.3 MilliJy
IMAGR4: BGC Clean: using 1101 cell beam + residuals >    19.44 MilliJy
IMAGR4:     1786 Residual map points loaded
IMAGR4: Field    7 min algorithm flux=   24.189 MilliJy iter=       42
IMAGR4: Field    7 Clean flux density=   42.086 MilliJy       42 comps
IMAGR4: Total Cleaned flux density     =    5.423      Jy      196 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =  -37.6 MilliJy,max =   27.6 MilliJy
IMAGR4: BGC Clean: using  625 cell beam + residuals >    17.23 MilliJy
IMAGR4:     1582 Residual map points loaded
IMAGR4: Field    1 min algorithm flux=  -21.753 MilliJy iter=      181
IMAGR4: Field    1 Clean flux density=    5.250      Jy      181 comps
IMAGR4: Total Cleaned flux density     =    5.372      Jy      253 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min =  -23.7 MilliJy,max =   23.8 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  2.275E-02 < Second best  3.411E-02
IMAGR4: Field   3 min =  -21.7 MilliJy,max =   25.9 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  2.471E-02 < Second best  3.011E-02
IMAGR4: Field   4 min =  -28.7 MilliJy,max =   26.8 MilliJy
IMAGR4: BGC Clean: using  625 cell beam + residuals >    17.23 MilliJy
IMAGR4:      404 Residual map points loaded
IMAGR4: Field    4 min algorithm flux=   19.643 MilliJy iter=       37
IMAGR4: Field    4 Clean flux density=  -23.480 MilliJy       37 comps
IMAGR4: Total Cleaned flux density     =    5.348      Jy      290 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   5 min =  -23.2 MilliJy,max =   25.5 MilliJy
IMAGR4: BGC Clean: using  623 cell beam + residuals >    15.97 MilliJy
IMAGR4:      435 Residual map points loaded
IMAGR4: Field    5 min algorithm flux=  -18.022 MilliJy iter=       69
IMAGR4: Field    5 Clean flux density=  109.613 MilliJy       69 comps
IMAGR4: Total Cleaned flux density     =    5.378      Jy      329 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   3 min =  -19.2 MilliJy,max =   23.6 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  2.254E-02 < Second best  2.373E-02
IMAGR4: Field   6 min =  -22.3 MilliJy,max =   22.9 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.938E-02 < Second best  2.312E-02
IMAGR4: Field   7 min =  -20.6 MilliJy,max =   24.5 MilliJy
IMAGR4: BGC Clean: using  625 cell beam + residuals >    14.53 MilliJy
IMAGR4:      930 Residual map points loaded
IMAGR4: Field    7 min algorithm flux=  -16.617 MilliJy iter=       92
IMAGR4: Field    7 Clean flux density=   76.610 MilliJy       92 comps
IMAGR4: Total Cleaned flux density     =    5.413      Jy      379 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min =  -22.1 MilliJy,max =   20.7 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  2.119E-02 < Second best  2.254E-02
IMAGR4: Field   3 min =  -17.9 MilliJy,max =   21.7 MilliJy
IMAGR4: BGC Clean: using  625 cell beam + residuals >    14.53 MilliJy
IMAGR4:      107 Residual map points loaded
IMAGR4: Field    3 min algorithm flux=   15.420 MilliJy iter=       25
IMAGR4: Field    3 Clean flux density=    8.983 MilliJy       25 comps
IMAGR4: Total Cleaned flux density     =    5.422      Jy      404 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min =  -21.6 MilliJy,max =   19.2 MilliJy
IMAGR4: BGC Clean: using  625 cell beam + residuals >    14.53 MilliJy
IMAGR4:      393 Residual map points loaded
IMAGR4: Field    2 min algorithm flux=  -15.997 MilliJy iter=       42
IMAGR4: Field    2 Clean flux density=  -28.675 MilliJy       42 comps
IMAGR4: Total Cleaned flux density     =    5.393      Jy      446 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =  -19.2 MilliJy,max =   19.6 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.833E-02 < Second best  1.938E-02
IMAGR4: Field   6 min =  -20.3 MilliJy,max =   21.2 MilliJy
IMAGR4: BGC Clean: using  623 cell beam + residuals >    12.19 MilliJy
IMAGR4:      573 Residual map points loaded
IMAGR4: Field    6 min algorithm flux=  -13.702 MilliJy iter=       54
IMAGR4: Field    6 Clean flux density=  -24.982 MilliJy       54 comps
IMAGR4: Total Cleaned flux density     =    5.368      Jy      500 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   4 min =  -18.3 MilliJy,max =   20.0 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.648E-02 < Second best  1.833E-02
IMAGR4: Field   1 min =  -17.7 MilliJy,max =   17.5 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >    11.50 MilliJy
IMAGR4:      660 Residual map points loaded
IMAGR4: Field    1 min algorithm flux=  -13.385 MilliJy iter=      266
IMAGR4: Field    1 Clean flux density=    5.240      Jy      266 comps
IMAGR4: Total Cleaned flux density     =    5.358      Jy      585 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   5 min =  -17.4 MilliJy,max =   18.1 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >    10.96 MilliJy
IMAGR4:      755 Residual map points loaded
IMAGR4: Field    5 min algorithm flux=   12.805 MilliJy iter=      170
IMAGR4: Field    5 Clean flux density=  112.588 MilliJy      170 comps
IMAGR4: Total Cleaned flux density     =    5.361      Jy      686 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   4 min =  -17.9 MilliJy,max =   20.2 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >    10.93 MilliJy
IMAGR4:     1211 Residual map points loaded
IMAGR4: Field    4 min algorithm flux=  -13.132 MilliJy iter=      181
IMAGR4: Field    4 Clean flux density=   30.041 MilliJy      181 comps
IMAGR4: Total Cleaned flux density     =    5.415      Jy      830 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   7 min =  -13.6 MilliJy,max =   16.1 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.300E-02 < Second best  1.530E-02
IMAGR4: Field   2 min =  -13.2 MilliJy,max =   12.2 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.259E-02 < Second best  1.474E-02
IMAGR4: Field   3 min =  -12.8 MilliJy,max =   12.1 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.225E-02 < Second best  1.310E-02
IMAGR4: Field   6 min =  -13.9 MilliJy,max =   16.2 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.143E-02 < Second best  1.300E-02
IMAGR4: BGC Clean: using  103 cell beam + residuals >     8.70 MilliJy
IMAGR4:     1154 Residual map points loaded
IMAGR4: Field    7 min algorithm flux=   10.162 MilliJy iter=      235
IMAGR4: Field    7 Clean flux density=   90.728 MilliJy      235 comps
IMAGR4: Total Cleaned flux density     =    5.429      Jy      973 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =  -15.9 MilliJy,max =   11.7 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.174E-02 < Second best  1.259E-02
IMAGR4: Field   2 min =  -14.3 MilliJy,max =   11.7 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     8.29 MilliJy
IMAGR4:     1135 Residual map points loaded
IMAGR4: Field    2 min algorithm flux=    9.675 MilliJy iter=      204
IMAGR4: Field    2 Clean flux density=  -93.475 MilliJy      204 comps
IMAGR4: Total Cleaned flux density     =    5.364      Jy     1135 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   4 min =  -12.5 MilliJy,max =   12.0 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.028E-02 < Second best  1.225E-02
IMAGR4: Field   3 min =  -10.8 MilliJy,max =   10.9 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.034E-02 < Second best  1.225E-02
IMAGR4: Field   5 min =  -13.0 MilliJy,max =   12.5 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.017E-02 < Second best  1.174E-02
IMAGR4: Field   1 min =  -13.1 MilliJy,max =   11.7 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     6.92 MilliJy
IMAGR4:      315 Residual map points loaded
IMAGR4: Field    1 min algorithm flux=   -7.451 MilliJy iter=      345
IMAGR4: Field    1 Clean flux density=    5.245      Jy      345 comps
IMAGR4: Total Cleaned flux density     =    5.369      Jy     1214 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   6 min =  -10.4 MilliJy,max =   11.5 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  9.790E-03 < Second best  1.034E-02
IMAGR4: Field   3 min =  -10.5 MilliJy,max =   10.5 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     6.77 MilliJy
IMAGR4:      728 Residual map points loaded
IMAGR4: Field    3 min algorithm flux=    7.616 MilliJy iter=      173
IMAGR4: Field    3 Clean flux density=   38.209 MilliJy      173 comps
IMAGR4: Total Cleaned flux density     =    5.398      Jy     1362 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   4 min =  -12.1 MilliJy,max =   12.4 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  9.541E-03 < Second best  1.017E-02
IMAGR4: Field   5 min =  -10.5 MilliJy,max =    9.8 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  9.077E-03 < Second best  9.790E-03
IMAGR4: Field   6 min =  -10.7 MilliJy,max =   11.6 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     6.69 MilliJy
IMAGR4:     1002 Residual map points loaded
IMAGR4: Field    6 min algorithm flux=    7.641 MilliJy iter=      245
IMAGR4: Field    6 Clean flux density=  -52.507 MilliJy      245 comps
IMAGR4: Total Cleaned flux density     =    5.371      Jy     1553 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   7 min =   -8.6 MilliJy,max =    9.2 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  8.237E-03 < Second best  9.541E-03
IMAGR4: Field   4 min =   -9.5 MilliJy,max =   10.3 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  7.844E-03 < Second best  9.256E-03
IMAGR4: Field   2 min =   -9.5 MilliJy,max =    9.4 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  7.301E-03 < Second best  9.077E-03
IMAGR4: Field   5 min =  -11.3 MilliJy,max =   10.9 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     5.34 MilliJy
IMAGR4:     1865 Residual map points loaded
IMAGR4: Field    5 min algorithm flux=   -6.209 MilliJy iter=      422
IMAGR4: Field    5 Clean flux density=  132.157 MilliJy      422 comps
IMAGR4: Total Cleaned flux density     =    5.390      Jy     1805 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   7 min =   -8.1 MilliJy,max =    8.3 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  7.191E-03 < Second best  7.844E-03
IMAGR4: Field   4 min =  -10.1 MilliJy,max =   10.2 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     5.32 MilliJy
IMAGR4:     1477 Residual map points loaded
IMAGR4: Field    4 min algorithm flux=    6.039 MilliJy iter=      419
IMAGR4: Field    4 Clean flux density=  -12.038 MilliJy      419 comps
IMAGR4: Total Cleaned flux density     =    5.348      Jy     2043 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   6 min =   -8.3 MilliJy,max =    8.1 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  6.476E-03 < Second best  7.301E-03
IMAGR4: Field   2 min =   -7.6 MilliJy,max =    7.4 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  6.225E-03 < Second best  7.287E-03
IMAGR4: Field   3 min =   -7.1 MilliJy,max =    7.7 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  6.810E-03 < Second best  7.191E-03
IMAGR4: Field   7 min =   -7.3 MilliJy,max =    9.1 MilliJy
IMAGR4: BGC Clean: using  623 cell beam + residuals >     4.98 MilliJy
IMAGR4:      593 Residual map points loaded
IMAGR4: Field    7 min algorithm flux=   -5.259 MilliJy iter=      329
IMAGR4: Field    7 Clean flux density=   92.274 MilliJy      329 comps
IMAGR4: Total Cleaned flux density     =    5.350      Jy     2137 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =   -7.4 MilliJy,max =    7.4 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  6.481E-03 < Second best  6.810E-03
IMAGR4: Field   3 min =   -6.6 MilliJy,max =    8.0 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     4.41 MilliJy
IMAGR4:      867 Residual map points loaded
IMAGR4: Field    3 min algorithm flux=    4.860 MilliJy iter=      373
IMAGR4: Field    3 Clean flux density=   66.525 MilliJy      373 comps
IMAGR4: Total Cleaned flux density     =    5.378      Jy     2337 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =   -7.9 MilliJy,max =    6.4 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  5.545E-03 < Second best  6.476E-03
IMAGR4: Field   6 min =   -8.1 MilliJy,max =    7.1 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  5.740E-03 < Second best  6.225E-03
IMAGR4: Field   2 min =   -6.1 MilliJy,max =    6.8 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     4.37 MilliJy
IMAGR4:      275 Residual map points loaded
IMAGR4: Field    2 min algorithm flux=    4.588 MilliJy iter=      313
IMAGR4: Field    2 Clean flux density=  -81.316 MilliJy      313 comps
IMAGR4: Total Cleaned flux density     =    5.390      Jy     2446 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   5 min =   -6.8 MilliJy,max =    6.4 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  5.214E-03 < Second best  5.782E-03
IMAGR4: Field   4 min =   -7.9 MilliJy,max =    7.9 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  5.188E-03 < Second best  5.740E-03
IMAGR4: Field   6 min =   -7.8 MilliJy,max =    6.4 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     3.69 MilliJy
IMAGR4:     2236 Residual map points loaded
IMAGR4: Field    6 min algorithm flux=   -4.232 MilliJy iter=      597
IMAGR4: Field    6 Clean flux density=  -68.569 MilliJy      597 comps
IMAGR4: Total Cleaned flux density     =    5.374      Jy     2798 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =   -5.8 MilliJy,max =    5.3 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     3.68 MilliJy
IMAGR4:      380 Residual map points loaded
IMAGR4: Field    1 min algorithm flux=   -3.877 MilliJy iter=      488
IMAGR4: Field    1 Clean flux density=    5.235      Jy      488 comps
IMAGR4: Total Cleaned flux density     =    5.364      Jy     2941 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   5 min =   -6.8 MilliJy,max =    6.2 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  4.811E-03 < Second best  5.188E-03
IMAGR4: Field   4 min =   -6.4 MilliJy,max =    6.8 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     3.66 MilliJy
IMAGR4:      188 Residual map points loaded
IMAGR4: Field    4 min algorithm flux=    3.769 MilliJy iter=      503
IMAGR4: Field    4 Clean flux density=  -14.414 MilliJy      503 comps
IMAGR4: Total Cleaned flux density     =    5.362      Jy     3025 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   7 min =   -5.1 MilliJy,max =    6.2 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     3.38 MilliJy
IMAGR4:      426 Residual map points loaded
IMAGR4: Field    7 min algorithm flux=   -3.583 MilliJy iter=      487
IMAGR4: Field    7 Clean flux density=  101.090 MilliJy      487 comps
IMAGR4: Total Cleaned flux density     =    5.371      Jy     3183 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   5 min =   -6.5 MilliJy,max =    6.2 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     3.37 MilliJy
IMAGR4:      912 Residual map points loaded
IMAGR4: Field    5 min algorithm flux=    3.659 MilliJy iter=      666
IMAGR4: Field    5 Clean flux density=  132.520 MilliJy      666 comps
IMAGR4: Total Cleaned flux density     =    5.371      Jy     3427 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   3 min =   -4.5 MilliJy,max =    5.5 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     3.18 MilliJy
IMAGR4:      461 Residual map points loaded
IMAGR4: Field    3 min algorithm flux=    3.336 MilliJy iter=      529
IMAGR4: Field    3 Clean flux density=   90.627 MilliJy      529 comps
IMAGR4: Total Cleaned flux density     =    5.395      Jy     3583 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min =   -4.8 MilliJy,max =    4.9 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     3.01 MilliJy
IMAGR4:      724 Residual map points loaded
IMAGR4: Field    2 min algorithm flux=    3.210 MilliJy iter=      550
IMAGR4: Field    2 Clean flux density=  -96.377 MilliJy      550 comps
IMAGR4: Total Cleaned flux density     =    5.380      Jy     3820 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   6 min =   -4.8 MilliJy,max =    4.5 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     2.78 MilliJy
IMAGR4:     1151 Residual map points loaded
IMAGR4: Field    6 min algorithm flux=    3.001 MilliJy iter=      869
IMAGR4: Field    6 Clean flux density=  -44.731 MilliJy      869 comps
IMAGR4: Total Cleaned flux density     =    5.404      Jy     4092 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =   -4.6 MilliJy,max =    3.5 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  2.959E-03 < Second best  3.607E-03
IMAGR4: Field   4 min =   -4.4 MilliJy,max =    4.3 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     2.62 MilliJy
IMAGR4:      710 Residual map points loaded
IMAGR4: Field    4 min algorithm flux=   -2.778 MilliJy iter=      712
IMAGR4: Field    4 Clean flux density=  -25.096 MilliJy      712 comps
IMAGR4: Total Cleaned flux density     =    5.393      Jy     4301 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   5 min =   -5.2 MilliJy,max =    5.1 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     2.52 MilliJy
IMAGR4:     1477 Residual map points loaded
IMAGR4: Field    5 min algorithm flux=    2.738 MilliJy iter=     1006
IMAGR4: Field    5 Clean flux density=  111.482 MilliJy     1006 comps
IMAGR4: Total Cleaned flux density     =    5.372      Jy     4641 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   7 min =   -3.6 MilliJy,max =    3.6 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     2.41 MilliJy
IMAGR4:      575 Residual map points loaded
IMAGR4: Field    7 min algorithm flux=   -2.533 MilliJy iter=      713
IMAGR4: Field    7 Clean flux density=  103.106 MilliJy      713 comps
IMAGR4: Total Cleaned flux density     =    5.374      Jy     4867 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   3 min =   -4.4 MilliJy,max =    4.1 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     2.34 MilliJy
IMAGR4:     1675 Residual map points loaded
IMAGR4: Field    3 min algorithm flux=   -2.552 MilliJy iter=      914
IMAGR4: Field    3 Clean flux density=  103.969 MilliJy      914 comps
IMAGR4: Total Cleaned flux density     =    5.388      Jy     5252 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min =   -3.9 MilliJy,max =    3.5 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     2.23 MilliJy
IMAGR4:      598 Residual map points loaded
IMAGR4: Field    2 min algorithm flux=    2.342 MilliJy iter=      794
IMAGR4: Field    2 Clean flux density= -104.450 MilliJy      794 comps
IMAGR4: Total Cleaned flux density     =    5.380      Jy     5496 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =   -3.5 MilliJy,max =    3.2 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     2.23 MilliJy
IMAGR4:       58 Residual map points loaded
IMAGR4: Field    1 min algorithm flux=   -2.248 MilliJy iter=      524
IMAGR4: Field    1 Clean flux density=    5.236      Jy      524 comps
IMAGR4: Total Cleaned flux density     =    5.381      Jy     5532 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   6 min =   -4.3 MilliJy,max =    3.8 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     2.12 MilliJy
IMAGR4:     1575 Residual map points loaded
IMAGR4: Field    6 min algorithm flux=   -2.269 MilliJy iter=     1211
IMAGR4: Field    6 Clean flux density=  -66.876 MilliJy     1211 comps
IMAGR4: Total Cleaned flux density     =    5.358      Jy     5874 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   4 min =   -3.2 MilliJy,max =    3.3 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     2.05 MilliJy
IMAGR4:      298 Residual map points loaded
IMAGR4: Field    4 min algorithm flux=    2.103 MilliJy iter=      837
IMAGR4: Field    4 Clean flux density=  -21.730 MilliJy      837 comps
IMAGR4: Total Cleaned flux density     =    5.362      Jy     5999 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   5 min =   -4.1 MilliJy,max =    3.9 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.94 MilliJy
IMAGR4:     1868 Residual map points loaded
IMAGR4: Field    5 min algorithm flux=   -2.095 MilliJy iter=     1420
IMAGR4: Field    5 Clean flux density=  131.342 MilliJy     1420 comps
IMAGR4: Total Cleaned flux density     =    5.382      Jy     6413 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   3 min =   -2.9 MilliJy,max =    3.2 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.85 MilliJy
IMAGR4:      663 Residual map points loaded
IMAGR4: Field    3 min algorithm flux=   -1.930 MilliJy iter=     1135
IMAGR4: Field    3 Clean flux density=  105.667 MilliJy     1135 comps
IMAGR4: Total Cleaned flux density     =    5.383      Jy     6634 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   7 min =   -2.8 MilliJy,max =    3.0 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.78 MilliJy
IMAGR4:      954 Residual map points loaded
IMAGR4: Field    7 min algorithm flux=   -1.868 MilliJy iter=     1031
IMAGR4: Field    7 Clean flux density=  109.797 MilliJy     1031 comps
IMAGR4: Total Cleaned flux density     =    5.390      Jy     6952 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min =   -2.9 MilliJy,max =    3.0 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.73 MilliJy
IMAGR4:     1375 Residual map points loaded
IMAGR4: Field    2 min algorithm flux=   -1.830 MilliJy iter=     1194
IMAGR4: Field    2 Clean flux density= -101.254 MilliJy     1194 comps
IMAGR4: Total Cleaned flux density     =    5.393      Jy     7352 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   6 min =   -3.2 MilliJy,max =    2.9 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.64 MilliJy
IMAGR4:     1518 Residual map points loaded
IMAGR4: Field    6 min algorithm flux=    1.735 MilliJy iter=     1592
IMAGR4: Field    6 Clean flux density=  -65.041 MilliJy     1592 comps
IMAGR4: Total Cleaned flux density     =    5.395      Jy     7733 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =   -2.2 MilliJy,max =    1.9 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.911E-03 < Second best  2.014E-03
IMAGR4: Field   4 min =   -2.9 MilliJy,max =    2.8 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.59 MilliJy
IMAGR4:      891 Residual map points loaded
IMAGR4: Field    4 min algorithm flux=   -1.657 MilliJy iter=     1129
IMAGR4: Field    4 Clean flux density=  -20.908 MilliJy     1129 comps
IMAGR4: Total Cleaned flux density     =    5.396      Jy     8025 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   5 min =   -3.1 MilliJy,max =    3.5 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.51 MilliJy
IMAGR4:     2758 Residual map points loaded
IMAGR4: Field    5 min algorithm flux=    1.639 MilliJy iter=     1997
IMAGR4: Field    5 Clean flux density=  121.280 MilliJy     1997 comps
IMAGR4: Total Cleaned flux density     =    5.386      Jy     8602 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =   -2.3 MilliJy,max =    2.1 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.52 MilliJy
IMAGR4:      409 Residual map points loaded
IMAGR4: Field    1 min algorithm flux=    1.559 MilliJy iter=      728
IMAGR4: Field    1 Clean flux density=    5.227      Jy      728 comps
IMAGR4: Total Cleaned flux density     =    5.376      Jy     8806 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   3 min =   -2.4 MilliJy,max =    2.6 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.48 MilliJy
IMAGR4:      723 Residual map points loaded
IMAGR4: Field    3 min algorithm flux=    1.537 MilliJy iter=     1362
IMAGR4: Field    3 Clean flux density=  124.664 MilliJy     1362 comps
IMAGR4: Total Cleaned flux density     =    5.395      Jy     9033 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   7 min =   -2.5 MilliJy,max =    2.5 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.44 MilliJy
IMAGR4:      750 Residual map points loaded
IMAGR4: Field    7 min algorithm flux=   -1.495 MilliJy iter=     1280
IMAGR4: Field    7 Clean flux density=  118.784 MilliJy     1280 comps
IMAGR4: Total Cleaned flux density     =    5.404      Jy     9282 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min =   -2.7 MilliJy,max =    2.3 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.38 MilliJy
IMAGR4:      858 Residual map points loaded
IMAGR4: Field    2 min algorithm flux=   -1.431 MilliJy iter=     1503
IMAGR4: Field    2 Clean flux density= -113.017 MilliJy     1503 comps
IMAGR4: Total Cleaned flux density     =    5.392      Jy     9591 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   6 min =   -2.8 MilliJy,max =    2.4 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.33 MilliJy
IMAGR4:     1352 Residual map points loaded
IMAGR4: Field    6 min algorithm flux=    1.387 MilliJy iter=     1941
IMAGR4: Field    6 Clean flux density=  -67.748 MilliJy     1941 comps
IMAGR4: Total Cleaned flux density     =    5.390      Jy     9940 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   4 min =   -2.6 MilliJy,max =    2.4 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.30 MilliJy
IMAGR4:     1347 Residual map points loaded
IMAGR4: Field    4 min algorithm flux=    1.362 MilliJy iter=     1512
IMAGR4: Field    4 Clean flux density=  -32.346 MilliJy     1512 comps
IMAGR4: Total Cleaned flux density     =    5.378      Jy    10323 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   5 min =   -2.4 MilliJy,max =    2.7 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.23 MilliJy
IMAGR4:     2355 Residual map points loaded
IMAGR4: Field    5 min algorithm flux=    1.309 MilliJy iter=     2541
IMAGR4: Field    5 Clean flux density=  133.077 MilliJy     2541 comps
IMAGR4: Total Cleaned flux density     =    5.390      Jy    10867 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =   -1.9 MilliJy,max =    1.8 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.21 MilliJy
IMAGR4:     1066 Residual map points loaded
IMAGR4: Field    1 min algorithm flux=   -1.262 MilliJy iter=     1108
IMAGR4: Field    1 Clean flux density=    5.218      Jy     1108 comps
IMAGR4: Total Cleaned flux density     =    5.382      Jy    11247 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   3 min =   -2.0 MilliJy,max =    2.5 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.19 MilliJy
IMAGR4:     1317 Residual map points loaded
IMAGR4: Field    3 min algorithm flux=   -1.243 MilliJy iter=     1749
IMAGR4: Field    3 Clean flux density=  125.482 MilliJy     1749 comps
IMAGR4: Total Cleaned flux density     =    5.382      Jy    11634 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   7 min =   -2.1 MilliJy,max =    2.7 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.17 MilliJy
IMAGR4:     1895 Residual map points loaded
IMAGR4: Field    7 min algorithm flux=    1.234 MilliJy iter=     1774
IMAGR4: Field    7 Clean flux density=  131.927 MilliJy     1774 comps
IMAGR4: Total Cleaned flux density     =    5.396      Jy    12128 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min =   -2.6 MilliJy,max =    2.3 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.16 MilliJy
IMAGR4:     3391 Residual map points loaded
IMAGR4: Field    2 min algorithm flux=    1.248 MilliJy iter=     2252
IMAGR4: Field    2 Clean flux density= -144.531 MilliJy     2252 comps
IMAGR4: Total Cleaned flux density     =    5.364      Jy    12877 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   6 min =   -2.5 MilliJy,max =    2.6 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.19 MilliJy
IMAGR4:     6899 Residual map points loaded
IMAGR4: Field    6 min algorithm flux=    1.318 MilliJy iter=     3141
IMAGR4: Field    6 Clean flux density=   -8.614 MilliJy     3141 comps
IMAGR4: Total Cleaned flux density     =    5.423      Jy    14077 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   4 min =   -4.1 MilliJy,max =    3.0 MilliJy
IMAGR4: BGC Clean: using  625 cell beam + residuals >     1.57 MilliJy
IMAGR4:     4984 Residual map points loaded
IMAGR4: Field    4 min allowed flux  =   -2.029 MilliJy iter=     1619
IMAGR4: Field    4 Clean flux density=  -50.995 MilliJy     1619 comps
IMAGR4: Total Cleaned flux density     =    5.405      Jy    14184 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   4 min =   -2.6 MilliJy,max =    2.5 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.21 MilliJy
IMAGR4:     5420 Residual map points loaded
IMAGR4: Field    4 min algorithm flux=    1.329 MilliJy iter=     2847
IMAGR4: Field    4 Clean flux density=  -46.798 MilliJy     2847 comps
IMAGR4: Total Cleaned flux density     =    5.409      Jy    15412 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   4 min =   -3.2 MilliJy,max =    2.4 MilliJy
IMAGR4: BGC Clean: using  623 cell beam + residuals >     1.36 MilliJy
IMAGR4:     4714 Residual map points loaded
IMAGR4: Field    4 min allowed flux  =   -1.593 MilliJy iter=     3002
IMAGR4: Field    4 Clean flux density=  -68.080 MilliJy     3002 comps
IMAGR4: Total Cleaned flux density     =    5.388      Jy    15567 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   4 min =   -2.2 MilliJy,max =    2.0 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.17 MilliJy
IMAGR4:      240 Residual map points loaded
IMAGR4: Field    4 min algorithm flux=    1.178 MilliJy iter=     3152
IMAGR4: Field    4 Clean flux density=  -61.012 MilliJy     3152 comps
IMAGR4: Total Cleaned flux density     =    5.395      Jy    15717 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   6 min =   -1.6 MilliJy,max =    1.9 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.10 MilliJy
IMAGR4:      668 Residual map points loaded
IMAGR4: Field    6 min algorithm flux=    1.137 MilliJy iter=     3437
IMAGR4: Field    6 Clean flux density=  -11.262 MilliJy     3437 comps
IMAGR4: Total Cleaned flux density     =    5.392      Jy    16013 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   5 min =   -2.5 MilliJy,max =    3.0 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.14 MilliJy
IMAGR4:     8818 Residual map points loaded
IMAGR4: Field    5 min algorithm flux=   -1.261 MilliJy iter=     4068
IMAGR4: Field    5 Clean flux density=  131.029 MilliJy     4068 comps
IMAGR4: Total Cleaned flux density     =    5.390      Jy    17540 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =   -3.0 MilliJy,max =    3.0 MilliJy
IMAGR4: BGC Clean: using  477 cell beam + residuals >     1.28 MilliJy
IMAGR4:    12988 Residual map points loaded
IMAGR4: Field    1 min allowed flux  =    1.482 MilliJy iter=     1532
IMAGR4: Field    1 Clean flux density=    5.228      Jy     1532 comps
IMAGR4: Total Cleaned flux density     =    5.399      Jy    17964 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =   -1.5 MilliJy,max =    1.8 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.12 MilliJy
IMAGR4:       34 Residual map points loaded
IMAGR4: Field    1 min algorithm flux=   -1.123 MilliJy iter=     1558
IMAGR4: Field    1 Clean flux density=    5.228      Jy     1558 comps
IMAGR4: Total Cleaned flux density     =    5.400      Jy    17990 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   5 min =   -2.0 MilliJy,max =    2.4 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.04 MilliJy
IMAGR4:     1884 Residual map points loaded
IMAGR4: Field    5 min algorithm flux=    1.097 MilliJy iter=     4738
IMAGR4: Field    5 Clean flux density=  147.971 MilliJy     4738 comps
IMAGR4: Total Cleaned flux density     =    5.417      Jy    18660 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min =   -2.0 MilliJy,max =    1.9 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.01 MilliJy
IMAGR4:     3483 Residual map points loaded
IMAGR4: Field    2 min algorithm flux=    1.074 MilliJy iter=     3117
IMAGR4: Field    2 Clean flux density= -188.999 MilliJy     3117 comps
IMAGR4: Total Cleaned flux density     =    5.372      Jy    19525 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   3 min =   -2.1 MilliJy,max =    2.4 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.02 MilliJy
IMAGR4:     6033 Residual map points loaded
IMAGR4: Field    3 min algorithm flux=    1.114 MilliJy iter=     3241
IMAGR4: Field    3 Clean flux density=  201.222 MilliJy     3241 comps
IMAGR4: Total Cleaned flux density     =    5.448      Jy    21017 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   7 min =   -3.7 MilliJy,max =    2.9 MilliJy
IMAGR4: BGC Clean: using  625 cell beam + residuals >     1.43 MilliJy
IMAGR4:     9503 Residual map points loaded
IMAGR4: Field    7 min allowed flux  =   -1.848 MilliJy iter=     1949
IMAGR4: Field    7 Clean flux density=  109.819 MilliJy     1949 comps
IMAGR4: Total Cleaned flux density     =    5.426      Jy    21192 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   7 min =   -2.3 MilliJy,max =    2.5 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.04 MilliJy
IMAGR4:     8357 Residual map points loaded
IMAGR4: Field    7 min algorithm flux=   -1.147 MilliJy iter=     3801
IMAGR4: Field    7 Clean flux density=  115.808 MilliJy     3801 comps
IMAGR4: Total Cleaned flux density     =    5.432      Jy    23044 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   4 min =   -3.4 MilliJy,max =    3.3 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.22 MilliJy
IMAGR4:    15041 Residual map points loaded
IMAGR4: Field    4 min algorithm flux=   -1.382 MilliJy iter=     5690
IMAGR4: Field    4 Clean flux density=  -86.131 MilliJy     5690 comps
IMAGR4: Total Cleaned flux density     =    5.407      Jy    25582 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   4 min =   -7.4 MilliJy,max =    9.0 MilliJy
IMAGR4: BGC Clean: using 1569 cell beam + residuals >     2.72 MilliJy
IMAGR4:    19318 Residual map points loaded
IMAGR4: Field    4 min allowed flux  =    4.519 MilliJy iter=     5751
IMAGR4: Field    4 Clean flux density=  -78.928 MilliJy     5751 comps
IMAGR4: Total Cleaned flux density     =    5.414      Jy    25643 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   4 min =   -4.4 MilliJy,max =    4.8 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     2.18 MilliJy
IMAGR4:    19992 Residual map points loaded
IMAGR4: SOMETHING IS GOING WRONG - ABANDON CLEAN
IMAGR4: Field    4 min algorithm flux=    3.301 MilliJy iter=     6427
IMAGR4: Field    4 Clean flux density=  -66.381 MilliJy     6427 comps
IMAGR4: Total Cleaned flux density     =    5.427      Jy    26319 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   4 min =   -6.3 MilliJy,max =    6.3 MilliJy
IMAGR4: BGC Clean: using 1977 cell beam + residuals >     1.87 MilliJy
IMAGR4:    10273 Residual map points loaded
IMAGR4: Field    4 min allowed flux  =    3.132 MilliJy iter=     6475
IMAGR4: Field    4 Clean flux density=  -65.850 MilliJy     6475 comps
IMAGR4: Total Cleaned flux density     =    5.427      Jy    26367 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   4 min =   -3.1 MilliJy,max =    3.1 MilliJy
IMAGR4: BGC Clean: using  623 cell beam + residuals >     1.33 MilliJy
IMAGR4:    13301 Residual map points loaded
IMAGR4: Field    4 min allowed flux  =   -1.536 MilliJy iter=     6800
IMAGR4: Field    4 Clean flux density=  -68.070 MilliJy     6800 comps
IMAGR4: Total Cleaned flux density     =    5.425      Jy    26692 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   4 min =   -2.0 MilliJy,max =    1.9 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.04 MilliJy
IMAGR4:      248 Residual map points loaded
IMAGR4: Field    4 min algorithm flux=    1.048 MilliJy iter=     6966
IMAGR4: Field    4 Clean flux density=  -66.870 MilliJy     6966 comps
IMAGR4: Total Cleaned flux density     =    5.426      Jy    26858 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   7 min =   -2.6 MilliJy,max =    2.4 MilliJy
IMAGR4: BGC Clean: using  623 cell beam + residuals >     1.09 MilliJy
IMAGR4:     9483 Residual map points loaded
IMAGR4: Field    7 min allowed flux  =   -1.278 MilliJy iter=     4080
IMAGR4: Field    7 Clean flux density=  110.971 MilliJy     4080 comps
IMAGR4: Total Cleaned flux density     =    5.421      Jy    27137 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   7 min =   -1.6 MilliJy,max =    1.3 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   967.96 MicroJy
IMAGR4:      188 Residual map points loaded
IMAGR4: Field    7 min algorithm flux= -973.691 MicroJy iter=     4194
IMAGR4: Field    7 Clean flux density=  109.478 MilliJy     4194 comps
IMAGR4: Total Cleaned flux density     =    5.420      Jy    27251 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   6 min =   -1.5 MilliJy,max =    1.6 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   954.29 MicroJy
IMAGR4:      302 Residual map points loaded
IMAGR4: Field    6 min algorithm flux= -962.905 MicroJy iter=     3597
IMAGR4: Field    6 Clean flux density=   -8.298 MilliJy     3597 comps
IMAGR4: Total Cleaned flux density     =    5.423      Jy    27411 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =   -1.3 MilliJy,max =    1.4 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   953.91 MicroJy
IMAGR4:      327 Residual map points loaded
IMAGR4: Field    1 min algorithm flux= -962.550 MicroJy iter=     1713
IMAGR4: Field    1 Clean flux density=    5.231      Jy     1713 comps
IMAGR4: Total Cleaned flux density     =    5.426      Jy    27566 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   3 min =   -1.8 MilliJy,max =    2.3 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   910.68 MicroJy
IMAGR4:     4328 Residual map points loaded
IMAGR4: Field    3 min algorithm flux=  963.454 MicroJy iter=     4363
IMAGR4: Field    3 Clean flux density=  188.228 MilliJy     4363 comps
IMAGR4: Total Cleaned flux density     =    5.413      Jy    28688 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   5 min =   -2.4 MilliJy,max =    2.3 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   933.32 MicroJy
IMAGR4:     8212 Residual map points loaded
IMAGR4: Field    5 min algorithm flux=    1.017 MilliJy iter=     6793
IMAGR4: Field    5 Clean flux density=  186.095 MilliJy     6793 comps
IMAGR4: Total Cleaned flux density     =    5.451      Jy    30743 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min =   -3.4 MilliJy,max =    3.3 MilliJy
IMAGR4: BGC Clean: using  623 cell beam + residuals >     1.36 MilliJy
IMAGR4:    12029 Residual map points loaded
IMAGR4: Field    2 min allowed flux  =   -1.607 MilliJy iter=     3464
IMAGR4: Field    2 Clean flux density= -212.783 MilliJy     3464 comps
IMAGR4: Total Cleaned flux density     =    5.427      Jy    31090 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min =   -1.9 MilliJy,max =    2.1 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   921.36 MicroJy
IMAGR4:     4668 Residual map points loaded
IMAGR4: Field    2 min algorithm flux= -972.324 MicroJy iter=     4822
IMAGR4: Field    2 Clean flux density= -202.939 MilliJy     4822 comps
IMAGR4: Total Cleaned flux density     =    5.437      Jy    32448 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   4 min =   -2.2 MilliJy,max =    2.0 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   958.03 MicroJy
IMAGR4:     6071 Residual map points loaded
IMAGR4: Field    4 min algorithm flux=    1.022 MilliJy iter=     8510
IMAGR4: Field    4 Clean flux density=  -68.484 MilliJy     8510 comps
IMAGR4: Total Cleaned flux density     =    5.436      Jy    33992 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   4 min =   -4.3 MilliJy,max =    4.0 MilliJy
IMAGR4: BGC Clean: using 1977 cell beam + residuals >     1.26 MilliJy
IMAGR4:    18718 Residual map points loaded
IMAGR4: Field    4 min allowed flux  =   -2.125 MilliJy iter=     8568
IMAGR4: Field    4 Clean flux density=  -66.327 MilliJy     8568 comps
IMAGR4: Total Cleaned flux density     =    5.438      Jy    34050 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   4 min =   -2.1 MilliJy,max =    2.5 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.05 MilliJy
IMAGR4:    13547 Residual map points loaded
IMAGR4: SOMETHING IS GOING WRONG - ABANDON CLEAN
IMAGR4: Field    4 min algorithm flux=    1.504 MilliJy iter=     9178
IMAGR4: Field    4 Clean flux density=  -53.067 MilliJy     9178 comps
IMAGR4: Total Cleaned flux density     =    5.451      Jy    34660 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   4 min =   -3.3 MilliJy,max =    3.0 MilliJy
IMAGR4: BGC Clean: using 1569 cell beam + residuals >   999.02 MicroJy
IMAGR4:     8657 Residual map points loaded
IMAGR4: Field    4 min allowed flux  =   -1.657 MilliJy iter=     9226
IMAGR4: Field    4 Clean flux density=  -56.139 MilliJy     9226 comps
IMAGR4: Total Cleaned flux density     =    5.448      Jy    34708 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   4 min =   -1.8 MilliJy,max =    1.6 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   930.84 MicroJy
IMAGR4:     2519 Residual map points loaded
IMAGR4: Field    4 min algorithm flux=  969.652 MicroJy iter=    10177
IMAGR4: Field    4 Clean flux density=  -85.544 MilliJy    10177 comps
IMAGR4: Total Cleaned flux density     =    5.418      Jy    35659 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   5 min =   -2.7 MilliJy,max =    3.3 MilliJy
IMAGR4: BGC Clean: using  623 cell beam + residuals >     1.28 MilliJy
IMAGR4:    15001 Residual map points loaded
IMAGR4: Field    5 min allowed flux  =    1.500 MilliJy iter=     7170
IMAGR4: Field    5 Clean flux density=  184.366 MilliJy     7170 comps
IMAGR4: Total Cleaned flux density     =    5.417      Jy    36036 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   5 min =   -1.9 MilliJy,max =    2.0 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   884.63 MicroJy
IMAGR4:     2416 Residual map points loaded
IMAGR4: Field    5 min algorithm flux=  916.346 MicroJy iter=     8093
IMAGR4: Field    5 Clean flux density=  188.662 MilliJy     8093 comps
IMAGR4: Total Cleaned flux density     =    5.421      Jy    36959 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   7 min =   -1.5 MilliJy,max =    1.7 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   897.74 MicroJy
IMAGR4:     2885 Residual map points loaded
IMAGR4: Field    7 min algorithm flux=  935.246 MicroJy iter=     5078
IMAGR4: Field    7 Clean flux density=  128.175 MilliJy     5078 comps
IMAGR4: Total Cleaned flux density     =    5.440      Jy    37843 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min =   -2.1 MilliJy,max =    2.5 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   929.94 MicroJy
IMAGR4:     9314 Residual map points loaded
IMAGR4: Field    2 min algorithm flux=    1.002 MilliJy iter=     7042
IMAGR4: Field    2 Clean flux density= -213.825 MilliJy     7042 comps
IMAGR4: Total Cleaned flux density     =    5.429      Jy    40063 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min =   -4.8 MilliJy,max =    5.2 MilliJy
IMAGR4: BGC Clean: using  625 cell beam + residuals >     2.03 MilliJy
IMAGR4:    11921 Residual map points loaded
IMAGR4: Field    2 min allowed flux  =    2.618 MilliJy iter=     7238
IMAGR4: Field    2 Clean flux density= -201.467 MilliJy     7238 comps
IMAGR4: Total Cleaned flux density     =    5.441      Jy    40259 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min =   -2.1 MilliJy,max =    2.1 MilliJy
IMAGR4: BGC Clean: using  623 cell beam + residuals >     1.11 MilliJy
IMAGR4:     8201 Residual map points loaded
IMAGR4: Field    2 min algorithm flux=   -1.142 MilliJy iter=     7636
IMAGR4: Field    2 Clean flux density= -208.063 MilliJy     7636 comps
IMAGR4: Total Cleaned flux density     =    5.435      Jy    40657 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min =   -1.4 MilliJy,max =    1.1 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  8.789E-04 < Second best  9.275E-04
IMAGR4: Field   4 min =   -2.0 MilliJy,max =    1.7 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   853.05 MicroJy
IMAGR4:     3242 Residual map points loaded
IMAGR4: Field    4 min algorithm flux= -888.827 MicroJy iter=    11105
IMAGR4: Field    4 Clean flux density=  -72.729 MilliJy    11105 comps
IMAGR4: Total Cleaned flux density     =    5.447      Jy    41585 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   3 min =   -1.8 MilliJy,max =    1.7 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   874.32 MicroJy
IMAGR4:     9476 Residual map points loaded
IMAGR4: Field    3 min algorithm flux= -932.857 MicroJy iter=     6423
IMAGR4: Field    3 Clean flux density=  172.163 MilliJy     6423 comps
IMAGR4: Total Cleaned flux density     =    5.431      Jy    43645 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   6 min =   -3.3 MilliJy,max =    3.2 MilliJy
IMAGR4: BGC Clean: using  477 cell beam + residuals >     1.30 MilliJy
IMAGR4:    18635 Residual map points loaded
IMAGR4: SOMETHING IS GOING WRONG - ABANDON CLEAN
IMAGR4: Field    6 min algorithm flux=    1.844 MilliJy iter=     3822
IMAGR4: Field    6 Clean flux density=   -9.587 MilliJy     3822 comps
IMAGR4: Total Cleaned flux density     =    5.430      Jy    43870 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   6 min =   -2.0 MilliJy,max =    2.3 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   958.84 MicroJy
IMAGR4:    10934 Residual map points loaded
IMAGR4: SOMETHING IS GOING WRONG - ABANDON CLEAN
IMAGR4: Field    6 min algorithm flux=    1.390 MilliJy iter=     3907
IMAGR4: Field    6 Clean flux density=   -7.711 MilliJy     3907 comps
IMAGR4: Total Cleaned flux density     =    5.432      Jy    43955 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   6 min =   -2.0 MilliJy,max =    2.1 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   916.70 MicroJy
IMAGR4:     6703 Residual map points loaded
IMAGR4: Field    6 min algorithm flux=  961.971 MicroJy iter=     5652
IMAGR4: Field    6 Clean flux density=   -4.294 MilliJy     5652 comps
IMAGR4: Total Cleaned flux density     =    5.435      Jy    45700 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   6 min =   -1.9 MilliJy,max =    2.0 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   933.12 MicroJy
IMAGR4:     8512 Residual map points loaded
IMAGR4: SOMETHING IS GOING WRONG - ABANDON CLEAN
IMAGR4: Field    6 min algorithm flux=    1.267 MilliJy iter=     6070
IMAGR4: Field    6 Clean flux density=  -11.180 MilliJy     6070 comps
IMAGR4: Total Cleaned flux density     =    5.428      Jy    46118 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   6 min =   -1.3 MilliJy,max =    1.5 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   870.64 MicroJy
IMAGR4:      123 Residual map points loaded
IMAGR4: Field    6 min Clean flux    = -886.375 MicroJy iter=     6138
IMAGR4: Field    6 Clean flux density=   -6.867 MilliJy     6138 comps
IMAGR4: Total Cleaned flux density     =    5.433      Jy    46186 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =   -1.8 MilliJy,max =    1.6 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   910.30 MicroJy
IMAGR4:     6512 Residual map points loaded
IMAGR4: Field    1 min algorithm flux= -957.747 MicroJy iter=     3337
IMAGR4: Field    1 Clean flux density=    5.215      Jy     3337 comps
IMAGR4: Total Cleaned flux density     =    5.416      Jy    47810 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =   -3.8 MilliJy,max =    4.9 MilliJy
IMAGR4: BGC Clean: using 1977 cell beam + residuals >     1.46 MilliJy
IMAGR4:    15877 Residual map points loaded
IMAGR4: Field    1 min allowed flux  =    2.457 MilliJy iter=     3388
IMAGR4: Field    1 Clean flux density=    5.220      Jy     3388 comps
IMAGR4: Total Cleaned flux density     =    5.422      Jy    47861 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =   -2.4 MilliJy,max =    2.4 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.12 MilliJy
IMAGR4:    18053 Residual map points loaded
IMAGR4: Field    1 min algorithm flux=   -1.234 MilliJy iter=     7078
IMAGR4: Field    1 Clean flux density=    5.293      Jy     7078 comps
IMAGR4: Total Cleaned flux density     =    5.494      Jy    51551 comps
IMAGR4: ALGSTB: All   567 Rows In AP (Max   1035)
IMAGR4: ALGSTB field    1 Ipol gridded model subtraction chns    1-    2
IMAGR4: ALGSTB: Pass   1;  556-   0 Cells, with     1950 Pts
IMAGR4: Field   1 min =  -17.7 MilliJy,max =   16.2 MilliJy
IMAGR4: BGC Clean: using  625 cell beam + residuals >     6.83 MilliJy
IMAGR4:    11289 Residual map points loaded
IMAGR4: Field    1 min allowed flux  =   -8.832 MilliJy iter=     7249
IMAGR4: Field    1 Clean flux density=    5.240      Jy     7249 comps
IMAGR4: Total Cleaned flux density     =    5.441      Jy    51722 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =   -7.2 MilliJy,max =    6.9 MilliJy
IMAGR4: BGC Clean: using  625 cell beam + residuals >     3.41 MilliJy
IMAGR4:     8661 Residual map points loaded
IMAGR4: Field    1 min allowed flux  =    3.572 MilliJy iter=     7521
IMAGR4: Field    1 Clean flux density=    5.243      Jy     7521 comps
IMAGR4: Total Cleaned flux density     =    5.444      Jy    51994 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =   -2.9 MilliJy,max =    2.8 MilliJy
IMAGR4: BGC Clean: using  625 cell beam + residuals >     1.38 MilliJy
IMAGR4:    16717 Residual map points loaded
IMAGR4: Field    1 min allowed flux  =   -1.453 MilliJy iter=     7969
IMAGR4: Field    1 Clean flux density=    5.243      Jy     7969 comps
IMAGR4: Total Cleaned flux density     =    5.444      Jy    52442 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =   -1.4 MilliJy,max =    1.3 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   867.24 MicroJy
IMAGR4:      443 Residual map points loaded
IMAGR4: Field    1 min Clean flux    =  886.672 MicroJy iter=     8193
IMAGR4: Field    1 Clean flux density=    5.241      Jy     8193 comps
IMAGR4: Total Cleaned flux density     =    5.442      Jy    52666 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   7 min =   -1.6 MilliJy,max =    1.5 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   844.07 MicroJy
IMAGR4:      904 Residual map points loaded
IMAGR4: Field    7 min Clean flux    =  886.575 MicroJy iter=     5387
IMAGR4: Field    7 Clean flux density=  128.811 MilliJy     5387 comps
IMAGR4: Total Cleaned flux density     =    5.443      Jy    52975 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   3 min =   -1.3 MilliJy,max =    1.6 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   753.41 MicroJy
IMAGR4:     2377 Residual map points loaded
IMAGR4: Field    3 min Clean flux    = -885.939 MicroJy iter=     6698
IMAGR4: Field    3 Clean flux density=  174.979 MilliJy     6698 comps
IMAGR4: Total Cleaned flux density     =    5.446      Jy    53250 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min =   -1.3 MilliJy,max =    1.3 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   744.37 MicroJy
IMAGR4:     1017 Residual map points loaded
IMAGR4: Field    2 min Clean flux    =  886.718 MicroJy iter=     7712
IMAGR4: Field    2 Clean flux density= -209.236 MilliJy     7712 comps
IMAGR4: Total Cleaned flux density     =    5.444      Jy    53326 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   5 min =   -1.5 MilliJy,max =    1.9 MilliJy
IMAGR4: BGC Clean: using  623 cell beam + residuals >   723.16 MicroJy
IMAGR4:     1752 Residual map points loaded
IMAGR4: Field    5 min Clean flux    =  885.488 MicroJy iter=     8168
IMAGR4: Field    5 Clean flux density=  188.765 MilliJy     8168 comps
IMAGR4: Total Cleaned flux density     =    5.444      Jy    53401 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   4 min =   -1.7 MilliJy,max =    1.5 MilliJy
IMAGR4: BGC Clean: using  623 cell beam + residuals >   550.07 MicroJy
IMAGR4:    17520 Residual map points loaded
IMAGR4: Field    4 min Clean flux    =  886.749 MicroJy iter=    11202
IMAGR4: Field    4 Clean flux density=  -72.537 MilliJy    11202 comps
IMAGR4: Total Cleaned flux density     =    5.445      Jy    53498 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Peak residual in window 886.749 less than limit 886.758 MicroJy
IMAGR4: Merging the Clean components files
IMAGR4: Field    1 compressed from      8193 to      4283 components
IMAGR4: Field    2 compressed from      7712 to      4938 components
IMAGR4: Field    3 compressed from      6698 to      4415 components
IMAGR4: Field    4 compressed from     11202 to      6561 components
IMAGR4: Field    5 compressed from      8168 to      5302 components
IMAGR4: Field    6 compressed from      6138 to      4054 components
IMAGR4: Field    7 compressed from      5387 to      3621 components
IMAGR4: Field   1 min = -948.9 MicroJy,max =  852.4 MicroJy
IMAGR4: Field   2 min =   -1.1 MilliJy,max =    1.1 MilliJy
IMAGR4: Field   3 min =   -1.1 MilliJy,max =    1.2 MilliJy
IMAGR4: Field   4 min =   -1.6 MilliJy,max =    1.4 MilliJy
IMAGR4: Field   5 min =   -1.4 MilliJy,max =    1.7 MilliJy
IMAGR4: Field   6 min =   -1.3 MilliJy,max =    1.4 MilliJy
IMAGR4: Field   7 min =   -1.1 MilliJy,max =    1.4 MilliJy
IMAGR4: Restoring Clean components
IMAGR4: Restoring overlapped Clean components
IMAGR4: Restore   6.335 MilliJy (   414 CCs) from field   1 to field   2
IMAGR4: Restore  -5.419 MilliJy (   964 CCs) from field   1 to field   3
IMAGR4: Restore  -8.542 MilliJy (   241 CCs) from field   1 to field   4
IMAGR4: Restore  -7.754 MilliJy (   948 CCs) from field   1 to field   5
IMAGR4: Restore  -5.962 MilliJy (   257 CCs) from field   1 to field   6
IMAGR4: Restore   7.129 MilliJy (   551 CCs) from field   1 to field   7
IMAGR4: Restore -18.737 MilliJy (   354 CCs) from field   2 to field   1
IMAGR4: Restore -26.376 MilliJy (   571 CCs) from field   2 to field   3
IMAGR4: Restore -16.227 MilliJy (   517 CCs) from field   2 to field   4
IMAGR4: Restore  20.984 MilliJy (   268 CCs) from field   3 to field   1
IMAGR4: Restore  25.019 MilliJy (   333 CCs) from field   3 to field   2
IMAGR4: Restore   2.361 MilliJy (   365 CCs) from field   3 to field   5
IMAGR4: Restore 483.424 MicroJy (   418 CCs) from field   4 to field   1
IMAGR4: Restore  -4.265 MilliJy (   434 CCs) from field   4 to field   2
IMAGR4: Restore -10.150 MilliJy (   569 CCs) from field   4 to field   6
IMAGR4: Restore  11.353 MilliJy (   390 CCs) from field   5 to field   1
IMAGR4: Restore  20.550 MilliJy (   499 CCs) from field   5 to field   3
IMAGR4: Restore  86.643 MilliJy (   408 CCs) from field   5 to field   7
IMAGR4: Restore   5.009 MilliJy (   478 CCs) from field   6 to field   1
IMAGR4: Restore  -3.770 MilliJy (   322 CCs) from field   6 to field   4
IMAGR4: Restore  -3.341 MilliJy (   601 CCs) from field   6 to field   7
IMAGR4: Restore   1.624 MilliJy (   315 CCs) from field   7 to field   1
IMAGR4: Restore   7.242 MilliJy (   367 CCs) from field   7 to field   5
IMAGR4: Restore   1.388 MilliJy (   589 CCs) from field   7 to field   6
IMAGR4: Checking image max/min
IMAGR4: Field    1 final Clean flux     5.261      Jy
IMAGR4: Field    2 final Clean flux  -182.147 MilliJy
IMAGR4: Field    3 final Clean flux   163.734 MilliJy
IMAGR4: Field    4 final Clean flux  -101.076 MilliJy
IMAGR4: Field    5 final Clean flux   190.614 MilliJy
IMAGR4: Field    6 final Clean flux   -21.591 MilliJy
IMAGR4: Field    7 final Clean flux   219.243 MilliJy
IMAGR4: Deleting UV work file:
IMAGR4: Destroyed  1 extension files of type AN
IMAGR4: Destroyed  1 extension files of type FQ
IMAGR4: Destroyed UV image file: catno=     10 disk= 1
IMAGR4: Appears to have ended successfully
IMAGR4: auto         31DEC06 TST: Cpu=     156.8  Real=    1019
sys2com(7)=char(ds
        );end
AIPS 4:   sys2com(8) ' >& /dev/null
AIPS 4:   system;clrtemp;for i=1:7;dir=dir!!sys2com(i);end;ki=length(dir
        ) $ must be 27
AIPS 4:   dir=substr(dir,2,ki);if(ki<>27)then;type'WARNING: WRONG DIRECT
        ORY NAME ?';end
AIPS 4:
AIPS 4: sysout=dir!!'/'!!sbms!!','!!expnm!!','!!rmss!!rmsc!!fras!!radi
AIPS 4: print sysout
AIPS 4: $keep sysout - not if we use dir instead
AIPS 4:   syscom'';sys2com'';clrtemp
AIPS 4:   return
AIPS 4: finish
AIPS 4:
AIPS 4: procedure nvasarch
AIPS 4:   scalar nn
AIPS 4: $LOS - archives the files to disk - define $EXP (and $AVLA/$ADAT
        /$AIMG/$AUVF)
AIPS 4:   default fitab;indisk=lsdisk;recat
AIPS 4: $ figure out array for uv name
AIPS 4: $  getname 1;
AIPS 4:   for nn=mai:numfle $ archive MA files
AIPS 4:     getname nn
AIPS 4:     nvasname
AIPS 4: typ length(outfile),length(sysout)
AIPS 4:     syscom'mv -f
AIPS 4:     sys2com(1)'X$FITS/'!!outfile;substr(sys2com(1),1,1)=''
AIPS 4: $    sys2com(2)'X'!!sysout;substr(sys2com(2),1,1)=''
AIPS 4:     sys2com(2)'X'!!dir;substr(sys2com(2),1,1)=''
AIPS 4:     sysout'';sys2com(3) ' >& /dev/null
AIPS 4:     outfile='FITS:'!!outfile
AIPS 4: ;go;wait;  $zap
AIPS 4:     ;system
AIPS 4:   end
AIPS 4:   clrname;indisk=lsdisk;chkname;numfle=1-error
AIPS 4: numfle=mai -1
AIPS 4:   for nn=3:numfle $ archive calibrated UV files
AIPS 4:     getname nn
AIPS 4:  nvasname
AIPS 4:     outfile='/tmp/tempuvfits
AIPS 4: go;wait;  $zap
AIPS 4:     syscom'mv -f
AIPS 4:     sys2com(1)'X'!!outfile;substr(sys2com(1),1,1)=''
AIPS 4:     sys2com(2)'X'!!sysout;substr(sys2com(2),1,1)=''
AIPS 4:     sysout'';sys2com(3) ' >& /dev/null
AIPS 4:     system
AIPS 4:   end
AIPS 4:   getname 2 $ archive calibration tables
AIPS 4: $  do not use nvasname as the dir is ADAT and dirname is expid
AIPS 4:
AIPS 4:   sys2com'';sysout'';syscom 'mkdir
AIPS 4:   sys2com(1)=' $adat/
AIPS 4:
AIPS 4: $  if(rh<10)then;sys2com(2)='J0'!!char(rh);else;sys2com(2)='J'!!
         char(rh);end
AIPS 4: $  if(rm<10)then;sys2com(3)='0'!!char(rm);else;sys2com(3)=char(r
        m);end
AIPS 4: $  if(rs<10)then;sys2com(4)='0'!!char(rs)!!zz;else;sys2com(4)=ch
        ar(rs)!!zz;end
AIPS 4: $  if(dd<10)then;sys2com(5)=pm!!'0'!!char(dd);else;sys2com(5)=pm
        !!char(dd);end
AIPS 4: $  if(dm<10)then;sys2com(6)='0'!!char(dm);else;sys2com(6)=char(d
        m);end
AIPS 4: $  if(ds<10)then;sys2com(7)='0'!!char(ds);else;sys2com(7)=char(d
        s);end
AIPS 4:
AIPS 4:   sys2com(1)=sys2com(1)!!expnm;sys2com(8) ' >& /dev/null
AIPS 4:   system;clrtemp
AIPS 4:
AIPS 4: finish
AIPS 4:
AIPS 4: procedure nvas
AIPS 4:   typ expid;flatfov;nvasimage
AIPS 4: $nvasarch
AIPS 4: finish
>AIPS 4: Found in Version=ABIN
AIPS 4: Found in Version=ABIN
AIPS 4: Got(1)   disk= 1  user=****   type=UV   19991227.X BAND.1
AIPS 4: 'AIPS WILL CHOOSE THE REFERENCE ANTENNA'
AIPS 4: Got(1)   disk= 1  user=****   type=UV   19991227.X BAND.1
AIPS 4: 'SETFC WILL DETERMINE THE CELL SIZE'
AIPS 4: '10 SECOND INTEGRATIONS (GUESS)'
AIPS 4: 'DONE CLEANUP OF OLD TABLE EXTENTION FILES (CL,SN,FG,BP,PL,XX)'
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: '1331+305 MODEL ='     '3C286_X'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: ls -1 $AIPSTARS/3C286_X.MODEL >& /dev/null
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Destroyed  1 extension files of type CC
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=      2 disk= 1
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: Resumes
AIPS 4: ' '
AIPS 4: 'ESTIMATED RMS:'     '0.1478 MILLI JANSKY'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@1331+305_X,BAND.0-1 >& /dev/null
AIPS 4: Waiting for returned adverbs
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: cat /tmp/SETFC@1331+305_X,BAND.0-1 >> /home/auto/run/AH669_1999D
AIPS 4: EC27_1.log.1
AIPS 4: '    NOW STARTING WITH SOURCE  :1  =1331+305'
AIPS 4: ' '
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@1331+305_X,BAND.0-1 >& /dev/null
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     11 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     12 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     13 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     14 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     15 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     16 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     17 disk= 1
AIPS 4: Disk  1 in-CNO   18 renumbered as CNO   10
AIPS 4: Disk  1 in-CNO   19 renumbered as CNO   11
AIPS 4: Disk  1 in-CNO   20 renumbered as CNO   12
AIPS 4: Disk  1 in-CNO   21 renumbered as CNO   13
AIPS 4: Disk  1 in-CNO   22 renumbered as CNO   14
AIPS 4: Disk  1 in-CNO   23 renumbered as CNO   15
AIPS 4: Disk  1 in-CNO   24 renumbered as CNO   16
AIPS 4: ' '
AIPS 4: 'ESTIMATED RMS:'     '0.03283 MILLI JANSKY'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@X1748-28_X,BAND.0-1 >& /dev/null
SETFC4: Task SETFC  (release of 31DEC06) begins
SETFC4: Found X1748-28    X BAND Seq   1 Disk:  1 in slot    4
SETFC4: SETCEL: recommends IMSIZE  1447 CELLSIZE   0.22121
SETFC4: SETCEL: returns    IMSIZE  2048 CELLSIZE   0.22121
SETFC4: ZTXOP2: using translated file name =
SETFC4: ZTXOP2: /tmp/SETFC@X1748-28_X,BAND.0-1
SETFC4: FLYEYE added   1 fields to BOXFILE to  0.000 deg
SETFC4: WARNING: THIS MAY NOT COVER THE DESIRED AREA
SETFC4: Searching catalog between  0.00 and   0.13 degrees radius
SETFC4: ZTXOP2: using translated file name =
SETFC4: ZTXOP2: /home/auto/aips/TEXT/STARS/NV00.0030
SETFC4: Field       RA            Dec             Flux     Beam    Sep
SETFC4:     2    17:48:04.23   -28:25:09.4        2.749    0.297   0.056
SETFC4: Add NVSS: wrote   1 fields to BOXFILE
SETFC4: The Sun is   9.6 deg away - ignoring
SETFC4: First field number written was   1
SETFC4: Highest field number written was   2
SETFC4: returns adverbs to AIPS
SETFC4: Appears to have ended successfully
SETFC4: auto         31DEC06 TST: Cpu=       1.3  Real=       9
C     1  2036  2036   17 48 05.06  -28 28 30.8
00001  -1   1019   1024   1025
C     2   246   246   17 48 04.23  -28 25 09.4
00002  -1    100    128    129
tmp/SETFC@1331+305_X,BAND.0-1 >& /dev/null
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     11 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     12 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     13 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     14 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     15 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     16 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     17 disk= 1
AIPS 4: Disk  1 in-CNO   18 renumbered as CNO   10
AIPS 4: Disk  1 in-CNO   19 renumbered as CNO   11
AIPS 4: Disk  1 in-CNO   20 renumbered as CNO   12
AIPS 4: Disk  1 in-CNO   21 renumbered as CNO   13
AIPS 4: Disk  1 in-CNO   22 renumbered as CNO   14
AIPS 4: Disk  1 in-CNO   23 renumbered as CNO   15
AIPS 4: Disk  1 in-CNO   24 renumbered as CNO   16
AIPS 4: ' '
AIPS 4: 'ESTIMATED RMS:'     '0.03283 MILLI JANSKY'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@X1748-28_X,BAND.0-1 >& /dev/null
AIPS 4: Waiting for returned adverbs
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: cat /tmp/SETFC@X1748-28_X,BAND.0-1 >> /home/auto/run/AH669_1999D
AIPS 4: EC27_1.log.1
AIPS 4: '    NOW STARTING WITH SOURCE  :2  =X1748-28'
AIPS 4: ' '
IMAGR4: Task IMAGR  (release of 31DEC06) begins
IMAGR4: ZTXOP2: using translated file name =
IMAGR4: ZTXOP2: /tmp/SETFC@X1748-28_X,BAND.0-1
IMAGR4: FIELDF: Final field parameters and # read are:
IMAGR4: Field    1 2036 2036  1.7988E-10 -1.2790E-11          0
IMAGR4: Field    2  246  246 -1.0944E+01  2.0140E+02          0
IMAGR4: ZTXOP2: using translated file name =
IMAGR4: ZTXOP2: /tmp/SETFC@X1748-28_X,BAND.0-1
IMAGR4: WINDF: Number of clean boxes/field read as follows:
IMAGR4: Field 01:   1  Field 02:   1
IMAGR4: Create X1748-28    .IMAGR .   1 (UV)  on disk  1  cno   17
IMAGR4: Beginning channel    1 through    1 with  2 IFs
IMAGR4: IMACPY: Copied    39507 visibilities to be imaged
IMAGR4: **** WARNING data included out of inner portion of UV plane ****
IMAGR4: **** Watch for high-frequency & other poor cleaning effects ****
IMAGR4: UVWAIT: begin finding uniform weights
IMAGR4: UVWAIT: Average grid weight  8.894E+04
IMAGR4: UVWAIT: Adding temperance S  1.779E+04
IMAGR4: UVWAIT: begin applying uniform or other weights
IMAGR4: UVWAIT: Sum of weights in  3.070E+08 and out  5.081E+08
IMAGR4: UVWAIT: Noise is increased by a factor 1.161 due to weighting
IMAGR4: UVWAIT: Average summed weight  8.894E+04 over      78936 vis
IMAGR4: Create X1748-28    .IBM001.   1 (MA)  on disk  1  cno   18
IMAGR4: Create X1748-28    .IBM002.   1 (MA)  on disk  1  cno   19
IMAGR4: Create X1748-28    .ICL001.   1 (MA)  on disk  1  cno   20
IMAGR4: Create X1748-28    .ICL002.   1 (MA)  on disk  1  cno   21
IMAGR4: GRDFLT: X and Y convolution type = SPHEROIDAL
IMAGR4: GRDFLT: X and Y parms =  3.0000  1.0000
IMAGR4: GRDFLT: convolution function sampled every 1/100 of a cell
IMAGR4: GRDMEM: Ave    2 Channels; 8.435100E+09 to 8.485100E+09 Hz
IMAGR4: Field   1 Sum of gridding weights =  5.39467E+09
IMAGR4: Field   1 Beam min = -104.5 MilliJy, max =    1.0      Jy
IMAGR4: Field   1 fit FWHM =    1.664 x    0.622      arcsec, PA=  -15.9
IMAGR4: Field   2 Sum of gridding weights =  5.39471E+09
IMAGR4: Field   2 Beam min = -104.5 MilliJy, max =    1.0      Jy
IMAGR4: Field   2 fit FWHM =    1.660 x    0.622      arcsec, PA=  -15.9
IMAGR4: CLBHIS: minimum component 0.482 of current peak
IMAGR4: Field   1 min = -272.4 MicroJy,max =    1.2 MilliJy
IMAGR4: Field   2 min = -200.8 MicroJy,max =  179.3 MicroJy
IMAGR4: BGC Clean: using  493 cell beam + residuals >   138.99 MicroJy
IMAGR4:    12379 Residual map points loaded
IMAGR4: Field    1 min algorithm flux=  569.906 MicroJy iter=       11
IMAGR4: Field    1 Clean flux density=  896.524 MicroJy       11 comps
IMAGR4: Total Cleaned flux density     =  896.524 MicroJy       11 comps
IMAGR4: SETDO3: imaging done with multiple tangent planes
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: VISDFT: Model components of type Point
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min = -263.5 MicroJy,max =  554.6 MicroJy
IMAGR4: BGC Clean: using  165 cell beam + residuals >   137.25 MicroJy
IMAGR4:     7741 Residual map points loaded
IMAGR4: Field    1 min algorithm flux=  283.552 MicroJy iter=       31
IMAGR4: Field    1 Clean flux density=    1.696 MilliJy       31 comps
IMAGR4: Total Cleaned flux density     =    1.696 MilliJy       31 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min = -255.9 MicroJy,max =  276.2 MicroJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   119.93 MicroJy
IMAGR4:    19984 Residual map points loaded
IMAGR4: Field    1 min algorithm flux=  200.883 MicroJy iter=       61
IMAGR4: Field    1 Clean flux density=    2.064 MilliJy       61 comps
IMAGR4: Total Cleaned flux density     =    2.064 MilliJy       61 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min = -225.1 MicroJy,max =  271.0 MicroJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   118.83 MicroJy
IMAGR4:    19977 Residual map points loaded
IMAGR4: Field    1 min Clean flux    = -196.246 MicroJy iter=       67
IMAGR4: Field    1 Clean flux density=    2.144 MilliJy       67 comps
IMAGR4: Total Cleaned flux density     =    2.144 MilliJy       67 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Peak residual in window 196.246 less than limit 197.009 MicroJy
IMAGR4: Merging the Clean components files
IMAGR4: Field    1 compressed from        67 to        32 components
IMAGR4: Field    2 compressed from         0 to         0 components
IMAGR4: Field   1 min = -224.3 MicroJy,max =  271.3 MicroJy
IMAGR4: Field   2 min = -177.1 MicroJy,max =  169.0 MicroJy
IMAGR4: Restoring Clean components
IMAGR4: Restoring overlapped Clean components
IMAGR4: Checking image max/min
IMAGR4: Field    1 final Clean flux     2.144 MilliJy
IMAGR4: Field    2 final Clean flux     0.000      Jy
IMAGR4: Deleting UV work file:
IMAGR4: Destroyed  1 extension files of type AN
IMAGR4: Destroyed  1 extension files of type FQ
IMAGR4: Destroyed UV image file: catno=     17 disk= 1
IMAGR4: Appears to have ended successfully
IMAGR4: auto         31DEC06 TST: Cpu=      11.6  Real=      75
tmp/SETFC@1331+305_X,BAND.0-1 >& /dev/null
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     11 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     12 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     13 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     14 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     15 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     16 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     17 disk= 1
AIPS 4: Disk  1 in-CNO   18 renumbered as CNO   10
AIPS 4: Disk  1 in-CNO   19 renumbered as CNO   11
AIPS 4: Disk  1 in-CNO   20 renumbered as CNO   12
AIPS 4: Disk  1 in-CNO   21 renumbered as CNO   13
AIPS 4: Disk  1 in-CNO   22 renumbered as CNO   14
AIPS 4: Disk  1 in-CNO   23 renumbered as CNO   15
AIPS 4: Disk  1 in-CNO   24 renumbered as CNO   16
AIPS 4: ' '
AIPS 4: 'ESTIMATED RMS:'     '0.03283 MILLI JANSKY'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@X1748-28_X,BAND.0-1 >& /dev/null
AIPS 4: Waiting for returned adverbs
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: cat /tmp/SETFC@X1748-28_X,BAND.0-1 >> /home/auto/run/AH669_1999D
AIPS 4: EC27_1.log.1
AIPS 4: '    NOW STARTING WITH SOURCE  :2  =X1748-28'
AIPS 4: ' '
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@X1748-28_X,BAND.0-1 >& /dev/null
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     18 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     19 disk= 1
AIPS 4: Disk  1 in-CNO   20 renumbered as CNO   17
AIPS 4: Disk  1 in-CNO   21 renumbered as CNO   18
AIPS 4: ' '
AIPS 4: 'ESTIMATED RMS:'     '0.1317 MILLI JANSKY'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@1744-312_X,BAND.0-1 >& /dev/null
SETFC4: Task SETFC  (release of 31DEC06) begins
SETFC4: Found 1744-312    X BAND Seq   1 Disk:  1 in slot    5
SETFC4: SETCEL: recommends IMSIZE  1427 CELLSIZE   0.22435
SETFC4: SETCEL: returns    IMSIZE  2048 CELLSIZE   0.22435
SETFC4: ZTXOP2: using translated file name =
SETFC4: ZTXOP2: /tmp/SETFC@1744-312_X,BAND.0-1
SETFC4: FLYEYE added   1 fields to BOXFILE to  0.000 deg
SETFC4: WARNING: THIS MAY NOT COVER THE DESIRED AREA
SETFC4: Searching catalog between  0.00 and   0.13 degrees radius
SETFC4: ZTXOP2: using translated file name =
SETFC4: ZTXOP2: /home/auto/aips/TEXT/STARS/NV00.0030
SETFC4: Field       RA            Dec             Flux     Beam    Sep
SETFC4:     2    17:44:23.57   -31:16:36.6        0.425    1.000   0.000
SETFC4: Add NVSS: wrote   1 fields to BOXFILE
SETFC4: The Sun is  11.9 deg away - ignoring
SETFC4: First field number written was   1
SETFC4: Highest field number written was   2
SETFC4: returns adverbs to AIPS
SETFC4: Appears to have ended successfully
SETFC4: auto         31DEC06 TST: Cpu=       1.3  Real=       9
C     1  2036  2036   17 44 23.58  -31 16 36.0
00001  -1   1019   1024   1025
C     2   246   246   17 44 23.57  -31 16 36.6
00002  -1    100    128    129
tmp/SETFC@1331+305_X,BAND.0-1 >& /dev/null
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     11 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     12 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     13 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     14 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     15 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     16 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     17 disk= 1
AIPS 4: Disk  1 in-CNO   18 renumbered as CNO   10
AIPS 4: Disk  1 in-CNO   19 renumbered as CNO   11
AIPS 4: Disk  1 in-CNO   20 renumbered as CNO   12
AIPS 4: Disk  1 in-CNO   21 renumbered as CNO   13
AIPS 4: Disk  1 in-CNO   22 renumbered as CNO   14
AIPS 4: Disk  1 in-CNO   23 renumbered as CNO   15
AIPS 4: Disk  1 in-CNO   24 renumbered as CNO   16
AIPS 4: ' '
AIPS 4: 'ESTIMATED RMS:'     '0.03283 MILLI JANSKY'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@X1748-28_X,BAND.0-1 >& /dev/null
AIPS 4: Waiting for returned adverbs
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: cat /tmp/SETFC@X1748-28_X,BAND.0-1 >> /home/auto/run/AH669_1999D
AIPS 4: EC27_1.log.1
AIPS 4: '    NOW STARTING WITH SOURCE  :2  =X1748-28'
AIPS 4: ' '
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@X1748-28_X,BAND.0-1 >& /dev/null
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     18 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     19 disk= 1
AIPS 4: Disk  1 in-CNO   20 renumbered as CNO   17
AIPS 4: Disk  1 in-CNO   21 renumbered as CNO   18
AIPS 4: ' '
AIPS 4: 'ESTIMATED RMS:'     '0.1317 MILLI JANSKY'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@1744-312_X,BAND.0-1 >& /dev/null
AIPS 4: Waiting for returned adverbs
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: cat /tmp/SETFC@1744-312_X,BAND.0-1 >> /home/auto/run/AH669_1999D
AIPS 4: EC27_1.log.1
AIPS 4: '    NOW STARTING WITH SOURCE  :3  =1744-312'
AIPS 4: ' '
IMAGR4: Task IMAGR  (release of 31DEC06) begins
IMAGR4: ZTXOP2: using translated file name =
IMAGR4: ZTXOP2: /tmp/SETFC@1744-312_X,BAND.0-1
IMAGR4: FIELDF: Final field parameters and # read are:
IMAGR4: Field    1 2036 2036 -3.7178E-02 -2.6000E-02          0
IMAGR4: Field    2  246  246 -1.6538E-01 -6.2600E-01          0
IMAGR4: ZTXOP2: using translated file name =
IMAGR4: ZTXOP2: /tmp/SETFC@1744-312_X,BAND.0-1
IMAGR4: WINDF: Number of clean boxes/field read as follows:
IMAGR4: Field 01:   1  Field 02:   1
IMAGR4: Create 1744-312    .IMAGR .   1 (UV)  on disk  1  cno   19
IMAGR4: Beginning channel    1 through    1 with  2 IFs
IMAGR4: IMACPY: Copied     2457 visibilities to be imaged
IMAGR4: **** WARNING data included out of inner portion of UV plane ****
IMAGR4: **** Watch for high-frequency & other poor cleaning effects ****
IMAGR4: UVWAIT: begin finding uniform weights
IMAGR4: UVWAIT: Average grid weight  2.550E+04
IMAGR4: UVWAIT: Adding temperance S  5.100E+03
IMAGR4: UVWAIT: begin applying uniform or other weights
IMAGR4: UVWAIT: Sum of weights in  1.829E+07 and out  2.268E+07
IMAGR4: UVWAIT: Noise is increased by a factor 1.136 due to weighting
IMAGR4: UVWAIT: Average summed weight  2.550E+04 over       4836 vis
IMAGR4: Create 1744-312    .IBM001.   1 (MA)  on disk  1  cno   20
IMAGR4: Create 1744-312    .IBM002.   1 (MA)  on disk  1  cno   21
IMAGR4: Create 1744-312    .ICL001.   1 (MA)  on disk  1  cno   22
IMAGR4: Create 1744-312    .ICL002.   1 (MA)  on disk  1  cno   23
IMAGR4: GRDFLT: X and Y convolution type = SPHEROIDAL
IMAGR4: GRDFLT: X and Y parms =  3.0000  1.0000
IMAGR4: GRDFLT: convolution function sampled every 1/100 of a cell
IMAGR4: GRDMEM: Ave    2 Channels; 8.435100E+09 to 8.485100E+09 Hz
IMAGR4: Field   1 Sum of gridding weights =  2.40770E+08
IMAGR4: Field   1 Beam min =  -97.9 MilliJy, max =    1.0      Jy
IMAGR4: Field   1 fit FWHM =    1.987 x    0.660      arcsec, PA=  -14.8
IMAGR4: Field   2 Sum of gridding weights =  2.40772E+08
IMAGR4: Field   2 Beam min = -100.8 MilliJy, max =    1.0      Jy
IMAGR4: Field   2 fit FWHM =    1.987 x    0.660      arcsec, PA=  -14.8
IMAGR4: CLBHIS: minimum component 0.500 of current peak
IMAGR4: Field   1 min =  -53.6 MilliJy,max =  556.6 MilliJy
IMAGR4: Field   2 min =  -51.8 MilliJy,max =  549.2 MilliJy
IMAGR4: BGC Clean: using 2043 cell beam + residuals >    87.88 MilliJy
IMAGR4:     4333 Residual map points loaded
IMAGR4: Field    1 min algorithm flux=  297.476 MilliJy iter=        7
IMAGR4: Field    1 Clean flux density=  290.740 MilliJy        7 comps
IMAGR4: Total Cleaned flux density     =  290.740 MilliJy        7 comps
IMAGR4: SETDO3: imaging done with multiple tangent planes
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: VISDFT: Model components of type Point
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min =  -26.6 MilliJy,max =  275.1 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  2.618E-01 < Second best  2.829E-01
IMAGR4: Field   1 min =  -28.0 MilliJy,max =  269.1 MilliJy
IMAGR4: BGC Clean: using 2043 cell beam + residuals >    46.96 MilliJy
IMAGR4:     3002 Residual map points loaded
IMAGR4: Field    1 min allowed flux  =  122.469 MilliJy iter=       16
IMAGR4: Field    1 Clean flux density=  458.499 MilliJy       16 comps
IMAGR4: Total Cleaned flux density     =  458.499 MilliJy       16 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min =  -11.9 MilliJy,max =  117.9 MilliJy
IMAGR4: BGC Clean: using  509 cell beam + residuals >    43.43 MilliJy
IMAGR4:       39 Residual map points loaded
IMAGR4: Field    2 min algorithm flux=   57.028 MilliJy iter=        8
IMAGR4: Field    2 Clean flux density=   67.313 MilliJy        8 comps
IMAGR4: Total Cleaned flux density     =  525.812 MilliJy       24 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =   -6.9 MilliJy,max =   50.4 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  4.792E-02 < Second best  5.426E-02
IMAGR4: Field   2 min =   -6.9 MilliJy,max =   51.3 MilliJy
IMAGR4: BGC Clean: using  509 cell beam + residuals >     9.00 MilliJy
IMAGR4:      323 Residual map points loaded
IMAGR4: Field    2 min allowed flux  =   25.086 MilliJy iter=       16
IMAGR4: Field    2 Clean flux density=   96.822 MilliJy       16 comps
IMAGR4: Total Cleaned flux density     =  555.321 MilliJy       32 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =   -6.1 MilliJy,max =   23.1 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  2.199E-02 < Second best  2.387E-02
IMAGR4: Field   2 min =   -6.5 MilliJy,max =   22.6 MilliJy
IMAGR4: BGC Clean: using  509 cell beam + residuals >     3.96 MilliJy
IMAGR4:      466 Residual map points loaded
IMAGR4: Field    2 min allowed flux  =   11.035 MilliJy iter=       24
IMAGR4: Field    2 Clean flux density=  109.803 MilliJy       24 comps
IMAGR4: Total Cleaned flux density     =  568.302 MilliJy       40 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =   -8.2 MilliJy,max =   11.1 MilliJy
IMAGR4: BGC Clean: using 2043 cell beam + residuals >     3.65 MilliJy
IMAGR4:      406 Residual map points loaded
IMAGR4: Field    1 min allowed flux  =   -5.354 MilliJy iter=       31
IMAGR4: Field    1 Clean flux density=  460.239 MilliJy       31 comps
IMAGR4: Total Cleaned flux density     =  570.042 MilliJy       55 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min =   -4.7 MilliJy,max =    5.0 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  4.799E-03 < Second best  5.097E-03
IMAGR4: Field   1 min =   -4.9 MilliJy,max =    5.1 MilliJy
IMAGR4: BGC Clean: using 1317 cell beam + residuals >     1.60 MilliJy
IMAGR4:    12084 Residual map points loaded
IMAGR4: Field    1 min algorithm flux=    2.716 MilliJy iter=       77
IMAGR4: Field    1 Clean flux density=  459.017 MilliJy       77 comps
IMAGR4: Total Cleaned flux density     =  568.820 MilliJy      101 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min =   -2.8 MilliJy,max =    2.8 MilliJy
IMAGR4: BGC Clean: using  509 cell beam + residuals >     1.50 MilliJy
IMAGR4:      484 Residual map points loaded
IMAGR4: Field    2 min algorithm flux=    1.921 MilliJy iter=       57
IMAGR4: Field    2 Clean flux density=  110.489 MilliJy       57 comps
IMAGR4: Total Cleaned flux density     =  569.507 MilliJy      134 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =   -2.0 MilliJy,max =    2.5 MilliJy
IMAGR4: BGC Clean: using  157 cell beam + residuals >     1.18 MilliJy
IMAGR4:     7728 Residual map points loaded
IMAGR4: Field    1 min algorithm flux=    1.699 MilliJy iter=      150
IMAGR4: Field    1 Clean flux density=  462.510 MilliJy      150 comps
IMAGR4: Total Cleaned flux density     =  572.999 MilliJy      207 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min =   -1.6 MilliJy,max =    1.5 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.05 MilliJy
IMAGR4:      361 Residual map points loaded
IMAGR4: Field    2 min algorithm flux=   -1.234 MilliJy iter=       97
IMAGR4: Field    2 Clean flux density=  111.794 MilliJy       97 comps
IMAGR4: Total Cleaned flux density     =  574.303 MilliJy      247 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =   -2.0 MilliJy,max =    2.2 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   887.49 MicroJy
IMAGR4:    19055 Residual map points loaded
IMAGR4: Field    1 min algorithm flux=    1.301 MilliJy iter=      293
IMAGR4: Field    1 Clean flux density=  461.599 MilliJy      293 comps
IMAGR4: Total Cleaned flux density     =  573.392 MilliJy      390 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =   -1.9 MilliJy,max =    2.0 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   789.07 MicroJy
IMAGR4:    18425 Residual map points loaded
IMAGR4: Field    1 min algorithm flux=   -1.094 MilliJy iter=      472
IMAGR4: Field    1 Clean flux density=  464.193 MilliJy      472 comps
IMAGR4: Total Cleaned flux density     =  575.986 MilliJy      569 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min = -953.0 MicroJy,max =  963.4 MicroJy
IMAGR4: TRY ANOTHER FIELD: this is  9.261E-04 < Second best  1.049E-03
IMAGR4: Field   1 min =   -1.7 MilliJy,max =    1.9 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   688.78 MicroJy
IMAGR4:    19610 Residual map points loaded
IMAGR4: Field    1 min algorithm flux= -930.584 MicroJy iter=      704
IMAGR4: Field    1 Clean flux density=  461.045 MilliJy      704 comps
IMAGR4: Total Cleaned flux density     =  572.838 MilliJy      801 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min = -785.7 MicroJy,max =  928.0 MicroJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   687.61 MicroJy
IMAGR4:      100 Residual map points loaded
IMAGR4: Field    2 min Clean flux    = -784.352 MicroJy iter=      106
IMAGR4: Field    2 Clean flux density=  112.379 MilliJy      106 comps
IMAGR4: Total Cleaned flux density     =  573.423 MilliJy      810 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =   -1.6 MilliJy,max =    1.8 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   602.13 MicroJy
IMAGR4:    19977 Residual map points loaded
IMAGR4: Field    1 min algorithm flux= -797.641 MicroJy iter=     1005
IMAGR4: Field    1 Clean flux density=  465.062 MilliJy     1005 comps
IMAGR4: Total Cleaned flux density     =  577.440 MilliJy     1111 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =   -1.5 MilliJy,max =    1.6 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   519.95 MicroJy
IMAGR4:    19972 Residual map points loaded
IMAGR4: Field    1 min Clean flux    = -789.728 MicroJy iter=     1016
IMAGR4: Field    1 Clean flux density=  464.976 MilliJy     1016 comps
IMAGR4: Total Cleaned flux density     =  577.354 MilliJy     1122 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Peak residual in window 789.728 less than limit 789.987 MicroJy
IMAGR4: Merging the Clean components files
IMAGR4: Field    1 compressed from      1016 to       708 components
IMAGR4: Field    2 compressed from       106 to        45 components
IMAGR4: Field   1 min =   -1.4 MilliJy,max =    1.6 MilliJy
IMAGR4: Field   2 min = -733.2 MicroJy,max =  708.6 MicroJy
IMAGR4: Restoring Clean components
IMAGR4: Restoring overlapped Clean components
IMAGR4: Restore 459.648 MilliJy (    40 CCs) from field   1 to field   2
IMAGR4: Restore 112.379 MilliJy (    45 CCs) from field   2 to field   1
IMAGR4: Checking image max/min
IMAGR4: Field    1 final Clean flux   577.355 MilliJy
IMAGR4: Field    2 final Clean flux   572.027 MilliJy
IMAGR4: Deleting UV work file:
IMAGR4: Destroyed  1 extension files of type AN
IMAGR4: Destroyed  1 extension files of type FQ
IMAGR4: Destroyed UV image file: catno=     19 disk= 1
IMAGR4: Appears to have ended successfully
IMAGR4: auto         31DEC06 TST: Cpu=      23.1  Real=     159
tmp/SETFC@1331+305_X,BAND.0-1 >& /dev/null
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     11 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     12 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     13 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     14 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     15 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     16 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     17 disk= 1
AIPS 4: Disk  1 in-CNO   18 renumbered as CNO   10
AIPS 4: Disk  1 in-CNO   19 renumbered as CNO   11
AIPS 4: Disk  1 in-CNO   20 renumbered as CNO   12
AIPS 4: Disk  1 in-CNO   21 renumbered as CNO   13
AIPS 4: Disk  1 in-CNO   22 renumbered as CNO   14
AIPS 4: Disk  1 in-CNO   23 renumbered as CNO   15
AIPS 4: Disk  1 in-CNO   24 renumbered as CNO   16
AIPS 4: ' '
AIPS 4: 'ESTIMATED RMS:'     '0.03283 MILLI JANSKY'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@X1748-28_X,BAND.0-1 >& /dev/null
AIPS 4: Waiting for returned adverbs
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: cat /tmp/SETFC@X1748-28_X,BAND.0-1 >> /home/auto/run/AH669_1999D
AIPS 4: EC27_1.log.1
AIPS 4: '    NOW STARTING WITH SOURCE  :2  =X1748-28'
AIPS 4: ' '
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@X1748-28_X,BAND.0-1 >& /dev/null
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     18 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     19 disk= 1
AIPS 4: Disk  1 in-CNO   20 renumbered as CNO   17
AIPS 4: Disk  1 in-CNO   21 renumbered as CNO   18
AIPS 4: ' '
AIPS 4: 'ESTIMATED RMS:'     '0.1317 MILLI JANSKY'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@1744-312_X,BAND.0-1 >& /dev/null
AIPS 4: Waiting for returned adverbs
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: cat /tmp/SETFC@1744-312_X,BAND.0-1 >> /home/auto/run/AH669_1999D
AIPS 4: EC27_1.log.1
AIPS 4: '    NOW STARTING WITH SOURCE  :3  =1744-312'
AIPS 4: ' '
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@1744-312_X,BAND.0-1 >& /dev/null
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     20 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     21 disk= 1
AIPS 4: Disk  1 in-CNO   22 renumbered as CNO   19
AIPS 4: Disk  1 in-CNO   23 renumbered as CNO   20
AIPS 4: ' '
AIPS 4: 'ESTIMATED RMS:'     '0.03756 MILLI JANSKY'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@X1859+226_X,BAND.0-1 >& /dev/null
SETFC4: Task SETFC  (release of 31DEC06) begins
SETFC4: Found X1859+226   X BAND Seq   1 Disk:  1 in slot    6
SETFC4: SETCEL: recommends IMSIZE  1383 CELLSIZE   0.23143
SETFC4: SETCEL: returns    IMSIZE  1024 CELLSIZE   0.23143
SETFC4: ZTXOP2: using translated file name =
SETFC4: ZTXOP2: /tmp/SETFC@X1859+226_X,BAND.0-1
SETFC4: FLYEYE added   7 fields to BOXFILE to  0.055 deg
SETFC4: Searching catalog between  0.05 and   0.13 degrees radius
SETFC4: ZTXOP2: using translated file name =
SETFC4: ZTXOP2: /home/auto/aips/TEXT/STARS/NV00.0030
SETFC4: No NVSS sources selected for BOXFILE
SETFC4: The Sun is  46.7 deg away - ignoring
SETFC4: First field number written was   1
SETFC4: Highest field number written was   7
SETFC4: returns adverbs to AIPS
SETFC4: Appears to have ended successfully
SETFC4: auto         31DEC06 TST: Cpu=       1.4  Real=      11
C     1  1012  1012   18 58 41.49   22 39 29.8
00001  -1    507    512    513
C     2  1012  1012   18 58 41.49   22 36 12.8
00002  -1    507    512    513
C     3  1012  1012   18 58 29.17   22 37 51.3
00003  -1    507    512    513
C     4  1012  1012   18 58 53.81   22 37 51.3
00004  -1    507    512    513
C     5  1012  1012   18 58 29.16   22 41 08.3
00005  -1    507    512    513
C     6  1012  1012   18 58 53.82   22 41 08.3
00006  -1    507    512    513
C     7  1012  1012   18 58 41.49   22 42 46.8
00007  -1    507    512    513
tmp/SETFC@1331+305_X,BAND.0-1 >& /dev/null
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     11 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     12 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     13 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     14 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     15 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     16 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     17 disk= 1
AIPS 4: Disk  1 in-CNO   18 renumbered as CNO   10
AIPS 4: Disk  1 in-CNO   19 renumbered as CNO   11
AIPS 4: Disk  1 in-CNO   20 renumbered as CNO   12
AIPS 4: Disk  1 in-CNO   21 renumbered as CNO   13
AIPS 4: Disk  1 in-CNO   22 renumbered as CNO   14
AIPS 4: Disk  1 in-CNO   23 renumbered as CNO   15
AIPS 4: Disk  1 in-CNO   24 renumbered as CNO   16
AIPS 4: ' '
AIPS 4: 'ESTIMATED RMS:'     '0.03283 MILLI JANSKY'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@X1748-28_X,BAND.0-1 >& /dev/null
AIPS 4: Waiting for returned adverbs
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: cat /tmp/SETFC@X1748-28_X,BAND.0-1 >> /home/auto/run/AH669_1999D
AIPS 4: EC27_1.log.1
AIPS 4: '    NOW STARTING WITH SOURCE  :2  =X1748-28'
AIPS 4: ' '
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@X1748-28_X,BAND.0-1 >& /dev/null
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     18 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     19 disk= 1
AIPS 4: Disk  1 in-CNO   20 renumbered as CNO   17
AIPS 4: Disk  1 in-CNO   21 renumbered as CNO   18
AIPS 4: ' '
AIPS 4: 'ESTIMATED RMS:'     '0.1317 MILLI JANSKY'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@1744-312_X,BAND.0-1 >& /dev/null
AIPS 4: Waiting for returned adverbs
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: cat /tmp/SETFC@1744-312_X,BAND.0-1 >> /home/auto/run/AH669_1999D
AIPS 4: EC27_1.log.1
AIPS 4: '    NOW STARTING WITH SOURCE  :3  =1744-312'
AIPS 4: ' '
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@1744-312_X,BAND.0-1 >& /dev/null
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     20 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     21 disk= 1
AIPS 4: Disk  1 in-CNO   22 renumbered as CNO   19
AIPS 4: Disk  1 in-CNO   23 renumbered as CNO   20
AIPS 4: ' '
AIPS 4: 'ESTIMATED RMS:'     '0.03756 MILLI JANSKY'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@X1859+226_X,BAND.0-1 >& /dev/null
AIPS 4: Waiting for returned adverbs
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: cat /tmp/SETFC@X1859+226_X,BAND.0-1 >> /home/auto/run/AH669_1999
AIPS 4: DEC27_1.log.1
AIPS 4: '    NOW STARTING WITH SOURCE  :4  =X1859+226'
AIPS 4: ' '
IMAGR4: Task IMAGR  (release of 31DEC06) begins
IMAGR4: ZTXOP2: using translated file name =
IMAGR4: ZTXOP2: /tmp/SETFC@X1859+226_X,BAND.0-1
IMAGR4: FIELDF: Final field parameters and # read are:
IMAGR4: Field    1 1012 1012 -1.3842E-02  1.2790E-11          0
IMAGR4: Field    2 1012 1012 -1.3842E-02 -1.9700E+02          0
IMAGR4: Field    3 1012 1012 -1.7055E+02 -9.8500E+01          0
IMAGR4: Field    4 1012 1012  1.7052E+02 -9.8500E+01          0
IMAGR4: Field    5 1012 1012 -1.7069E+02  9.8500E+01          0
IMAGR4: Field    6 1012 1012  1.7066E+02  9.8500E+01          0
IMAGR4: Field    7 1012 1012 -1.3842E-02  1.9700E+02          0
IMAGR4: ZTXOP2: using translated file name =
IMAGR4: ZTXOP2: /tmp/SETFC@X1859+226_X,BAND.0-1
IMAGR4: WINDF: Number of clean boxes/field read as follows:
IMAGR4: Field 01:   1  Field 02:   1  Field 03:   1  Field 04:   1
IMAGR4: Field 05:   1  Field 06:   1  Field 07:   1
IMAGR4: Create X1859+226   .IMAGR .   1 (UV)  on disk  1  cno   21
IMAGR4: Beginning channel    1 through    1 with  2 IFs
IMAGR4: IMACPY: Copied    30186 visibilities to be imaged
IMAGR4: **** WARNING data included out of inner portion of UV plane ****
IMAGR4: **** Watch for high-frequency & other poor cleaning effects ****
IMAGR4: UVWAIT: begin finding uniform weights
IMAGR4: UVWAIT: Average grid weight  1.499E+05
IMAGR4: UVWAIT: Adding temperance S  2.999E+04
IMAGR4: UVWAIT: begin applying uniform or other weights
IMAGR4: UVWAIT: Sum of weights in  2.688E+08 and out  4.363E+08
IMAGR4: UVWAIT: Noise is increased by a factor 1.189 due to weighting
IMAGR4: UVWAIT: Average summed weight  1.499E+05 over      60372 vis
IMAGR4: Create X1859+226   .IBM001.   1 (MA)  on disk  1  cno   22
IMAGR4: Create X1859+226   .IBM002.   1 (MA)  on disk  1  cno   23
IMAGR4: Create X1859+226   .IBM003.   1 (MA)  on disk  1  cno   24
IMAGR4: Create X1859+226   .IBM004.   1 (MA)  on disk  1  cno   25
IMAGR4: Create X1859+226   .IBM005.   1 (MA)  on disk  1  cno   26
IMAGR4: Create X1859+226   .IBM006.   1 (MA)  on disk  1  cno   27
IMAGR4: Create X1859+226   .IBM007.   1 (MA)  on disk  1  cno   28
IMAGR4: Create X1859+226   .ICL001.   1 (MA)  on disk  1  cno   29
IMAGR4: Create X1859+226   .ICL002.   1 (MA)  on disk  1  cno   30
IMAGR4: Create X1859+226   .ICL003.   1 (MA)  on disk  1  cno   31
IMAGR4: Create X1859+226   .ICL004.   1 (MA)  on disk  1  cno   32
IMAGR4: Create X1859+226   .ICL005.   1 (MA)  on disk  1  cno   33
IMAGR4: Create X1859+226   .ICL006.   1 (MA)  on disk  1  cno   34
IMAGR4: Create X1859+226   .ICL007.   1 (MA)  on disk  1  cno   35
IMAGR4: GRDFLT: X and Y convolution type = SPHEROIDAL
IMAGR4: GRDFLT: X and Y parms =  3.0000  1.0000
IMAGR4: GRDFLT: convolution function sampled every 1/100 of a cell
IMAGR4: GRDMEM: Ave    2 Channels; 8.435100E+09 to 8.485100E+09 Hz
IMAGR4: Field   1 Sum of gridding weights =  4.63207E+09
IMAGR4: Field   1 Beam min =  -89.9 MilliJy, max =    1.0      Jy
IMAGR4: Field   1 fit FWHM =  729.714 x  690.827 Milliarcsec, PA=   51.2
IMAGR4: Field   2 Sum of gridding weights =  4.63207E+09
IMAGR4: Field   2 Beam min =  -89.2 MilliJy, max =    1.0      Jy
IMAGR4: Field   2 fit FWHM =  729.645 x  691.077 Milliarcsec, PA=   51.2
IMAGR4: Field   3 Sum of gridding weights =  4.63206E+09
IMAGR4: Field   3 Beam min =  -89.2 MilliJy, max =    1.0      Jy
IMAGR4: Field   3 fit FWHM =  729.614 x  690.775 Milliarcsec, PA=   51.0
IMAGR4: Field   4 Sum of gridding weights =  4.63207E+09
IMAGR4: Field   4 Beam min =  -89.9 MilliJy, max =    1.0      Jy
IMAGR4: Field   4 fit FWHM =  729.746 x  691.129 Milliarcsec, PA=   51.4
IMAGR4: Field   5 Sum of gridding weights =  4.63206E+09
IMAGR4: Field   5 Beam min =  -89.8 MilliJy, max =    1.0      Jy
IMAGR4: Field   5 fit FWHM =  729.683 x  690.527 Milliarcsec, PA=   51.1
IMAGR4: Field   6 Sum of gridding weights =  4.63206E+09
IMAGR4: Field   6 Beam min =  -90.5 MilliJy, max =    1.0      Jy
IMAGR4: Field   6 fit FWHM =  729.817 x  690.879 Milliarcsec, PA=   51.5
IMAGR4: Field   7 Sum of gridding weights =  4.63206E+09
IMAGR4: Field   7 Beam min =  -90.4 MilliJy, max =    1.0      Jy
IMAGR4: Field   7 fit FWHM =  729.783 x  690.578 Milliarcsec, PA=   51.3
IMAGR4: CLBHIS: minimum component 0.500 of current peak
IMAGR4: Field   1 min = -229.6 MicroJy,max =  236.7 MicroJy
IMAGR4: Field   2 min = -233.1 MicroJy,max =  225.8 MicroJy
IMAGR4: Field   3 min = -245.0 MicroJy,max =  229.3 MicroJy
IMAGR4: Field   4 min = -244.1 MicroJy,max =  217.1 MicroJy
IMAGR4: Field   5 min = -253.6 MicroJy,max =  236.8 MicroJy
IMAGR4: Field   6 min = -241.3 MicroJy,max =  266.9 MicroJy
IMAGR4: Field   7 min = -220.0 MicroJy,max =  239.8 MicroJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   128.45 MicroJy
IMAGR4:     4434 Residual map points loaded
IMAGR4: Field    5 min algorithm flux=  227.067 MicroJy iter=        2
IMAGR4: Field    5 Clean flux density=   46.390 MicroJy        2 comps
IMAGR4: Total Cleaned flux density     =   46.390 MicroJy        2 comps
IMAGR4: SETDO3: imaging done with multiple tangent planes
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: VISDFT: Model components of type Point
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min = -229.6 MicroJy,max =  223.5 MicroJy
IMAGR4: TRY ANOTHER FIELD: this is  2.106E-04 < Second best  2.232E-04
IMAGR4: Field   2 min = -232.9 MicroJy,max =  226.0 MicroJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   125.00 MicroJy
IMAGR4:     4939 Residual map points loaded
IMAGR4: Field    2 min Clean flux    = -214.289 MicroJy iter=        3
IMAGR4: Field    2 Clean flux density=  -67.546 MicroJy        3 comps
IMAGR4: Total Cleaned flux density     =  -21.156 MicroJy        5 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   4 min = -244.0 MicroJy,max =  217.0 MicroJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   120.80 MicroJy
IMAGR4:     6972 Residual map points loaded
IMAGR4: Field    4 min Clean flux    = -223.605 MicroJy iter=        2
IMAGR4: Field    4 Clean flux density=  -45.490 MicroJy        2 comps
IMAGR4: Total Cleaned flux density     =  -66.647 MicroJy        7 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   5 min = -253.1 MicroJy,max =  231.7 MicroJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   100.59 MicroJy
IMAGR4: WARNING: > MAXPIXELS LOADED TO AP!!
IMAGR4:    24114 Residual map points loaded
IMAGR4: Field    5 min Clean flux    =  222.947 MicroJy iter=        3
IMAGR4: Field    5 Clean flux density=   68.685 MicroJy        3 comps
IMAGR4: Total Cleaned flux density     =  -44.352 MicroJy        8 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   6 min = -241.2 MicroJy,max =  266.5 MicroJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   100.49 MicroJy
IMAGR4:    19988 Residual map points loaded
IMAGR4: Field    6 min Clean flux    =  209.959 MicroJy iter=        2
IMAGR4: Field    6 Clean flux density=   -1.589 MicroJy        2 comps
IMAGR4: Total Cleaned flux density     =  -45.941 MicroJy       10 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Peak residual in window 223.605 less than limit 225.382 MicroJy
IMAGR4: Merging the Clean components files
IMAGR4: Field    1 compressed from         0 to         0 components
IMAGR4: Field    2 compressed from         3 to         3 components
IMAGR4: Field    3 compressed from         0 to         0 components
IMAGR4: Field    4 compressed from         2 to         2 components
IMAGR4: Field    5 compressed from         3 to         3 components
IMAGR4: Field    6 compressed from         2 to         2 components
IMAGR4: Field    7 compressed from         0 to         0 components
IMAGR4: Field   1 min = -229.3 MicroJy,max =  222.9 MicroJy
IMAGR4: Field   2 min = -219.5 MicroJy,max =  225.4 MicroJy
IMAGR4: Field   3 min = -244.4 MicroJy,max =  228.6 MicroJy
IMAGR4: Field   4 min = -243.9 MicroJy,max =  217.0 MicroJy
IMAGR4: Field   5 min = -252.8 MicroJy,max =  231.6 MicroJy
IMAGR4: Field   6 min = -241.2 MicroJy,max =  266.4 MicroJy
IMAGR4: Field   7 min = -219.1 MicroJy,max =  239.7 MicroJy
IMAGR4: Restoring Clean components
IMAGR4: Restoring overlapped Clean components
IMAGR4: Restore -21.429 MicroJy (     1 CCs) from field   2 to field   3
IMAGR4: Restore  23.683 MicroJy (     1 CCs) from field   5 to field   1
IMAGR4: Restore  23.683 MicroJy (     1 CCs) from field   5 to field   3
IMAGR4: Checking image max/min
IMAGR4: Field    1 final Clean flux    23.683 MicroJy
IMAGR4: Field    2 final Clean flux   -67.546 MicroJy
IMAGR4: Field    3 final Clean flux     2.254 MicroJy
IMAGR4: Field    4 final Clean flux   -45.490 MicroJy
IMAGR4: Field    5 final Clean flux    68.685 MicroJy
IMAGR4: Field    6 final Clean flux    -1.589 MicroJy
IMAGR4: Field    7 final Clean flux     0.000      Jy
IMAGR4: Deleting UV work file:
IMAGR4: Destroyed  1 extension files of type AN
IMAGR4: Destroyed  1 extension files of type FQ
IMAGR4: Destroyed UV image file: catno=     21 disk= 1
IMAGR4: Appears to have ended successfully
IMAGR4: auto         31DEC06 TST: Cpu=      17.5  Real=     133
tmp/SETFC@1331+305_X,BAND.0-1 >& /dev/null
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     11 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     12 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     13 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     14 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     15 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     16 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     17 disk= 1
AIPS 4: Disk  1 in-CNO   18 renumbered as CNO   10
AIPS 4: Disk  1 in-CNO   19 renumbered as CNO   11
AIPS 4: Disk  1 in-CNO   20 renumbered as CNO   12
AIPS 4: Disk  1 in-CNO   21 renumbered as CNO   13
AIPS 4: Disk  1 in-CNO   22 renumbered as CNO   14
AIPS 4: Disk  1 in-CNO   23 renumbered as CNO   15
AIPS 4: Disk  1 in-CNO   24 renumbered as CNO   16
AIPS 4: ' '
AIPS 4: 'ESTIMATED RMS:'     '0.03283 MILLI JANSKY'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@X1748-28_X,BAND.0-1 >& /dev/null
AIPS 4: Waiting for returned adverbs
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: cat /tmp/SETFC@X1748-28_X,BAND.0-1 >> /home/auto/run/AH669_1999D
AIPS 4: EC27_1.log.1
AIPS 4: '    NOW STARTING WITH SOURCE  :2  =X1748-28'
AIPS 4: ' '
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@X1748-28_X,BAND.0-1 >& /dev/null
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     18 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     19 disk= 1
AIPS 4: Disk  1 in-CNO   20 renumbered as CNO   17
AIPS 4: Disk  1 in-CNO   21 renumbered as CNO   18
AIPS 4: ' '
AIPS 4: 'ESTIMATED RMS:'     '0.1317 MILLI JANSKY'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@1744-312_X,BAND.0-1 >& /dev/null
AIPS 4: Waiting for returned adverbs
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: cat /tmp/SETFC@1744-312_X,BAND.0-1 >> /home/auto/run/AH669_1999D
AIPS 4: EC27_1.log.1
AIPS 4: '    NOW STARTING WITH SOURCE  :3  =1744-312'
AIPS 4: ' '
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@1744-312_X,BAND.0-1 >& /dev/null
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     20 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     21 disk= 1
AIPS 4: Disk  1 in-CNO   22 renumbered as CNO   19
AIPS 4: Disk  1 in-CNO   23 renumbered as CNO   20
AIPS 4: ' '
AIPS 4: 'ESTIMATED RMS:'     '0.03756 MILLI JANSKY'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@X1859+226_X,BAND.0-1 >& /dev/null
AIPS 4: Waiting for returned adverbs
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: cat /tmp/SETFC@X1859+226_X,BAND.0-1 >> /home/auto/run/AH669_1999
AIPS 4: DEC27_1.log.1
AIPS 4: '    NOW STARTING WITH SOURCE  :4  =X1859+226'
AIPS 4: ' '
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@X1859+226_X,BAND.0-1 >& /dev/null
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     22 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     23 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     24 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     25 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     26 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     27 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     28 disk= 1
AIPS 4: Disk  1 in-CNO   29 renumbered as CNO   21
AIPS 4: Disk  1 in-CNO   30 renumbered as CNO   22
AIPS 4: Disk  1 in-CNO   31 renumbered as CNO   23
AIPS 4: Disk  1 in-CNO   32 renumbered as CNO   24
AIPS 4: Disk  1 in-CNO   33 renumbered as CNO   25
AIPS 4: Disk  1 in-CNO   34 renumbered as CNO   26
AIPS 4: Disk  1 in-CNO   35 renumbered as CNO   27
AIPS 4: ' '
AIPS 4: 'ESTIMATED RMS:'     '0.1006 MILLI JANSKY'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@1850+284_X,BAND.0-1 >& /dev/null
SETFC4: Task SETFC  (release of 31DEC06) begins
SETFC4: Found 1850+284    X BAND Seq   1 Disk:  1 in slot    7
SETFC4: SETCEL: recommends IMSIZE  1403 CELLSIZE   0.22815
SETFC4: SETCEL: returns    IMSIZE  2048 CELLSIZE   0.22815
SETFC4: ZTXOP2: using translated file name =
SETFC4: ZTXOP2: /tmp/SETFC@1850+284_X,BAND.0-1
SETFC4: FLYEYE added   1 fields to BOXFILE to  0.000 deg
SETFC4: WARNING: THIS MAY NOT COVER THE DESIRED AREA
SETFC4: Searching catalog between  0.00 and   0.13 degrees radius
SETFC4: ZTXOP2: using translated file name =
SETFC4: ZTXOP2: /home/auto/aips/TEXT/STARS/NV00.0030
SETFC4: Field       RA            Dec             Flux     Beam    Sep
SETFC4:     2    18:50:27.55    28:25:12.9        0.231    1.000   0.000
SETFC4: Add NVSS: wrote   1 fields to BOXFILE
SETFC4: The Sun is  52.1 deg away - ignoring
SETFC4: First field number written was   1
SETFC4: Highest field number written was   2
SETFC4: returns adverbs to AIPS
SETFC4: Appears to have ended successfully
SETFC4: auto         31DEC06 TST: Cpu=       1.4  Real=       5
C     1  2036  2036   18 50 27.59   28 25 13.1
00001  -1   1019   1024   1025
C     2   246   246   18 50 27.55   28 25 12.9
00002  -1    100    128    129
numbered as CNO   21
AIPS 4: Disk  1 in-CNO   30 renumbered as CNO   22
AIPS 4: Disk  1 in-CNO   31 renumbered as CNO   23
AIPS 4: Disk  1 in-CNO   32 renumbered as CNO   24
AIPS 4: Disk  1 in-CNO   33 renumbered as CNO   25
AIPS 4: Disk  1 in-CNO   34 renumbered as CNO   26
AIPS 4: Disk  1 in-CNO   35 renumbered as CNO   27
AIPS 4: ' '
AIPS 4: 'ESTIMATED RMS:'     '0.1006 MILLI JANSKY'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@1850+284_X,BAND.0-1 >& /dev/null
AIPS 4: Waiting for returned adverbs
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: cat /tmp/SETFC@1850+284_X,BAND.0-1 >> /home/auto/run/AH669_1999D
AIPS 4: EC27_1.log.1
AIPS 4: '    NOW STARTING WITH SOURCE  :5  =1850+284'
AIPS 4: ' '
IMAGR4: Task IMAGR  (release of 31DEC06) begins
IMAGR4: ZTXOP2: using translated file name =
IMAGR4: ZTXOP2: /tmp/SETFC@1850+284_X,BAND.0-1
IMAGR4: FIELDF: Final field parameters and # read are:
IMAGR4: Field    1 2036 2036 -1.3192E-03 -2.0000E-02          0
IMAGR4: Field    2  246  246 -5.2901E-01 -2.2000E-01          0
IMAGR4: ZTXOP2: using translated file name =
IMAGR4: ZTXOP2: /tmp/SETFC@1850+284_X,BAND.0-1
IMAGR4: WINDF: Number of clean boxes/field read as follows:
IMAGR4: Field 01:   1  Field 02:   1
IMAGR4: Create 1850+284    .IMAGR .   1 (UV)  on disk  1  cno   28
IMAGR4: Beginning channel    1 through    1 with  2 IFs
IMAGR4: IMACPY: Copied     4212 visibilities to be imaged
IMAGR4: **** WARNING data included out of inner portion of UV plane ****
IMAGR4: **** Watch for high-frequency & other poor cleaning effects ****
IMAGR4: UVWAIT: begin finding uniform weights
IMAGR4: UVWAIT: Average grid weight  2.288E+04
IMAGR4: UVWAIT: Adding temperance S  4.576E+03
IMAGR4: UVWAIT: begin applying uniform or other weights
IMAGR4: UVWAIT: Sum of weights in  3.471E+07 and out  4.112E+07
IMAGR4: UVWAIT: Noise is increased by a factor 1.140 due to weighting
IMAGR4: UVWAIT: Average summed weight  2.288E+04 over       8424 vis
IMAGR4: Create 1850+284    .IBM001.   1 (MA)  on disk  1  cno   29
IMAGR4: Create 1850+284    .IBM002.   1 (MA)  on disk  1  cno   30
IMAGR4: Create 1850+284    .ICL001.   1 (MA)  on disk  1  cno   31
IMAGR4: Create 1850+284    .ICL002.   1 (MA)  on disk  1  cno   32
IMAGR4: GRDFLT: X and Y convolution type = SPHEROIDAL
IMAGR4: GRDFLT: X and Y parms =  3.0000  1.0000
IMAGR4: GRDFLT: convolution function sampled every 1/100 of a cell
IMAGR4: GRDMEM: Ave    2 Channels; 8.435100E+09 to 8.485100E+09 Hz
IMAGR4: Field   1 Sum of gridding weights =  4.36589E+08
IMAGR4: Field   1 Beam min =  -72.0 MilliJy, max =    1.0      Jy
IMAGR4: Field   1 fit FWHM =  779.675 x  724.150 Milliarcsec, PA=   42.6
IMAGR4: Field   2 Sum of gridding weights =  4.36596E+08
IMAGR4: Field   2 Beam min =  -72.0 MilliJy, max =    1.0      Jy
IMAGR4: Field   2 fit FWHM =  779.673 x  724.150 Milliarcsec, PA=   42.6
IMAGR4: CLBHIS: minimum component 0.500 of current peak
IMAGR4: Field   1 min = -108.2 MilliJy,max =    1.5      Jy
IMAGR4: Field   2 min = -119.8 MilliJy,max =    1.5      Jy
IMAGR4: BGC Clean: using 2043 cell beam + residuals >   167.48 MilliJy
IMAGR4:     1520 Residual map points loaded
IMAGR4: Field    1 min allowed flux  =  716.955 MilliJy iter=        8
IMAGR4: Field    1 Clean flux density=  853.716 MilliJy        8 comps
IMAGR4: Total Cleaned flux density     =  853.716 MilliJy        8 comps
IMAGR4: SETDO3: imaging done with multiple tangent planes
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: VISDFT: Model components of type Point
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min =  -52.1 MilliJy,max =  634.0 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  6.030E-01 < Second best  6.816E-01
IMAGR4: Field   1 min =  -47.2 MilliJy,max =  645.3 MilliJy
IMAGR4: BGC Clean: using 2043 cell beam + residuals >    80.11 MilliJy
IMAGR4:      865 Residual map points loaded
IMAGR4: Field    1 min allowed flux  =  308.626 MilliJy iter=       16
IMAGR4: Field    1 Clean flux density=    1.221      Jy       16 comps
IMAGR4: Total Cleaned flux density     =    1.221      Jy       16 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min =  -23.3 MilliJy,max =  277.3 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  2.638E-01 < Second best  2.934E-01
IMAGR4: Field   1 min =  -21.8 MilliJy,max =  277.8 MilliJy
IMAGR4: BGC Clean: using 2043 cell beam + residuals >    34.48 MilliJy
IMAGR4:     1066 Residual map points loaded
IMAGR4: Field    1 min allowed flux  =  129.567 MilliJy iter=       25
IMAGR4: Field    1 Clean flux density=    1.396      Jy       25 comps
IMAGR4: Total Cleaned flux density     =    1.396      Jy       25 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min =  -11.3 MilliJy,max =  118.4 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.127E-01 < Second best  1.232E-01
IMAGR4: Field   1 min =  -10.3 MilliJy,max =  118.1 MilliJy
IMAGR4: BGC Clean: using 2043 cell beam + residuals >    14.48 MilliJy
IMAGR4:     1279 Residual map points loaded
IMAGR4: Field    1 min allowed flux  =   55.788 MilliJy iter=       34
IMAGR4: Field    1 Clean flux density=    1.471      Jy       34 comps
IMAGR4: Total Cleaned flux density     =    1.471      Jy       34 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min =   -9.8 MilliJy,max =   50.7 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  4.824E-02 < Second best  5.305E-02
IMAGR4: Field   1 min =  -11.2 MilliJy,max =   50.7 MilliJy
IMAGR4: BGC Clean: using 2043 cell beam + residuals >     6.23 MilliJy
IMAGR4:     2342 Residual map points loaded
IMAGR4: Field    1 min allowed flux  =   23.915 MilliJy iter=       43
IMAGR4: Field    1 Clean flux density=    1.504      Jy       43 comps
IMAGR4: Total Cleaned flux density     =    1.504      Jy       43 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min =  -18.0 MilliJy,max =   23.1 MilliJy
IMAGR4: BGC Clean: using  509 cell beam + residuals >     5.66 MilliJy
IMAGR4:       99 Residual map points loaded
IMAGR4: Field    2 min allowed flux  =  -11.360 MilliJy iter=       22
IMAGR4: Field    2 Clean flux density=    2.059 MilliJy       22 comps
IMAGR4: Total Cleaned flux density     =    1.506      Jy       65 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =  -12.0 MilliJy,max =   10.7 MilliJy
IMAGR4: BGC Clean: using 2043 cell beam + residuals >     2.67 MilliJy
IMAGR4:     6619 Residual map points loaded
IMAGR4: Field    1 min allowed flux  =   -5.921 MilliJy iter=       73
IMAGR4: Field    1 Clean flux density=    1.499      Jy       73 comps
IMAGR4: Total Cleaned flux density     =    1.501      Jy       95 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min =   -5.6 MilliJy,max =    6.4 MilliJy
IMAGR4: BGC Clean: using  509 cell beam + residuals >     2.38 MilliJy
IMAGR4:      397 Residual map points loaded
IMAGR4: Field    2 min algorithm flux=   -3.425 MilliJy iter=       73
IMAGR4: Field    2 Clean flux density=    3.900 MilliJy       73 comps
IMAGR4: Total Cleaned flux density     =    1.502      Jy      146 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =   -4.2 MilliJy,max =    4.7 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.75 MilliJy
IMAGR4:    18828 Residual map points loaded
IMAGR4: Field    1 min algorithm flux=   -2.983 MilliJy iter=      216
IMAGR4: Field    1 Clean flux density=    1.507      Jy      216 comps
IMAGR4: Total Cleaned flux density     =    1.511      Jy      289 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min =   -2.9 MilliJy,max =    2.6 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.74 MilliJy
IMAGR4:      193 Residual map points loaded
IMAGR4: Field    2 min algorithm flux=    2.097 MilliJy iter=      136
IMAGR4: Field    2 Clean flux density=    2.655 MilliJy      136 comps
IMAGR4: Total Cleaned flux density     =    1.509      Jy      352 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =   -3.9 MilliJy,max =    4.2 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.53 MilliJy
IMAGR4:    19579 Residual map points loaded
IMAGR4: Field    1 min algorithm flux=    2.389 MilliJy iter=      474
IMAGR4: Field    1 Clean flux density=    1.508      Jy      474 comps
IMAGR4: Total Cleaned flux density     =    1.511      Jy      610 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =   -3.5 MilliJy,max =    3.6 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.37 MilliJy
IMAGR4:    19323 Residual map points loaded
IMAGR4: Field    1 min algorithm flux=    2.003 MilliJy iter=      818
IMAGR4: Field    1 Clean flux density=    1.508      Jy      818 comps
IMAGR4: Total Cleaned flux density     =    1.511      Jy      954 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min =   -1.8 MilliJy,max =    1.7 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.683E-03 < Second best  1.919E-03
IMAGR4: Field   1 min =   -3.1 MilliJy,max =    3.2 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.22 MilliJy
IMAGR4:    19792 Residual map points loaded
IMAGR4: Field    1 min algorithm flux=    1.704 MilliJy iter=     1266
IMAGR4: Field    1 Clean flux density=    1.504      Jy     1266 comps
IMAGR4: Total Cleaned flux density     =    1.507      Jy     1402 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min =   -1.6 MilliJy,max =    1.5 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.22 MilliJy
IMAGR4:       86 Residual map points loaded
IMAGR4: Field    2 min algorithm flux=    1.262 MilliJy iter=      183
IMAGR4: Field    2 Clean flux density=    4.173 MilliJy      183 comps
IMAGR4: Total Cleaned flux density     =    1.508      Jy     1449 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =   -2.8 MilliJy,max =    2.8 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.07 MilliJy
IMAGR4:    19760 Residual map points loaded
IMAGR4: Field    1 min algorithm flux=   -1.451 MilliJy iter=     1868
IMAGR4: Field    1 Clean flux density=    1.511      Jy     1868 comps
IMAGR4: Total Cleaned flux density     =    1.516      Jy     2051 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =   -2.7 MilliJy,max =    2.4 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   941.22 MicroJy
IMAGR4:    19521 Residual map points loaded
IMAGR4: Field    1 min algorithm flux=   -1.255 MilliJy iter=     2638
IMAGR4: Field    1 Clean flux density=    1.489      Jy     2638 comps
IMAGR4: Total Cleaned flux density     =    1.494      Jy     2821 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min =   -1.5 MilliJy,max =    1.5 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   938.64 MicroJy
IMAGR4:       63 Residual map points loaded
IMAGR4: Field    2 min algorithm flux= -958.200 MicroJy iter=      231
IMAGR4: Field    2 Clean flux density=    4.550 MilliJy      231 comps
IMAGR4: Total Cleaned flux density     =    1.494      Jy     2869 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =   -2.2 MilliJy,max =    2.4 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   838.91 MicroJy
IMAGR4:    19823 Residual map points loaded
IMAGR4: Field    1 min algorithm flux=    1.120 MilliJy iter=     3714
IMAGR4: Field    1 Clean flux density=    1.511      Jy     3714 comps
IMAGR4: Total Cleaned flux density     =    1.516      Jy     3945 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =   -2.3 MilliJy,max =    2.0 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   774.73 MicroJy
IMAGR4:    19714 Residual map points loaded
IMAGR4: Field    1 min algorithm flux=   -1.015 MilliJy iter=     5038
IMAGR4: Field    1 Clean flux density=    1.499      Jy     5038 comps
IMAGR4: Total Cleaned flux density     =    1.503      Jy     5269 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =   -1.7 MilliJy,max =    2.0 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   695.30 MicroJy
IMAGR4:    19458 Residual map points loaded
IMAGR4: Field    1 min algorithm flux= -888.793 MicroJy iter=     6584
IMAGR4: Field    1 Clean flux density=    1.495      Jy     6584 comps
IMAGR4: Total Cleaned flux density     =    1.500      Jy     6815 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min =   -1.1 MilliJy,max =    1.4 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   693.20 MicroJy
IMAGR4:      126 Residual map points loaded
IMAGR4: Field    2 min algorithm flux=  712.908 MicroJy iter=      299
IMAGR4: Field    2 Clean flux density=    7.207 MilliJy      299 comps
IMAGR4: Total Cleaned flux density     =    1.502      Jy     6883 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =   -1.9 MilliJy,max =    1.6 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   586.83 MicroJy
IMAGR4:    19727 Residual map points loaded
IMAGR4: Field    1 min algorithm flux= -733.491 MicroJy iter=     8349
IMAGR4: Field    1 Clean flux density=    1.513      Jy     8349 comps
IMAGR4: Total Cleaned flux density     =    1.520      Jy     8648 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =   -1.3 MilliJy,max =    1.5 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   528.09 MicroJy
IMAGR4:    19525 Residual map points loaded
IMAGR4: Field    1 min allowed flux  = -666.271 MicroJy iter=     9907
IMAGR4: Field    1 Clean flux density=    1.479      Jy     9907 comps
IMAGR4: Total Cleaned flux density     =    1.487      Jy    10206 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min = -511.4 MicroJy,max =  822.4 MicroJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   526.47 MicroJy
IMAGR4:       58 Residual map points loaded
IMAGR4: Field    2 min Clean flux    =  595.344 MicroJy iter=      316
IMAGR4: Field    2 Clean flux density=    8.371 MilliJy      316 comps
IMAGR4: Total Cleaned flux density     =    1.488      Jy    10223 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =   -1.2 MilliJy,max =    1.3 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   448.20 MicroJy
IMAGR4:    19986 Residual map points loaded
IMAGR4: Field    1 min Clean flux    =  603.341 MicroJy iter=    10634
IMAGR4: Field    1 Clean flux density=    1.501      Jy    10634 comps
IMAGR4: Total Cleaned flux density     =    1.510      Jy    10950 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Peak residual in window 603.341 less than limit 603.362 MicroJy
IMAGR4: Merging the Clean components files
IMAGR4: Field    1 compressed from     10634 to      6676 components
IMAGR4: Field    2 compressed from       316 to       120 components
IMAGR4: Field   1 min =   -1.2 MilliJy,max =    1.2 MilliJy
IMAGR4: Field   2 min = -423.8 MicroJy,max =  602.1 MicroJy
IMAGR4: Restoring Clean components
IMAGR4: Restoring overlapped Clean components
IMAGR4: Restore   1.498      Jy (    88 CCs) from field   1 to field   2
IMAGR4: Restore   8.371 MilliJy (   120 CCs) from field   2 to field   1
IMAGR4: Checking image max/min
IMAGR4: Field    1 final Clean flux     1.510      Jy
IMAGR4: Field    2 final Clean flux     1.506      Jy
IMAGR4: Deleting UV work file:
IMAGR4: Destroyed  1 extension files of type AN
IMAGR4: Destroyed  1 extension files of type FQ
IMAGR4: Destroyed UV image file: catno=     28 disk= 1
IMAGR4: Appears to have ended successfully
IMAGR4: auto         31DEC06 TST: Cpu=      53.6  Real=     378
numbered as CNO   21
AIPS 4: Disk  1 in-CNO   30 renumbered as CNO   22
AIPS 4: Disk  1 in-CNO   31 renumbered as CNO   23
AIPS 4: Disk  1 in-CNO   32 renumbered as CNO   24
AIPS 4: Disk  1 in-CNO   33 renumbered as CNO   25
AIPS 4: Disk  1 in-CNO   34 renumbered as CNO   26
AIPS 4: Disk  1 in-CNO   35 renumbered as CNO   27
AIPS 4: ' '
AIPS 4: 'ESTIMATED RMS:'     '0.1006 MILLI JANSKY'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@1850+284_X,BAND.0-1 >& /dev/null
AIPS 4: Waiting for returned adverbs
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: cat /tmp/SETFC@1850+284_X,BAND.0-1 >> /home/auto/run/AH669_1999D
AIPS 4: EC27_1.log.1
AIPS 4: '    NOW STARTING WITH SOURCE  :5  =1850+284'
AIPS 4: ' '
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@1850+284_X,BAND.0-1 >& /dev/null
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     29 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     30 disk= 1
AIPS 4: Disk  1 in-CNO   31 renumbered as CNO   28
AIPS 4: Disk  1 in-CNO   32 renumbered as CNO   29
AIPS 4: ' '
AIPS 4: 'ESTIMATED RMS:'     '0.1619 MILLI JANSKY'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@2007+404_X,BAND.0-1 >& /dev/null
SETFC4: Task SETFC  (release of 31DEC06) begins
SETFC4: Found 2007+404    X BAND Seq   1 Disk:  1 in slot    8
SETFC4: SETCEL: recommends IMSIZE  1371 CELLSIZE   0.23341
SETFC4: SETCEL: returns    IMSIZE  1024 CELLSIZE   0.23341
SETFC4: ZTXOP2: using translated file name =
SETFC4: ZTXOP2: /tmp/SETFC@2007+404_X,BAND.0-1
SETFC4: FLYEYE added   7 fields to BOXFILE to  0.055 deg
SETFC4: Searching catalog between  0.06 and   0.13 degrees radius
SETFC4: ZTXOP2: using translated file name =
SETFC4: ZTXOP2: /home/auto/aips/TEXT/STARS/NV00.0030
SETFC4: No NVSS sources selected for BOXFILE
SETFC4: The Sun is  68.2 deg away - ignoring
SETFC4: First field number written was   1
SETFC4: Highest field number written was   7
SETFC4: returns adverbs to AIPS
SETFC4: Appears to have ended successfully
SETFC4: auto         31DEC06 TST: Cpu=       1.5  Real=      10
C     1  1012  1012   20 07 44.94   40 29 48.6
00001  -1    507    512    513
C     2  1012  1012   20 07 44.94   40 26 29.9
00002  -1    507    512    513
C     3  1012  1012   20 07 29.86   40 28 09.2
00003  -1    507    512    513
C     4  1012  1012   20 08 00.02   40 28 09.2
00004  -1    507    512    513
C     5  1012  1012   20 07 29.85   40 31 27.9
00005  -1    507    512    513
C     6  1012  1012   20 08 00.04   40 31 27.9
00006  -1    507    512    513
C     7  1012  1012   20 07 44.94   40 33 07.3
00007  -1    507    512    513
numbered as CNO   21
AIPS 4: Disk  1 in-CNO   30 renumbered as CNO   22
AIPS 4: Disk  1 in-CNO   31 renumbered as CNO   23
AIPS 4: Disk  1 in-CNO   32 renumbered as CNO   24
AIPS 4: Disk  1 in-CNO   33 renumbered as CNO   25
AIPS 4: Disk  1 in-CNO   34 renumbered as CNO   26
AIPS 4: Disk  1 in-CNO   35 renumbered as CNO   27
AIPS 4: ' '
AIPS 4: 'ESTIMATED RMS:'     '0.1006 MILLI JANSKY'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@1850+284_X,BAND.0-1 >& /dev/null
AIPS 4: Waiting for returned adverbs
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: cat /tmp/SETFC@1850+284_X,BAND.0-1 >> /home/auto/run/AH669_1999D
AIPS 4: EC27_1.log.1
AIPS 4: '    NOW STARTING WITH SOURCE  :5  =1850+284'
AIPS 4: ' '
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@1850+284_X,BAND.0-1 >& /dev/null
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     29 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     30 disk= 1
AIPS 4: Disk  1 in-CNO   31 renumbered as CNO   28
AIPS 4: Disk  1 in-CNO   32 renumbered as CNO   29
AIPS 4: ' '
AIPS 4: 'ESTIMATED RMS:'     '0.1619 MILLI JANSKY'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@2007+404_X,BAND.0-1 >& /dev/null
AIPS 4: Waiting for returned adverbs
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: cat /tmp/SETFC@2007+404_X,BAND.0-1 >> /home/auto/run/AH669_1999D
AIPS 4: EC27_1.log.1
AIPS 4: '    NOW STARTING WITH SOURCE  :6  =2007+404'
AIPS 4: ' '
IMAGR4: Task IMAGR  (release of 31DEC06) begins
IMAGR4: ZTXOP2: using translated file name =
IMAGR4: ZTXOP2: /tmp/SETFC@2007+404_X,BAND.0-1
IMAGR4: FIELDF: Final field parameters and # read are:
IMAGR4: Field    1 1012 1012 -5.4752E-02 -4.0000E-03          0
IMAGR4: Field    2 1012 1012 -5.4752E-02 -1.9870E+02          0
IMAGR4: Field    3 1012 1012 -1.7207E+02 -9.9404E+01          0
IMAGR4: Field    4 1012 1012  1.7196E+02 -9.9404E+01          0
IMAGR4: Field    5 1012 1012 -1.7218E+02  9.9296E+01          0
IMAGR4: Field    6 1012 1012  1.7219E+02  9.9296E+01          0
IMAGR4: Field    7 1012 1012 -5.4752E-02  1.9870E+02          0
IMAGR4: ZTXOP2: using translated file name =
IMAGR4: ZTXOP2: /tmp/SETFC@2007+404_X,BAND.0-1
IMAGR4: WINDF: Number of clean boxes/field read as follows:
IMAGR4: Field 01:   1  Field 02:   1  Field 03:   1  Field 04:   1
IMAGR4: Field 05:   1  Field 06:   1  Field 07:   1
IMAGR4: Create 2007+404    .IMAGR .   1 (UV)  on disk  1  cno   30
IMAGR4: Beginning channel    1 through    1 with  2 IFs
IMAGR4: IMACPY: Copied     1625 visibilities to be imaged
IMAGR4: **** WARNING data included out of inner portion of UV plane ****
IMAGR4: **** Watch for high-frequency & other poor cleaning effects ****
IMAGR4: UVWAIT: begin finding uniform weights
IMAGR4: UVWAIT: Average grid weight  2.501E+04
IMAGR4: UVWAIT: Adding temperance S  5.001E+03
IMAGR4: UVWAIT: begin applying uniform or other weights
IMAGR4: UVWAIT: Sum of weights in  1.298E+07 and out  1.464E+07
IMAGR4: UVWAIT: Noise is increased by a factor 1.158 due to weighting
IMAGR4: UVWAIT: Average summed weight  2.501E+04 over       3250 vis
IMAGR4: Create 2007+404    .IBM001.   1 (MA)  on disk  1  cno   31
IMAGR4: Create 2007+404    .IBM002.   1 (MA)  on disk  1  cno   32
IMAGR4: Create 2007+404    .IBM003.   1 (MA)  on disk  1  cno   33
IMAGR4: Create 2007+404    .IBM004.   1 (MA)  on disk  1  cno   34
IMAGR4: Create 2007+404    .IBM005.   1 (MA)  on disk  1  cno   35
IMAGR4: Create 2007+404    .IBM006.   1 (MA)  on disk  1  cno   36
IMAGR4: Create 2007+404    .IBM007.   1 (MA)  on disk  1  cno   37
IMAGR4: Create 2007+404    .ICL001.   1 (MA)  on disk  1  cno   38
IMAGR4: Create 2007+404    .ICL002.   1 (MA)  on disk  1  cno   39
IMAGR4: Create 2007+404    .ICL003.   1 (MA)  on disk  1  cno   40
IMAGR4: Create 2007+404    .ICL004.   1 (MA)  on disk  1  cno   41
IMAGR4: Create 2007+404    .ICL005.   1 (MA)  on disk  1  cno   42
IMAGR4: Create 2007+404    .ICL006.   1 (MA)  on disk  1  cno   43
IMAGR4: Create 2007+404    .ICL007.   1 (MA)  on disk  1  cno   44
IMAGR4: GRDFLT: X and Y convolution type = SPHEROIDAL
IMAGR4: GRDFLT: X and Y parms =  3.0000  1.0000
IMAGR4: GRDFLT: convolution function sampled every 1/100 of a cell
IMAGR4: GRDMEM: Ave    2 Channels; 8.435100E+09 to 8.485100E+09 Hz
IMAGR4: Field   1 Sum of gridding weights =  1.55433E+08
IMAGR4: Field   1 Beam min = -143.5 MilliJy, max =    1.0      Jy
IMAGR4: Field   1 fit FWHM =  818.519 x  713.356 Milliarcsec, PA=   46.8
IMAGR4: Field   2 Sum of gridding weights =  1.55433E+08
IMAGR4: Field   2 Beam min = -132.1 MilliJy, max =    1.0      Jy
IMAGR4: Field   2 fit FWHM =  818.296 x  713.539 Milliarcsec, PA=   46.8
IMAGR4: Field   3 Sum of gridding weights =  1.55433E+08
IMAGR4: Field   3 Beam min = -104.8 MilliJy, max =    1.0      Jy
IMAGR4: Field   3 fit FWHM =  818.196 x  713.299 Milliarcsec, PA=   46.7
IMAGR4: Field   4 Sum of gridding weights =  1.55433E+08
IMAGR4: Field   4 Beam min = -135.7 MilliJy, max =    1.0      Jy
IMAGR4: Field   4 fit FWHM =  818.620 x  713.591 Milliarcsec, PA=   47.0
IMAGR4: Field   5 Sum of gridding weights =  1.55433E+08
IMAGR4: Field   5 Beam min = -134.2 MilliJy, max =    1.0      Jy
IMAGR4: Field   5 fit FWHM =  818.420 x  713.117 Milliarcsec, PA=   46.7
IMAGR4: Field   6 Sum of gridding weights =  1.55433E+08
IMAGR4: Field   6 Beam min = -110.2 MilliJy, max =    1.0      Jy
IMAGR4: Field   6 fit FWHM =  818.844 x  713.406 Milliarcsec, PA=   47.0
IMAGR4: Field   7 Sum of gridding weights =  1.55433E+08
IMAGR4: Field   7 Beam min = -132.9 MilliJy, max =    1.0      Jy
IMAGR4: Field   7 fit FWHM =  818.742 x  713.172 Milliarcsec, PA=   46.8
IMAGR4: CLBHIS: minimum component 0.500 of current peak
IMAGR4: Field   1 min = -218.5 MilliJy,max =    2.0      Jy
IMAGR4: Field   2 min = -171.7 MilliJy,max =  661.5 MilliJy
IMAGR4: Field   3 min = -173.8 MilliJy,max =  779.7 MilliJy
IMAGR4: Field   4 min = -183.2 MilliJy,max =  794.5 MilliJy
IMAGR4: Field   5 min = -194.8 MilliJy,max =  767.8 MilliJy
IMAGR4: Field   6 min = -168.9 MilliJy,max =  768.2 MilliJy
IMAGR4: Field   7 min = -170.1 MilliJy,max =  649.7 MilliJy
IMAGR4: BGC Clean: using 2043 cell beam + residuals >   373.13 MilliJy
IMAGR4:     1287 Residual map points loaded
IMAGR4: Field    1 min algorithm flux=    1.188      Jy iter=        6
IMAGR4: Field    1 Clean flux density=  942.351 MilliJy        6 comps
IMAGR4: Total Cleaned flux density     =  942.351 MilliJy        6 comps
IMAGR4: SETDO3: imaging done with multiple tangent planes
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: VISDFT: Model components of type Point
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min = -118.5 MilliJy,max =    1.1      Jy
IMAGR4: BGC Clean: using 2031 cell beam + residuals >   229.17 MilliJy
IMAGR4:      703 Residual map points loaded
IMAGR4: Field    1 min allowed flux  =  494.977 MilliJy iter=       15
IMAGR4: Field    1 Clean flux density=    1.615      Jy       15 comps
IMAGR4: Total Cleaned flux density     =    1.615      Jy       15 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   3 min =  -45.4 MilliJy,max =  174.6 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.582E-01 < Second best  6.394E-01
IMAGR4: Field   6 min =  -47.0 MilliJy,max =  170.7 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.461E-01 < Second best  5.782E-01
IMAGR4: Field   7 min =  -47.0 MilliJy,max =  148.0 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.398E-01 < Second best  5.767E-01
IMAGR4: Field   2 min =  -48.7 MilliJy,max =  149.6 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.398E-01 < Second best  5.384E-01
IMAGR4: Field   5 min =  -49.0 MilliJy,max =  174.5 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.201E-01 < Second best  5.330E-01
IMAGR4: Field   4 min =  -51.5 MilliJy,max =  175.2 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.225E-01 < Second best  4.709E-01
IMAGR4: Field   1 min =  -58.7 MilliJy,max =  456.2 MilliJy
IMAGR4: BGC Clean: using 2043 cell beam + residuals >    91.83 MilliJy
IMAGR4:     1087 Residual map points loaded
IMAGR4: Field    1 min allowed flux  =  215.989 MilliJy iter=       24
IMAGR4: Field    1 Clean flux density=    1.904      Jy       24 comps
IMAGR4: Total Cleaned flux density     =    1.904      Jy       24 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =  -40.3 MilliJy,max =  194.4 MilliJy
IMAGR4: BGC Clean: using 1931 cell beam + residuals >    54.61 MilliJy
IMAGR4:      246 Residual map points loaded
IMAGR4: Field    1 min allowed flux  =   92.032 MilliJy iter=       33
IMAGR4: Field    1 Clean flux density=    2.028      Jy       33 comps
IMAGR4: Total Cleaned flux density     =    2.028      Jy       33 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   3 min =  -24.3 MilliJy,max =   32.5 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  3.071E-02 < Second best  1.461E-01
IMAGR4: Field   6 min =  -24.6 MilliJy,max =   29.5 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  2.819E-02 < Second best  1.398E-01
IMAGR4: Field   7 min =  -25.9 MilliJy,max =   33.1 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  3.033E-02 < Second best  1.398E-01
IMAGR4: Field   2 min =  -28.2 MilliJy,max =   32.6 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  3.028E-02 < Second best  1.225E-01
IMAGR4: Field   4 min =  -29.5 MilliJy,max =   31.9 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  2.825E-02 < Second best  1.201E-01
IMAGR4: Field   5 min =  -26.7 MilliJy,max =   33.0 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  3.155E-02 < Second best  8.757E-02
IMAGR4: Field   1 min =  -51.2 MilliJy,max =   85.3 MilliJy
IMAGR4: BGC Clean: using 2043 cell beam + residuals >    17.07 MilliJy
IMAGR4:     5451 Residual map points loaded
IMAGR4: Field    1 min allowed flux  =  -42.475 MilliJy iter=       50
IMAGR4: Field    1 Clean flux density=    2.056      Jy       50 comps
IMAGR4: Total Cleaned flux density     =    2.056      Jy       50 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =  -40.9 MilliJy,max =   41.9 MilliJy
IMAGR4: BGC Clean: using  639 cell beam + residuals >    15.80 MilliJy
IMAGR4:     1151 Residual map points loaded
IMAGR4: Field    1 min algorithm flux=  -22.893 MilliJy iter=       78
IMAGR4: Field    1 Clean flux density=    2.038      Jy       78 comps
IMAGR4: Total Cleaned flux density     =    2.038      Jy       78 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   5 min =  -15.7 MilliJy,max =   17.2 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.647E-02 < Second best  3.071E-02
IMAGR4: Field   3 min =  -12.2 MilliJy,max =   15.9 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.518E-02 < Second best  3.033E-02
IMAGR4: Field   7 min =  -14.8 MilliJy,max =   15.9 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.327E-02 < Second best  3.028E-02
IMAGR4: Field   2 min =  -15.0 MilliJy,max =   16.3 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.558E-02 < Second best  2.825E-02
IMAGR4: Field   4 min =  -15.1 MilliJy,max =   14.6 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.444E-02 < Second best  2.819E-02
IMAGR4: Field   6 min =  -14.4 MilliJy,max =   12.2 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.370E-02 < Second best  2.182E-02
IMAGR4: Field   1 min =  -21.1 MilliJy,max =   22.9 MilliJy
IMAGR4: BGC Clean: using  639 cell beam + residuals >     8.52 MilliJy
IMAGR4:     6065 Residual map points loaded
IMAGR4: Field    1 min algorithm flux=   12.815 MilliJy iter=      128
IMAGR4: Field    1 Clean flux density=    2.047      Jy      128 comps
IMAGR4: Total Cleaned flux density     =    2.047      Jy      128 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   5 min =  -11.7 MilliJy,max =   12.7 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.217E-02 < Second best  1.558E-02
IMAGR4: Field   2 min =  -11.7 MilliJy,max =   11.7 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.099E-02 < Second best  1.518E-02
IMAGR4: Field   3 min =  -10.1 MilliJy,max =   11.1 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.028E-02 < Second best  1.444E-02
IMAGR4: Field   4 min =  -11.7 MilliJy,max =   10.9 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.115E-02 < Second best  1.370E-02
IMAGR4: Field   6 min =  -10.6 MilliJy,max =    8.3 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.009E-02 < Second best  1.327E-02
IMAGR4: Field   7 min =  -11.2 MilliJy,max =   12.0 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  9.634E-03 < Second best  1.223E-02
IMAGR4: Field   1 min =  -12.3 MilliJy,max =   12.4 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     6.49 MilliJy
IMAGR4:     6135 Residual map points loaded
IMAGR4: Field    1 min algorithm flux=   10.042 MilliJy iter=      219
IMAGR4: Field    1 Clean flux density=    2.060      Jy      219 comps
IMAGR4: Total Cleaned flux density     =    2.060      Jy      219 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   5 min =   -8.5 MilliJy,max =    8.5 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  8.061E-03 < Second best  1.115E-02
IMAGR4: Field   4 min =   -8.6 MilliJy,max =    8.0 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  8.273E-03 < Second best  1.099E-02
IMAGR4: Field   2 min =   -8.5 MilliJy,max =    8.0 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  8.104E-03 < Second best  1.028E-02
IMAGR4: Field   3 min =   -8.7 MilliJy,max =    8.6 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  8.360E-03 < Second best  1.009E-02
IMAGR4: Field   6 min =   -7.8 MilliJy,max =    7.3 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  7.445E-03 < Second best  9.634E-03
IMAGR4: Field   7 min =   -8.0 MilliJy,max =    8.5 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  7.500E-03 < Second best  9.602E-03
IMAGR4: Field   1 min =   -8.8 MilliJy,max =    9.2 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     4.81 MilliJy
IMAGR4:     5000 Residual map points loaded
IMAGR4: Field    1 min algorithm flux=   -6.691 MilliJy iter=      321
IMAGR4: Field    1 Clean flux density=    2.037      Jy      321 comps
IMAGR4: Total Cleaned flux density     =    2.037      Jy      321 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   3 min =   -7.4 MilliJy,max =    9.4 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     4.79 MilliJy
IMAGR4:      482 Residual map points loaded
IMAGR4: Field    3 min algorithm flux=    5.698 MilliJy iter=       61
IMAGR4: Field    3 Clean flux density=   29.034 MilliJy       61 comps
IMAGR4: Total Cleaned flux density     =    2.066      Jy      382 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   4 min =   -7.2 MilliJy,max =    6.5 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  6.243E-03 < Second best  8.104E-03
IMAGR4: Field   2 min =   -6.8 MilliJy,max =    6.4 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  6.533E-03 < Second best  8.061E-03
IMAGR4: Field   5 min =   -7.3 MilliJy,max =    6.7 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  6.434E-03 < Second best  7.500E-03
IMAGR4: Field   7 min =   -6.3 MilliJy,max =    6.7 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  6.052E-03 < Second best  7.445E-03
IMAGR4: Field   6 min =   -7.6 MilliJy,max =    7.0 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     4.16 MilliJy
IMAGR4:     1110 Residual map points loaded
IMAGR4: Field    6 min algorithm flux=    5.167 MilliJy iter=       99
IMAGR4: Field    6 Clean flux density=   -1.174 MilliJy       99 comps
IMAGR4: Total Cleaned flux density     =    2.065      Jy      481 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min =   -8.0 MilliJy,max =    6.2 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     4.17 MilliJy
IMAGR4:      609 Residual map points loaded
IMAGR4: Field    2 min algorithm flux=   -4.842 MilliJy iter=       77
IMAGR4: Field    2 Clean flux density=  -24.471 MilliJy       77 comps
IMAGR4: Total Cleaned flux density     =    2.041      Jy      558 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   5 min =   -6.8 MilliJy,max =    6.2 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  5.964E-03 < Second best  6.402E-03
IMAGR4: Field   1 min =   -5.6 MilliJy,max =    6.0 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  5.733E-03 < Second best  6.243E-03
IMAGR4: Field   4 min =   -5.8 MilliJy,max =    5.4 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  5.558E-03 < Second best  6.052E-03
IMAGR4: Field   7 min =   -5.7 MilliJy,max =    6.3 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  5.410E-03 < Second best  5.964E-03
IMAGR4: BGC Clean: using  491 cell beam + residuals >     3.68 MilliJy
IMAGR4:     2130 Residual map points loaded
IMAGR4: Field    5 min algorithm flux=    4.305 MilliJy iter=       97
IMAGR4: Field    5 Clean flux density=   27.686 MilliJy       97 comps
IMAGR4: Total Cleaned flux density     =    2.068      Jy      655 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =   -5.3 MilliJy,max =    4.9 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  4.730E-03 < Second best  5.558E-03
IMAGR4: Field   4 min =   -5.5 MilliJy,max =    5.1 MilliJy
IMAGR4: BGC Clean: using  639 cell beam + residuals >     3.50 MilliJy
IMAGR4:      846 Residual map points loaded
IMAGR4: Field    4 min algorithm flux=   -3.883 MilliJy iter=       69
IMAGR4: Field    4 Clean flux density=   -3.265 MilliJy       69 comps
IMAGR4: Total Cleaned flux density     =    2.065      Jy      724 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   3 min =   -4.9 MilliJy,max =    5.4 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  4.092E-03 < Second best  5.410E-03
IMAGR4: Field   7 min =   -4.9 MilliJy,max =    4.6 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  4.325E-03 < Second best  4.941E-03
IMAGR4: Field   6 min =   -4.8 MilliJy,max =    4.8 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  4.286E-03 < Second best  4.730E-03
IMAGR4: Field   1 min =   -5.2 MilliJy,max =    4.7 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  4.248E-03 < Second best  4.626E-03
IMAGR4: Field   2 min =   -4.4 MilliJy,max =    4.3 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  3.959E-03 < Second best  4.325E-03
IMAGR4: BGC Clean: using  103 cell beam + residuals >     2.94 MilliJy
IMAGR4:      860 Residual map points loaded
IMAGR4: Field    7 min algorithm flux=    3.433 MilliJy iter=      123
IMAGR4: Field    7 Clean flux density=  -19.976 MilliJy      123 comps
IMAGR4: Total Cleaned flux density     =    2.045      Jy      847 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   6 min =   -4.0 MilliJy,max =    4.2 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  4.031E-03 < Second best  4.248E-03
IMAGR4: Field   1 min =   -5.5 MilliJy,max =    4.4 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     2.93 MilliJy
IMAGR4:      371 Residual map points loaded
IMAGR4: Field    1 min algorithm flux=   -3.198 MilliJy iter=      400
IMAGR4: Field    1 Clean flux density=    2.050      Jy      400 comps
IMAGR4: Total Cleaned flux density     =    2.057      Jy      926 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   5 min =   -4.0 MilliJy,max =    4.4 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     2.62 MilliJy
IMAGR4:      831 Residual map points loaded
IMAGR4: Field    5 min algorithm flux=    2.993 MilliJy iter=      227
IMAGR4: Field    5 Clean flux density=   37.819 MilliJy      227 comps
IMAGR4: Total Cleaned flux density     =    2.067      Jy     1056 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   3 min =   -4.3 MilliJy,max =    4.8 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  3.392E-03 < Second best  4.031E-03
IMAGR4: Field   6 min =   -3.8 MilliJy,max =    4.1 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  3.689E-03 < Second best  3.959E-03
IMAGR4: Field   2 min =   -3.8 MilliJy,max =    4.2 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  3.320E-03 < Second best  3.719E-03
IMAGR4: Field   4 min =   -4.5 MilliJy,max =    3.7 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     2.31 MilliJy
IMAGR4:     2142 Residual map points loaded
IMAGR4: Field    4 min algorithm flux=    2.767 MilliJy iter=      289
IMAGR4: Field    4 Clean flux density=  -14.005 MilliJy      289 comps
IMAGR4: Total Cleaned flux density     =    2.057      Jy     1276 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   6 min =   -3.6 MilliJy,max =    3.6 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  3.117E-03 < Second best  3.392E-03
IMAGR4: Field   3 min =   -4.2 MilliJy,max =    4.4 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     2.29 MilliJy
IMAGR4:     1603 Residual map points loaded
IMAGR4: Field    3 min algorithm flux=   -2.705 MilliJy iter=      298
IMAGR4: Field    3 Clean flux density=   16.978 MilliJy      298 comps
IMAGR4: Total Cleaned flux density     =    2.045      Jy     1513 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min =   -2.7 MilliJy,max =    3.0 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  2.904E-03 < Second best  3.286E-03
IMAGR4: Field   7 min =   -3.7 MilliJy,max =    3.7 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     2.17 MilliJy
IMAGR4:      891 Residual map points loaded
IMAGR4: Field    7 min algorithm flux=    2.417 MilliJy iter=      287
IMAGR4: Field    7 Clean flux density=   15.572 MilliJy      287 comps
IMAGR4: Total Cleaned flux density     =    2.080      Jy     1677 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   6 min =   -3.3 MilliJy,max =    3.1 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     2.16 MilliJy
IMAGR4:      219 Residual map points loaded
IMAGR4: Field    6 min algorithm flux=   -2.285 MilliJy iter=      181
IMAGR4: Field    6 Clean flux density=   -3.824 MilliJy      181 comps
IMAGR4: Total Cleaned flux density     =    2.078      Jy     1759 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =   -2.9 MilliJy,max =    2.8 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     2.05 MilliJy
IMAGR4:       45 Residual map points loaded
IMAGR4: Field    1 min algorithm flux=   -2.087 MilliJy iter=      428
IMAGR4: Field    1 Clean flux density=    2.044      Jy      428 comps
IMAGR4: Total Cleaned flux density     =    2.072      Jy     1787 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min =   -2.6 MilliJy,max =    2.7 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  2.449E-03 < Second best  2.865E-03
IMAGR4: Field   5 min =   -2.6 MilliJy,max =    2.6 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  2.473E-03 < Second best  2.651E-03
IMAGR4: Field   4 min =   -3.0 MilliJy,max =    2.6 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.74 MilliJy
IMAGR4:      457 Residual map points loaded
IMAGR4: Field    4 min algorithm flux=   -1.865 MilliJy iter=      422
IMAGR4: Field    4 Clean flux density=   -8.077 MilliJy      422 comps
IMAGR4: Total Cleaned flux density     =    2.078      Jy     1920 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   3 min =   -2.9 MilliJy,max =    2.6 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  2.178E-03 < Second best  2.473E-03
IMAGR4: Field   5 min =   -2.7 MilliJy,max =    2.4 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  2.303E-03 < Second best  2.449E-03
IMAGR4: Field   2 min =   -2.5 MilliJy,max =    2.5 MilliJy
IMAGR4: BGC Clean: using  149 cell beam + residuals >     1.57 MilliJy
IMAGR4:      878 Residual map points loaded
IMAGR4: Field    2 min algorithm flux=   -1.714 MilliJy iter=      258
IMAGR4: Field    2 Clean flux density=  -33.132 MilliJy      258 comps
IMAGR4: Total Cleaned flux density     =    2.069      Jy     2101 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   7 min =   -2.5 MilliJy,max =    2.8 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  2.152E-03 < Second best  2.303E-03
IMAGR4: Field   5 min =   -2.4 MilliJy,max =    2.3 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.46 MilliJy
IMAGR4:     1905 Residual map points loaded
IMAGR4: Field    5 min algorithm flux=    1.681 MilliJy iter=      548
IMAGR4: Field    5 Clean flux density=   44.422 MilliJy      548 comps
IMAGR4: Total Cleaned flux density     =    2.076      Jy     2422 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   6 min =   -2.8 MilliJy,max =    3.1 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.42 MilliJy
IMAGR4:     2838 Residual map points loaded
IMAGR4: Field    6 min algorithm flux=    1.662 MilliJy iter=      585
IMAGR4: Field    6 Clean flux density=    4.424 MilliJy      585 comps
IMAGR4: Total Cleaned flux density     =    2.084      Jy     2826 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   3 min =   -2.6 MilliJy,max =    2.5 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.41 MilliJy
IMAGR4:     1377 Residual map points loaded
IMAGR4: Field    3 min algorithm flux=    1.564 MilliJy iter=      587
IMAGR4: Field    3 Clean flux density=   15.796 MilliJy      587 comps
IMAGR4: Total Cleaned flux density     =    2.083      Jy     3115 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   7 min =   -2.2 MilliJy,max =    2.4 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.40 MilliJy
IMAGR4:      301 Residual map points loaded
IMAGR4: Field    7 min algorithm flux=   -1.459 MilliJy iter=      398
IMAGR4: Field    7 Clean flux density=    7.490 MilliJy      398 comps
IMAGR4: Total Cleaned flux density     =    2.075      Jy     3226 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =   -1.5 MilliJy,max =    1.6 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.538E-03 < Second best  1.787E-03
IMAGR4: Field   4 min =   -1.9 MilliJy,max =    1.7 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.29 MilliJy
IMAGR4:      255 Residual map points loaded
IMAGR4: Field    4 min algorithm flux=    1.345 MilliJy iter=      536
IMAGR4: Field    4 Clean flux density=   -8.243 MilliJy      536 comps
IMAGR4: Total Cleaned flux density     =    2.075      Jy     3340 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min =   -1.8 MilliJy,max =    2.0 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >     1.25 MilliJy
IMAGR4:      252 Residual map points loaded
IMAGR4: Field    2 min algorithm flux=    1.290 MilliJy iter=      363
IMAGR4: Field    2 Clean flux density=  -31.216 MilliJy      363 comps
IMAGR4: Total Cleaned flux density     =    2.077      Jy     3445 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   5 min =   -1.6 MilliJy,max =    1.7 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.447E-03 < Second best  1.591E-03
IMAGR4: Field   6 min =   -1.9 MilliJy,max =    1.7 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.395E-03 < Second best  1.538E-03
IMAGR4: Field   1 min =   -1.4 MilliJy,max =    1.5 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.211E-03 < Second best  1.497E-03
IMAGR4: Field   3 min =   -1.8 MilliJy,max =    1.7 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  1.309E-03 < Second best  1.447E-03
IMAGR4: BGC Clean: using  103 cell beam + residuals >   972.98 MicroJy
IMAGR4:     1331 Residual map points loaded
IMAGR4: Field    5 min algorithm flux=    1.070 MilliJy iter=      870
IMAGR4: Field    5 Clean flux density=   37.934 MilliJy      870 comps
IMAGR4: Total Cleaned flux density     =    2.070      Jy     3767 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   7 min =   -1.6 MilliJy,max =    1.9 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   914.20 MicroJy
IMAGR4:     1498 Residual map points loaded
IMAGR4: Field    7 min algorithm flux=  996.527 MicroJy iter=      710
IMAGR4: Field    7 Clean flux density=    8.531 MilliJy      710 comps
IMAGR4: Total Cleaned flux density     =    2.071      Jy     4079 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   6 min =   -1.6 MilliJy,max =    1.4 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   909.18 MicroJy
IMAGR4:      675 Residual map points loaded
IMAGR4: Field    6 min Clean flux    = -971.087 MicroJy iter=      767
IMAGR4: Field    6 Clean flux density=   -1.394 MilliJy      767 comps
IMAGR4: Total Cleaned flux density     =    2.065      Jy     4261 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   3 min =   -1.8 MilliJy,max =    2.0 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   911.75 MicroJy
IMAGR4:     2087 Residual map points loaded
IMAGR4: Field    3 min algorithm flux=   -1.002 MilliJy iter=      972
IMAGR4: Field    3 Clean flux density=   22.214 MilliJy      972 comps
IMAGR4: Total Cleaned flux density     =    2.072      Jy     4646 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   4 min =   -1.6 MilliJy,max =    1.5 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   867.65 MicroJy
IMAGR4:     1666 Residual map points loaded
IMAGR4: Field    4 min Clean flux    =  971.323 MicroJy iter=      882
IMAGR4: Field    4 Clean flux density=   -4.631 MilliJy      882 comps
IMAGR4: Total Cleaned flux density     =    2.076      Jy     4992 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min =   -1.4 MilliJy,max =    1.4 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   806.77 MicroJy
IMAGR4:     1656 Residual map points loaded
IMAGR4: Field    2 min Clean flux    = -968.282 MicroJy iter=      492
IMAGR4: Field    2 Clean flux density=  -35.534 MilliJy      492 comps
IMAGR4: Total Cleaned flux density     =    2.071      Jy     5121 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min =   -1.0 MilliJy,max =    1.1 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   789.21 MicroJy
IMAGR4:      127 Residual map points loaded
IMAGR4: Field    1 min Clean flux    = -950.043 MicroJy iter=      435
IMAGR4: Field    1 Clean flux density=    2.043      Jy      435 comps
IMAGR4: Total Cleaned flux density     =    2.071      Jy     5128 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   5 min =   -1.3 MilliJy,max =    1.4 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   739.86 MicroJy
IMAGR4:     2017 Residual map points loaded
IMAGR4: Field    5 min Clean flux    = -968.975 MicroJy iter=      935
IMAGR4: Field    5 Clean flux density=   35.792 MilliJy      935 comps
IMAGR4: Total Cleaned flux density     =    2.068      Jy     5193 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   3 min =   -1.2 MilliJy,max =    1.4 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   649.17 MicroJy
IMAGR4:     2025 Residual map points loaded
IMAGR4: Field    3 min Clean flux    = -963.793 MicroJy iter=      985
IMAGR4: Field    3 Clean flux density=   21.493 MilliJy      985 comps
IMAGR4: Total Cleaned flux density     =    2.068      Jy     5206 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   7 min =   -1.5 MilliJy,max =    1.4 MilliJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   573.96 MicroJy
IMAGR4:    19981 Residual map points loaded
IMAGR4: Field    7 min Clean flux    = -971.233 MicroJy iter=      829
IMAGR4: Field    7 Clean flux density=    6.679 MilliJy      829 comps
IMAGR4: Total Cleaned flux density     =    2.066      Jy     5325 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Peak residual in window 971.323 less than limit 971.395 MicroJy
IMAGR4: Merging the Clean components files
IMAGR4: Field    1 compressed from       435 to       238 components
IMAGR4: Field    2 compressed from       492 to       374 components
IMAGR4: Field    3 compressed from       985 to       739 components
IMAGR4: Field    4 compressed from       882 to       658 components
IMAGR4: Field    5 compressed from       935 to       696 components
IMAGR4: Field    6 compressed from       767 to       526 components
IMAGR4: Field    7 compressed from       829 to       615 components
IMAGR4: Field   1 min = -831.9 MicroJy,max =  931.7 MicroJy
IMAGR4: Field   2 min =   -1.2 MilliJy,max =    1.3 MilliJy
IMAGR4: Field   3 min =   -1.3 MilliJy,max =    1.3 MilliJy
IMAGR4: Field   4 min =   -1.1 MilliJy,max =    1.0 MilliJy
IMAGR4: Field   5 min =   -1.1 MilliJy,max =    1.3 MilliJy
IMAGR4: Field   6 min =   -1.4 MilliJy,max =    1.4 MilliJy
IMAGR4: Field   7 min =   -1.3 MilliJy,max =    1.3 MilliJy
IMAGR4: Restoring Clean components
IMAGR4: Restoring overlapped Clean components
IMAGR4: Restore  -2.412 MilliJy (    15 CCs) from field   1 to field   2
IMAGR4: Restore-140.341 MicroJy (     8 CCs) from field   1 to field   3
IMAGR4: Restore 715.325 MicroJy (    10 CCs) from field   1 to field   4
IMAGR4: Restore-776.580 MicroJy (    13 CCs) from field   1 to field   5
IMAGR4: Restore-438.740 MicroJy (     3 CCs) from field   1 to field   6
IMAGR4: Restore  -1.143 MilliJy (     4 CCs) from field   1 to field   7
IMAGR4: Restore  -9.667 MilliJy (    30 CCs) from field   2 to field   1
IMAGR4: Restore -13.349 MilliJy (    59 CCs) from field   2 to field   3
IMAGR4: Restore  -1.076 MilliJy (    21 CCs) from field   2 to field   4
IMAGR4: Restore   2.726 MilliJy (    15 CCs) from field   3 to field   1
IMAGR4: Restore  -2.298 MilliJy (    54 CCs) from field   3 to field   2
IMAGR4: Restore   1.828 MilliJy (    41 CCs) from field   3 to field   5
IMAGR4: Restore   1.248 MilliJy (    67 CCs) from field   4 to field   1
IMAGR4: Restore   3.703 MilliJy (    91 CCs) from field   4 to field   2
IMAGR4: Restore   1.528 MilliJy (    24 CCs) from field   4 to field   6
IMAGR4: Restore  11.433 MilliJy (    71 CCs) from field   5 to field   1
IMAGR4: Restore  -1.434 MilliJy (    34 CCs) from field   5 to field   3
IMAGR4: Restore  12.892 MilliJy (    97 CCs) from field   5 to field   7
IMAGR4: Restore  -1.101 MilliJy (     8 CCs) from field   6 to field   1
IMAGR4: Restore   1.123 MilliJy (    52 CCs) from field   6 to field   4
IMAGR4: Restore-642.363 MicroJy (     7 CCs) from field   6 to field   7
IMAGR4: Restore   1.119 MilliJy (    20 CCs) from field   7 to field   1
IMAGR4: Restore  -2.013 MilliJy (    38 CCs) from field   7 to field   5
IMAGR4: Restore  15.640 MilliJy (   108 CCs) from field   7 to field   6
IMAGR4: Checking image max/min
IMAGR4: Field    1 final Clean flux     2.049      Jy
IMAGR4: Field    2 final Clean flux   -36.541 MilliJy
IMAGR4: Field    3 final Clean flux     6.570 MilliJy
IMAGR4: Field    4 final Clean flux    -3.869 MilliJy
IMAGR4: Field    5 final Clean flux    34.831 MilliJy
IMAGR4: Field    6 final Clean flux    15.334 MilliJy
IMAGR4: Field    7 final Clean flux    17.785 MilliJy
IMAGR4: Deleting UV work file:
IMAGR4: Destroyed  1 extension files of type AN
IMAGR4: Destroyed  1 extension files of type FQ
IMAGR4: Destroyed UV image file: catno=     30 disk= 1
IMAGR4: Appears to have ended successfully
IMAGR4: auto         31DEC06 TST: Cpu=      58.2  Real=     407
numbered as CNO   21
AIPS 4: Disk  1 in-CNO   30 renumbered as CNO   22
AIPS 4: Disk  1 in-CNO   31 renumbered as CNO   23
AIPS 4: Disk  1 in-CNO   32 renumbered as CNO   24
AIPS 4: Disk  1 in-CNO   33 renumbered as CNO   25
AIPS 4: Disk  1 in-CNO   34 renumbered as CNO   26
AIPS 4: Disk  1 in-CNO   35 renumbered as CNO   27
AIPS 4: ' '
AIPS 4: 'ESTIMATED RMS:'     '0.1006 MILLI JANSKY'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@1850+284_X,BAND.0-1 >& /dev/null
AIPS 4: Waiting for returned adverbs
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: cat /tmp/SETFC@1850+284_X,BAND.0-1 >> /home/auto/run/AH669_1999D
AIPS 4: EC27_1.log.1
AIPS 4: '    NOW STARTING WITH SOURCE  :5  =1850+284'
AIPS 4: ' '
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@1850+284_X,BAND.0-1 >& /dev/null
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     29 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     30 disk= 1
AIPS 4: Disk  1 in-CNO   31 renumbered as CNO   28
AIPS 4: Disk  1 in-CNO   32 renumbered as CNO   29
AIPS 4: ' '
AIPS 4: 'ESTIMATED RMS:'     '0.1619 MILLI JANSKY'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@2007+404_X,BAND.0-1 >& /dev/null
AIPS 4: Waiting for returned adverbs
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: cat /tmp/SETFC@2007+404_X,BAND.0-1 >> /home/auto/run/AH669_1999D
AIPS 4: EC27_1.log.1
AIPS 4: '    NOW STARTING WITH SOURCE  :6  =2007+404'
AIPS 4: ' '
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@2007+404_X,BAND.0-1 >& /dev/null
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     31 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     32 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     33 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     34 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     35 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     36 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     37 disk= 1
AIPS 4: Disk  1 in-CNO   38 renumbered as CNO   30
AIPS 4: Disk  1 in-CNO   39 renumbered as CNO   31
AIPS 4: Disk  1 in-CNO   40 renumbered as CNO   32
AIPS 4: Disk  1 in-CNO   41 renumbered as CNO   33
AIPS 4: Disk  1 in-CNO   42 renumbered as CNO   34
AIPS 4: Disk  1 in-CNO   43 renumbered as CNO   35
AIPS 4: Disk  1 in-CNO   44 renumbered as CNO   36
AIPS 4: ' '
AIPS 4: 'ESTIMATED RMS:'     '0.08095 MILLI JANSKY'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@CYGX-1_X,BAND.0-1 >& /dev/null
SETFC4: Task SETFC  (release of 31DEC06) begins
SETFC4: Found CYGX-1      X BAND Seq   1 Disk:  1 in slot    9
SETFC4: SETCEL: recommends IMSIZE  1356 CELLSIZE   0.23604
SETFC4: SETCEL: returns    IMSIZE  1024 CELLSIZE   0.23604
SETFC4: ZTXOP2: using translated file name =
SETFC4: ZTXOP2: /tmp/SETFC@CYGX-1_X,BAND.0-1
SETFC4: FLYEYE added   7 fields to BOXFILE to  0.056 deg
SETFC4: Searching catalog between  0.06 and   0.13 degrees radius
SETFC4: ZTXOP2: using translated file name =
SETFC4: ZTXOP2: /home/auto/aips/TEXT/STARS/NV00.0030
SETFC4: No NVSS sources selected for BOXFILE
SETFC4: The Sun is  62.6 deg away - ignoring
SETFC4: First field number written was   1
SETFC4: Highest field number written was   7
SETFC4: returns adverbs to AIPS
SETFC4: Appears to have ended successfully
SETFC4: auto         31DEC06 TST: Cpu=       1.5  Real=      10
C     1  1012  1012   19 58 21.68   35 12 05.8
00001  -1    507    512    513
C     2  1012  1012   19 58 21.68   35 08 44.9
00002  -1    507    512    513
C     3  1012  1012   19 58 07.49   35 10 25.3
00003  -1    507    512    513
C     4  1012  1012   19 58 35.87   35 10 25.3
00004  -1    507    512    513
C     5  1012  1012   19 58 07.48   35 13 46.2
00005  -1    507    512    513
C     6  1012  1012   19 58 35.88   35 13 46.2
00006  -1    507    512    513
C     7  1012  1012   19 58 21.68   35 15 26.8
00007  -1    507    512    513
numbered as CNO   21
AIPS 4: Disk  1 in-CNO   30 renumbered as CNO   22
AIPS 4: Disk  1 in-CNO   31 renumbered as CNO   23
AIPS 4: Disk  1 in-CNO   32 renumbered as CNO   24
AIPS 4: Disk  1 in-CNO   33 renumbered as CNO   25
AIPS 4: Disk  1 in-CNO   34 renumbered as CNO   26
AIPS 4: Disk  1 in-CNO   35 renumbered as CNO   27
AIPS 4: ' '
AIPS 4: 'ESTIMATED RMS:'     '0.1006 MILLI JANSKY'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@1850+284_X,BAND.0-1 >& /dev/null
AIPS 4: Waiting for returned adverbs
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: cat /tmp/SETFC@1850+284_X,BAND.0-1 >> /home/auto/run/AH669_1999D
AIPS 4: EC27_1.log.1
AIPS 4: '    NOW STARTING WITH SOURCE  :5  =1850+284'
AIPS 4: ' '
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@1850+284_X,BAND.0-1 >& /dev/null
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     29 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     30 disk= 1
AIPS 4: Disk  1 in-CNO   31 renumbered as CNO   28
AIPS 4: Disk  1 in-CNO   32 renumbered as CNO   29
AIPS 4: ' '
AIPS 4: 'ESTIMATED RMS:'     '0.1619 MILLI JANSKY'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@2007+404_X,BAND.0-1 >& /dev/null
AIPS 4: Waiting for returned adverbs
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: cat /tmp/SETFC@2007+404_X,BAND.0-1 >> /home/auto/run/AH669_1999D
AIPS 4: EC27_1.log.1
AIPS 4: '    NOW STARTING WITH SOURCE  :6  =2007+404'
AIPS 4: ' '
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@2007+404_X,BAND.0-1 >& /dev/null
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     31 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     32 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     33 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     34 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     35 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     36 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     37 disk= 1
AIPS 4: Disk  1 in-CNO   38 renumbered as CNO   30
AIPS 4: Disk  1 in-CNO   39 renumbered as CNO   31
AIPS 4: Disk  1 in-CNO   40 renumbered as CNO   32
AIPS 4: Disk  1 in-CNO   41 renumbered as CNO   33
AIPS 4: Disk  1 in-CNO   42 renumbered as CNO   34
AIPS 4: Disk  1 in-CNO   43 renumbered as CNO   35
AIPS 4: Disk  1 in-CNO   44 renumbered as CNO   36
AIPS 4: ' '
AIPS 4: 'ESTIMATED RMS:'     '0.08095 MILLI JANSKY'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@CYGX-1_X,BAND.0-1 >& /dev/null
AIPS 4: Waiting for returned adverbs
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: cat /tmp/SETFC@CYGX-1_X,BAND.0-1 >> /home/auto/run/AH669_1999DEC
AIPS 4: 27_1.log.1
AIPS 4: '    NOW STARTING WITH SOURCE  :7  =CYGX-1'
AIPS 4: ' '
IMAGR4: Task IMAGR  (release of 31DEC06) begins
IMAGR4: ZTXOP2: using translated file name =
IMAGR4: ZTXOP2: /tmp/SETFC@CYGX-1_X,BAND.0-1
IMAGR4: FIELDF: Final field parameters and # read are:
IMAGR4: Field    1 1012 1012 -2.4514E-02 -3.0000E-02          0
IMAGR4: Field    2 1012 1012 -2.4514E-02 -2.0093E+02          0
IMAGR4: Field    3 1012 1012 -1.7395E+02 -1.0053E+02          0
IMAGR4: Field    4 1012 1012  1.7390E+02 -1.0053E+02          0
IMAGR4: Field    5 1012 1012 -1.7407E+02  1.0037E+02          0
IMAGR4: Field    6 1012 1012  1.7402E+02  1.0037E+02          0
IMAGR4: Field    7 1012 1012 -2.4514E-02  2.0097E+02          0
IMAGR4: ZTXOP2: using translated file name =
IMAGR4: ZTXOP2: /tmp/SETFC@CYGX-1_X,BAND.0-1
IMAGR4: WINDF: Number of clean boxes/field read as follows:
IMAGR4: Field 01:   1  Field 02:   1  Field 03:   1  Field 04:   1
IMAGR4: Field 05:   1  Field 06:   1  Field 07:   1
IMAGR4: Create CYGX-1      .IMAGR .   1 (UV)  on disk  1  cno   37
IMAGR4: Beginning channel    1 through    1 with  2 IFs
IMAGR4: IMACPY: Copied     6500 visibilities to be imaged
IMAGR4: **** WARNING data included out of inner portion of UV plane ****
IMAGR4: **** Watch for high-frequency & other poor cleaning effects ****
IMAGR4: UVWAIT: begin finding uniform weights
IMAGR4: UVWAIT: Average grid weight  7.328E+04
IMAGR4: UVWAIT: Adding temperance S  1.466E+04
IMAGR4: UVWAIT: begin applying uniform or other weights
IMAGR4: UVWAIT: Sum of weights in  5.344E+07 and out  7.105E+07
IMAGR4: UVWAIT: Noise is increased by a factor 1.203 due to weighting
IMAGR4: UVWAIT: Average summed weight  7.328E+04 over      12997 vis
IMAGR4: Create CYGX-1      .IBM001.   1 (MA)  on disk  1  cno   38
IMAGR4: Create CYGX-1      .IBM002.   1 (MA)  on disk  1  cno   39
IMAGR4: Create CYGX-1      .IBM003.   1 (MA)  on disk  1  cno   40
IMAGR4: Create CYGX-1      .IBM004.   1 (MA)  on disk  1  cno   41
IMAGR4: Create CYGX-1      .IBM005.   1 (MA)  on disk  1  cno   42
IMAGR4: Create CYGX-1      .IBM006.   1 (MA)  on disk  1  cno   43
IMAGR4: Create CYGX-1      .IBM007.   1 (MA)  on disk  1  cno   44
IMAGR4: Create CYGX-1      .ICL001.   1 (MA)  on disk  1  cno   45
IMAGR4: Create CYGX-1      .ICL002.   1 (MA)  on disk  1  cno   46
IMAGR4: Create CYGX-1      .ICL003.   1 (MA)  on disk  1  cno   47
IMAGR4: Create CYGX-1      .ICL004.   1 (MA)  on disk  1  cno   48
IMAGR4: Create CYGX-1      .ICL005.   1 (MA)  on disk  1  cno   49
IMAGR4: Create CYGX-1      .ICL006.   1 (MA)  on disk  1  cno   50
IMAGR4: Create CYGX-1      .ICL007.   1 (MA)  on disk  1  cno   51
IMAGR4: GRDFLT: X and Y convolution type = SPHEROIDAL
IMAGR4: GRDFLT: X and Y parms =  3.0000  1.0000
IMAGR4: GRDFLT: convolution function sampled every 1/100 of a cell
IMAGR4: GRDMEM: Ave    2 Channels; 8.435100E+09 to 8.485100E+09 Hz
IMAGR4: Field   1 Sum of gridding weights =  7.54340E+08
IMAGR4: Field   1 Beam min = -115.4 MilliJy, max =    1.0      Jy
IMAGR4: Field   1 fit FWHM =  759.488 x  659.447 Milliarcsec, PA=   38.6
IMAGR4: Field   2 Sum of gridding weights =  7.54340E+08
IMAGR4: Field   2 Beam min = -115.9 MilliJy, max =    1.0      Jy
IMAGR4: Field   2 fit FWHM =  759.330 x  659.626 Milliarcsec, PA=   38.6
IMAGR4: Field   3 Sum of gridding weights =  7.54339E+08
IMAGR4: Field   3 Beam min = -116.7 MilliJy, max =    1.0      Jy
IMAGR4: Field   3 fit FWHM =  759.291 x  659.353 Milliarcsec, PA=   38.5
IMAGR4: Field   4 Sum of gridding weights =  7.54340E+08
IMAGR4: Field   4 Beam min = -116.4 MilliJy, max =    1.0      Jy
IMAGR4: Field   4 fit FWHM =  759.527 x  659.720 Milliarcsec, PA=   38.7
IMAGR4: Field   5 Sum of gridding weights =  7.54339E+08
IMAGR4: Field   5 Beam min = -116.3 MilliJy, max =    1.0      Jy
IMAGR4: Field   5 fit FWHM =  759.450 x  659.174 Milliarcsec, PA=   38.6
IMAGR4: Field   6 Sum of gridding weights =  7.54339E+08
IMAGR4: Field   6 Beam min = -116.4 MilliJy, max =    1.0      Jy
IMAGR4: Field   6 fit FWHM =  759.687 x  659.540 Milliarcsec, PA=   38.8
IMAGR4: Field   7 Sum of gridding weights =  7.54339E+08
IMAGR4: Field   7 Beam min = -115.6 MilliJy, max =    1.0      Jy
IMAGR4: Field   7 fit FWHM =  759.649 x  659.269 Milliarcsec, PA=   38.7
IMAGR4: CLBHIS: minimum component 0.500 of current peak
IMAGR4: Field   1 min =   -1.4 MilliJy,max =   11.6 MilliJy
IMAGR4: Field   2 min =   -1.2 MilliJy,max =    2.5 MilliJy
IMAGR4: Field   3 min = -964.9 MicroJy,max =    3.8 MilliJy
IMAGR4: Field   4 min =   -1.1 MilliJy,max =    3.9 MilliJy
IMAGR4: Field   5 min =   -1.2 MilliJy,max =    3.7 MilliJy
IMAGR4: Field   6 min =   -1.2 MilliJy,max =    3.9 MilliJy
IMAGR4: Field   7 min =   -1.2 MilliJy,max =    2.4 MilliJy
IMAGR4: BGC Clean: using 2043 cell beam + residuals >     1.37 MilliJy
IMAGR4:     4909 Residual map points loaded
IMAGR4: Field    1 min algorithm flux=    5.378 MilliJy iter=        9
IMAGR4: Field    1 Clean flux density=    7.261 MilliJy        9 comps
IMAGR4: Total Cleaned flux density     =    7.261 MilliJy        9 comps
IMAGR4: SETDO3: imaging done with multiple tangent planes
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: VISDFT: Model components of type Point
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min = -876.7 MicroJy,max =    4.9 MilliJy
IMAGR4: BGC Clean: using 1009 cell beam + residuals >   963.27 MicroJy
IMAGR4:     1005 Residual map points loaded
IMAGR4: Field    1 min allowed flux  =    2.373 MilliJy iter=       18
IMAGR4: Field    1 Clean flux density=   10.417 MilliJy       18 comps
IMAGR4: Total Cleaned flux density     =   10.417 MilliJy       18 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min = -541.8 MicroJy,max =  701.5 MicroJy
IMAGR4: TRY ANOTHER FIELD: this is  6.709E-04 < Second best  2.257E-03
IMAGR4: Field   1 min = -653.5 MicroJy,max =    2.2 MilliJy
IMAGR4: TRY ANOTHER FIELD: this is  2.057E-03 < Second best  2.254E-03
IMAGR4: Field   7 min = -588.5 MicroJy,max =  666.0 MicroJy
IMAGR4: TRY ANOTHER FIELD: this is  5.474E-04 < Second best  2.057E-03
IMAGR4: BGC Clean: using  437 cell beam + residuals >   839.02 MicroJy
IMAGR4:       65 Residual map points loaded
IMAGR4: Field    1 min algorithm flux=    1.112 MilliJy iter=       27
IMAGR4: Field    1 Clean flux density=   11.838 MilliJy       27 comps
IMAGR4: Total Cleaned flux density     =   11.838 MilliJy       27 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   5 min = -543.1 MicroJy,max =  569.5 MicroJy
IMAGR4: TRY ANOTHER FIELD: this is  5.424E-04 < Second best  1.898E-03
IMAGR4: Field   4 min = -543.1 MicroJy,max =  607.2 MicroJy
IMAGR4: TRY ANOTHER FIELD: this is  5.576E-04 < Second best  1.667E-03
IMAGR4: Field   6 min = -549.7 MicroJy,max =  686.0 MicroJy
IMAGR4: TRY ANOTHER FIELD: this is  5.082E-04 < Second best  1.618E-03
IMAGR4: Field   3 min = -547.4 MicroJy,max =  632.6 MicroJy
IMAGR4: TRY ANOTHER FIELD: this is  5.098E-04 < Second best  1.059E-03
IMAGR4: Field   1 min = -578.5 MicroJy,max =    1.0 MilliJy
IMAGR4: BGC Clean: using  483 cell beam + residuals >   341.13 MicroJy
IMAGR4:     3861 Residual map points loaded
IMAGR4: Field    1 min algorithm flux=  534.243 MicroJy iter=       48
IMAGR4: Field    1 Clean flux density=   13.004 MilliJy       48 comps
IMAGR4: Total Cleaned flux density     =   13.004 MilliJy       48 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min = -509.6 MicroJy,max =  550.5 MicroJy
IMAGR4: TRY ANOTHER FIELD: this is  4.993E-04 < Second best  5.576E-04
IMAGR4: Field   4 min = -538.1 MicroJy,max =  545.0 MicroJy
IMAGR4: TRY ANOTHER FIELD: this is  5.155E-04 < Second best  5.474E-04
IMAGR4: Field   7 min = -533.1 MicroJy,max =  510.8 MicroJy
IMAGR4: TRY ANOTHER FIELD: this is  4.891E-04 < Second best  5.424E-04
IMAGR4: Field   5 min = -522.0 MicroJy,max =  562.8 MicroJy
IMAGR4: BGC Clean: using  437 cell beam + residuals >   394.31 MicroJy
IMAGR4:      262 Residual map points loaded
IMAGR4: Field    5 min Clean flux    =  476.220 MicroJy iter=        9
IMAGR4: Field    5 Clean flux density=  351.781 MicroJy        9 comps
IMAGR4: Total Cleaned flux density     =   13.356 MilliJy       57 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   4 min = -538.1 MicroJy,max =  542.1 MicroJy
IMAGR4: BGC Clean: using  437 cell beam + residuals >   394.31 MicroJy
IMAGR4:      210 Residual map points loaded
IMAGR4: Field    4 min Clean flux    = -473.912 MicroJy iter=        6
IMAGR4: Field    4 Clean flux density= -199.188 MicroJy        6 comps
IMAGR4: Total Cleaned flux density     =   13.157 MilliJy       63 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   1 min = -513.4 MicroJy,max =  528.2 MicroJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   301.00 MicroJy
IMAGR4:     5333 Residual map points loaded
IMAGR4: Field    1 min Clean flux    =  485.541 MicroJy iter=       67
IMAGR4: Field    1 Clean flux density=   13.253 MilliJy       67 comps
IMAGR4: Total Cleaned flux density     =   13.406 MilliJy       82 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   3 min = -554.0 MicroJy,max =  610.6 MicroJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   287.49 MicroJy
IMAGR4:     5221 Residual map points loaded
IMAGR4: Field    3 min Clean flux    = -485.408 MicroJy iter=        3
IMAGR4: Field    3 Clean flux density=  -48.727 MicroJy        3 comps
IMAGR4: Total Cleaned flux density     =   13.357 MilliJy       85 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   6 min = -542.4 MicroJy,max =  504.9 MicroJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   274.05 MicroJy
IMAGR4:     6447 Residual map points loaded
IMAGR4: Field    6 min Clean flux    =  480.405 MicroJy iter=        2
IMAGR4: Field    6 Clean flux density=   -4.364 MicroJy        2 comps
IMAGR4: Total Cleaned flux density     =   13.353 MilliJy       87 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   2 min = -497.9 MicroJy,max =  533.3 MicroJy
IMAGR4: BGC Clean: using  103 cell beam + residuals >   257.05 MicroJy
IMAGR4:     8966 Residual map points loaded
IMAGR4: Field    2 min Clean flux    = -481.173 MicroJy iter=        2
IMAGR4: Field    2 Clean flux density=    2.454 MicroJy        2 comps
IMAGR4: Total Cleaned flux density     =   13.355 MilliJy       89 comps
IMAGR4: VISDFT: Begin DFT component subtraction
IMAGR4: I Polarization model processed
IMAGR4: Field   7 min = -509.6 MicroJy,max =  506.7 MicroJy
IMAGR4: CLRHIS: NO FIELDS THIS PASS ABOVE MINIMUM FLUX
IMAGR4: CLEAN NO IMAGE PIXELS - TRY AGAIN
IMAGR4: Merging the Clean components files
IMAGR4: Field    1 compressed from        67 to        32 components
IMAGR4: Field    2 compressed from         2 to         2 components
IMAGR4: Field    3 compressed from         3 to         3 components
IMAGR4: Field    4 compressed from         6 to         5 components
IMAGR4: Field    5 compressed from         9 to         8 components
IMAGR4: Field    6 compressed from         2 to         2 components
IMAGR4: Field    7 compressed from         0 to         0 components
IMAGR4: Field   1 min = -470.7 MicroJy,max =  509.5 MicroJy
IMAGR4: Field   2 min = -497.0 MicroJy,max =  528.9 MicroJy
IMAGR4: Field   3 min = -552.4 MicroJy,max =  607.8 MicroJy
IMAGR4: Field   4 min = -478.0 MicroJy,max =  515.1 MicroJy
IMAGR4: Field   5 min = -485.1 MicroJy,max =  546.6 MicroJy
IMAGR4: Field   6 min = -541.3 MicroJy,max =  507.5 MicroJy
IMAGR4: Field   7 min = -509.6 MicroJy,max =  506.7 MicroJy
IMAGR4: Restoring Clean components
IMAGR4: Restoring overlapped Clean components
IMAGR4: Restore -99.427 MicroJy (     2 CCs) from field   1 to field   2
IMAGR4: Restore -49.799 MicroJy (     1 CCs) from field   1 to field   3
IMAGR4: Restore 110.739 MicroJy (     2 CCs) from field   1 to field   4
IMAGR4: Restore 102.171 MicroJy (     2 CCs) from field   1 to field   6
IMAGR4: Restore   2.454 MicroJy (     2 CCs) from field   2 to field   3
IMAGR4: Restore  49.887 MicroJy (     1 CCs) from field   4 to field   1
IMAGR4: Restore -49.080 MicroJy (     1 CCs) from field   4 to field   2
IMAGR4: Restore -48.833 MicroJy (     1 CCs) from field   4 to field   6
IMAGR4: Restore  51.134 MicroJy (     1 CCs) from field   5 to field   1
IMAGR4: Restore  50.901 MicroJy (     1 CCs) from field   5 to field   3
IMAGR4: Restore  50.714 MicroJy (     3 CCs) from field   5 to field   7
IMAGR4: Checking image max/min
IMAGR4: Field    1 final Clean flux    13.354 MilliJy
IMAGR4: Field    2 final Clean flux  -146.052 MicroJy
IMAGR4: Field    3 final Clean flux   -45.171 MicroJy
IMAGR4: Field    4 final Clean flux   -88.450 MicroJy
IMAGR4: Field    5 final Clean flux   351.781 MicroJy
IMAGR4: Field    6 final Clean flux    48.974 MicroJy
IMAGR4: Field    7 final Clean flux    50.714 MicroJy
IMAGR4: Deleting UV work file:
IMAGR4: Destroyed  1 extension files of type AN
IMAGR4: Destroyed  1 extension files of type FQ
IMAGR4: Destroyed UV image file: catno=     37 disk= 1
IMAGR4: Appears to have ended successfully
IMAGR4: auto         31DEC06 TST: Cpu=      22.5  Real=     158
numbered as CNO   21
AIPS 4: Disk  1 in-CNO   30 renumbered as CNO   22
AIPS 4: Disk  1 in-CNO   31 renumbered as CNO   23
AIPS 4: Disk  1 in-CNO   32 renumbered as CNO   24
AIPS 4: Disk  1 in-CNO   33 renumbered as CNO   25
AIPS 4: Disk  1 in-CNO   34 renumbered as CNO   26
AIPS 4: Disk  1 in-CNO   35 renumbered as CNO   27
AIPS 4: ' '
AIPS 4: 'ESTIMATED RMS:'     '0.1006 MILLI JANSKY'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@1850+284_X,BAND.0-1 >& /dev/null
AIPS 4: Waiting for returned adverbs
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: cat /tmp/SETFC@1850+284_X,BAND.0-1 >> /home/auto/run/AH669_1999D
AIPS 4: EC27_1.log.1
AIPS 4: '    NOW STARTING WITH SOURCE  :5  =1850+284'
AIPS 4: ' '
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@1850+284_X,BAND.0-1 >& /dev/null
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     29 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     30 disk= 1
AIPS 4: Disk  1 in-CNO   31 renumbered as CNO   28
AIPS 4: Disk  1 in-CNO   32 renumbered as CNO   29
AIPS 4: ' '
AIPS 4: 'ESTIMATED RMS:'     '0.1619 MILLI JANSKY'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@2007+404_X,BAND.0-1 >& /dev/null
AIPS 4: Waiting for returned adverbs
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: cat /tmp/SETFC@2007+404_X,BAND.0-1 >> /home/auto/run/AH669_1999D
AIPS 4: EC27_1.log.1
AIPS 4: '    NOW STARTING WITH SOURCE  :6  =2007+404'
AIPS 4: ' '
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@2007+404_X,BAND.0-1 >& /dev/null
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     31 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     32 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     33 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     34 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     35 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     36 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     37 disk= 1
AIPS 4: Disk  1 in-CNO   38 renumbered as CNO   30
AIPS 4: Disk  1 in-CNO   39 renumbered as CNO   31
AIPS 4: Disk  1 in-CNO   40 renumbered as CNO   32
AIPS 4: Disk  1 in-CNO   41 renumbered as CNO   33
AIPS 4: Disk  1 in-CNO   42 renumbered as CNO   34
AIPS 4: Disk  1 in-CNO   43 renumbered as CNO   35
AIPS 4: Disk  1 in-CNO   44 renumbered as CNO   36
AIPS 4: ' '
AIPS 4: 'ESTIMATED RMS:'     '0.08095 MILLI JANSKY'
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@CYGX-1_X,BAND.0-1 >& /dev/null
AIPS 4: Waiting for returned adverbs
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: cat /tmp/SETFC@CYGX-1_X,BAND.0-1 >> /home/auto/run/AH669_1999DEC
AIPS 4: 27_1.log.1
AIPS 4: '    NOW STARTING WITH SOURCE  :7  =CYGX-1'
AIPS 4: ' '
AIPS 4: Resumes
AIPS 4: SYSTEM command to be executed is:
AIPS 4: rm -f /tmp/SETFC@CYGX-1_X,BAND.0-1 >& /dev/null
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     38 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     39 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     40 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     41 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     42 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     43 disk= 1
AIPS 4: Destroyed  1 extension files of type HI
AIPS 4: Destroyed MA image file: catno=     44 disk= 1
AIPS 4: Disk  1 in-CNO   45 renumbered as CNO   37
AIPS 4: Disk  1 in-CNO   46 renumbered as CNO   38
AIPS 4: Disk  1 in-CNO   47 renumbered as CNO   39
AIPS 4: Disk  1 in-CNO   48 renumbered as CNO   40
AIPS 4: Disk  1 in-CNO   49 renumbered as CNO   41
AIPS 4: Disk  1 in-CNO   50 renumbered as CNO   42
AIPS 4: Disk  1 in-CNO   51 renumbered as CNO   43
AIPS 4: ' '
AIPS 4: ' '
AIPS 4: Found in Version=ABIN
AIPS 4: '* APPEARS TO HAVE ENDED SUCCESSFULLY *'
>>AIPS 4: Disk  1 No files needed renumbering
AIPS 4: 'EMPTY CATALOG ?'               43
>AIPS 4: Begin check for any 'standard' scratch files
AIPS 4: Scratch files -- destroyed:    0  still active:    0
AIPS 4: User18423:  4504 messages, oldest written 17-SEP-2006  18:13:19
AIPS 4: Deleted      0 messages
AIPS 4: Saved POPS environment in area named 'LASTEXIT'
AIPS 4: Session command-line history saved.
AIPS 4: auto         31DEC06 TST: Cpu=       1.1  Real=    2419

/home/auto/run/AH669_1999DEC27_1.run.1     finished on Mon Sep 18 00:23:50 MDT 2006