DAT_STATE - Enquire object state

Description:

Enquire the state of a primitive, ie. whether its value is defined or not.

Invocation:

CALL DAT_STATE( LOC, REPLY, STATUS )

Arguments:

LOC = CHARACTER * ( DAT__SZLOC ) (Given)

Primitive locator.

REPLY = LOGICAL (Returned)

.TRUE. if defined, otherwise .FALSE..

STATUS = INTEGER (Given and Returned)

The global status.