INTEGER FUNCTION GETTAB(INDEX,TABNUM)
IMPLICIT INTEGER(A-Z)
C
C GETTAB
C
C RETURN SPECIFIED GETTAB ITEM
C
C CALL:
C ITEM = GETTAB(INDEX,TABNUM)
C
C WHERE:
C ITEM ITEM RETURNED
C INDEX SPECIFIED INDEX
C TABNUM TABLE NUMBER
C
C
C --MAKE CONTENTS OF AC AND DO GETTAB
C
AC = XWD(INDEX,TABNUM)
CALL CALLI("41,AC)
GETTAB = AC
RETURN
END