Open Watcom FORTRAN 77 Language Reference

Language Reference
Example:
PRINT ’(’’THE NUMBER
$ ’’12345’’)’
END
IS AN INTEGER’’,TL19,
The output produced is
THE NUMBER 12345 IS AN INTEGER
11.7.4 Slash Editing
The slash edit descriptor indicates the end of data transfer on the current record. On input from a record
connected for sequential access, the remaining characters in the record are skipped and the file is positioned
to the start of the next record. Note that entire records may be skipped. On output, a new record is created
and becomes the last and current record of the file. Note that a record with no characters can be written. If
the file is an internal file or a direct access file, the record is filled with blanks.
For a file connected for direct access, the current record number is increased by one and the file is
positioned at the beginning of that record.
11.7.5 Colon Editing
The colon edit descriptor terminates processing of the format specification if there are no more items in the
I/O list. If there are items remaining in the I/O list, the colon edit descriptor has no effect.
11.7.6 S, SP and SS Editing
The S, SP and SS edit descriptors control optional plus characters in numeric output fields. They only
effect the I, F, E, D and G edit descriptors during output and have no effect on input. The FORTRAN 77
standard specifies that before processing a format specification, the appearance of a plus sign in numeric
output fields is optional and is determined by the processor. Open Watcom FORTRAN 77 does not
produce plus signs in numeric output fields. When an SP edit descriptor is encountered, a plus sign is
produced in any subsequent position that optionally contains a plus sign. When as SS edit descriptor is
encountered, a plus sign is not produced in any subsequent position that optionally contains a plus sign. If
an S edit descriptor is encountered, the option is returned to the processor.
Example:
PRINT ’(1H)’,1,2,3
END
The output produced by the PRINT statement in the previous example is:
< 1 +2 3>
11.7.7 P Editing
The form of a P edit descriptor is kP where k is an optionally signed integer constant called the scale
factor. The value of the scale factor is zero at the beginning of each I/O statement. The scale factor applies
to all subsequent F, E, D and G edit descriptors until another scale factor is encountered. The scale factor
affects editing in the following way.
230 Editing