Description:
Check that
the ID is not NIL.
Return FALSE (0) if the item is a structure and TRUE (1) if it is primitive.
Invocation
(Int) =
NBS_GET_PRIMITIVE (ID,PRIMITIVE,STATUS)
Arguments
ID = INTEGER (Given)
Identifier of the
item concerned.
PRIMITIVE = INTEGER (Returned)
Whether primitive (1) or structured (0).
STATUS = INTEGER (Given and returned)
The global status. Possible return values
are,