alexh's projects
/
dragonfly.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Mention KTR_IFQ and KTR_IF_START
[dragonfly.git]
/
contrib
/
gcc-3.4
/
libf2c
/
libI77
/
wsne.c
1
#include "f2c.h"
2
#include "fio.h"
3
#include "lio.h"
4
5
integer
6
s_wsne (cilist * a)
7
{
8
int n;
9
10
if ((n = c_le (a)))
11
return (n);
12
f__reading = 0;
13
f__external = 1;
14
f__formatted = 1;
15
f__putn = x_putc;
16
L_len = LINE;
17
f__donewrec = x_wSL;
18
if (f__curunit->uwrt != 1 && f__nowwriting (f__curunit))
19
err (a->cierr, errno, "namelist output start");
20
x_wsne (a);
21
return e_wsle ();
22
}