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

CALL ARY_FORM( IARY, FORM, STATUS )

IARY = INTEGER (Given)

FORM = CHARACTER $\ast$ ( $\ast$ ) (Returned)

STATUS = INTEGER (Given and Returned)

• 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.