Commit | Line | Data |
---|---|---|
8662e665 PW |
1 | #include "fio.h" |
2 | setcilist(x,u,fmt,rec,xerr,end) cilist *x; | |
3 | char *fmt; | |
4 | { | |
5 | x->ciunit=u; | |
6 | x->cifmt=fmt; | |
7 | x->cirec=rec; | |
8 | x->cierr=xerr; | |
9 | x->ciend=end; | |
10 | } | |
11 | setolist(x,xunit,fname,sta,fm,rl,blnk,oerr) olist *x; | |
12 | char *fname,*sta,*fm,*blnk; | |
13 | { | |
14 | x->oerr=oerr; | |
15 | x->ounit=xunit; | |
16 | x->ofnm=fname; | |
17 | x->ofnmlen=strlen(fname); | |
18 | x->osta=sta; | |
19 | x->ofm=fm; | |
20 | x->orl=rl; | |
21 | x->oblnk=blnk; | |
22 | } | |
23 | stcllist(x,xunit,stat,cerr) cllist *x; char *stat; | |
24 | { | |
25 | x->cerr=cerr; | |
26 | x->cunit=xunit; | |
27 | x->csta=stat; | |
28 | } | |
29 | setalist(x,xunit,aerr) alist *x; | |
30 | { | |
31 | x->aunit=xunit; | |
32 | x->aerr=aerr; | |
33 | } |