lang/fortran/lib/libI77/wsle.c

   1 #include "f2c.h"
   2 #include "fio.h"
   3 #include "fmt.h"
   4 #include "lio.h"
   5 extern int l_write(), t_putc(), x_wSL();
   6
   7 integer s_wsle(a) cilist *a;
   8 {
   9         int n;
  10         if(!init) f_init();
  11         if(n=c_le(a)) return(n);
  12         reading=0;
  13         external=1;
  14         formatted=1;
  15         putn = t_putc;
  16         lioproc = l_write;
  17         L_len = LINE;
  18         donewrec = x_wSL;
  19         if(curunit->uwrt != 1 && nowwriting(curunit))
  20                 err(a->cierr, errno, "list output start");
  21         return(0);
  22         }
  23
  24 integer e_wsle()
  25 {
  26         t_putc('\n');
  27         recpos=0;
  28         if (cf == stdout)
  29                 fflush(stdout);
  30         else if (cf == stderr)
  31                 fflush(stderr);
  32         return(0);
  33         }