[daip] endless loop in listr

[Kristy Dyer]

I somehow put listr into an endless loop (and I got it to do it three times!)

Here's what it says during the loop:

LISTR2: Determining scaling parameters
LISTR2: All values are blanked
LISTR2: Determining scaling parameters
LISTR2: All values are blanked
LISTR2: Determining scaling parameters
LISTR2: All values are blanked
LISTR2: Determining scaling parameters
LISTR2: All values are blanked
LISTR2: Determining scaling parameters
LISTR2: All values are blanked
LISTR2: Determining scaling parameters
LISTR2: All values are blanked

Here's what I did right before the loop:

default calib
default vlacalib

run vlaprocs
task 'vlacalib'
inp

indi 8;getn 112
outprint 'OUT:newab.1'
calsour '1331+305''
refant 21
uvrange 0 18
antennas -1, -27, -4, -19, -18
docalib 2
flagver 1

go vlacalib

here's what's in listr:

>tget listr
>inp
AIPS 2: LISTR:  Task to print UV data and calibration tables.
AIPS 2: Adverbs     Values                 Comments
AIPS 2: ----------------------------------------------------------------
AIPS 2: USERID        0                    User number.
AIPS 2: INNAME     'AD440-L-AB  '          UV data (name).
AIPS 2: INCLASS    'L BAND'                UV data (class).
AIPS 2: INSEQ         2                    UV data (seq. #).  0 => high
AIPS 2: INDISK        8                    Disk unit #.       0 => any
AIPS 2: OPTYPE     'GAIN'                  List type:
AIPS 2:                                     'MATX','LIST','GAIN','SCAN'
AIPS 2: INEXT      'SN'                    CL, SN or TY table for 'GAIN'
AIPS 2: INVER         0                    CL, Sn or TY table version
AIPS 2: SOURCES    *all ' '                Source list
AIPS 2: CALCODE    '    '                  Calibrator code '    '=>all
AIPS 2: TIMERANG   *all 0                  Time range to list
AIPS 2: STOKES     'HALF'                  Stokes type to list.
AIPS 2: SELBAND      -1                    Bandwidth to select (kHz)
AIPS 2: SELFREQ      -1                    Frequency to select (MHz)
AIPS 2: FREQID       -1                    Freq. ID to select.
AIPS 2:                                    None selected => 1.
AIPS 2: BIF           1                    Lowest IF number 0=1
AIPS 2: EIF           2                    Highest IF number
AIPS 2: ** press RETURN for more, enter Q or next line to quit print **
#
AIPS 2: BCHAN         1                    Low channel number 0=>1
AIPS 2: ECHAN         0                    High channel number
AIPS 2: ANTENNAS     -1         -27        Antennas to list
AIPS 2:              -4         -19         -18        *rest 0
AIPS 2: BASELINE   *all 0                  Baselines with ANTENNAS
AIPS 2: UVRANGE       0          18        UV range in kilolambda
AIPS 2: SUBARRAY      0                    Subarray, 0=>1
AIPS 2:                                    Cal. info for input:
AIPS 2: DOCALIB       2                    If >0 calibrate data
AIPS 2:                                    = 2 calibrate weights
AIPS 2: GAINUSE       0                    CAL (CL or SN) table to apply
AIPS 2: DOPOL        -1                    If >0 correct polarization.
AIPS 2: BLVER        -1                    BL table to apply.
AIPS 2: FLAGVER       0                    Flag table version
AIPS 2: DOBAND       -1                    If >0 apply bandpass cal.
AIPS 2:                                    Method used depends on value
AIPS 2:                                    of DOBAND (see HELP file).
AIPS 2: BPVER        -1                    Bandpass table version
AIPS 2: SMOOTH     *all 0                  Smoothing function. See
AIPS 2:                                    HELP SMOOTH for details.
AIPS 2: DPARM         5           1        Control info:
AIPS 2:            *rest 0                 (1) 0=amp, 1=phase, 2=rms
AIPS 2:                                        3=amp+rms, 4=phase+rms
AIPS 2:                                        5=amp+phase, 6=delay,
AIPS 2:                                        7=rate, 8=SNR, 9=par. ang
AIPS 2:                                        10 = Tsys, 11=elev,
AIPS 2:                                        12 = multiband delay
AIPS 2:                                        13 = Tant  14 = weights
AIPS 2:                                        N.B. Options 3 and 4 only
AIPS 2:                                        valid for OPTYPE = 'MATX'
AIPS 2:                                    (2) 0=vec avg, 1=scalar
AIPS 2:                                    (3) No. col (4-10) def=4.
AIPS 2:                                    (4) avg. time min (MATX,LIST)
AIPS 2:                                        *** significant
AIPS 2:                                    (5) Type of gain listings:
AIPS 2:                                        0 => all with same scale
AIPS 2:                                        like DEC-10 listings;
AIPS 2:                                        1 => scan/source info at
AIPS 2:                                        source/scan boundaries.
AIPS 2:                                    (6) Matrix scaling control:
AIPS 2:                                        0 => plot amp & rms
AIPS 2:                                        matrices with same scale;
AIPS 2:                                        1 => self-scale each
AIPS 2:                                        separately.
AIPS 2: FACTOR        0                    When DPARM(5)=0 Multiply
AIPS 2:                                    gain listings by FACTOR,
AIPS 2: ** press RETURN for more, enter Q or next line to quit print **
#
AIPS 2:                                    0=> use scale factor from
AIPS 2:                                    first record printed.
AIPS 2: DOCRT        -1                    > 0 -> use the terminal,
AIPS 2:                                    else use the line printer
AIPS 2:                                    > 72 => terminal width
AIPS 2: OUTPRINT   'OUT:NEWAB.1                                     '
AIPS 2:                                    Printer disk file to save
AIPS 2: BADDISK    *all 0                  Disk to avoid for scratch.