Description:
This routine writes a reference to
an HDS object into an existing reference structure. An error is reported if an attempt is made to write a
reference into an object which is not a reference object. 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_PUT( ELOC, LOC, INTERN, STATUS )
Arguments
ELOC = CHARACTER
∗ (
∗
) (Given)
A locator associated with the reference object.
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.