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