contrib/libf2c/libI77/wsne.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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 ();
}