1 /* sequential formatted external common routines*/
6 extern char *f__fmtbuf;
19 c_sfe (cilist * a) /* check */
22 if (a->ciunit >= MXUNIT || a->ciunit < 0)
23 err (a->cierr, 101, "startio");
24 p = &f__units[a->ciunit];
25 if (p->ufd == NULL && fk_open (SEQ, FMT, a->ciunit))
26 err (a->cierr, 114, "sfe");
28 err (a->cierr, 102, "sfe");
40 if (!n && fflush (f__cf))
41 err (f__elist->cierr, errno, "write end");