1 /* sequential formatted external common routines*/
2 #include "v3p_f2c.h"
3 #include "fio.h"
4 #ifdef __cplusplus
5 extern "C" {
6 #endif
7 
8 extern char *f__fmtbuf;
9 
e_rsfe(Void)10 integer e_rsfe(Void)
11 {       int n;
12         n=en_fio();
13         f__fmtbuf=NULL;
14         return(n);
15 }
16 
17  int
18 #ifdef KR_headers
c_sfe(a)19 c_sfe(a) cilist *a; /* check */
20 #else
21 c_sfe(cilist *a) /* check */
22 #endif
23 {       unit *p;
24         f__curunit = p = &f__units[a->ciunit];
25         if(a->ciunit >= MXUNIT || a->ciunit<0)
26                 err(a->cierr,101,"startio");
27         if(p->ufd==NULL && fk_open(SEQ,FMT,a->ciunit)) err(a->cierr,114,"sfe")
28         if(!p->ufmt) err(a->cierr,102,"sfe")
29         return(0);
30 }
e_wsfe(Void)31 integer e_wsfe(Void)
32 {
33         int n = en_fio();
34         f__fmtbuf = NULL;
35 #ifdef ALWAYS_FLUSH
36         if (!n && fflush(f__cf))
37                 err(f__elist->cierr, errno, "write end");
38 #endif
39         return n;
40 }
41 #ifdef __cplusplus
42 }
43 #endif
44