9 integer s_wsle(a) cilist *a;
11 integer s_wsle(cilist *a)
15 if(n=c_le(a)) return(n);
23 if(f__curunit->uwrt != 1 && f__nowwriting(f__curunit))
24 err(a->cierr, errno, "list output start");
35 if (!n && fflush(f__cf))
36 err(f__elist->cierr, errno, "write end");