DAT_THERE - Enquire component existence

Description:

Enquire if a component of a structure exists.

Invocation:

CALL DAT_THERE( LOC, NAME, REPLY, STATUS )

Arguments:

LOC = CHARACTER * ( DAT__SZLOC ) (Given)

Structure locator.

NAME = CHARACTER * ( DAT__SZNAM ) (Given)

Component name.

REPLY = LOGICAL (Returned)

.TRUE. if exists, otherwise .FALSE..

STATUS = INTEGER (Given and Returned)

The global status.