1 files changed, 0 insertions, 44 deletions
diff --git a/gnu/lib/libf2c/libI77/sfe.c b/gnu/lib/libf2c/libI77/sfe.c
deleted file mode 100644
index 8f05e480662..00000000000
--- a/gnu/lib/libf2c/libI77/sfe.c
+++ /dev/null
@@ -1,44 +0,0 @@
-/* sequential formatted external common routines*/
-#include "config.h"
-#include "f2c.h"
-#include "fio.h"
-
-extern char *f__fmtbuf;
-
-integer
-e_rsfe (void)
-{
-  int n;
-  f__init = 1;
-  n = en_fio ();
-  f__fmtbuf = NULL;
-  return (n);
-}
-
-int
-c_sfe (cilist * a)		/* check */
-{
-  unit *p;
-  if (a->ciunit >= MXUNIT || a->ciunit < 0)
-    err (a->cierr, 101, "startio");
-  p = &f__units[a->ciunit];
-  if (p->ufd == NULL && fk_open (SEQ, FMT, a->ciunit))
-    err (a->cierr, 114, "sfe");
-  if (!p->ufmt)
-    err (a->cierr, 102, "sfe");
-  return (0);
-}
-
-integer
-e_wsfe (void)
-{
-  int n;
-  f__init = 1;
-  n = en_fio ();
-  f__fmtbuf = NULL;
-#ifdef ALWAYS_FLUSH
-  if (!n && fflush (f__cf))
-    err (f__elist->cierr, errno, "write end");
-#endif
-  return n;
-}