Open Watcom FORTRAN 77 Language Reference

Language Reference
Example:
INTEGER AGE
WRITE(6,FMT=10)
10 FORMAT( ’Enter age: ’,\/ )
READ(5,20) AGE
20 FORMAT( I2 )
PRINT *,’Your age is ’,AGE
END
11.7.10 Numeric Editing: I, F, E, D and G Edit Descriptors
Numeric edit descriptors are used to specify I/O of integer, real, double precision, complex and double
precision complex data. The following rules apply to all numeric edit descriptors.
1. On input, leading blanks are not significant. The interpretation of blanks other than leading
blanks is determined by any BN or BZ edit descriptors in effect and the BLANK= specifier (see
the OPEN statement). A field of all blanks is always zero. Plus signs are optional.
2. On input, with F, E, D and G editing, the decimal location specified in the edit descriptor is
overridden by a decimal point appearing in the input field.
3. On output, the plus sign is optional and is determined by the S, SP and SS edit descriptors. A
negative quantity is represented by a negative sign. A minus sign is never produced when
outputting a value of zero.
4. On output, the representation is always right justified in the field with leading blanks inserted at
the beginning of the field if the number of characters in the representation is less than the field
width.
5. On output, if the number of characters in the external representation is greater than the field
width or an exponent exceeds its specified length using Ew.dEe, Gw.dEe, Ew.dDe or
Gw.dDe edit descriptors, the entire field is filled with asterisks.
11.7.10.1 Integer Editing: Iw and Iw.m Edit Descriptors
The Iw and Iw.m edit descriptors indicate that the field width of the field to be edited is w. The item in
the I/O list must be of type integer; on input the I/O list item will be defined by integer data, on output the
I/O list item must be defined with an integer datum.
On input, the Iw.m edit descriptor is treated identically to the Iw edit descriptor. The output field for the
Iw edit descriptor consists of zero or more leading blanks followed by a minus sign if the value of the I/O
list item is negative or an optional plus sign otherwise, followed by the magnitude of the integer datum with
no leading zeroes. Note that the integer constant contains at least one digit. On output, the Iw.m edit
descriptor specifies that at least m digits are to be displayed with leading zeroes if necessary. The value of
m must be less than or equal to the value of w. If m is zero and the value of the datum is zero, then the
output field is filled with blanks.
Example:
PRINT ’(1H)’,23,2345
The output produced by the PRINT statement in the previous example is the string:
232 Editing