ENCODE (extension)

Outputs formatted data to internal storage.

Syntax

ENCODE (count, format, unit, io-specifier-list) [out-list]

count

is an integer expression that specifies the number of characters (bytes) to translate from character format to internal (binary) format. count must precede format.

format

specifies the format specification for formatting the data. format can be one of the following:

The label of a FORMAT statement containing the format specification.
An integer variable that has been assigned the label of a FORMAT statement.
An embedded format specification. For information about embedded format specifications, see “Embedded format specification”.

format must be the second of the parenthesized items, immediately following count. Note that the keyword FMT= is not used.

unit

is the internal storage designator. It must be a scalar variable or array name. Assumed-size and adjustable-size arrays are not permitted. Note that char-var-name is not a unit number and that the keyword UNIT= is not used.

unit must be the third of the parenthesized items, immediately following format.

io-specifier-list

is a comma-separated list of I/O specifiers. Note that the unit and format specifiers are required; the other I/O specifiers are optional. The following I/O specifiers can appear in io-specifier-list:

ERR=stmt-label

specifies the label of the executable statement to which control passes if an error occurs during statement execution.

IOSTAT=integer-variable

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.

out-list

is a comma-separated list of data items for output. The data items can include expressions and implied-DO lists (see “Implied-DO loop”).

Description

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:

ENCODE (extension)

Technical documentation

» Table of Contents

» Glossary

» Index

Syntax

Description

Examples

Related statements

Related concepts