[daip] VLBAFIX problem

[Jim Ulvestad]

Hidden adverb apparently is misdefined in UVCOP section:

>eif 1
>vlbafix
AIPS 1: 'COPYING FREQUENCY ID #1'
AIPS 1: ******  VALUE = -1.0000E+00 BELOW LIMIT  0.0000E+00
AIPS 1: ERROR IS IN VALUE OF ADVERB EIF
AIPS 1: BOUNDARY LIM

jim

* Loop through frequencies
       FOR VBA_ROW = 1 TO VBA_NFQI
          TGET VLBAFQS
          PIXXY  = VBA_ROW, 1, 1; INVER  = 1; INEXT  = 'FQ'
          TABGET; FREQID = KEYVALUE(1); TPUT UVCOP
          IF VBA_SX <> FREQID & VBA_9050 <> FREQID THEN
            TGET UVCOP
            BIF = 0;EIF = 0; OUTCLASS = 'FQ' !! CHAR(FREQID)
            PRINT 'COPYING FREQUENCY ID #' !! CHAR(FREQID)
            RUNWAIT ('UVCOP')
          ELSE
            TGET UVCOP
            BIF=1; EIF=VBA_IF1(FREQID)-1
            PRINT 'COPYING FREQUENCY ID #' !! CHAR(FREQID)
            OUTCLASS = 'FQ' !! CHAR(FREQID)
            RUNWAIT ('UVCOP')
            VBA_TCLA = OUTCLASS; VBA_TSEQ = OUTSEQ

Below the ELSE above, it looks like VBA_IF1(FREQID) is
set to zero, so that EIF = 0-1=-1, causing the error.