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.