changed common block definitions. DLW

SCCS-vsn: usr.bin/f77/libU77/ioinit.f 1.4

diff --git a/usr/src/usr.bin/f77/libU77/ioinit.f b/usr/src/usr.bin/f77/libU77/ioinit.f
index 10861a9..f34d3de 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/ioinit.f
+++ b/usr/src/usr.bin/f77/libU77/ioinit.f
@@ -1,6 +1,6 @@
 C
 C ioinit - initialize the I/O system
 C
 C ioinit - initialize the I/O system

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

 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


@@ -30,9 +30,7 @@ C
        character       form, blank
        character*32    ename
        character*256   fname
        character       form, blank
        character*32    ename
        character*256   fname

-       common /opnbof/ ibof
-       common /ccntrl/ ictl
-       common /blzero/ izro
+       common /ioiflg/ ibof, ictl, izro

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