projects
/
dragonfly.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Add the DragonFly cvs id and perform general cleanups on cvs/rcs/sccs ids. Most
[dragonfly.git]
/
contrib
/
libf2c
/
libI77
/
wsne.c
1
#include "f2c.h"
2
#include "fio.h"
3
#include "lio.h"
4
5
integer
6
#ifdef KR_headers
7
s_wsne(a) cilist *a;
8
#else
9
s_wsne(cilist *a)
10
#endif
11
{
12
int n;
13
14
if(n=c_le(a))
15
return(n);
16
f__reading=0;
17
f__external=1;
18
f__formatted=1;
19
f__putn = x_putc;
20
L_len = LINE;
21
f__donewrec = x_wSL;
22
if(f__curunit->uwrt != 1 && f__nowwriting(f__curunit))
23
err(a->cierr, errno, "namelist output start");
24
x_wsne(a);
25
return e_wsle();
26
}