[daip] maxtab

[Craig Walker]

The procedure MAXTAB, defined in VLBAUTIL, doesn't seem to work on
linux or macosx.  Here is what happens:

 >inp maxtab
AIPS 3: MAXTAB:   Procedure to return highest table version number
AIPS 3: Adverbs     Values                 Comments
AIPS 3: ----------------------------------------------------------------
AIPS 3: USERID        0                    User ID.
AIPS 3:                                      0 => current user
AIPS 3:                                      32000 => any user
AIPS 3: INNAME     '3C120 L97   '          Name of data file
AIPS 3: INCLASS    'ICL003'                Class of data file
AIPS 3: INSEQ        74                    Sequence number of data file
AIPS 3: INDISK        2                    Disk number of data file
AIPS 3:
AIPS 3:           Give the two-letter code for the table type as an
AIPS 3:           immediate argument. For example, MAXTAB('CL')
AIPS 3:
AIPS 3:           MAXTAB is defined in the VLBAUTIL run file.


 >maxtab('cc')
AIPS 3: INTERP: STACKS NOT EMPTY WHEN LINE DONE


 From IMH on this file:

AIPS 3: Maximum version number of extension files of type CC is   1
AIPS 3: Maximum version number of extension files of type HI is   1


Here is MAXTAB

 >list maxtab
AIPS 3:  1 PROCEDURE MAXTAB (VBA_TYPE)
AIPS 3:  2     SCALAR VBA_SLOT
AIPS 3:  3     SCALAR VBA_VERS
AIPS 3:  4     VBA_KEYW = KEYWORD
AIPS 3:  5     VBA_KEYV = KEYVALUE
AIPS 3:  6     VBA_KEYS = KEYSTRNG
AIPS 3:  7     VBA_SLOT = 0
AIPS 3:  8     KEYSTRNG = '  '
AIPS 3:  9     WHILE VBA_SLOT <> 50 & KEYSTRNG <> VBA_TYPE
AIPS 3: 10         VBA_SLOT = VBA_SLOT + 1; KEYWORD = 'EXTYPE' !! CHAR(V
         BA_SLOT)
AIPS 3: 11         GETHEAD
AIPS 3: 12     END
AIPS 3: 13     IF KEYSTRNG = VBA_TYPE THEN
AIPS 3: 14         KEYWORD = 'EXTVER' !! CHAR(VBA_SLOT); GETHEAD
AIPS 3: 15     ELSE
AIPS 3: 16         KEYVALUE(1) = 0
AIPS 3: 17     END
AIPS 3: 18     VBA_VER = KEYVALUE(1)
AIPS 3: 19     KEYWORD  = VBA_KEYW; KEYVALUE = VBA_KEYV; KEYSTRNG = VBA_
         KEYS
AIPS 3: 20     RETURN VBA_VER
AIPS 3: 21 FINISH


Is there some way to invoke a procedure to cause it to reflect the lines 
being executed so that one can find a problem?

Meanwhile, maxtab seems to need help.  I would think this would be seen 
by others because it is used a lot in the vlba utilities.  Or is there 
something that doesn't let me use it outside another procedure?

Cheers,

Craig


-- 
---------------------------------------------------------------------
     R. Craig Walker            Array Operations Center
     cwalker at nrao.edu           National Radio Astronomy Observatory
     Phone  505 835 7247        P. O. Box O
     Fax    505 835 7027        Socorro NM 87801   USA
---------------------------------------------------------------------