ADI1_LOCERESP

Locate ENERGY_RESP header structure given HDS object

Invocation

CALL ADI1_LOCERESP( ID, CREATE, ELOC, STATUS )

Description

Locate ENERGY_RESP structure given HDS object. The routine first checks that the object has not already been found.

Arguments

• ID = INTEGER (given)
  ADI identifier referencing HDS object
• CREATE = LOGICAL (given)
  Create component if it doesn't exist?
• ELOC = CHARACTER*(DAT__SZLOC) (returned)
  Locator ENERGY_RESP object
• STATUS = INTEGER (given and returned)
  The global status.

References

• ADI Subroutine Guide