1 files changed, 0 insertions, 70 deletions
diff --git a/gnu/lib/libf2c/libI77/ilnw.c b/gnu/lib/libf2c/libI77/ilnw.c
deleted file mode 100644
index 0a92a0cbac2..00000000000
--- a/gnu/lib/libf2c/libI77/ilnw.c
+++ /dev/null
@@ -1,70 +0,0 @@
-#include "config.h"
-#include "f2c.h"
-#include "fio.h"
-#include "lio.h"
-extern char *f__icptr;
-extern char *f__icend;
-extern icilist *f__svic;
-extern int f__icnum;
-extern void z_putc (int);
-
-static int
-z_wSL (void)
-{
-  while (f__recpos < f__svic->icirlen)
-    z_putc (' ');
-  return z_rnew ();
-}
-
-static void
-c_liw (icilist * a)
-{
-  f__reading = 0;
-  f__external = 0;
-  f__formatted = 1;
-  f__putn = z_putc;
-  L_len = a->icirlen;
-  f__donewrec = z_wSL;
-  f__svic = a;
-  f__icnum = f__recpos = 0;
-  f__cursor = 0;
-  f__cf = 0;
-  f__curunit = 0;
-  f__icptr = a->iciunit;
-  f__icend = f__icptr + a->icirlen * a->icirnum;
-  f__elist = (cilist *) a;
-}
-
-integer
-s_wsni (icilist * a)
-{
-  cilist ca;
-
-  if (f__init != 1)
-    f_init ();
-  f__init = 3;
-  c_liw (a);
-  ca.cifmt = a->icifmt;
-  x_wsne (&ca);
-  z_wSL ();
-  return 0;
-}
-
-integer
-s_wsli (icilist * a)
-{
-  if (f__init != 1)
-    f_init ();
-  f__init = 3;
-  f__lioproc = l_write;
-  c_liw (a);
-  return (0);
-}
-
-integer
-e_wsli (void)
-{
-  f__init = 1;
-  z_wSL ();
-  return (0);
-}