1999-09-18 10:51:31 +00:00
|
|
|
#include "f2c.h"
|
|
|
|
|
#include "fio.h"
|
|
|
|
|
#include "lio.h"
|
|
|
|
|
|
2003-07-11 03:42:19 +00:00
|
|
|
integer
|
|
|
|
|
s_wsne (cilist * a)
|
1999-09-18 10:51:31 +00:00
|
|
|
{
|
2003-07-11 03:42:19 +00:00
|
|
|
int n;
|
1999-09-18 10:51:31 +00:00
|
|
|
|
2003-07-11 03:42:19 +00:00
|
|
|
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 ();
|
|
|
|
|
}
|
