DAT_PRIM

Enquire object primitive

Description:

Enquire if an object is a primitive.

Invocation

CALL DAT_PRIM( LOC, REPLY, STATUS )

Arguments

LOC = CHARACTER  ( DAT__SZLOC ) (Given)
Object locator.
REPLY = LOGICAL (Returned)
.TRUE. if primitive, otherwise .FALSE..
STATUS = INTEGER (Given and Returned)
The global status.