The routine returns the numeric type
of an array as an upper-case character string (e.g. ’_REAL’).
Invocation
CALL ARY_TYPE( IARY,
TYPE, STATUS )
Arguments
IARY = INTEGER (Given)
Array identifier.
TYPE = CHARACTER
∗ (
∗ )
(Returned)
Numeric type of the array.
STATUS = INTEGER (Given and Returned)
The global
status.
Notes:
The symbolic constant ARY__SZTYP may be used for declaring the length of a character variable
which is to hold the numeric type of an array. This constant is defined in the include file ARY_PAR.