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 4abd55b..ca4f3e2 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/ioinit.f
+++ b/usr/src/usr.bin/f77/libU77/ioinit.f
@@ -1,14 +1,22 @@
 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.2
+C

 C synopsis:
 C synopsis:

-C      logical function ioinit (io66, ioapnd, prefix, vrbose)
-C      logical io66, ioapnd
+C      logical function ioinit (cctl, bzro, apnd, prefix, vrbose)
+C      logical cctl, bzro, apnd, vrbose

 C      character*(*) prefix
 C
 C where:
 C      character*(*) prefix
 C
 C where:

-C      io66    is .true. to turn on fortran-66 carriage control
-C      ioapnd  is .true. to open files at their end
+C      cctl    is .true. to turn on fortran-66 carriage control
+C      bzro    is .true. to cause blank space to be zero on input
+C      apnd    is .true. to open files at their end

 C      prefix  is a string defining environment variables to
 C              be used to initialize logical units.
 C      vrbose  is .true. if the caller wants output showing the lu association
 C      prefix  is a string defining environment variables to
 C              be used to initialize logical units.
 C      vrbose  is .true. if the caller wants output showing the lu association


@@ -19,30 +27,41 @@ C
 C David L. Wasley
 C U.C.Bekeley
 C
 C David L. Wasley
 C U.C.Bekeley
 C

-       logical function ioinit (io66, ioapnd, prefix, vrbose)
-       logical         io66, ioapnd, vrbose
+       logical function ioinit (cctl, bzro, apnd, prefix, vrbose)
+       logical         cctl, bzro, apnd, vrbose

        character*(*)   prefix
 
        character*(*)   prefix
 

-       automatic       iok, fenv, ienv, ename, fname
+       automatic       iok, fenv, ienv, ename, fname, form, blank

        logical         iok, fenv, ienv
        logical         iok, fenv, ienv

-       integer*2       ibof, i66
+       integer*2       ieof, ictl, izro
+       character       form, blank

        character*32    ename
        character*256   fname
        character*32    ename
        character*256   fname

-       common /opnbof/ ibof
-       common /init66/ i66
+       common /ioiflg/ ieof, ictl, izro

 
 

-       if (io66) then
-               i66 = 1
-               open (unit=6, form='p', blank='z')
+       if (cctl) then
+           ictl = 1
+           form = 'p'

        else
        else

-               i66 = 0
-               open (unit=6, form='f', blank='n')
+           ictl = 0
+           form = 'f'

        endif
 
        endif
 

-       if (ioapnd) then
-               ibof = 0
+       if (bzro) then
+           izro = 1
+           blank = 'z'
+       else
+           izro = 0
+           blank = 'n'
+       endif
+
+       open (unit=5, form=form, blank=blank)
+       open (unit=6, form=form, blank=blank)
+
+       if (apnd) then
+           ieof = 1

        else
        else

-               ibof = 1
+           ieof = 0

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


@@ -75,7 +94,7 @@ C
 
        if (vrbose) then
            if (ienv .and. (.not. fenv)) write (0, 2001) ename(:nb-1)
 
        if (vrbose) then
            if (ienv .and. (.not. fenv)) write (0, 2001) ename(:nb-1)

-           write (0, 2004) io66, ioapnd
+           write (0, 2004) cctl, bzro, apnd

            call flush (0)
        endif
 
            call flush (0)
        endif
 


@@ -86,5 +105,5 @@ C
  2001  format ('ioinit: no initialization found for ', a)
  2002  format ('ioinit: initializing from ', a, 'nn')
  2003  format ('ioinit: ', a, ' ', $)
  2001  format ('ioinit: no initialization found for ', a)
  2002  format ('ioinit: initializing from ', a, 'nn')
  2003  format ('ioinit: ', a, ' ', $)

- 2004  format ('ioinit: io66=', l, ', ioapnd=', l)
+ 2004  format ('ioinit: cctl=', l, ', bzro=', l, ', apnd=', l)

        end
        end