lang/fortran/lib/libI77/wsne.c

   1 #include "f2c.h"
   2 #include "fio.h"
   3 #include "lio.h"
   4
   5  integer
   6 s_wsne(a)
   7  cilist *a;
   8 {
   9         int n;
  10         extern int (*donewrec)(), t_putc(), x_wSL();
  11         extern integer e_wsle();
  12
  13         if(!init)
  14                 f_init();
  15         if(n=c_le(a))
  16                 return(n);
  17         reading=0;
  18         external=1;
  19         formatted=1;
  20         putn = t_putc;
  21         L_len = LINE;
  22         donewrec = x_wSL;
  23         if(curunit->uwrt != 1 && nowwriting(curunit))
  24                 err(a->cierr, errno, "namelist output start");
  25         x_wsne(a);
  26         return e_wsle();
  27         }