1 files changed, 44 insertions, 0 deletions
diff --git a/libf2c/libI77/sfe.c b/libf2c/libI77/sfe.c
new file mode 100644
index 0000000..8f05e48
--- /dev/null
+++ b/libf2c/libI77/sfe.c
@@ -0,0 +1,44 @@
+/* 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;
+}