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