On 4/3/2024 5:38 PM, Lawrence D'Oliveiro wrote:
On Wed, 3 Apr 2024 15:47:13 -0500, Lynn McGuire wrote:
... we still use Fortran carriage control in column 1 in all of our
main write statements, about 40,000 of them in our code.
Never too soon to start fixing them. Do it one at a time.
Gotta do them all at once since the carriage control is controlled by
the OPEN statement.
Gary Scott wrote:
On 4/4/2024 8:52 AM, Dr. What wrote:
Gary Scott wrote to All <=-
GS> On 4/3/2024 7:43 AM, db wrote:
> When I learned Fortran many years ago, the first
> character in a line to be printed (or later,
> displayed) controlled line or page feed. A blank
> produced a new line, a "1" a new page. We used these
> to control what happened.
>
> These days, this doesn't seem to be the case, so
> in a sense, Fortran is no longer backward
> compatible in this one sense. Or is it?
>
GS> This was always, and remains device dependent.
That's not completely true.
Using MS-FORTRAN on my vintage computers, I always have to start my
FORMATs
with "1X". If I fail to do that, the output, even to the screen, chops >>> off
that first character.
Hmmm. I'd say that's precisely what "device dependent" means.
Although some behavior in MS Fortran was just bugs.
... Epitaph on a gravestone: Cheerio, see you soon.
___ MultiMail/Linux v0.52
Not at all, the 1X means that the line-feed character is a space. A "+" there would probably overlay whatever had previously been printed to
that line with something new.
I have used several different compilers on several different
architectures over the years (the newest adhered to the F77 standard)
and the meaning of the first character on a line was common to all of them.
Just because there was a frequent
convention on Windows or Linux doesn't mean it was universal.
| Sysop: | DaiTengu |
|---|---|
| Location: | Appleton, WI |
| Users: | 1,099 |
| Nodes: | 10 (0 / 10) |
| Uptime: | 492379:14:20 |
| Calls: | 14,106 |
| Calls today: | 2 |
| Files: | 187,124 |
| D/L today: |
2,577 files (1,107M bytes) |
| Messages: | 2,496,253 |