CMP_PRIM - Enquire component primitive

Description:

Enquire if a structure component is a primitive object.

Invocation:

CALL CMP_PRIM( LOC, NAME, REPLY, STATUS )

Arguments:

LOC = CHARACTER * ( DAT__SZLOC ) (Given)

Structure locator.

NAME = CHARACTER * ( DAT__SZNAM ) (Given)

Component name.

REPLY = LOGICAL (Returned)

.TRUE. if primitive, otherwise .FALSE..

STATUS = INTEGER (Given and Returned)

The global status.