home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / f2c / i77lib / wsne.c < prev    next >
C/C++ Source or Header  |  2000-06-22  |  468b  |  30 lines
  1. #include "f2c.h"
  2. #include "fio.h"
  3. #include "lio.h"
  4.  
  5.  integer
  6. #ifdef KR_headers
  7. s_wsne(a) cilist *a;
  8. #else
  9. s_wsne(cilist *a)
  10. #endif
  11. {
  12.     int n;
  13.     extern integer e_wsle(Void);
  14.  
  15.     if(!f__init)
  16.         f_init();
  17.     if(n=c_le(a))
  18.         return(n);
  19.     f__reading=0;
  20.     f__external=1;
  21.     f__formatted=1;
  22.     f__putn = t_putc;
  23.     L_len = LINE;
  24.     f__donewrec = x_wSL;
  25.     if(f__curunit->uwrt != 1 && f__nowwriting(f__curunit))
  26.         err(a->cierr, errno, "namelist output start");
  27.     x_wsne(a);
  28.     return e_wsle();
  29.     }
  30.