|
|
1.1 ! root 1: .TI F77/CARRIAGE_CC "Sep. 4, 1985" ! 2: Fortran Carriage Control with f77 ! 3: ! 4: Normally no special processing of carriage control characters is ! 5: done by the f77 I/O library. Two ways to get carriage ! 6: control character processing are to open the output file with "form=print": ! 7: ! 8: open( unit=6, form='print' ) ! 9: ! 10: or use the fpr filter on the output: ! 11: ! 12: a.out | fpr ! 13: ! 14: Both of these will single space for a blank in column one, ! 15: double space for a '0' in column one, and replace a '1' in column ! 16: one by a form feed to skip to a new page. ! 17: ! 18: With "form=print", any other character appearing in column one, ! 19: including '+', is deleted with no effect on vertical spacing. ! 20: ! 21: With fpr, the effects of '+' (overprinting) are simulated using backspaces. ! 22: Characters in column one that are not recognized as carriage control ! 23: characters are printed in column one. If there were any invalid carriage ! 24: control characters, before ending, fpr writes out how many invalid ! 25: carriage control characters there were.
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.