if(!f__curunit->ufmt) err(a->cierr,103,"lio")
if(!f__curunit->ufmt) err(a->cierr,103,"lio");
c_le(cilist *a)#endif{	if(!f__init)		f_init();	f__fmtbuf="list io";	if(a->ciunit>=MXUNIT || a->ciunit<0)		err(a->cierr,101,"stler");	f__scale=f__recpos=0;	f__elist=a;	f__curunit = &f__units[a->ciunit];	if(f__curunit->ufd==NULL && fk_open(SEQ,FMT,a->ciunit))		err(a->cierr,102,"lio");	f__cf=f__curunit->ufd;	if(!f__curunit->ufmt) err(a->cierr,103,"lio")	return(0);}