toolchain/gcc/libf2c/libI77/wsne.c

   1 #include "f2c.h"
   2 #include "fio.h"
   3 #include "lio.h"
   4
   5 integer
   6 s_wsne (cilist * a)
   7 {
   8   int n;
   9
  10   if ((n = c_le (a)))
  11     return (n);
  12   f__reading = 0;
  13   f__external = 1;
  14   f__formatted = 1;
  15   f__putn = x_putc;
  16   L_len = LINE;
  17   f__donewrec = x_wSL;
  18   if (f__curunit->uwrt != 1 && f__nowwriting (f__curunit))
  19     err (a->cierr, errno, "namelist output start");
  20   x_wsne (a);
  21   return e_wsle ();
  22 }