00001 #include "f2c.h" 00002 #include "fio.h" 00003 #include "lio.h" 00004 #ifdef __cplusplus 00005 extern "C" { 00006 #endif 00007 00008 integer 00009 #ifdef KR_headers 00010 s_wsne(a) cilist *a; 00011 #else 00012 s_wsne(cilist *a) 00013 #endif 00014 { 00015 int n; 00016 00017 if(n=c_le(a)) 00018 return(n); 00019 f__reading=0; 00020 f__external=1; 00021 f__formatted=1; 00022 f__putn = x_putc; 00023 L_len = LINE; 00024 f__donewrec = x_wSL; 00025 if(f__curunit->uwrt != 1 && f__nowwriting(f__curunit)) 00026 err(a->cierr, errno, "namelist output start"); 00027 x_wsne(a); 00028 return e_wsle(); 00029 } 00030 #ifdef __cplusplus 00031 } 00032 #endif