Path: ...!eternal-september.org!feeder3.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: Lynn McGuire <lynnmcguire5@gmail.com>
Newsgroups: comp.lang.fortran
Subject: Re: Feed control
Date: Wed, 3 Apr 2024 15:47:13 -0500
Organization: A noiseless patient Spider
Lines: 42
Message-ID: <uukf8i$4v8t$1@dont-email.me>
References: <uujitq$3tv68$1@dont-email.me>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 7bit
Injection-Date: Wed, 03 Apr 2024 20:47:14 +0200 (CEST)
Injection-Info: dont-email.me; posting-host="599c2c770da120b19ed87352c2eb1c62";
	logging-data="163101"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX1+PR09yHlA7PE+/XVEk0Y9chau4BMY5Mgw="
User-Agent: Mozilla Thunderbird
Cancel-Lock: sha1:OlrjokF1ewoacLtIsohOWvPlNSE=
In-Reply-To: <uujitq$3tv68$1@dont-email.me>
Content-Language: en-US
Bytes: 2519

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?
> 
> As an aside, back in the 1970's, working on an
> IBM 360, where we handed in a stack of punch cards
> to be run and got the output some time later as a
> print-out, I once accidentally put a "c" in as the
> first character in a line of output, and this caused
> an endless paper feed, until the operator stopped
> it. I got a stern note never to run that program
> again, on top of a thick stack of blank paper.

I use the following in Watcom F77 Fortran as we still use Fortran 
carriage control in column 1 in all of our main write statements, about 
40,000 of them in our code.

C        open the output file
       OPEN (UNIT    = oufile,
      *      FILE    = OUPATH,
      *      ACTION  = 'WRITE',
      *      ACCESS  = 'SEQUENTIAL',
      *      STATUS  = 'UNKNOWN',
!              watcom uses yes
      *      CARRIAGECONTROL = 'YES',
!              gfortran uses 'FORTRAN'
!     *      CARRIAGECONTROL = 'FORTRAN',
!              does not work on gfortran
!     *      BLOCKSIZE = 80,
      *      FORM    = 'FORMATTED',
      *      IOSTAT  = OPERR,
      *      ERR     = 400)

Lynn