The ENCODE @ statement writes data from a list to memory.
ENCODE(size, f, buf [, IOSTAT=ios] [, ERR=s]) [iolist]
Parameter |
Description |
size | Number of characters to be translated |
f | Format identifier |
buf | Variable, array, or array element |
ios | I/O status specifier |
s | Error specifier (statement label) |
iolist | List of I/O items, each a character variable, array, or array element |
ENCODE is provided for compatibility with older versions of FORTRAN. Similar functionality can be accomplished using internal files with a formatted sequential WRITE statement. ENCODE is not in the FORTRAN 77 Standard.
Data are edited according to the format identifier.
CHARACTER S*6, T*6 INTEGER V(3)*4 DATA S / '987654' / DECODE( 6, 1, S ) V 1 FORMAT( 3 I2 ) ENCODE( 6, 1, T ) V(3), V(2), V(1)
The DECODE reads the characters of S as 3 integers, and stores them into V(1), V(2), and V(3). The ENCODE statement writes the values V(3), V(2), and V(1), into T as characters; T then contains '547698'.
See "DECODE/ENCODE" for more information and a full example.