X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/blobdiff_plain/e3c3dff634ec50035fc7ad510fe6d12f58ebdb60..5f3e03fdfe411814b1d6e15735ce56f89c6be274:/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 10861a9e9b..f34d3de290 100644
--- 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		@(#)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
@@ -30,9 +30,7 @@ C
 	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