Gcc 3.3.1-pre 2003-07-11 libf2c bits.

1 files changed, 16 insertions, 20 deletions

diff --git a/contrib/libf2c/libI77/wsne.c b/contrib/libf2c/libI77/wsne.c
index ae3f817..bcf0826 100644
--- a/contrib/libf2c/libI77/wsne.c
+++ b/contrib/libf2c/libI77/wsne.c
@@ -2,25 +2,21 @@
 #include "fio.h"
 #include "lio.h"
 
- integer
-#ifdef KR_headers
-s_wsne(a) cilist *a;
-#else
-s_wsne(cilist *a)
-#endif
+integer
+s_wsne (cilist * a)
 {
-	int n;
+  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();
-	}
+  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 ();
+}