<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body text="#000000" bgcolor="#FFFFFF">
<p>IFILE (and OFILE) don't allow specifying a file extension. In
fact, they only support 5 (or fewer) character file names. (5 x
7-bit = 36-bit word - don't ask about the extra bit.) They're a
hack to allow specifying a filename at runtime; earlier, you had
to use a hardcoded name associated with each LUN.<br>
</p>
<p>There were two RTLs for TOPS-10 FORTRAN. F40 originally shipped
with LIB40, also known as FORSE. <br>
</p>
<p>It subsequently shipped with FOROTS - the "new" RTL for
FORTRAN-10.</p>
<p>LIB40 doesn't support OPEN, which is necessary for control of
record conversion.</p>
<p>FOROTS does. With F40, one uses CALL OPEN ; with FORTRAN-10, the
OPEN statement.<br>
</p>
<p>If you have FOROTS, you can replace the IFILE call with OPEN/CALL
OPEN, as documented for FORTRAN-10.</p>
<p>The fact that the shipped filename is 6 characters indicates that
FOROTS is expected - I don't believe that IFILE was extended for
FOROTS, but OPEN certainly allows a full filespec. <br>
</p>
<p>So it looks like you have a data file intended for use with
FOROTS, with code that someone tried to adapt to use with LIB40 by
substituting IFILE for OPEN and changing the name.</p>
<p>You're going to have to change something. Either the format (to
discard the carriage control), or the IFILE to OPEN (to tell the
RTL discard it for you). If it's only read with one format
statement, I'd go for that.</p>
<p>You can write portable FORTRAN, but this is a classic example of
how early implementations made it hard at the edges.<br>
</p>
On 03-Feb-18 14:17, Lars Brinkhoff wrote:<br>
<blockquote type="cite" cite="mid:7w372h51dl.fsf@junk.nocrew.org">
<pre wrap="">Timothe Litt wrote:
</pre>
<blockquote type="cite">
<pre wrap="">Is the file extension .DAT? that may trigger this.
</pre>
</blockquote>
<pre wrap="">
It is.
</pre>
<blockquote type="cite">
<pre wrap="">Is there an OPEN statement for that file? If so, what does it include?
</pre>
</blockquote>
<pre wrap="">
There's no OPEN statement. The input is opened by this:
CALL IFILE(1,'TEXT')
The accompanying file is called ADVENT.DAT. The IFILE call expects
TEXT.DAT instead.
</pre>
<blockquote type="cite">
<pre wrap="">What fortran compiler/runtime? DEC's F40? FORTRAN-10? Something else?
</pre>
</blockquote>
<pre wrap="">
DEC F40.
</pre>
<blockquote type="cite">
<pre wrap="">You need the reference manual for whichever compiler/RTL you're using.
</pre>
</blockquote>
<pre wrap="">
I have the FORTRAN IV (F40) PROGRAMMER'S REFERENCE MANUAL from
bitsavers.
</pre>
</blockquote>
<br>
</body>
</html>