Previous: utts00 Up: ../plot79_u.html Next: uttsl
INTEGER FUNCTION UTTSIN (TOKEN,LOCTOK,LENTOK,TYPE,VALUES,
X LVALUE,NVALUE,NSIZE)
C$ (Symbol Table - Install)
C$ Install a name and its type and value list in the symbol
C$ table and return its index as a function value, or 0 if no
C$ space is left for the symbol. UTTSLI can be used to
C$ retrieve its name, type, and values. If it already exists,
C$ it will be updated to reflect the new type, values, and
C$ size. The arguments, none of which are modified, are:
C$
C$ TOKEN(*).......Packed Hollerith string containing symbol
C$ name.
C$ LOCTOK.........Starting location in TOKEN(*) of symbol name.
C$ LENTOK.........Length of symbol name.
C$ TYPE...........INTEGER type flag for symbol, one of TYPNIL,
C$ TYPBOO, TYPINT, or TYPFLT. TYPNIL indicates
C$ that no value has been assigned to the
C$ symbol. Only the rightmost 4 bits (i.e.
C$ values 0..15) are stored in the symbol
C$ table.
C$ VALUES(*)......DOUBLE PRECISION value list to be stored.
C$ LVALUE.........Starting index in symbol table value list
C$ (NOT in VALUES(*)). It is normally 1, but
C$ if the variable is being updated, can be
C$ larger.
C$ NVALUE.........Number of values in VALUES(*) to be stored.
C$ NSIZE..........Size of vector to be stored. If LVALUE +
C$ NVALUE - 1 exceeds NSIZE, excess values are
C$ discarded.
C$ (27-APR-83)