DAT_PUT - Write primitive

Description:

Write a primitive (type specified by a parameter).

Invocation:

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

Object value.

STATUS = INTEGER (Given and Returned)

The global status.

Notes:

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.