DAT_STRUC - Enquire object structure

Description:

Enquire if an object is a structure.

Invocation:

CALL DAT_STRUC( LOC, REPLY, STATUS )

Arguments:

LOC = CHARACTER * ( DAT__SZLOC ) (Given)

Object locator.

REPLY = LOGICAL (Returned)

.TRUE. if structure, otherwise .FALSE..

STATUS = INTEGER (Given and Returned)

The global status.