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