ARY_FORM - Obtain the storage form of an array

Description:

The routine returns the storage form of an array as an upper-case character string (e.g. 'SIMPLE').

Invocation:

CALL ARY_FORM( IARY, FORM, STATUS )

Arguments:

IARY = INTEGER (Given)

Array identifier.

FORM = CHARACTER $*$ ( $*$ ) (Returned)

Storage form of the array.

STATUS = INTEGER (Given and Returned)

The global status.

Notes:

• The symbolic constant ARY__SZFRM may be used for declaring the length of a character variable to hold the storage form of an array. This constant is defined in the include file ARY_PAR.

• At present, the ARY_ routines only support "primitive", "scaled", "simple" and "delta" arrays, so only the values 'PRIMITIVE', 'SCALED' 'DELTA' and 'SIMPLE' can be returned.