1 files changed, 22 insertions, 0 deletions
diff --git a/contrib/libf2c/libI77/wsne.c b/contrib/libf2c/libI77/wsne.c
new file mode 100644
index 0000000..bcf0826
--- /dev/null
+++ b/contrib/libf2c/libI77/wsne.c
@@ -0,0 +1,22 @@
+#include "f2c.h"
+#include "fio.h"
+#include "lio.h"
+
+integer
+s_wsne (cilist * a)
+{
+  int n;
+
+  if ((n = c_le (a)))
+    return (n);
+  f__reading = 0;
+  f__external = 1;
+  f__formatted = 1;
+  f__putn = x_putc;
+  L_len = LINE;
+  f__donewrec = x_wSL;
+  if (f__curunit->uwrt != 1 && f__nowwriting (f__curunit))
+    err (a->cierr, errno, "namelist output start");
+  x_wsne (a);
+  return e_wsle ();
+}