[daip] [!5703]: aips - VLA basebands in FRING

[Lorant Sjouwerman]

Lorant Sjouwerman updated #5703
-------------------------------

VLA basebands in FRING
----------------------

           Ticket ID: 5703
                 URL: https://help.nrao.edu/staff/index.php?/Tickets/Ticket/View/5703
           Full Name: Lorant Sjouwerman
               Email: lsjouwerman at nrao.edu
             Creator: User
          Department: AIPS Data Processing
       Staff (Owner): Eric Greisen
                Type: Issue
              Status: Closed
            Priority: Default
      Template Group: Default
             Created: 26 October 2014 08:37 PM
             Updated: 26 December 2014 10:58 AM



Hi Eric,

FYI and (my) future reference, this is the procedure I wrote and tested. Maybe next Xmas or sooner when I need it I'll make it for more than 2 splits and a bit more robust against header axes (now fixed to 4).. Please forgive the references to other procedures and variables like getset (simple inname, etc setting after default task), lsrant (not a rant from me, but reference antenna), etc

After setting the main inputs for fring (such as calsource, timerang, etc) the call for uneven splits, if it happens to be uneven, and the subsequent clcal is done as

<set up inputs to task fring and have dowait be true> 
keyword'naxis4';gethead
if(keyvalue(1)=16)then;go;ns=numtab('sn');else;oddfring(7);end
task'clcal';getset;snver ns;invers (ns+1);refant lsrant;baddisk lsbadd;go


with the procedure oddfring defined as (bcount is #ifs in 1st half, rest in 2nd half)
(for my data the uneven split of 15 is always bcount=7 rest=8 as in the call above)

procedure oddfring (bcount)
  array fif(2), lif(2)
  scalar xa,xi,xc,nr,ns
if(lsdebug>0)then;type'starting oddfring';end;keyword''
  keyword'naxis4';gethead;xa=keyvalue(1);xi=xa-bcount
  fif =1,xi;lif=bcount,xa;syscom'RUNNING AN odd FRING (resp.  7 and  8 IFs)
  substr(syscom,29,30)=char(bcount);substr(syscom,36,37)=char(xi);typ syscom
  aparm(5)=1;snver 0;bif fif(1);eif lif(1);go;bif fif(2);eif lif(2);go
  inext'sn';ns=maxtab('sn');invers ns;keyword'num row';getthead;nr=keyvalue(1)
  ns=ns-1;typ 'modifying and combining SN tables for uneven number of IFs'
  task'tabput';keystrng'blanked';for xa = 1:nr;for xi = fif(1):lif(1)
      pixxy xa,10,xi;tabput;pixxy xa,11,xi;tabput;pixxy xa,12,xi;tabput
      pixxy xa,17,xi;tabput;pixxy xa,18,xi;tabput;pixxy xa,19,xi;tabput
  end;end;invers ns;for xa = 1:nr;for xi = fif(2):lif(2)
      pixxy xa,10,xi;tabput;pixxy xa,11,xi;tabput;pixxy xa,12,xi;tabput
      pixxy xa,17,xi;tabput;pixxy xa,18,xi;tabput;pixxy xa,19,xi;tabput
  end;end;clrtemp
if(lsdebug>0)then;type'finished procedure oddfring';end;clrtemp
finish

Anyway, thanks


Lorant Sjouwerman
NRAO Science User Support

------------------------------------------------------
Staff CP:  https://help.nrao.edu/staff