/* sequential formatted external common routines*/
c_sfe(a
,flag
) cilist
*a
; /* check */
if(a
->ciunit
>= MXUNIT
|| a
->ciunit
<0)
err(a
->cierr
,101,"startio");
if(p
->ufd
==NULL
&& fk_open(flag
,SEQ
,FMT
,a
->ciunit
)) err(a
->cierr
,114,"sfe")
if(!p
->ufmt
) err(a
->cierr
,102,"sfe")