Doxygen Source Code Documentation
wsne.c File Reference
#include "f2c.h"#include "fio.h"#include "lio.h"Go to the source code of this file.
Functions | |
| integer | s_wsne (cilist *a) |
Function Documentation
|
|
Definition at line 9 of file wsne.c. References a, c_le(), e_wsle(), err, f__nowwriting(), LINE, and x_wsne(). Referenced by print_ne().
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 }
|
