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: }