Open Watcom FORTRAN 77 Language Reference

Format
If w is specified in A output editing so that w is greater than len, then the output field will consist of
w-len blanks followed by the len characters of the I/O list item. If w is less than or equal to len, the
output field will consist of the first w characters of the I/O list item.
Example:
PRINT ’(1H)’,’ABCDEFG’,’123’
The output produced by the PRINT statement in the previous example is the string:
11.7.13 Z Editing (Extension)
The Zw edit descriptor is used to display the hexadecimal representation of data or read hexadecimal data.
It is a Open Watcom FORTRAN 77 extension. The Zw edit descriptor can be used for I/O list items of any
type. The field width is w.
On output, w must be greater than or equal to twice the size (in bytes) of the I/O list item since each byte is
represented by two hexadecimal digits. For example, real data requires four bytes. Hence, w must be at
least eight.
Example:
PRINT ’(1H)’, 256
The output produced by the PRINT statement in the previous example is the string:
If w is greater then the number of hexadecimal digits required to represent the data, the leftmost print
positions of the output field are filled with blanks.
Example:
PRINT ’(1H)’,’ABCD’
The output produced by the PRINT statement in the previous example is the string
< C1C2C3C4>
if the EBCDIC character set is being used or
< 41424344>
if the ASCII character set is being used.
On input, if w is greater than twice the size (in bytes) of the I/O list item, the leftmost characters are
truncated from the input field. For example, if the input field contains the string
91A2C3D4
and is read into a character variable whose length is two, the character would contain the hexadecimal data
C3D4. If w is less than twice the size (in bytes) of the I/O item, the I/O item is padded to the left with
hexadecimal zeroes. For example, if the input field contains the string
81C1
Editing 237