From 1eaf95d91aec7fc599b0bf0c4d7a92bb72876a7c Mon Sep 17 00:00:00 2001
From: Don Libes? <libs@ucbvax.Berkeley.EDU>
Date: Wed, 5 Jun 1985 00:53:02 -0800
Subject: [PATCH] delete iiorec_, iiopos_

SCCS-vsn: usr.bin/f77/libI77/c_iio.c 1.3
---
 usr/src/usr.bin/f77/libI77/c_iio.c | 10 +---------
 1 file changed, 1 insertion(+), 9 deletions(-)

diff --git a/usr/src/usr.bin/f77/libI77/c_iio.c b/usr/src/usr.bin/f77/libI77/c_iio.c
index 040e0b1724..771ba9ceb8 100644
--- a/usr/src/usr.bin/f77/libI77/c_iio.c
+++ b/usr/src/usr.bin/f77/libI77/c_iio.c
@@ -1,5 +1,5 @@
 /*
-char id_c_iio[] = "@(#)c_iio.c	1.2";
+char id_c_iio[] = "@(#)c_iio.c	1.3";
  *
  * internal (character array) i/o: common portions
  */
@@ -158,11 +158,3 @@ c_li(a) icilist *a;
 	leof = NO;
 	return(OK);
 }
-
-ftnint
-iiorec_()
-{	return(recnum);	}
-
-ftnint
-iiopos_()
-{	return(recpos);	}
-- 
2.20.1