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

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

LOC = CHARACTER $\ast$ ( DAT__SZLOC ) (Given)

TYPE = CHARACTER $\ast$ ( DAT__SZTYP ) (Given)

NDIM = INTEGER (Given)

DIM = INTEGER( NDIM ) (Given)

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

STATUS = INTEGER (Given and Returned)

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.