delete iiorec_, iiopos_

SCCS-vsn: usr.bin/f77/libI77/c_iio.c 1.3

diff --git a/usr/src/usr.bin/f77/libI77/c_iio.c b/usr/src/usr.bin/f77/libI77/c_iio.c
index 040e0b1..771ba9c 100644 (file)
--- 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
  */
  *
  * internal (character array) i/o: common portions
  */


@@ -158,11 +158,3 @@ c_li(a) icilist *a;
        leof = NO;
        return(OK);
 }
        leof = NO;
        return(OK);
 }

-
-ftnint
-iiorec_()
-{      return(recnum); }
-
-ftnint
-iiopos_()
-{      return(recpos); }