summaryrefslogtreecommitdiff
path: root/gnu/lib/libf2c/libI77/wsne.c
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/lib/libf2c/libI77/wsne.c')
-rw-r--r--gnu/lib/libf2c/libI77/wsne.c22
1 files changed, 0 insertions, 22 deletions
diff --git a/gnu/lib/libf2c/libI77/wsne.c b/gnu/lib/libf2c/libI77/wsne.c
deleted file mode 100644
index bcf08262de1..00000000000
--- a/gnu/lib/libf2c/libI77/wsne.c
+++ /dev/null
@@ -1,22 +0,0 @@
-#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 ();
-}