Description:
This routine creates a reference
object as a component of a specified structure and writes a reference to an HDS object in it. If the
specified component already exists and is a reference object, it will be used. If it is not a reference
object, an error is reported. The reference may be described as "internal" which means that the
referenced object is in the same container file as the reference object.
Invocation
CALL
REF_CRPUT( ELOC, CNAME, LOC, INTERN, STATUS )
Arguments
ELOC = CHARACTER
( DAT__SZLOC
) (Given)
A locator associated with the structure which is to contain the reference object.
CNAME =
CHARACTER
( DAT__SZNAM ) (Given)
The component name of the reference object to be created.
LOC = CHARACTER
(
)
(Given)
A locator associated with the object to be referenced.
INTERN = LOGICAL (Given)
Whether or not the referenced object is "internal". Set this to .TRUE. if the reference is "internal" and
to .FALSE. if it is not.
STATUS = INTEGER (Given and Returned)
Inherited global status.