ARY_MAPZ - Obtain complex mapped access to an array

Description:

The routine obtains complex mapped access to an array, returning pointers to the real and imaginary values and a count of the number of elements mapped.

Invocation:

CALL ARY_MAPZ( IARY, TYPE, MMOD, RPNTR, IPNTR, EL, STATUS )

Arguments:

IARY = INTEGER (Given)

Array identifier.

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

The numerical data type required for accessing the array (e.g. '_REAL').

MMOD = CHARACTER $*$ ( $*$ ) (Given)

The mapping mode for access to the array: 'READ', 'UPDATE' or 'WRITE', with an optional initialisation mode '/BAD' or '/ZERO' appended.

RPNTR = INTEGER (Returned)

Pointer to the mapped real (i.e. non-imaginary) values.

IPNTR = INTEGER (Returned)

Pointer to the mapped imaginary values.

EL = INTEGER (Returned)

Number of elements mapped.

STATUS = INTEGER (Given and Returned)

The global status.