TRA_PUTL

Report the first and last few values of an object.

Description

A number of values are read from the object and coded into one or more text lines in a concise manner. The information may be written to an open ASCII file.

Arguments

• LOC = CHARACTER * (DAT__SZLOC) (Given)
  Locator to the object.
• NDIM = INTEGER (Given)
  Dimensionality of the object. DIMS( DAT__MXDIM ) = INTEGER (Given) Dimensions of the object.
• SIZE = INTEGER (Given)
  The number of elements in the object if treated as a vector.
• INDNTC = INTEGER (Given)
  Indentation level for continuation lines of values.
• LINE = CHARACTER * ( * ) (Returned)
  Line of text to be output.
• LENG = INTEGER (Given and Returned)
  Current length of characters in LINE excluding trailing blanks.
• STATUS = INTEGER (Given and Returned)
  The global status.

TRA_PUTL

Put the supplied value string in the supplied text line.

Invocation

CALL HTRACE_PUT( IVALUE, VALUE, COMMA, LINE, LENG, FULL, STATUS )

Description

The supplied value string is planted in the text line followed by an optional comma. The line length and array indices are updated as appropriate. The routine determines whether or not there is enough room to plant the value string, and returns a logical flag stating what has happened.

Arguments

• IVALUE = INTEGER (Given)
  Index to the value if the object is a vector.
• VALUE = CHARACTER * ( * ) (Given)
  Value string.
• COMMA = LOGICAL (Given)
  If true a comma is written after the value.
• LINE = CHARACTER*(*) (Given and Returned)
  Line of text to be appended
• LENG = INTEGER (Given and Returned)
  Current length of the characters in LINE excluding any trailing blanks.
• FULL = LOGICAL (Returned)
  If true the line given was full.
• STATUS = INTEGER (Given)
  Global status