wsne.c File Reference

#include "f2c.h"
#include "fio.h"
#include "lio.h"

Include dependency graph for wsne.c:

Go to the source code of this file.

Functions
integer	s_wsne (cilist *a)

---

Function Documentation

integer s_wsne

(

cilist *

a

)

Definition at line 12 of file wsne.c.

References a, c_le(), e_wsle(), err, errno, f__curunit, f__donewrec, f__external, f__formatted, f__nowwriting(), f__putn, f__reading, L_len, LINE, n, unit::uwrt, x_putc(), x_wSL, and x_wsne().

Referenced by print_ne().

{
        int n;

        if(n=c_le(a))
                return(n);
        f__reading=0;
        f__external=1;
        f__formatted=1;
        f__putn = x_putc;
        L_len = LINE;
        f__donewrec = x_wSL;
        if(f__curunit->uwrt != 1 && f__nowwriting(f__curunit))
                err(a->cierr, errno, "namelist output start");
        x_wsne(a);
        return e_wsle();
        }

Here is the call graph for this function:

Here is the caller graph for this function:

---