HP Fortran Programmer's Reference

IOSTAT=integer-variable
out-list
Description
HP Fortran statements
ENCODE (extension)
specifies the label of the executable statement to which control passes if an
error occurs during statement execution.
returns the I/O status after the statement executes. If the statement
successfully executes, integer-variable is set to zero. If an end-of-file
record is encountered without an error condition, it is set to a negative
integer. If an error occurs, integer-variable is set to a positive integer
that indicates which error occurred.
is a comma-separated list of data items for output. The data items can
include expressions and implied-DO lists (see “Implied-DO loop” on
page 191).
The ENCODE statement is a nonstandard feature of HP Fortran and is provided for
compatibility with other versions of Fortran. The
internal-I/O capabilities of the standard WRITE statement provide similar functionality and
should be used to ensure portability.
The ENCODE statement translates data from its internal (binary) representation into
formatted character data.
Examples
The following example program uses the ENCODE statement to write to an internal file:
PROGRAM encode_example
CHARACTER(LEN=20) :: buf
ENCODE (LEN(buf), '(2X, 3I4, 1X)', buf) 1234, 45, -12
PRINT *, buf
END PROGRAM encode_example
When compiled and executed, this program outputs the following (where b represents a blank
character):
bb1234bb45b-12bbbbb
Related statements
DECODE and WRITE
Related concepts
For related information, see the following:
Chapter 10 305