DAT_GET - Read primitive

Description:

Read a primitive (access type specified by a parameter).

Invocation:

CALL DAT_GET( LOC, TYPE, NDIM, DIM, VALUE, STATUS )

Arguments:

LOC = CHARACTER * ( DAT__SZLOC ) (Given)

Primitive locator.

TYPE = CHARACTER * ( DAT__SZTYP ) (Given)

Data type.

NDIM = INTEGER (Given)

Number of dimensions.

DIM = INTEGER( NDIM ) (Given)

Object dimensions.

VALUE = ?( $<$dim( 1 )$>$, $<$dim( 2 )$>$, ... ) (Returned)

Object value.

STATUS = INTEGER (Given and Returned)

The global status.

Notes:

When reading character strings the normal Fortran 77 rules for character assignment are followed, ie. if the string length of the primitive object is less than that of the value array, each string is padded to the right with blanks; if greater, the strings are truncated from the right.