The routine returns the numeric type of one of the array components of an NDF as an upper-case character string (e.g. ’_REAL’).

CALL NDF_TYPE( INDF, COMP, TYPE, STATUS )

INDF = INTEGER (Given)

COMP = CHARACTER $\ast$ ( $\ast$ ) (Given)

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

STATUS = INTEGER (Given and Returned)

• A comma-separated list of component names may also be supplied to this routine. In this case the result returned will be the lowest precision numeric type to which all the specified components can be converted without unnecessary loss of information.

• The numeric type of a scaled array is determined by the numeric type of the scale and zero terms, not by the numeric type of the underlying array elements.

• The value returned for the QUALITY component is always ’_UBYTE’.

• The symbolic constant NDF__SZTYP may be used for declaring the length of a character variable which is to hold the numeric type of an NDF array component. This constant is defined in the include file NDF_PAR.