Doxygen Source Code Documentation
Main Page Alphabetical List Data Structures File List Data Fields Globals Search
wsne.c
Go to the documentation of this file.00001 #include "f2c.h"
00002 #include "fio.h"
00003 #include "lio.h"
00004
00005 integer
00006 #ifdef KR_headers
00007 s_wsne(a) cilist *a;
00008 #else
00009 s_wsne(cilist *a)
00010 #endif
00011 {
00012 int n;
00013
00014 if(n=c_le(a))
00015 return(n);
00016 f__reading=0;
00017 f__external=1;
00018 f__formatted=1;
00019 f__putn = t_putc;
00020 L_len = LINE;
00021 f__donewrec = x_wSL;
00022 if(f__curunit->uwrt != 1 && f__nowwriting(f__curunit))
00023 err(a->cierr, errno, "namelist output start");
00024 x_wsne(a);
00025 return e_wsle();
00026 }