8 integer s_wsle(a) cilist *a;
10 integer s_wsle(cilist *a)
14 if(n=c_le(a)) return(n);
22 if(f__curunit->uwrt != 1 && f__nowwriting(f__curunit))
23 err(a->cierr, errno, "list output start");
34 if (!n && fflush(f__cf))
35 err(f__elist->cierr, errno, "write end");