stdio.h defines BUFSIZ

[unix-history] / usr / src / usr.bin / f77 / libU77 / ioinit.f

diff --git a/usr/src/usr.bin/f77/libU77/ioinit.f b/usr/src/usr.bin/f77/libU77/ioinit.f
index f34d3de..ca4f3e2 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/ioinit.f
+++ b/usr/src/usr.bin/f77/libU77/ioinit.f
@@ -1,6 +1,13 @@
 C
 C

+C Copyright (c) 1980 Regents of the University of California.
+C All rights reserved.  The Berkeley software License Agreement
+C specifies the terms and conditions for redistribution.
+C
+C      @(#)ioinit.f    5.1 (Berkeley) %G%
+C
+C

 C ioinit - initialize the I/O system
 C ioinit - initialize the I/O system

-C              @(#)ioinit.f    1.4
+C

 C synopsis:
 C      logical function ioinit (cctl, bzro, apnd, prefix, vrbose)
 C      logical cctl, bzro, apnd, vrbose
 C synopsis:
 C      logical function ioinit (cctl, bzro, apnd, prefix, vrbose)
 C      logical cctl, bzro, apnd, vrbose


@@ -26,11 +33,11 @@ C
 
        automatic       iok, fenv, ienv, ename, fname, form, blank
        logical         iok, fenv, ienv
 
        automatic       iok, fenv, ienv, ename, fname, form, blank
        logical         iok, fenv, ienv

-       integer*2       ibof, ictl, izro
+       integer*2       ieof, ictl, izro

        character       form, blank
        character*32    ename
        character*256   fname
        character       form, blank
        character*32    ename
        character*256   fname

-       common /ioiflg/ ibof, ictl, izro
+       common /ioiflg/ ieof, ictl, izro

 
        if (cctl) then
            ictl = 1
 
        if (cctl) then
            ictl = 1


@@ -52,9 +59,9 @@ C
        open (unit=6, form=form, blank=blank)
 
        if (apnd) then
        open (unit=6, form=form, blank=blank)
 
        if (apnd) then

-           ibof = 0
+           ieof = 1

        else
        else

-           ibof = 1
+           ieof = 0

        endif
 
        iok = .true.
        endif
 
        iok = .true.