1 /* sequential formatted external common routines*/
5 extern char *f__fmtbuf
;
15 c_sfe(a
) cilist
*a
; /* check */
17 c_sfe(cilist
*a
) /* check */
20 if(a
->ciunit
>= MXUNIT
|| a
->ciunit
<0)
21 err(a
->cierr
,101,"startio");
22 p
= &f__units
[a
->ciunit
];
23 if(p
->ufd
==NULL
&& fk_open(SEQ
,FMT
,a
->ciunit
)) err(a
->cierr
,114,"sfe");
24 if(!p
->ufmt
) err(a
->cierr
,102,"sfe");