Write a primitive (type specified by a parameter).

CALL DAT_PUT( 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 )$>$, ... ) (Given)

STATUS = INTEGER (Given and Returned)

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