Open Watcom FORTRAN 77 Language Reference

Language Reference
Example:
REAL X
X = 234.43
PRINT ’(F10.2)’, X
END
When using a character expression to represent a format specification, the format specification can be
preceded by blank characters and followed by any character data without affecting the format specification.
The following example produces the identical result to the previous example.
Example:
REAL X
X = 234.43
PRINT ’
END
(F10.2) THIS IS FOR X’, X
If a character array is used to describe the format specification, the format specification is considered to be
the concatenation of all the character array elements in the order given by array element ordering described
in the chapter entitled "Arrays" on page 159. Note that if a character array element is used, the format
specification is considered to be only that array element.
Example:
REAL X
CHARACTER*5 FMTSPEC(3)
X = 234.43
FMTSPEC(1)=’(’
FMTSPEC(2)=’F10.2’
FMTSPEC(3)=’)’
PRINT FMTSPEC, X
END
11.4 Format Specification
A format specification has the following form.
( [flist] )
where:
flist
is a list whose items are separated by commas. The forms of the items in flist are:
[r] ed
ned
[r] fs
ed
ned
is a repeatable edit descriptor.
is a nonrepeatable edit descriptor.
226 Format Specification