AIF_TEMP - Create a temporary HDS object

Description:

The routine creates a temporary HDS object with the specified type and shape. On the first invocation a temporary structure is created to contain such objects. Subsequently, temporary objects are created within this enclosing structure.

Invocation:

CALL AIF_TEMP( TYPE, NDIM, DIM, LOC, STATUS )

Arguments:

TYPE = CHARACTER $*$ ( $*$ ) (Given)

HDS type of object to be created.

NDIM = INTEGER (Given)

Number of object dimensions.

DIM( NDIM ) = INTEGER (Given)

Object dimensions.

LOC = CHARACTER $*$ ( $*$ ) (Returned)

Locator to temporary object.

STATUS = INTEGER (Given and Returned)

The global status.

Notes:

• A blank string will be returned for the LOC argument if this routine is called with STATUS set, although no further processing will occur. The same value will also be returned if the routine should fail for any reason.

• This routine is a work-around to avoid the problems associated with calling DAT_TEMP if the objects created must subsequently be erased.