Previous: uttsl Up: ../plot79_u.html Next: uttsln
INTEGER FUNCTION UTTSLI (SINDEX,LOCTOK,LENTOK,TYPE,NSIZE,LOCVAL)
C$ (Symbol Table - Lookup by Index)
C$ Lookup an entry in the symbol table and return its name
C$ length and location (as character position starting at
C$ ISTAK(1)), and its type, size, and value list location in
C$ COMMON / CSTAK / DSTAK(*), and as a function value, its
C$ table index, or 0 if it does not exist. The arguments are:
C$
C$ SINDEX.........Symbol table index. It will be returned as
C$ a function value unless it does not point to
C$ a valid entry. Valid indexes are guaranteed
C$ to be integer values in the range 1..(number
C$ of entries), so that the table entries can
C$ be retrieved in alphabetical order by
C$ repeated calls to this routine.
C$ LOCTOK.........Starting location in ISTAK(*) of symbol name.
C$ LENTOK.........Length of symbol name.
C$ TYPE...........INTEGER type flag returned for symbol, one
C$ of TYPNIL, TYPBOO, TYPINT, or TYPFLT.
C$ TYPNIL indicates that no value has been
C$ assigned to the symbol.
C$ NSIZE..........Number of entries in value list in DSTAK(*).
C$ LOCVAL.........Index of first value in DSTAK(*).
C$ (20-JUL-89)